ddgsimplerdm.dfm

《Delphi开发人员指南》配书原码

object DDGSimple: TDDGSimple
  OldCreateOrder = False
  Height = 0
  Width = 0
  object Database1: TDatabase
    AliasName = 'DDG5IB'
    Connected = True
    DatabaseName = 'DDGDB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sysdba'
      'PASSWORD=masterkey')
    SessionName = 'Session1_1'
    Left = 44
    Top = 52
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 100
    Top = 52
  end
  object qryCustomer: TQuery
    DatabaseName = 'DDGDB'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'select * from customer')
    Left = 44
    Top = 108
  end
  object prvCustomer: TDataSetProvider
    DataSet = qryCustomer
    Constraints = True
    Left = 112
    Top = 108
  end
end