urdmmdserver.dfm

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

object mdRemoteServer: TmdRemoteServer
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 273
  Top = 108
  Height = 480
  Width = 696
  object ADOConnection1: 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 = 64
    Top = 24
  end
  object adsDetail: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select *  from titles'
    DataSource = DataSource1
    IndexFieldNames = 'pub_id'
    MasterFields = 'pub_id'
    Parameters = <>
    Left = 168
    Top = 24
  end
  object adsMain: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from publishers'
    Parameters = <>
    Left = 248
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = adsMain
    Left = 328
    Top = 24
  end
  object dspMD: TDataSetProvider
    DataSet = adsMain
    Constraints = True
    Left = 64
    Top = 88
  end
  object dspGeneral: TDataSetProvider
    DataSet = adsGeneral
    Constraints = True
    Options = [poAllowCommandText]
    Left = 168
    Top = 88
  end
  object adsGeneral: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 256
    Top = 88
  end
end