dataserver_form.dfm

Delphi三层原代码掩饰及补丁

object DataServer2: TDataServer2
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  Left = 285
  Top = 189
  Height = 256
  Width = 358
  object dspTest: TDataSetProvider
    DataSet = Query
    Constraints = True
    Left = 128
    Top = 16
  end
  object SqlLang: TADOQuery
    Connection = Connection
    CommandTimeout = 1000
    Parameters = <>
    Left = 240
    Top = 16
  end
  object Connection: TADOConnection
    CommandTimeout = 1000
    ConnectionTimeout = 1000
    LoginPrompt = False
    Left = 16
    Top = 16
  end
  object mdLibrary: TADOQuery
    Connection = Connection
    CommandTimeout = 1000
    Parameters = <>
    SQL.Strings = (
      
        'Select md_ID,md_moduleIndex,md_State,md_ModuleAddr from ##mdLibr' +
        'ary')
    Left = 296
    Top = 16
  end
  object cdsDelta: THMClientDataSet
    Aggregates = <>
    Params = <>
    DemoView = 0
    DemoActive = False
    Left = 72
    Top = 68
  end
  object Query: THMADQ
    Connection = Connection
    Parameters = <>
    TrimString = tsNotTrim
    Left = 184
    Top = 16
  end
  object Pub1: THMClientDataSet
    Aggregates = <>
    Params = <>
    DemoView = 0
    DemoActive = False
    Left = 128
    Top = 68
  end
  object Cmd: THMADC
    CommandTimeout = 1000
    Connection = Connection
    Parameters = <>
    Left = 72
    Top = 16
  end
  object Pub2: THMClientDataSet
    Aggregates = <>
    Params = <>
    DemoView = 0
    DemoActive = False
    Left = 184
    Top = 68
  end
  object Pub3: THMClientDataSet
    Aggregates = <>
    Params = <>
    DemoView = 0
    DemoActive = False
    Left = 240
    Top = 68
  end
end