main.dfm

Delphi7数据库开发教程,包含该书21套实例

object MIDASDemo: TMIDASDemo
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 358
  Top = 223
  Height = 190
  Width = 262
  object Query1: TQuery
    Active = True
    AfterOpen = Query1AfterOpen
    DatabaseName = 'ServerDB'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'select * from orders')
    Left = 48
    Top = 24
  end
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'ServerDB'
    SessionName = 'Session1_1'
    Left = 152
    Top = 24
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 48
    Top = 88
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Options = [poAllowCommandText]
    Left = 144
    Top = 88
  end
end