unit2.~dfm

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

object tsgl_server: Ttsgl_server
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 539
  Top = 239
  Height = 221
  Width = 215
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=8360019;Persist Security Info=True;' +
      'User ID=sa;Initial Catalog=ts;Data Source=qq-1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 88
    Top = 8
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 48
    Top = 64
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADODataSet1
    Options = [poAllowCommandText]
    Left = 56
    Top = 120
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from records')
    Left = 128
    Top = 64
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = ADOQuery1
    Options = [poAutoRefresh, poAllowCommandText]
    Left = 136
    Top = 120
  end
end