unit2.~dfm

来自「这是《Delphi程序设计基础》由李文池写的书的示例代码」· ~DFM 代码 · 共 35 行

object MyDcomServer: TMyDcomServer
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 192
  Top = 114
  Height = 150
  Width = 215
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Co' +
      'mmon Files\Borland Shared\Data\dbdemos.mdb;Persist Security Info' +
      '=False'
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    AfterOpen = ADODataSet1AfterOpen
    CommandText = 'select * from employee'
    Parameters = <>
    Left = 32
    Top = 64
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADODataSet1
    Options = [poAllowCommandText]
    Left = 128
    Top = 24
  end
end