urdmdeltademoserver.dfm

来自「delphi多层应用系统 delphi多层应用系统」· DFM 代码 · 共 52 行

object DeltaDemoServer: TDeltaDemoServer
  OldCreateOrder = False
  Height = 0
  Width = 0
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 24
    Top = 16
  end
  object quryCustomers: TQuery
    DatabaseName = 'aDB'
    SessionName = 'Session1_1'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT CNO, CNAME, PHONE, CID, BDATE, ADDRESS, BANKNO, ACCOUNTNO' +
        ', CLASS'
      'FROM CUSTOMERS Customers')
    Left = 209
    Top = 16
  end
  object Database1: TDatabase
    AliasName = 'MD5IBDBS'
    Connected = True
    DatabaseName = 'aDB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Session1_1'
    Left = 112
    Top = 16
  end
  object pdCustomers: TDataSetProvider
    DataSet = quryCustomers
    Constraints = True
    Left = 118
    Top = 103
  end
  object quryBanks: TQuery
    Active = True
    DatabaseName = 'aDB'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'SELECT BANKNO, BANKNAME'
      'FROM BANKS Banks')
    Left = 24
    Top = 104
  end
end