unit2.dfm

来自「Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例」· DFM 代码 · 共 29 行

object MyDataModule2: TMyDataModule2
  OldCreateOrder = False
  Left = 393
  Top = 283
  Height = 150
  Width = 245
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'DB1'
    SessionName = 'Default'
    Left = 32
    Top = 16
  end
  object Query1: TQuery
    DatabaseName = 'DB1'
    SQL.Strings = (
      'select * from country')
    Left = 96
    Top = 16
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Options = [poAllowCommandText]
    Left = 160
    Top = 16
  end
end