urdmfacade.dfm

这是不可多得的源代码

object FacadeDemoServer: TFacadeDemoServer
  OldCreateOrder = False
  Left = 435
  Top = 226
  Height = 331
  Width = 306
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Options = [poAllowCommandText]
    Left = 64
    Top = 88
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = Query2
    Options = [poAllowCommandText]
    Left = 64
    Top = 152
  end
  object DataSetProvider3: TDataSetProvider
    DataSet = Query3
    Options = [poAllowCommandText]
    Left = 72
    Top = 216
  end
  object Database1: TDatabase
    AliasName = 'D7Books'
    Connected = True
    DatabaseName = 'aDB'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=E:\Leewei\Books\Delphi7\Datas\d7Books.GDB'
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    Left = 64
    Top = 16
  end
  object Query1: TQuery
    DatabaseName = 'aDB'
    Left = 184
    Top = 16
  end
  object Query2: TQuery
    DatabaseName = 'aDB'
    SQL.Strings = (
      'select * from BOOKS')
    Left = 184
    Top = 96
  end
  object Query3: TQuery
    DatabaseName = 'aDB'
    Left = 184
    Top = 176
  end
end