serverdatamodule.dfm

来自「《delphi数据库设计与实例开发》随书光盘」· DFM 代码 · 共 34 行

object DCOMServer: TDCOMServer
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 192
  Top = 107
  Height = 150
  Width = 215
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=pubs;Data Source=CR-9KL7SNA22Z3O'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    AfterOpen = ADOQuery1AfterOpen
    Parameters = <>
    SQL.Strings = (
      'select * from authors')
    Left = 120
    Top = 16
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADOQuery1
    Left = 64
    Top = 64
  end
end