datamodule.dfm

Delphi Kylix Database Development 附书代码

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 320
  Top = 157
  Height = 150
  Width = 215
  object SocketConnection1: TSocketConnection
    ServerGUID = '{694B8A11-BD2B-44DA-92A4-5E8E20E05F33}'
    ServerName = 'ConManServer.ConManDataServer'
    BeforeConnect = SocketConnection1BeforeConnect
    Left = 40
    Top = 8
  end
  object cdsContacts: TClientDataSet
    Aggregates = <>
    FileName = 'CONMAN.CDS'
    Params = <>
    ProviderName = 'pvContacts'
    RemoteServer = SocketConnection1
    OnCalcFields = cdsContactsCalcFields
    OnNewRecord = cdsContactsNewRecord
    OnReconcileError = cdsContactsReconcileError
    Left = 136
    Top = 8
    object cdsContactsCONTACTID: TIntegerField
      FieldName = 'CONTACTID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsContactsFIRST: TStringField
      FieldName = 'FIRST'
    end
    object cdsContactsLAST: TStringField
      FieldName = 'LAST'
      Size = 30
    end
    object cdsContactsDEAR: TStringField
      FieldName = 'DEAR'
      Size = 40
    end
    object cdsContactsTITLE: TStringField
      FieldName = 'TITLE'
      Size = 30
    end
    object cdsContactsCOMPANYNAME: TStringField
      FieldName = 'COMPANYNAME'
      Size = 50
    end
    object cdsContactsADDRESS1: TStringField
      FieldName = 'ADDRESS1'
      Size = 50
    end
    object cdsContactsADDRESS2: TStringField
      FieldName = 'ADDRESS2'
      Size = 50
    end
    object cdsContactsCITY: TStringField
      FieldName = 'CITY'
      Size = 30
    end
    object cdsContactsSTATE: TStringField
      FieldName = 'STATE'
    end
    object cdsContactsPOSTALCODE: TStringField
      FieldName = 'POSTALCODE'
      Size = 10
    end
    object cdsContactsCOUNTRY: TStringField
      FieldName = 'COUNTRY'
      Size = 30
    end
    object cdsContactsPHONE: TStringField
      FieldName = 'PHONE'
    end
    object cdsContactsFAX: TStringField
      FieldName = 'FAX'
    end
    object cdsContactsCELLULAR: TStringField
      FieldName = 'CELLULAR'
    end
    object cdsContactsPAGER: TStringField
      FieldName = 'PAGER'
    end
    object cdsContactsEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 40
    end
    object cdsContactsIMAGE: TBlobField
      FieldName = 'IMAGE'
      Size = 1
    end
    object cdsContactsNOTES: TMemoField
      FieldName = 'NOTES'
      BlobType = ftMemo
      Size = 1
    end
    object cdsContactssqlTodos: TDataSetField
      FieldName = 'sqlTodos'
    end
    object cdsContactsFullName: TStringField
      DisplayWidth = 51
      FieldKind = fkCalculated
      FieldName = 'FullName'
      Size = 51
      Calculated = True
    end
  end
  object cdsTodos: TClientDataSet
    Aggregates = <>
    DataSetField = cdsContactssqlTodos
    Params = <>
    OnNewRecord = cdsTodosNewRecord
    Left = 136
    Top = 64
    object cdsTodosTODOID: TIntegerField
      FieldName = 'TODOID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsTodosCONTACTID: TIntegerField
      FieldName = 'CONTACTID'
      Required = True
    end
    object cdsTodosDESCRIPTION: TStringField
      FieldName = 'DESCRIPTION'
      Size = 50
    end
    object cdsTodosSCHEDULED: TSQLTimeStampField
      FieldName = 'SCHEDULED'
    end
    object cdsTodosCOMPLETED: TSQLTimeStampField
      FieldName = 'COMPLETED'
    end
  end
end