remotedatamodule.dfm

Delphi Kylix Database Development 附书代码

object ConManDataServer: TConManDataServer
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 279
  Top = 131
  Height = 157
  Width = 334
  object conn: TSQLConnection
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    Params.Strings = (
      'BlobSize=-1'
      'CommitRetain=False'
      'Database=D:\CPDD\Samples\Data\CONMAN.gdb'
      'LocaleCode=0'
      'Password=masterkey'
      'RoleName=RoleName'
      'ServerCharSet=ASCII'
      'SQLDialect=1'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=sysdba'
      'WaitOnLocks=True')
    VendorLib = 'GDS32.DLL'
    Left = 16
    Top = 8
  end
  object sqlContacts: TSQLDataSet
    SQLConnection = conn
    CommandText = 'select * from CONTACTS'
    Params = <>
    Left = 120
    Top = 8
    object sqlContactsCONTACTID: TIntegerField
      FieldName = 'CONTACTID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sqlContactsFIRST: TStringField
      FieldName = 'FIRST'
    end
    object sqlContactsLAST: TStringField
      FieldName = 'LAST'
      Size = 30
    end
    object sqlContactsDEAR: TStringField
      FieldName = 'DEAR'
      Size = 40
    end
    object sqlContactsTITLE: TStringField
      FieldName = 'TITLE'
      Size = 30
    end
    object sqlContactsCOMPANYNAME: TStringField
      FieldName = 'COMPANYNAME'
      Size = 50
    end
    object sqlContactsADDRESS1: TStringField
      FieldName = 'ADDRESS1'
      Size = 50
    end
    object sqlContactsADDRESS2: TStringField
      FieldName = 'ADDRESS2'
      Size = 50
    end
    object sqlContactsCITY: TStringField
      FieldName = 'CITY'
      Size = 30
    end
    object sqlContactsSTATE: TStringField
      FieldName = 'STATE'
    end
    object sqlContactsPOSTALCODE: TStringField
      FieldName = 'POSTALCODE'
      Size = 10
    end
    object sqlContactsCOUNTRY: TStringField
      FieldName = 'COUNTRY'
      Size = 30
    end
    object sqlContactsPHONE: TStringField
      FieldName = 'PHONE'
    end
    object sqlContactsFAX: TStringField
      FieldName = 'FAX'
    end
    object sqlContactsCELLULAR: TStringField
      FieldName = 'CELLULAR'
    end
    object sqlContactsPAGER: TStringField
      FieldName = 'PAGER'
    end
    object sqlContactsEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 40
    end
    object sqlContactsIMAGE: TBlobField
      FieldName = 'IMAGE'
      Size = 1
    end
    object sqlContactsNOTES: TMemoField
      FieldName = 'NOTES'
      BlobType = ftMemo
      Size = 1
    end
  end
  object sqlTodos: TSQLDataSet
    SQLConnection = conn
    CommandText = 'SELECT * FROM TODOS WHERE CONTACTID = :CONTACTID'
    DataSource = dsContacts
    Params = <
      item
        DataType = ftInteger
        Name = 'CONTACTID'
        ParamType = ptInput
        Size = 4
      end>
    Left = 120
    Top = 64
    object sqlTodosTODOID: TIntegerField
      FieldName = 'TODOID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sqlTodosCONTACTID: TIntegerField
      FieldName = 'CONTACTID'
      Required = True
    end
    object sqlTodosDESCRIPTION: TStringField
      FieldName = 'DESCRIPTION'
      Size = 50
    end
    object sqlTodosSCHEDULED: TSQLTimeStampField
      FieldName = 'SCHEDULED'
    end
    object sqlTodosCOMPLETED: TSQLTimeStampField
      FieldName = 'COMPLETED'
    end
  end
  object dsContacts: TDataSource
    DataSet = sqlContacts
    Left = 184
    Top = 8
  end
  object pvContacts: TDataSetProvider
    DataSet = sqlContacts
    Constraints = True
    Options = [poAllowCommandText]
    BeforeUpdateRecord = pvContactsBeforeUpdateRecord
    Left = 256
    Top = 8
  end
  object sqlID: TSQLDataSet
    SQLConnection = conn
    CommandText = 'ID_GEN'
    CommandType = ctStoredProc
    Params = <
      item
        DataType = ftInteger
        Name = 'AVALUE'
        ParamType = ptOutput
        Size = 4
      end>
    Left = 16
    Top = 64
  end
end