udmclient.dfm

来自「本文件采用了c/s结构的分布式应用系统」· DFM 代码 · 共 138 行

object dmclient: Tdmclient
  OldCreateOrder = False
  Left = 301
  Top = 167
  Height = 427
  Width = 332
  object cdsLogin: TClientDataSet
    Aggregates = <>
    IndexName = 'DEFAULT_ORDER'
    Params = <
      item
        DataType = ftString
        Name = 'username'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'password'
        ParamType = ptInput
      end>
    ProviderName = 'dspLogin'
    RemoteServer = DCOMConnSvr
    Left = 32
    Top = 16
  end
  object DCOMConnSvr: TDCOMConnection
    Connected = True
    ServerGUID = '{2ACDE11B-D541-4AFA-A601-9C394A5A991D}'
    ServerName = 'server.rdmServer'
    ComputerName = 'Glj'
    Left = 160
    Top = 16
  end
  object cdssystem: TClientDataSet
    Aggregates = <>
    IndexName = 'DEFAULT_ORDER'
    Params = <>
    ProviderName = 'dspsystem'
    RemoteServer = DCOMConnSvr
    AfterApplyUpdates = cdssystemAfterApplyUpdates
    Left = 32
    Top = 80
  end
  object dssystem: TDataSource
    DataSet = cdssystem
    Left = 112
    Top = 80
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 224
    Top = 16
  end
  object cdsHomeMaster: TClientDataSet
    Aggregates = <>
    IndexName = 'DEFAULT_ORDER'
    Params = <>
    ProviderName = 'dspHomeMaster'
    RemoteServer = DCOMConnSvr
    Left = 24
    Top = 144
  end
  object dsHomeMaster: TDataSource
    DataSet = cdsHomeMaster
    Left = 104
    Top = 144
  end
  object cdsMember: TClientDataSet
    Aggregates = <>
    IndexName = 'DEFAULT_ORDER'
    Params = <>
    ProviderName = 'dspMember'
    RemoteServer = DCOMConnSvr
    Left = 184
    Top = 144
  end
  object dsmember: TDataSource
    DataSet = cdsMember
    Left = 256
    Top = 144
  end
  object cdsInOut: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDateTime
        Name = 'dt3'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'dt4'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspInOut'
    RemoteServer = DCOMConnSvr
    Left = 24
    Top = 216
  end
  object dsInOut: TDataSource
    DataSet = cdsInOut
    Left = 112
    Top = 208
  end
  object cdsFix: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspFix'
    RemoteServer = DCOMConnSvr
    Left = 32
    Top = 280
  end
  object dsFix: TDataSource
    DataSet = cdsFix
    Left = 112
    Top = 280
  end
  object cdsFee: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspFee'
    RemoteServer = DCOMConnSvr
    Left = 32
    Top = 336
  end
  object dsFee: TDataSource
    DataSet = cdsFee
    Left = 112
    Top = 336
  end
  object dsLogin: TDataSource
    DataSet = cdsLogin
    Left = 96
    Top = 16
  end
end