dm.dfm

delphi作得信息业进销存源码.功能全面,运行稳定.

      Size = 50
    end
    object GysHelpITMP: TIntegerField
      FieldName = 'ITMP'
    end
  end
  object sGysHelp: TDataSource
    DataSet = GysHelp
    Left = 12
    Top = 318
  end
  object HpHelp: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHp'
    RemoteServer = Cn
    Left = 88
    Top = 306
    object HpHelpID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object HpHelpBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
    end
    object HpHelpHPLBID: TIntegerField
      Tag = 1
      DisplayLabel = #31867#21035
      FieldName = 'HPLBID'
    end
    object HpHelpaHPLBMC: TStringField
      DisplayLabel = #31867#21035
      FieldName = 'aHPLBMC'
      Size = 16
    end
    object HpHelpcHPLBMC: TStringField
      DisplayLabel = #31867#21035
      FieldKind = fkInternalCalc
      FieldName = 'cHPLBMC'
      Size = 16
    end
    object HpHelpPM: TStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'PM'
      Size = 40
    end
    object HpHelpDW: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object HpHelpHPHSFFID: TIntegerField
      Tag = 1
      DisplayLabel = #26680#31639#26041#27861
      FieldName = 'HPHSFFID'
    end
    object HpHelpHPSXID: TIntegerField
      Tag = 1
      Alignment = taLeftJustify
      DisplayLabel = #36135#21697#23646#24615
      FieldName = 'HPSXID'
      OnGetText = ConverHphsff
    end
    object HpHelpaHPSX: TStringField
      DisplayLabel = #36135#21697#23646#24615
      DisplayWidth = 10
      FieldName = 'aHPSX'
      Size = 255
    end
    object HpHelpaZKCL: TFloatField
      DisplayLabel = #24635#24211#23384#37327
      FieldName = 'aZKCL'
      DisplayFormat = '0.##'
    end
    object HpHelpJJ: TFloatField
      DisplayLabel = #26368#36817#36827#20215
      DisplayWidth = 10
      FieldName = 'JJ'
      DisplayFormat = '#,0.00'
    end
    object HpHelpJJJ: TFloatField
      DisplayLabel = #26087#36827#20215
      DisplayWidth = 10
      FieldName = 'JJJ'
      DisplayFormat = '#,0.00'
    end
    object HpHelpJQJ: TFloatField
      DisplayLabel = #21152#26435#20215
      DisplayWidth = 10
      FieldName = 'JQJ'
      DisplayFormat = '#,0.00'
    end
    object HpHelpSX: TFloatField
      DisplayLabel = #24211#23384#19978#38480
      DisplayWidth = 10
      FieldName = 'SX'
      DisplayFormat = '0.##'
    end
    object HpHelpXX: TFloatField
      DisplayLabel = #24211#23384#19979#38480
      DisplayWidth = 10
      FieldName = 'XX'
      DisplayFormat = '0.##'
    end
  end
  object sHpHelp: TDataSource
    DataSet = HpHelp
    Left = 96
    Top = 318
  end
  object Cgsh: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgsh'
    RemoteServer = Cn
    OnCalcFields = CgshCalcFields
    Left = 104
    Top = 154
    object CgshZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object CgshHH: TIntegerField
      FieldName = 'HH'
    end
    object CgshRQ: TDateField
      Tag = 1
      FieldName = 'RQ'
    end
    object CgshCKID: TIntegerField
      FieldName = 'CKID'
    end
    object CgshHPID: TIntegerField
      DisplayWidth = 10
      FieldName = 'HPID'
    end
    object CgshaBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'aBH'
    end
    object CgshaPM: TStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'aPM'
      Size = 40
    end
    object CgshaDW: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'aDW'
      Size = 4
    end
    object CgshSL: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object CgshDJ: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object CgshNSL: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object CgshcJE: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldKind = fkInternalCalc
      FieldName = 'cJE'
      DisplayFormat = '#,0.00'
    end
    object CgshDDID: TIntegerField
      DisplayWidth = 12
      FieldName = 'DDID'
    end
    object CgshcDDBH: TStringField
      DisplayLabel = #35746#21333#21495
      FieldKind = fkInternalCalc
      FieldName = 'cDDBH'
      Size = 12
    end
  end
  object Cgshzb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgshzb'
    RemoteServer = Cn
    BeforeOpen = CgshzbBeforeOpen
    Left = 72
    Top = 154
    object CgshzbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object CgshzbDJBH: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object CgshzbRQ: TDateField
      DisplayLabel = #26085#26399
      FieldName = 'RQ'
    end
    object CgshzbGYSID: TIntegerField
      Tag = 1
      FieldName = 'GYSID'
    end
    object CgshzbaGYSBH: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'aGYSBH'
      ProviderFlags = [pfInWhere]
      Size = 12
    end
    object CgshzbaGYSMC: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 'aGYSMC'
      ProviderFlags = [pfInWhere]
    end
    object CgshzbXSLX: TIntegerField
      Tag = 1
      DisplayWidth = 10
      FieldName = 'CGLX'
    end
    object CgshzbaXSLX: TStringField
      DisplayLabel = #37319#36141#31867#22411
      DisplayWidth = 4
      FieldName = 'aCGLX'
      Size = 255
    end
    object CgshzbCKID: TIntegerField
      Tag = 1
      FieldName = 'CKID'
    end
    object CgshzbaCKMC: TStringField
      DisplayLabel = #36827#36135#20179
      DisplayWidth = 10
      FieldName = 'aCKMC'
      Size = 16
    end
    object CgshzbFPLX: TIntegerField
      Tag = 1
      FieldName = 'FPLX'
    end
    object CgshzbaFPLX: TStringField
      DisplayLabel = #21457#31080#31867#22411
      DisplayWidth = 10
      FieldName = 'aFPLX'
      Size = 255
    end
    object CgshzbSFKFSID: TSmallintField
      Tag = 1
      FieldName = 'SFKFSID'
    end
    object CgshzbaSFKFSMC: TStringField
      DisplayLabel = #20184#27454#26041#24335
      DisplayWidth = 8
      FieldName = 'aSFKFSMC'
      Size = 16
    end
    object CgshzbZHID: TSmallintField
      Tag = 1
      FieldName = 'ZHID'
    end
    object CgshzbaZHMC: TStringField
      DisplayLabel = #20184#27454#26469#28304
      DisplayWidth = 16
      FieldName = 'aZHMC'
    end
    object CgshzbPH: TStringField
      DisplayLabel = #31080#21495
      FieldName = 'PH'
    end
    object CgshzbFKQX: TIntegerField
      DisplayLabel = #20184#27454#26399#38480
      FieldName = 'FKQX'
    end
    object CgshzbYWY: TStringField
      DisplayLabel = #19994#21153#21592
      FieldName = 'YWY'
      Size = 8
    end
    object CgshzbJE: TFloatField
      DisplayLabel = #24635#37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object CgshzbYFJE3: TFloatField
      Tag = 1
      DisplayWidth = 12
      FieldName = 'YFJE'
      DisplayFormat = '#,0.00'
    end
    object CgshzbYFJE2: TFloatField
      DisplayLabel = #24050#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'YFJE1'
      DisplayFormat = '#,0.00'
    end
    object CgshzbYFJE: TFloatField
      DisplayLabel = #26410#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'MFJE'
      DisplayFormat = '#,0.00'
    end
    object CgshzbBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      Size = 40
    end
    object CgshzbCZY: TStringField
      DisplayLabel = #25805#20316#21592
      FieldName = 'CZY'
      Size = 8
    end
  end
  object sCgshzb: TDataSource
    DataSet = Cgshzb
    Left = 80
    Top = 158
  end
  object sCgsh: TDataSource
    DataSet = Cgsh
    Left = 112
    Top = 158
  end
  object CgddHelp: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgddHelp'
    RemoteServer = Cn
    Left = 130
    Top = 306
    object CgddHelpID: TIntegerField
      FieldName = 'ID'
    end
    object CgddHelpDJBH: TStringField
      DisplayLabel = #35746#21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object CgddHelpRQ: TDateField
      DisplayLabel = #33853#21333#26085#26399
      FieldName = 'RQ'
    end
    object CgddHelpJE: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object CgddHelpJHRQ: TDateField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'JHRQ'
    end
    object CgddHelpaGYSBH: TStringField
      FieldName = 'aGYSBH'
      Size = 12
    end
    object CgddHelpaGYSMC: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 'aGYSMC'
    end
  end
  object sCgddHelp: TDataSource
    DataSet = CgddHelp
    Left = 138
    Top = 318
  end
  object Cgfk: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgfk'
    RemoteServer = Cn
    Left = 167
    Top = 154
    object CgfkZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object CgfkHH: TIntegerField
      FieldName = 'HH'
    end
    object CgfkRQ: TDateField
      FieldName = 'RQ'
    end
    object CgfkDDID: TIntegerField
      FieldName = 'DDID'
    end
    object CgfkaDDBH: TStringField
      DisplayLabel = #25910#36135#21333#21495
      FieldName = 'aDDBH'
      Size = 12
    end
    object CgfkaDDRQ: TDateField
      DisplayLabel = #25910#36135#26085#26399
      FieldName = 'aDDRQ'
    end
    object CgfkaDDJE: TFloatField
      DisplayLabel = #24635#37329#39069
      DisplayWidth = 12
      FieldName = 'aDDJE'
      DisplayFormat = '#,0.00'
    end
    object CgfkaYFJE: TFloatField
      DisplayLabel = #24050#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'aYFJE'
      DisplayFormat = '#,0.00'
    end
    object CgfkaMFJE: TFloatField
      DisplayLabel = #26410#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'aMFJE'
      DisplayFormat = '#,0.00'
    end
    object CgfkJE: TFloatField
      DisplayLabel = #26412#27425#20184#27454
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
  end
  object sCgfk: TDataSource
    DataSet = Cgfk
    Left = 175
    Top = 158
  end
  object Cgth: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <
      item
        DataType = ftString
        Name = 'zbid'
        ParamType = ptInput
        Value = '0'
      end>
    ProviderName = 'pCgth'
    RemoteServer = Cn
    OnCalcFields = CgddCalcFields
    Left = 263
    Top = 154
    object CgthZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object CgthHH: TIntegerField
      FieldName = 'HH'
    end
    object CgthRQ: TDateField
      Tag = 1
      FieldName = 'RQ'
    end
    object CgthCKID: TIntegerField
      FieldName = 'CKID'
    end
    object CgthHPID: TIntegerField
      DisplayWidth = 10
      FieldName = 'HPID'
    end
    object CgthaBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'aBH'
    end
    object CgthaPM: TStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'aPM'
      Size = 40
    end
    object CgthaDW: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'aDW'
      Size = 4
    end
    object CgthSL: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object CgthDJ: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object CgthNSL: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object CgthcJE: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldKind = fkInternalCalc
      FieldName = 'cJE'
      DisplayFormat = '#,0.00'
    end
  end
  object Cgthzb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgthzb'
    RemoteServer = Cn
    BeforeOpen = CgthzbBeforeOpen
    Left = 199
    Top = 154
    object CgthzbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object CgthzbDJBH: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object CgthzbRQ: TDateField
      DisplayLabel = #26085#26399
      FieldName = 'RQ'
    end
    object CgthzbGYSID: TIntegerField
      Tag = 1
      FieldName = 'GYSID'
    end