PC World Komputer 1998 January/Pcwk0198.iso/Zadarmo/CYBERCON/_SETUP.1/Ccontact.exe/0/RCDATA/TFRMDATAMODULE/TFRMDATAMODULE.txt

Text File | 1997-08-26 | 14KB | 576 lines

object frmDataModule: TfrmDataModule
  Tag = 1
  Left = 38
  Top = 48
  Width = 551
  Height = 356
  Caption = 'frmDataModule'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TBLEmail: TwwTable
    Filtered = True
    AfterDelete = TBLEmailAfterDelete
    OnCalcFields = TBLEmailCalcFields
    DatabaseName = 'contacts'
    IndexFieldNames = 'Contact;Counter'
    MasterFields = 'Counter'
    MasterSource = dsCon
    TableName = 'EMAIL.DB'
    ControlType.Strings = (
      'Queue;CheckBox;True;False'
      'SenderEmail;CustomEdit;pushSendEmailTab')
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 96
    Top = 204
    object TBLEmailSubject: TStringField
      DisplayWidth = 41
      FieldName = 'Subject'
      Size = 60
    end
    object TBLEmailSenderName: TStringField
      DisplayLabel = 'From/To Name'
      DisplayWidth = 24
      FieldName = 'SenderName'
      Size = 30
    end
    object TBLEmailSenderEmail: TStringField
      DisplayLabel = 'From/To Email'
      DisplayWidth = 19
      FieldName = 'SenderEmail'
      Size = 50
    end
    object TBLEmailBody: TMemoField
      DisplayWidth = 7
      FieldName = 'Body'
      BlobType = ftMemo
      Size = 50
    end
    object TBLEmailQueue: TBooleanField
      DisplayLabel = 'Queued'
      DisplayWidth = 8
      FieldName = 'Queue'
    end
    object TBLEmailStatusField: TStringField
      Calculated = True
      DisplayLabel = 'Status'
      DisplayWidth = 8
      FieldName = 'StatusField'
      Size = 10
    end
    object TBLEmailAttachNum: TIntegerField
      DisplayLabel = 'Attach'
      DisplayWidth = 7
      FieldName = 'AttachNum'
    end
    object TBLEmailDateCreated: TDateField
      DisplayLabel = 'Created'
      DisplayWidth = 10
      FieldName = 'DateCreated'
    end
    object TBLEmailRemark: TStringField
      DisplayWidth = 100
      FieldName = 'Remark'
      Size = 100
    end
    object TBLEmailToEmail: TStringField
      DisplayWidth = 28
      FieldName = 'ToEmail'
      Visible = False
      Size = 50
    end
    object TBLEmailCounter: TAutoIncField
      FieldName = 'Counter'
      Visible = False
    end
    object TBLEmailContact: TIntegerField
      FieldName = 'Contact'
      Visible = False
    end
    object TBLEmailNumber: TIntegerField
      FieldName = 'Number'
      Visible = False
    end
    object TBLEmailStatus: TIntegerField
      FieldName = 'Status'
      Visible = False
    end
    object TBLEmailStam: TIntegerField
      Calculated = True
      FieldName = 'Stam'
      Visible = False
    end
  end
  object dsEmail: TwwDataSource
    DataSet = TBLEmail
    Left = 124
    Top = 204
  end
  object TBLLinks: TwwTable
    Filtered = True
    AfterInsert = TBLLinksAfterInsert
    DatabaseName = 'contacts'
    IndexFieldNames = 'Contact'
    MasterFields = 'Counter'
    MasterSource = dsCon
    TableName = 'Links.db'
    ControlType.Strings = (
      'URL;CustomEdit;btnGotoUrl')
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 160
    Top = 204
    object TBLLinksTitle: TStringField
      DisplayLabel = 'Site Title'
      DisplayWidth = 50
      FieldName = 'Title'
      Size = 50
    end
    object TBLLinksURL: TStringField
      DisplayWidth = 35
      FieldName = 'URL'
      Size = 50
    end
    object TBLLinksDescrip: TMemoField
      DisplayLabel = 'Description'
      DisplayWidth = 10
      FieldName = 'Descrip'
      BlobType = ftMemo
      Size = 50
    end
    object TBLLinksDateCreated: TDateField
      DisplayLabel = 'Created'
      DisplayWidth = 10
      FieldName = 'DateCreated'
    end
    object TBLLinksLastAccess: TDateField
      DisplayLabel = 'Last Accessed'
      DisplayWidth = 10
      FieldName = 'LastAccess'
    end
    object TBLLinksCounter: TAutoIncField
      DisplayWidth = 10
      FieldName = 'Counter'
      Visible = False
    end
    object TBLLinksContact: TIntegerField
      DisplayWidth = 10
      FieldName = 'Contact'
      Visible = False
    end
  end
  object dsLinks: TwwDataSource
    DataSet = TBLLinks
    Left = 188
    Top = 204
  end
  object TBLActivity: TwwTable
    Filtered = True
    AfterInsert = TBLActivityAfterInsert
    DatabaseName = 'contacts'
    IndexFieldNames = 'Contact'
    MasterFields = 'Counter'
    MasterSource = dsCon
    TableName = 'Activity.DB'
    ControlType.Strings = (
      'Done;CheckBox;True;False'
      'DateOf;CustomEdit;PushDateActGridWhen'
      'DateCreated;CustomEdit;pushDateActGrdCre'
      'Activity;CustomEdit;LookUpAct'
      'Priority;CustomEdit;cmbPrioirty')
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 224
    Top = 204
    object TBLActivityActivity: TStringField
      DisplayWidth = 31
      FieldName = 'Activity'
      Size = 50
    end
    object TBLActivityDateOf: TDateField
      DisplayLabel = 'When'
      DisplayWidth = 8
      FieldName = 'DateOf'
    end
    object TBLActivityPriority: TStringField
      DisplayWidth = 7
      FieldName = 'Priority'
      Size = 2
    end
    object TBLActivityDone: TBooleanField
      DisplayWidth = 5
      FieldName = 'Done'
    end
    object TBLActivityDetailes: TStringField
      DisplayLabel = 'Details'
      DisplayWidth = 40
      FieldName = 'Detailes'
      Size = 100
    end
    object TBLActivityNotes: TMemoField
      DisplayWidth = 10
      FieldName = 'Notes'
      BlobType = ftMemo
      Size = 50
    end
    object TBLActivityDateCreated: TDateField
      DisplayLabel = 'Created'
      DisplayWidth = 10
      FieldName = 'DateCreated'
    end
    object TBLActivityCounter: TAutoIncField
      FieldName = 'Counter'
      Visible = False
    end
    object TBLActivityContact: TIntegerField
      FieldName = 'Contact'
      Visible = False
    end
  end
  object dsActivity: TwwDataSource
    DataSet = TBLActivity
    Left = 256
    Top = 204
  end
  object TBLActDesc: TwwTable
    DatabaseName = 'contacts'
    IndexName = 'ActivityDesc'
    TableName = 'ActDesc.db'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 244
    Top = 88
    object TBLActDescActDesc: TStringField
      DisplayLabel = 'Activities'
      DisplayWidth = 50
      FieldName = 'ActDesc'
      Size = 50
    end
    object TBLActDescActivity: TIntegerField
      DisplayWidth = 10
      FieldName = 'Activity'
      Visible = False
    end
    object TBLActDescCounter: TAutoIncField
      FieldName = 'Counter'
      Visible = False
    end
  end
  object TBLPeople: TwwTable
    Filtered = True
    AfterInsert = TBLPeopleAfterInsert
    DatabaseName = 'contacts'
    IndexFieldNames = 'Contact'
    MasterFields = 'Counter'
    MasterSource = dsCon
    TableName = 'People.db'
    ControlType.Strings = (
      'EMail;CustomEdit;PushEmail'
      'Phone;CustomEdit;pushPhone'
      'Fax;CustomEdit;pushFax')
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 296
    Top = 208
    object TBLPeopleLastName: TStringField
      DisplayLabel = 'Last Name'
      DisplayWidth = 15
      FieldName = 'LastName'
      Size = 30
    end
    object TBLPeopleFirstName: TStringField
      DisplayLabel = 'First Name'
      DisplayWidth = 13
      FieldName = 'FirstName'
      Size = 30
    end
    object TBLPeopleEMail: TStringField
      DisplayLabel = 'E-mail'
      DisplayWidth = 22
      FieldName = 'EMail'
      Size = 50
    end
    object TBLPeopleJobTitle: TStringField
      DisplayLabel = 'Job Title'
      DisplayWidth = 15
      FieldName = 'JobTitle'
      Size = 30
    end
    object TBLPeopleDepartment: TStringField
      DisplayWidth = 21
      FieldName = 'Department'
      Size = 30
    end
    object TBLPeopleDateCreated: TDateField
      DisplayLabel = 'Created'
      DisplayWidth = 10
      FieldName = 'DateCreated'
    end
    object TBLPeopleNotes: TMemoField
      DisplayWidth = 7
      FieldName = 'Notes'
      BlobType = ftMemo
      Size = 50
    end
    object TBLPeopleFax: TStringField
      DisplayWidth = 20
      FieldName = 'Fax'
    end
    object TBLPeoplePhone: TStringField
      DisplayWidth = 20
      FieldName = 'Phone'
    end
    object TBLPeopleCounter: TAutoIncField
      DisplayWidth = 10
      FieldName = 'Counter'
      Visible = False
    end
    object TBLPeopleContact: TIntegerField
      DisplayWidth = 10
      FieldName = 'Contact'
      Visible = False
    end
  end
  object DSPeople: TwwDataSource
    DataSet = TBLPeople
    Left = 324
    Top = 208
  end
  object TBLNotes: TwwTable
    Filtered = True
    AfterInsert = TBLNotesAfterInsert
    DatabaseName = 'contacts'
    IndexFieldNames = 'Contact'
    MasterFields = 'Counter'
    MasterSource = dsCon
    TableName = 'notes.DB'
    ControlType.Strings = (
      'DateCreated;CustomEdit;PushDateNote')
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 368
    Top = 212
    object TBLNotesSubject: TStringField
      DisplayWidth = 75
      FieldName = 'Subject'
      Size = 50
    end
    object TBLNotesDateCreated: TDateField
      DisplayLabel = 'Created'
      DisplayWidth = 8
      FieldName = 'DateCreated'
    end
    object TBLNotesMemo: TMemoField
      DisplayWidth = 17
      FieldName = 'Memo'
      BlobType = ftMemo
      Size = 10
    end
    object TBLNotesCounter: TAutoIncField
      DisplayWidth = 10
      FieldName = 'Counter'
      Visible = False
    end
    object TBLNotesContact: TIntegerField
      DisplayWidth = 10
      FieldName = 'Contact'
      Visible = False
    end
  end
  object DSNotes: TwwDataSource
    DataSet = TBLNotes
    Left = 396
    Top = 208
  end
  object QURContactEmail: TwwQuery
    DatabaseName = 'contacts'
    Params.Data = {010001000D53656E646572416464726573730001020030000000}
    SQL.Strings = (
      'select counter from contacts where'
      'Email = :SenderAddress'
      '')
    ValidateWithMask = True
    Left = 272
    Top = 24
    object QURContactEmailcounter: TIntegerField
      FieldName = 'counter'
    end
  end
  object DSEmailFull: TwwDataSource
    DataSet = TBLEmailFull
    Left = 56
    Top = 168
  end
  object TBLEmailFull: TwwTable
    Filter = 'contact=1'
    Filtered = True
    AfterDelete = TBLEmailFullAfterDelete
    OnCalcFields = TBLEmailFullCalcFields
    DatabaseName = 'contacts'
    TableName = 'EMAIL.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 28
    Top = 168
    object TBLEmailFullSubject: TStringField
      DisplayWidth = 30
      FieldName = 'Subject'
      Size = 60
    end
    object TBLEmailFullSenderName: TStringField
      DisplayLabel = 'From/To Name'
      DisplayWidth = 20
      FieldName = 'SenderName'
      Size = 30
    end
    object TBLEmailFullSenderEmail: TStringField
      DisplayLabel = 'From/To E-mail'
      DisplayWidth = 25
      FieldName = 'SenderEmail'
      Size = 50
    end
    object TBLEmailFullDateCreated: TDateField
      DisplayLabel = 'Created'
      DisplayWidth = 10
      FieldName = 'DateCreated'
    end
    object TBLEmailFullRemark: TStringField
      DisplayWidth = 40
      FieldName = 'Remark'
      Size = 100
    end
    object TBLEmailFullstatusField: TStringField
      Calculated = True
      DisplayLabel = 'Status'
      DisplayWidth = 10
      FieldName = 'statusField'
      Size = 10
    end
    object TBLEmailFullAttachNum: TIntegerField
      DisplayLabel = 'Attach'
      DisplayWidth = 5
      FieldName = 'AttachNum'
      Visible = False
    end
    object TBLEmailFullStatus: TIntegerField
      DisplayWidth = 10
      FieldName = 'Status'
      Visible = False
    end
    object TBLEmailFullNumber: TIntegerField
      DisplayWidth = 10
      FieldName = 'Number'
      Visible = False
    end
    object TBLEmailFullBody: TMemoField
      DisplayWidth = 10
      FieldName = 'Body'
      Visible = False
      BlobType = ftMemo
      Size = 50
    end
    object TBLEmailFullCounter: TAutoIncField
      DisplayWidth = 10
      FieldName = 'Counter'
      Visible = False
    end
    object TBLEmailFullContact: TIntegerField
      DisplayWidth = 10
      FieldName = 'Contact'
      Visible = False
    end
    object TBLEmailFullQueue: TBooleanField
      FieldName = 'Queue'
      Visible = False
    end
    object TBLEmailFullToEmail: TStringField
      FieldName = 'ToEmail'
      Visible = False
      Size = 50
    end
  end
  object QURAttach: TwwQuery
    DatabaseName = 'contacts'
    Params.Data = {0100010008456D61696C4E756D00030400000000000000}
    SQL.Strings = (
      'select * from attach where'
      'EmailNum = :EmailNum'
      '')
    ValidateWithMask = True
    Left = 304
    Top = 24
    object QURAttachcounter: TIntegerField
      FieldName = 'counter'
    end
    object QURAttachEmailNum: TIntegerField
      FieldName = 'EmailNum'
    end
    object QURAttachLocation: TStringField
      FieldName = 'Location'
      Size = 50
    end
    object QURAttachRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object TBLAttach: TwwTable
    Filtered = True
    DatabaseName = 'contacts'
    TableName = 'Attach.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 32
    Top = 132
    object TBLAttachCounter: TAutoIncField
      FieldName = 'Counter'
    end
    object TBLAttachEmailNum: TIntegerField
      FieldName = 'EmailNum'
    end
    object TBLAttachLocation: TStringField
      FieldName = 'Location'
      Size = 50
    end
    object TBLAttachRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object TBLCon: TwwTable
    Active = True
    Filtered = True
    AfterInsert = TBLConAfterInsert
    BeforeDelete = TBLConBeforeDelete
    OnCalcFields = TBLConCalcFields
    DatabaseName = 'contacts'
    IndexName = 'LNameInd'
    TableName = 'Contacts.DB'
    ControlType.Strings = (
      'Mark;CheckBox;True;False'
      'URL;CustomEdit;PushBut'
      'EMail;CustomEdit;pushSendEmail')
    PictureMasks.Strings = (<image000.unknown>}
    SQL.Strings = (
      'select * from email where counter = :Counter')
    Left = 344
    Top = 24
  end
  object TBLJobTitle: TwwTable
    DatabaseName = 'contacts'
    IndexName = 'DescInd'
    TableName = 'jobTitle.DB'
    PictureMasks.Strings = (