dm.dfm

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

    object CgthzbaGYSBH: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'aGYSBH'
      ProviderFlags = [pfInWhere]
      Size = 12
    end
    object CgthzbaGYSMC: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 'aGYSMC'
      ProviderFlags = [pfInWhere]
    end
    object CgthzbCKID: TIntegerField
      Tag = 1
      FieldName = 'CKID'
    end
    object CgthzbaCKMC: TStringField
      DisplayLabel = #36864#36135#20179
      DisplayWidth = 10
      FieldName = 'aCKMC'
      Size = 16
    end
    object CgthzbTHLX: TIntegerField
      FieldName = 'THLX'
    end
    object CgthzbaTHLX: TStringField
      DisplayLabel = #36864#27454#31867#22411
      DisplayWidth = 18
      FieldName = 'aTHLX'
      Size = 16
    end
    object CgthzbSFKFSID: TSmallintField
      Tag = 1
      FieldName = 'SFKFSID'
    end
    object CgthzbaSFKFSMC: TStringField
      DisplayLabel = #25910#27454#26041#24335
      DisplayWidth = 8
      FieldName = 'aSFKFSMC'
      Size = 16
    end
    object CgthzbZHID: TSmallintField
      Tag = 1
      FieldName = 'ZHID'
    end
    object CgthzbaZHMC: TStringField
      DisplayLabel = #25910#27454#24080#25143
      DisplayWidth = 16
      FieldName = 'aZHMC'
    end
    object CgthzbPH: TStringField
      DisplayLabel = #31080#21495
      FieldName = 'PH'
    end
    object CgthzbYWY: TStringField
      DisplayLabel = #19994#21153#21592
      FieldName = 'YWY'
      Size = 8
    end
    object CgthzbJE: TFloatField
      DisplayLabel = #24635#37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object CgthzbBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      Size = 40
    end
    object CgthzbCZY: TStringField
      DisplayLabel = #25805#20316#21592
      FieldName = 'CZY'
      Size = 8
    end
  end
  object sCgthzb: TDataSource
    DataSet = Cgthzb
    Left = 207
    Top = 158
  end
  object sCgth: TDataSource
    DataSet = Cgth
    Left = 271
    Top = 158
  end
  object Xsddzb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsddzb'
    RemoteServer = Cn
    Left = 327
    Top = 154
    object XsddzbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object XsddzbDJBH: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object XsddzbRQ: TDateField
      DisplayLabel = #26085#26399
      FieldName = 'RQ'
    end
    object XsddzbJHRQ: TDateField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'JHRQ'
    end
    object XsddzbJHDD: TStringField
      DisplayLabel = #20132#36135#22320#28857
      FieldName = 'JHDD'
      Size = 40
    end
    object XsddzbKHID: TIntegerField
      Tag = 1
      FieldName = 'KHID'
    end
    object XsddzbaKHBH: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'aKHBH'
      ProviderFlags = [pfInWhere]
      Size = 12
    end
    object XsddzbaKHMC: TStringField
      DisplayLabel = #23458#25143
      FieldName = 'aKHMC'
      ProviderFlags = [pfInWhere]
    end
    object XsddzbYWY: TStringField
      DisplayLabel = #19994#21153#21592
      FieldName = 'YWY'
      Size = 8
    end
    object XsddzbJE: TFloatField
      DisplayLabel = #24635#37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object XsddzbZT: TBooleanField
      Tag = 1
      DisplayLabel = #20013#27490#25191#34892
      FieldName = 'ZT'
      DisplayValues = #8730';'
    end
    object XsddzbaZT: TStringField
      DisplayLabel = #26159#21542#20013#27490#25191#34892
      FieldName = 'aZT'
      Size = 255
    end
    object XsddzbBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      Size = 40
    end
    object XsddzbCZY: TStringField
      DisplayLabel = #25805#20316#21592
      FieldName = 'CZY'
      Size = 8
    end
  end
  object sXsddzb: TDataSource
    DataSet = Xsddzb
    Left = 335
    Top = 158
  end
  object Xsdd: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsdd'
    RemoteServer = Cn
    OnCalcFields = CgddCalcFields
    Left = 390
    Top = 154
    object XsddZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object XsddHH: TIntegerField
      FieldName = 'HH'
    end
    object XsddRQ: TDateField
      Tag = 1
      FieldName = 'RQ'
    end
    object XsddHPID: TIntegerField
      DisplayWidth = 10
      FieldName = 'HPID'
    end
    object XsddaBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'aBH'
    end
    object XsddaPM: TStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'aPM'
      Size = 40
    end
    object XsddaDW: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'aDW'
      Size = 4
    end
    object XsddSL: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object XsddDJ: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object XsddNSL: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object XsddcJE: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldKind = fkInternalCalc
      FieldName = 'cJE'
      ProviderFlags = []
      DisplayFormat = '#,0.00'
    end
    object XsddaYTSL: TFloatField
      DisplayLabel = #24050#25552#25968#37327
      FieldName = 'aYTSL'
      DisplayFormat = '#,0.###'
    end
    object XsddaMTSL: TFloatField
      DisplayLabel = #26410#25552#25968#37327
      FieldName = 'aMTSL'
      DisplayFormat = '#,#.###'
    end
  end
  object sXsdd: TDataSource
    DataSet = Xsdd
    Left = 398
    Top = 158
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 376
    Top = 10
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    RemoteServer = Cn
    Left = 364
    Top = 2
  end
  object sKhHelp: TDataSource
    DataSet = KhHelp
    Left = 54
    Top = 318
  end
  object KhHelp: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    PacketRecords = 50
    Params = <>
    ProviderName = 'pKh'
    RemoteServer = Cn
    Left = 46
    Top = 306
    object KhHelpID: TIntegerField
      Tag = 1
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object KhHelpBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object KhHelpMC: TStringField
      DisplayLabel = #31616#31216
      FieldName = 'MC'
    end
    object KhHelpQC: TStringField
      DisplayLabel = #20840#31216
      FieldName = 'QC'
      Size = 40
    end
    object KhHelpDQID: TIntegerField
      Tag = 1
      DisplayLabel = #25152#23646#22320#21306
      FieldName = 'DQID'
    end
    object KhHelpaDQMC: TStringField
      DisplayLabel = #25152#23646#22320#21306
      FieldName = 'aDQMC'
      Size = 12
    end
    object KhHelpcDQMC: TStringField
      DisplayLabel = #25152#23646#22320#21306
      FieldKind = fkInternalCalc
      FieldName = 'cDQMC'
      Size = 12
    end
    object KhHelpLXR: TStringField
      DisplayLabel = #32852#31995#20154
      FieldName = 'LXR'
      Size = 16
    end
    object KhHelpDH: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'DH'
    end
    object KhHelpCZ: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'CZ'
    end
    object KhHelpDZ: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'DZ'
      Size = 40
    end
    object KhHelpYB: TStringField
      DisplayLabel = #37038#32534
      FieldName = 'YB'
      Size = 6
    end
    object KhHelpWZ: TStringField
      DisplayLabel = #32593#22336
      FieldName = 'WZ'
      Size = 40
    end
    object KhHelpDY: TStringField
      DisplayLabel = #30005#23376#37038#31665
      FieldName = 'DY'
      Size = 40
    end
    object KhHelpKHYH: TStringField
      DisplayLabel = #24320#25143#38134#34892
      FieldName = 'KHYH'
      Size = 30
    end
    object KhHelpYHZH: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'YHZH'
    end
    object KhHelpNSH: TStringField
      DisplayLabel = #32435#31246#21495
      FieldName = 'NSH'
    end
    object KhHelpQCJE: TFloatField
      DisplayLabel = #26399#21021#24212#25910#27454
      DisplayWidth = 12
      FieldName = 'QCJE'
      DisplayFormat = '#,0.00'
    end
    object KhHelpYXJE: TFloatField
      DisplayLabel = #39044#25910#37329#39069
      DisplayWidth = 12
      FieldName = 'YXJE'
      DisplayFormat = '#,0.00'
    end
    object KhHelpQMJE: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      DisplayWidth = 12
      FieldName = 'QMJE'
      DisplayFormat = '#,0.00'
    end
    object KhHelpaSJJE: TFloatField
      DisplayLabel = #23454#38469#27424#27454
      DisplayWidth = 12
      FieldName = 'aSJJE'
      DisplayFormat = '#,0.00'
    end
    object KhHelpXYED: TFloatField
      DisplayLabel = #20449#29992#39069#24230
      DisplayWidth = 12
      FieldName = 'XYED'
      DisplayFormat = '#,#.##'
    end
    object KhHelpZT: TBooleanField
      Tag = 1
      DisplayLabel = #38750#20351#29992#20013
      FieldName = 'ZT'
      DisplayValues = #8730';'
    end
    object KhHelpBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      Size = 40
    end
    object KhHelpITMP: TIntegerField
      FieldName = 'ITMP'
    end
  end
  object XsddHelp: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsddHelp'
    RemoteServer = Cn
    Left = 172
    Top = 306
    object IntegerField1: TIntegerField
      FieldName = 'ID'
    end
    object StringField1: TStringField
      DisplayLabel = #35746#21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object DateField1: TDateField
      DisplayLabel = #33853#21333#26085#26399
      FieldName = 'RQ'
    end
    object FloatField1: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object DateField2: TDateField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'JHRQ'
    end
    object StringField2: TStringField
      FieldName = 'aKHBH'
      Size = 12
    end
    object StringField3: TStringField
      DisplayLabel = #23458#25143
      FieldName = 'aKHMC'
    end
  end
  object sXsddHelp: TDataSource
    DataSet = XsddHelp
    Left = 180
    Top = 318
  end
  object Xsskzb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsskzb'
    RemoteServer = Cn
    BeforeOpen = CgfkzbBeforeOpen
    Left = 359
    Top = 154
    object XsskzbID: TIntegerField
      FieldName = 'ID'
    end
    object XsskzbDJBH: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object XsskzbRQ: TDateField
      DisplayLabel = #26085#26399
      FieldName = 'RQ'
    end
    object XsskzbKHID: TIntegerField
      Tag = 1
      FieldName = 'KHID'
    end
    object XsskzbaKHBH: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'aKHBH'
      Size = 12
    end
    object XsskzbaKHMC: TStringField
      DisplayLabel = #23458#25143
      FieldName = 'aKHMC'
    end
    object XsskzbFKLX: TIntegerField
      DisplayWidth = 10
      FieldName = 'FKLX'
    end
    object XsskzbaFKLX: TStringField
      DisplayLabel = #25910#27454#31867#22411
      DisplayWidth = 6
      FieldName = 'aFKLX'
      Size = 255
    end
    object XsskzbSFKFSID: TSmallintField
      Tag = 1
      FieldName = 'SFKFSID'
    end
    object XsskzbaSFKFSMC: TStringField
      DisplayLabel = #25910#27454#26041#24335
      DisplayWidth = 8
      FieldName = 'aSFKFSMC'
      Size = 16
    end
    object XsskzbZHID: TSmallintField
      Tag = 1
      FieldName = 'ZHID'
    end
    object XsskzbaZHMC: TStringField
      DisplayLabel = #25910#27454#21435#21521
      DisplayWidth = 16
      FieldName = 'aZHMC'
    end
    object XsskzbPH: TStringField
      DisplayLabel = #31080#21495
      FieldName = 'PH'
    end
    object XsskzbSYJY: TBooleanField
      DisplayLabel = #20351#29992#32467#20313#27454
      FieldName = 'SYJY'
      DisplayValues = #26159';'#21542
    end
    object XsskzbJE: TFloatField
      DisplayLabel = #25910#27454#37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object XsskzbJEA: TFloatField
      Tag = 1
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object XsskzbJEB: TFloatField
      Tag = 1
      DisplayWidt