udmmyessays.dfm

来自「Delphi开发webservice的一套例子」· DFM 代码 · 共 40 行

object dmMyEssays: TdmMyEssays
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 369
  Top = 210
  Height = 167
  Width = 308
  object sconnMyEssays: TSQLConnection
    Connected = True
    ConnectionName = 'MyEssays'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Interbase'
      'BlobSize=-1'
      'CommitRetain=True'
      'Database=d:\LeeWei\Books\Delphi6\Datas\MyEssays.GDB'
      'Password=masterkey'
      'RoleName=RoleName'
      'ServerCharSet=ASCII'
      'SQLDialect=1'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=sysdba'
      'WaitOnLocks=True')
    VendorLib = 'GDS32.DLL'
    Left = 56
    Top = 24
  end
  object sdsMyEssays: TSQLDataSet
    SQLConnection = sconnMyEssays
    CommandText = 'select * from MYESSAYS'
    Params = <>
    Left = 208
    Top = 24
  end
end