wz_ck_cdm.dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

object cDataModule: TcDataModule
  OldCreateOrder = False
  Left = 201
  Top = 113
  Height = 191
  Width = 390
  object LOGINConnection1: TDCOMConnection
    ServerGUID = '{5E6A5BD5-F709-11D1-AABE-00C04FA35CFA}'
    ServerName = 'Server.LoginDemo'
    Left = 56
    Top = 16
  end
  object LOGINClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'loginProvider'
    RemoteServer = LOGINConnection1
    Left = 168
    Top = 16
  end
  object LOGINDataSource1: TDataSource
    DataSet = LOGINClientDataSet1
    Left = 280
    Top = 16
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'C_PZRQ'
        DataType = ftDateTime
      end
      item
        Name = 'C_PZLB'
        Attributes = [faFixed]
        DataType = ftString
        Size = 14
      end
      item
        Name = 'C_PZBH'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'C_LLDW'
        Attributes = [faFixed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'C_CLBM'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'MC'
        Attributes = [faFixed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'GG'
        Attributes = [faFixed]
        DataType = ftString
        Size = 34
      end
      item
        Name = 'DW'
        Attributes = [faFixed]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'LH'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'C_QLSL'
        DataType = ftFloat
      end
      item
        Name = 'C_SJSL'
        DataType = ftFloat
      end
      item
        Name = 'C_JHDJ'
        DataType = ftFloat
      end
      item
        Name = 'C_JHZJ'
        DataType = ftFloat
      end
      item
        Name = 'C_SJDJ'
        DataType = ftFloat
      end
      item
        Name = 'C_SJZJ'
        DataType = ftFloat
      end
      item
        Name = 'C_CSDJ'
        DataType = ftFloat
      end
      item
        Name = 'C_CSZJ'
        DataType = ftFloat
      end
      item
        Name = 'C_GCXM'
        Attributes = [faFixed]
        DataType = ftString
        Size = 40
      end
      item
        Name = 'C_YT'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'C_MEMO'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'C_KM'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_SYFX'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_SL'
        DataType = ftFloat
      end
      item
        Name = 'C_GYSH'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_FLR'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_CWJH'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_CWSH'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_LLZG'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_LLR'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_XMFZR'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_YX'
        DataType = ftFloat
      end
      item
        Name = 'C_DZYH'
        DataType = ftFloat
      end
      item
        Name = 'C_LLFS'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'C_NDJH'
        DataType = ftFloat
      end
      item
        Name = 'C_GROUPID'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'C_POSTTO'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_JZRQ'
        DataType = ftDateTime
      end
      item
        Name = 'C_SENDER'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'C_NOTE'
        DataType = ftFloat
      end
      item
        Name = 'C_LLBH'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'C_CLD'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'C_SJKZG'
        Attributes = [faFixed]
        DataType = ftString
        Size = 8
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'dspCKMX'
    RemoteServer = CKConnection1
    StoreDefs = True
    Left = 170
    Top = 67
  end
  object CKConnection1: TDCOMConnection
    ServerGUID = '{44393B63-69A8-11D3-A2BA-0080C8518D0A}'
    ServerName = 'PMultiTablesUpdateServer.MultiTablesUpdateServer'
    Left = 55
    Top = 67
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 280
    Top = 67
  end
end