dm.dfm

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

    end
    object HpQCJE: TFloatField
      DisplayLabel = #26399#21021#37329#39069
      DisplayWidth = 12
      FieldName = 'QCJE'
      DisplayFormat = '#,0.00'
    end
    object HpSX: TFloatField
      DisplayLabel = #24211#23384#19978#38480
      DisplayWidth = 10
      FieldName = 'SX'
      DisplayFormat = '#,0.###'
    end
    object HpXX: TFloatField
      DisplayLabel = #24211#23384#19979#38480
      DisplayWidth = 10
      FieldName = 'XX'
      DisplayFormat = '#,0.###'
    end
    object HpZT: TBooleanField
      DisplayLabel = #38750#20351#29992#20013
      FieldName = 'ZT'
      DisplayValues = #8730';'
    end
    object HpaZT: TStringField
      DisplayLabel = #26159#21542#38750#20351#29992#20013
      DisplayWidth = 2
      FieldName = 'aZT'
      Size = 255
    end
    object HpITMP: TIntegerField
      Tag = 1
      FieldName = 'ITMP'
    end
  end
  object sHp: TDataSource
    DataSet = Hp
    Left = 376
    Top = 66
  end
  object Qtkcbdlx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pQtkcbdlx'
    RemoteServer = Cn
    Left = 5
    Top = 110
    object QtkcbdlxID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object QtkcbdlxMC: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC'
    end
    object QtkcbdlxRKL: TBooleanField
      Tag = 1
      DisplayLabel = #31867#21035
      DisplayWidth = 6
      FieldName = 'RKL'
      OnGetText = QtkcbdlxRKLGetText
    end
    object QtkcbdlxTHBZ: TBooleanField
      Tag = 1
      DisplayLabel = #36864#36824#26631#24535
      FieldName = 'THBZ'
      OnGetText = QtkcbdlxTHBZGetText
    end
  end
  object sQtkcbdlx: TDataSource
    DataSet = Qtkcbdlx
    Left = 9
    Top = 114
  end
  object HpCkXx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHpCkXx'
    RemoteServer = Cn
    Left = 374
    Top = 54
    object HpCkXxMC: TStringField
      DisplayWidth = 16
      FieldName = 'MC'
      Size = 16
    end
    object HpCkXxJCS: TFloatField
      FieldName = 'JCS'
      DisplayFormat = '#,0.###'
    end
  end
  object sHpCkXx: TDataSource
    DataSet = HpCkXx
    Left = 409
    Top = 66
  end
  object HpSjXx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHpSjXx'
    RemoteServer = Cn
    Left = 404
    Top = 54
    object HpSjXxMC: TStringField
      FieldName = 'MC'
      Size = 16
    end
    object HpSjXxSJ: TFloatField
      FieldName = 'SJ'
      DisplayFormat = '#,0.###'
    end
  end
  object sHpSjXx: TDataSource
    DataSet = HpSjXx
    Left = 442
    Top = 66
  end
  object Hpkc: TClientDataSet
    Aggregates = <>
    PacketRecords = 5
    Params = <>
    ProviderName = 'pHpkc'
    RemoteServer = Cn
    Left = 435
    Top = 54
    object HpkcCKID: TIntegerField
      FieldName = 'CKID'
    end
    object HpkcHPID: TIntegerField
      FieldName = 'HPID'
    end
    object HpkcQCS: TFloatField
      FieldName = 'QCS'
      DisplayFormat = '#,0.###'
    end
    object HpkcJCS: TFloatField
      FieldName = 'JCS'
      DisplayFormat = '#,0.###'
    end
  end
  object Hpsj: TClientDataSet
    Aggregates = <>
    PacketRecords = 5
    Params = <>
    ProviderName = 'pHpsj'
    RemoteServer = Cn
    Left = 466
    Top = 54
    object HpsjSJZLID: TIntegerField
      FieldName = 'SJZLID'
    end
    object HpsjHPID: TIntegerField
      FieldName = 'HPID'
    end
    object HpsjSJ: TFloatField
      FieldName = 'SJ'
      DisplayFormat = '#,0.###'
    end
  end
  object Cgddzb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgddzb'
    RemoteServer = Cn
    Left = 8
    Top = 154
    object CgddzbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object CgddzbDJBH: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object CgddzbRQ: TDateField
      DisplayLabel = #26085#26399
      FieldName = 'RQ'
    end
    object CgddzbGYSID: TIntegerField
      Tag = 1
      FieldName = 'GYSID'
    end
    object CgddzbaGYSBH: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'aGYSBH'
      ProviderFlags = [pfInWhere]
      Size = 12
    end
    object CgddzbaGYSMC: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 'aGYSMC'
      ProviderFlags = [pfInWhere]
    end
    object CgddzbJHRQ: TDateField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'JHRQ'
    end
    object CgddzbJHDD: TStringField
      DisplayLabel = #20132#36135#22320#28857
      FieldName = 'JHDD'
      Size = 40
    end
    object CgddzbYWY: TStringField
      DisplayLabel = #19994#21153#21592
      FieldName = 'YWY'
      Size = 8
    end
    object CgddzbJE: TFloatField
      DisplayLabel = #24635#37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object CgddzbZT: TBooleanField
      Tag = 1
      DisplayLabel = #20013#27490#25191#34892
      FieldName = 'ZT'
      DisplayValues = #8730';'
    end
    object CgddzbaZT: TStringField
      DisplayLabel = #26159#21542#20013#27490#25191#34892
      FieldName = 'aZT'
      Size = 255
    end
    object CgddzbBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      Size = 40
    end
    object CgddzbCZY: TStringField
      DisplayLabel = #25805#20316#21592
      FieldName = 'CZY'
      Size = 8
    end
  end
  object sCgddzb: TDataSource
    DataSet = Cgddzb
    Left = 16
    Top = 158
  end
  object Cgdd: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgdd'
    RemoteServer = Cn
    OnCalcFields = CgddCalcFields
    Left = 40
    Top = 154
    object CgddZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object CgddHH: TIntegerField
      FieldName = 'HH'
    end
    object CgddRQ: TDateField
      Tag = 1
      FieldName = 'RQ'
    end
    object CgddHPID: TIntegerField
      DisplayWidth = 10
      FieldName = 'HPID'
    end
    object CgddaBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'aBH'
    end
    object CgddaPM: TStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'aPM'
      Size = 40
    end
    object CgddaDW: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'aDW'
      Size = 4
    end
    object CgddSL: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object CgddDJ: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object CgddNSL: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object CgddcJE: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldKind = fkInternalCalc
      FieldName = 'cJE'
      ProviderFlags = []
      DisplayFormat = '#,0.00'
    end
    object CgddaSHSL: TFloatField
      DisplayLabel = #25910#36135#25968#37327
      FieldName = 'aSHSL'
      DisplayFormat = '#,0.###'
    end
    object CgddaMSSL: TFloatField
      DisplayLabel = #26410#25910#36135#25968#37327
      FieldName = 'aMSSL'
      DisplayFormat = '#,#.###'
    end
  end
  object sCgdd: TDataSource
    DataSet = Cgdd
    Left = 48
    Top = 158
  end
  object Cgfkzb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgfkzb'
    RemoteServer = Cn
    BeforeOpen = CgfkzbBeforeOpen
    Left = 135
    Top = 154
    object CgfkzbID: TIntegerField
      FieldName = 'ID'
    end
    object CgfkzbDJBH: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object CgfkzbRQ: TDateField
      DisplayLabel = #26085#26399
      FieldName = 'RQ'
    end
    object CgfkzbGYSID: TIntegerField
      Tag = 1
      FieldName = 'GYSID'
    end
    object CgfkzbaGYSBH: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'aGYSBH'
      Size = 12
    end
    object CgfkzbaGYSMC: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 'aGYSMC'
    end
    object CgfkzbFKLX: TIntegerField
      DisplayWidth = 10
      FieldName = 'FKLX'
    end
    object CgfkzbaFKLX: TStringField
      DisplayLabel = #20184#27454#31867#22411
      DisplayWidth = 6
      FieldName = 'aFKLX'
      Size = 255
    end
    object CgfkzbSFKFSID: TSmallintField
      Tag = 1
      FieldName = 'SFKFSID'
    end
    object CgfkzbaSFKFSMC: TStringField
      DisplayLabel = #20184#27454#26041#24335
      DisplayWidth = 8
      FieldName = 'aSFKFSMC'
      Size = 16
    end
    object CgfkzbZHID: TSmallintField
      Tag = 1
      FieldName = 'ZHID'
    end
    object CgfkzbaZHMC: TStringField
      DisplayLabel = #20184#27454#26469#28304
      DisplayWidth = 16
      FieldName = 'aZHMC'
    end
    object CgfkzbPH: TStringField
      DisplayLabel = #31080#21495
      FieldName = 'PH'
    end
    object CgfkzbSYJY: TBooleanField
      DisplayLabel = #20351#29992#32467#20313#27454
      FieldName = 'SYJY'
      DisplayValues = #26159';'#21542
    end
    object CgfkzbJE: TFloatField
      DisplayLabel = #20184#27454#37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object CgfkzbJEA: TFloatField
      Tag = 1
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object CgfkzbJEB: TFloatField
      Tag = 1
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object CgfkzbBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      Size = 40
    end
    object CgfkzbCZY: TStringField
      DisplayLabel = #25805#20316#21592
      FieldName = 'CZY'
      Size = 8
    end
  end
  object sCgfkzb: TDataSource
    DataSet = Cgfkzb
    Left = 143
    Top = 158
  end
  object GysHelp: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pGys'
    RemoteServer = Cn
    Left = 4
    Top = 306
    object GysHelpID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object GysHelpBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object GysHelpMC: TStringField
      DisplayLabel = #31616#31216
      FieldName = 'MC'
    end
    object GysHelpQC: TStringField
      DisplayLabel = #20840#31216
      FieldName = 'QC'
      Size = 40
    end
    object GysHelpLXR: TStringField
      DisplayLabel = #32852#31995#20154
      FieldName = 'LXR'
      Size = 16
    end
    object GysHelpDH: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'DH'
    end
    object GysHelpCZ: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'CZ'
    end
    object GysHelpDZ: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'DZ'
      Size = 40
    end
    object GysHelpYB: TStringField
      DisplayLabel = #37038#32534
      FieldName = 'YB'
      Size = 6
    end
    object GysHelpWZ: TStringField
      DisplayLabel = #32593#22336
      FieldName = 'WZ'
      Size = 40
    end
    object GysHelpDY: TStringField
      DisplayLabel = #30005#23376#37038#31665
      FieldName = 'DY'
      Size = 40
    end
    object GysHelpKHYH: TStringField
      DisplayLabel = #24320#25143#38134#34892
      FieldName = 'KHYH'
      Size = 30
    end
    object GysHelpYHZH: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'YHZH'
    end
    object GysHelpNSH: TStringField
      DisplayLabel = #32435#31246#21495
      FieldName = 'NSH'
    end
    object GysHelpQCJE: TFloatField
      DisplayLabel = #26399#21021#24212#20184#27454
      DisplayWidth = 12
      FieldName = 'QCJE'
      DisplayFormat = '#,0.00'
    end
    object GysHelpYXJE: TFloatField
      DisplayLabel = #39044#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'YXJE'
      DisplayFormat = '#,0.00'
    end
    object GysHelpQMJE: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'QMJE'
      DisplayFormat = '#,0.00'
    end
    object GysHelpaSJJE: TFloatField
      DisplayLabel = #23454#38469#27424#27454
      DisplayWidth = 12
      FieldName = 'aSJJE'
      DisplayFormat = '#,0.00'
    end
    object GysHelpZT: TBooleanField
      Tag = 1
      DisplayLabel = #38750#20351#29992#20013
      FieldName = 'ZT'
    end
    object GysHelpBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'