remotedatamodule.dfm

Delphi Kylix Database Development 附书代码

object StatelessServerData: TStatelessServerData
  OldCreateOrder = False
  Left = 292
  Top = 107
  Height = 150
  Width = 215
  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 WHERE ID > :MinID ORDER BY ID'
    Params = <
      item
        DataType = ftInteger
        Name = 'MinID'
        ParamType = ptInput
      end>
    Left = 80
    Top = 8
  end
  object pvContacts: TDataSetProvider
    DataSet = sqlContacts
    Constraints = True
    OnGetData = pvContactsGetData
    BeforeGetRecords = pvContactsBeforeGetRecords
    AfterGetRecords = pvContactsAfterGetRecords
    Left = 144
    Top = 8
  end
end