serverdatamodule.dfm

Delphi Kylix Database Development 附书代码

object MethodsDM: TMethodsDM
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  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:\Interbase\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 = 72
    Top = 8
  end
  object pvContacts: TDataSetProvider
    DataSet = sqlContacts
    Constraints = True
    Left = 136
    Top = 8
  end
end