urdmdynamicsqlserver.dfm

来自「就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》」· DFM 代码 · 共 33 行

object DynamicSQLDemoServer: TDynamicSQLDemoServer
  OldCreateOrder = False
  Left = 307
  Top = 135
  Height = 211
  Width = 563
  object adocDSQL: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=lee6283;Persist Security Info=True;' +
      'User ID=Gordon;Initial Catalog=pubs;Data Source=LWDOMAIN;Locale ' +
      'Identifier=1028;Connect Timeout=15;Use Procedure for Prepare=1;A' +
      'uto Translate=True;Packet Size=4096;Workstation ID=ACER'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 44
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = adocDSQL
    Parameters = <>
    Left = 130
    Top = 16
  end
  object dspGeneral: TDataSetProvider
    DataSet = ADOQuery1
    Constraints = True
    Options = [poAllowCommandText]
    Left = 214
    Top = 16
  end
end