dmbb.dfm

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

    end
    object FloatField23: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField24: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object StringField4: TStringField
      FieldKind = fkCalculated
      FieldName = 'cMC'
      Size = 12
      Calculated = True
    end
  end
  object HplbXsMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHplbXsMx'
    RemoteServer = Data.CnBb
    Left = 434
    Top = 2
    object HplbXsMxLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField7: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField4: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField10: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField11: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'KHBH'
      Size = 12
    end
    object WideStringField12: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'KHMC'
    end
    object HplbXsMxBH: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object HplbXsMxPM: TWideStringField
      DisplayLabel = #36135#21697#21517#31216
      FieldName = 'PM'
      Size = 40
    end
    object HplbXsMxDW: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object HplbXsMxSL: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object HplbXsMxDJ: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object HplbXsMxNSL: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object FloatField25: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField26: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField27: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object sHplbXsHz: TDataSource
    DataSet = HplbXsHz
    Left = 395
    Top = 6
  end
  object sHplbXsMx: TDataSource
    DataSet = HplbXsMx
    Left = 442
    Top = 6
  end
  object HpXsMlHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHpXsMlHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 482
    Top = 2
    object IntegerField8: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object WideStringField13: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object WideStringField14: TWideStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'PM'
      Size = 40
    end
    object WideStringField15: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object FloatField29: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object HpXsMlHzCBJE: TFloatField
      DisplayLabel = #38144#21806#25104#26412
      DisplayWidth = 12
      FieldName = 'CBJE'
      DisplayFormat = '#,0.00'
    end
    object HpXsMlHzLRJE: TFloatField
      DisplayLabel = #38144#21806#27611#21033
      DisplayWidth = 12
      FieldName = 'LRJE'
      DisplayFormat = '#,0.00'
    end
    object StringField5: TStringField
      FieldKind = fkCalculated
      FieldName = 'cPM'
      Size = 40
      Calculated = True
    end
  end
  object HpXsMlMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHpXsMlMx'
    RemoteServer = Data.CnBb
    Left = 10
    Top = 48
    object HpXsMlMxLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField9: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField5: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField16: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField17: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField18: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object FloatField32: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object FloatField33: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object HpXsMlMxCBDJ: TFloatField
      DisplayLabel = #25104#26412#21333#20215
      DisplayWidth = 10
      FieldName = 'CBDJ'
      DisplayFormat = '#,0.###'
    end
    object FloatField35: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object HpXsMlMxCBJE: TFloatField
      DisplayLabel = #38144#21806#25104#26412
      DisplayWidth = 12
      FieldName = 'CBJE'
      DisplayFormat = '#,0.00'
    end
    object HpXsMlMxLRJE: TFloatField
      DisplayLabel = #38144#21806#27611#21033
      DisplayWidth = 12
      FieldName = 'LRJE'
      DisplayFormat = '#,0.00'
    end
  end
  object sHpXsMlHz: TDataSource
    DataSet = HpXsMlHz
    Left = 490
    Top = 6
  end
  object sHpXsMlMx: TDataSource
    DataSet = HpXsMlMx
    Left = 22
    Top = 56
  end
  object XsMlAdjs: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsMlAdjs'
    RemoteServer = Data.CnBb
    Left = 64
    Top = 48
    object XsMlAdjsLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField10: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField6: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField19: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object XsMlAdjsBH: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object XsMlAdjsMC: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object FloatField34: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField36: TFloatField
      DisplayLabel = #38144#21806#25104#26412
      DisplayWidth = 12
      FieldName = 'CBJE'
      DisplayFormat = '#,0.00'
    end
    object FloatField37: TFloatField
      DisplayLabel = #38144#21806#27611#21033
      DisplayWidth = 12
      FieldName = 'LRJE'
      DisplayFormat = '#,0.00'
    end
  end
  object sXsMlAdjs: TDataSource
    DataSet = XsMlAdjs
    Left = 76
    Top = 56
  end
  object YwyYjtj: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYwyYjtj'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 226
    Top = 48
    object YwyYjtjYWY: TWideStringField
      DisplayLabel = #19994#21153#21592
      FieldName = 'YWY'
      OnGetText = YWYGetText
      Size = 8
    end
    object YwyYjtjJEA: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'XSJE'
      DisplayFormat = '#,0.00'
    end
    object YwyYjtjJEB: TFloatField
      DisplayLabel = #36864#36135#37329#39069
      DisplayWidth = 12
      FieldName = 'THJE'
      DisplayFormat = '#,0.00'
    end
    object YwyYjtjJEA2: TFloatField
      DisplayLabel = #24050#25910#22238#37329#39069
      DisplayWidth = 12
      FieldName = 'YSJE'
      DisplayFormat = '#,0.00'
    end
    object YwyYjtjJEC: TFloatField
      DisplayLabel = #26410#25910#22238#37329#39069
      DisplayWidth = 12
      FieldName = 'MSJE'
      DisplayFormat = '#,0.00'
    end
  end
  object XsddQk: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsddQk'
    RemoteServer = Data.CnBb
    Left = 280
    Top = 48
    object IntegerField12: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object DateField7: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField24: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object XsddQkBH: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField26: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object FloatField42: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object WideStringField25: TWideStringField
      DisplayLabel = #25191#34892#24773#20917
      FieldName = 'DDZT'
      Size = 8
    end
  end
  object XsMsdj: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsMsdj'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_YWY
    Left = 334
    Top = 48
    object XsMsdjID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object XsMsdjRQ: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object XsMsdjDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object XsMsdjBH: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object XsMsdjMC: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object XsMsdjJE: TFloatField
      DisplayLabel = #24320#21333#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object XsMsdjJE2: TFloatField
      DisplayLabel = #24050#25910#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object XsMsdjJE3: TFloatField
      DisplayLabel = #27424#27454#37329#39069
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object XsMlNb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsMlNb'
    RemoteServer = Data.CnBb
    Left = 118
    Top = 48
    object IntegerField13: TIntegerField
      Tag = 1
      DisplayLabel = #26376#20221
      DisplayWidth = 4
      FieldName = 'YF'
    end
    object XsMlNbJEA: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object XsMlNbCBJE: TFloatField
      DisplayLabel = #38144#21806#25104#26412
      DisplayWidth = 12
      FieldName = 'CBJE'
      DisplayFormat = '#,0.00'
    end
    object XsMlNbLRJE: TFloatField
      DisplayLabel = #38144#21806#27611#21033
      DisplayWidth = 12
      FieldName = 'LRJE'
      DisplayFormat = '#,0.00'
    end
  end
  object sYwyYjtj: TDataSource
    DataSet = YwyYjtj
    Left = 238
    Top = 56
  end
  object sXsddQk: TDataSource
    DataSet = XsddQk
    Left = 292
    Top = 56
  end
  object sXsMsdj: TDataSource
    DataSet = XsMsdj
    Left = 346
    Top = 56
  end
  object sXsMlNb: TDataSource
    DataSet = XsMlNb
    Left = 130
    Top = 56
  end
  object XsMlNbMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsMlNbMx'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 172
    Top = 48
    object XsMlNbMxLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'