dmbb.dfm

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

object DataBb: TDataBb
  OldCreateOrder = False
  Left = 270
  Top = 122
  Height = 483
  Width = 762
  object KhXsHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pKhXsHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 6
    Top = 2
    object KhXsHzID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object KhXsHzBH: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object KhXsHzMC: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object KhXsHzJE: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object KhXsHzJE2: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object KhXsHzJE3: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object KhXsHzcMC: TStringField
      FieldKind = fkCalculated
      FieldName = 'cMC'
      Calculated = True
    end
  end
  object KhXsMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pKhXsMx'
    RemoteServer = Data.CnBb
    Left = 54
    Top = 2
    object KhXsMxLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object KhXsMxZBID: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object KhXsMxRQ: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object KhXsMxDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object KhXsMxBH: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object KhXsMxPM: TWideStringField
      DisplayLabel = #36135#21697#21517#31216
      FieldName = 'PM'
      Size = 40
    end
    object KhXsMxDW: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object KhXsMxSL: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object KhXsMxDJ: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object KhXsMxNSL: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object KhXsMxJEA: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object KhXsMxJEB: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object KhXsMxJEC: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object HpXsHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHpXsHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 101
    Top = 2
    object IntegerField3: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object HpXsHzBH: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object HpXsHzPM: TWideStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'PM'
      Size = 40
    end
    object HpXsHzDW: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object HpXsHzSL: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object FloatField1: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField2: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField3: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object StringField1: TStringField
      FieldKind = fkCalculated
      FieldName = 'cPM'
      Size = 40
      Calculated = True
    end
  end
  object HpXsMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHpXsMx'
    RemoteServer = Data.CnBb
    Left = 149
    Top = 2
    object HpXsMxLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField4: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField1: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField3: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object HpXsMxBH: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object HpXsMxMC: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object FloatField4: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object FloatField5: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object FloatField6: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object FloatField7: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField8: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField9: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object YwyXsHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYwyXsHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_YWY
    Left = 244
    Top = 2
    object YwyXsHzYWY: TWideStringField
      DisplayLabel = #19994#21153#21592
      FieldName = 'YWY'
      OnGetText = YWYGetText
      Size = 8
    end
    object FloatField11: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField12: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField13: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object StringField2: TStringField
      FieldKind = fkCalculated
      FieldName = 'cYWY'
      OnGetText = YWYGetText
      Size = 8
      Calculated = True
    end
  end
  object YwyXsMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYwyXsMx'
    RemoteServer = Data.CnBb
    Left = 196
    Top = 2
    object YwyXsMxWideStringField: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField6: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField2: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField5: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField6: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField7: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object FloatField17: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField18: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField19: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object DqXsHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pDqXsHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 292
    Top = 2
    object WideStringField1: TWideStringField
      DisplayLabel = #22320#21306
      FieldName = 'MC'
      Size = 12
    end
    object FloatField10: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField14: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField15: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object StringField3: TStringField
      FieldKind = fkCalculated
      FieldName = 'cMC'
      Size = 12
      Calculated = True
    end
  end
  object DqXsMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pDqXsMx'
    RemoteServer = Data.CnBb
    Left = 339
    Top = 2
    object DqXsMxLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField5: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField3: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField2: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField4: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField8: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object FloatField16: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField20: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField21: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object sKhXsHz: TDataSource
    DataSet = KhXsHz
    Left = 14
    Top = 6
  end
  object sKhXsMx: TDataSource
    DataSet = KhXsMx
    Left = 62
    Top = 6
  end
  object sHpXsHz: TDataSource
    DataSet = HpXsHz
    Left = 109
    Top = 6
  end
  object sHpXsMx: TDataSource
    DataSet = HpXsMx
    Left = 157
    Top = 6
  end
  object sYwyXsHz: TDataSource
    DataSet = YwyXsHz
    Left = 252
    Top = 6
  end
  object sYwyXsMx: TDataSource
    DataSet = YwyXsMx
    Left = 204
    Top = 6
  end
  object sDqXsHz: TDataSource
    DataSet = DqXsHz
    Left = 300
    Top = 6
  end
  object sDqXsMx: TDataSource
    DataSet = DqXsMx
    Left = 347
    Top = 6
  end
  object HplbXsHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHplbXsHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 387
    Top = 2
    object WideStringField9: TWideStringField
      DisplayLabel = #36135#21697#31867#21035
      FieldName = 'MC'
      Size = 12
    end
    object FloatField22: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'