dmbb.dfm

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

      Size = 8
    end
    object XsMlNbMxZBID: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object XsMlNbMxRQ: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object XsMlNbMxDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object XsMlNbMxBH: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object XsMlNbMxPM: TWideStringField
      DisplayLabel = #36135#21697#21517#31216
      FieldName = 'PM'
      Size = 40
    end
    object XsMlNbMxDW: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object XsMlNbMxSL: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object XsMlNbMxDJ: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object XsMlNbMxCBDJ: TFloatField
      DisplayLabel = #25104#26412#21333#20215
      DisplayWidth = 10
      FieldName = 'CBDJ'
      DisplayFormat = '#,0.###'
    end
    object XsMlNbMxJEA: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object XsMlNbMxCBJE: TFloatField
      DisplayLabel = #38144#21806#25104#26412
      DisplayWidth = 12
      FieldName = 'CBJE'
      DisplayFormat = '#,0.00'
    end
    object XsMlNbMxLRJE: TFloatField
      DisplayLabel = #38144#21806#27611#21033
      DisplayWidth = 12
      FieldName = 'LRJE'
      DisplayFormat = '#,0.00'
    end
  end
  object sXsMlNbMx: TDataSource
    DataSet = XsMlNbMx
    Left = 184
    Top = 56
  end
  object GysGhHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pGysGhHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 2
    Top = 102
    object IntegerField11: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object WideStringField20: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField21: TWideStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'MC'
    end
    object FloatField28: TFloatField
      DisplayLabel = #36827#36135#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField30: TFloatField
      DisplayLabel = #36827#36135#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField31: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object StringField6: TStringField
      FieldKind = fkCalculated
      FieldName = 'cMC'
      Calculated = True
    end
  end
  object GysGhMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pGysGhMx'
    RemoteServer = Data.CnBb
    Left = 56
    Top = 102
    object WideStringField22: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField14: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField8: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField23: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField27: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object WideStringField28: TWideStringField
      DisplayLabel = #36135#21697#21517#31216
      FieldName = 'PM'
      Size = 40
    end
    object WideStringField29: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object FloatField38: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object FloatField39: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object FloatField40: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object FloatField41: TFloatField
      DisplayLabel = #36827#36135#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField43: TFloatField
      DisplayLabel = #36827#36135#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField44: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object HpCgHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHpCgHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 110
    Top = 102
    object IntegerField15: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object WideStringField30: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object WideStringField31: TWideStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'PM'
      Size = 40
    end
    object WideStringField32: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object FloatField45: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object HpCgHzJEA: TFloatField
      DisplayLabel = #36827#36135#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object HpCgHzJEB: TFloatField
      DisplayLabel = #36827#36135#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object HpCgHzJEC: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object StringField7: TStringField
      FieldKind = fkCalculated
      FieldName = 'cPM'
      Size = 40
      Calculated = True
    end
  end
  object HpCgMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHpCgMx'
    RemoteServer = Data.CnBb
    Left = 164
    Top = 102
    object WideStringField33: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField16: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField9: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField34: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField35: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField36: TWideStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'MC'
    end
    object FloatField49: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL'
      DisplayFormat = '#,0.###'
    end
    object FloatField50: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ'
      DisplayFormat = '#,0.###'
    end
    object FloatField51: TFloatField
      DisplayLabel = #31246#29575
      DisplayWidth = 4
      FieldName = 'NSL'
      OnGetText = NSLGetText
      DisplayFormat = '0.#'
    end
    object HpCgMxJEA: TFloatField
      DisplayLabel = #36827#36135#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object HpCgMxJEB: TFloatField
      DisplayLabel = #36827#36135#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object HpCgMxJEC: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object YwyCgHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYwyCgHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_YWY
    Left = 218
    Top = 102
    object WideStringField37: TWideStringField
      DisplayLabel = #19994#21153#21592
      FieldName = 'YWY'
      OnGetText = YWYGetText
      Size = 8
    end
    object YwyCgHzJEA: TFloatField
      DisplayLabel = #36827#36135#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object YwyCgHzJEB: TFloatField
      DisplayLabel = #36827#36135#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object YwyCgHzJEC: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object StringField8: TStringField
      FieldKind = fkCalculated
      FieldName = 'cYWY'
      OnGetText = YWYGetText
      Size = 8
      Calculated = True
    end
  end
  object YwyCgMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYwyCgMx'
    RemoteServer = Data.CnBb
    Left = 272
    Top = 102
    object WideStringField38: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object IntegerField17: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField10: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField39: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField40: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField41: TWideStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'MC'
    end
    object YwyCgMxJEA: TFloatField
      DisplayLabel = #36827#36135#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object YwyCgMxJEB: TFloatField
      DisplayLabel = #36827#36135#31246#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object YwyCgMxJEC: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object sGysGhHz: TDataSource
    DataSet = GysGhHz
    Left = 14
    Top = 110
  end
  object sGysGhMx: TDataSource
    DataSet = GysGhMx
    Left = 68
    Top = 110
  end
  object sHpCgHz: TDataSource
    DataSet = HpCgHz
    Left = 122
    Top = 110
  end
  object sHpCgMx: TDataSource
    DataSet = HpCgMx
    Left = 176
    Top = 110
  end
  object sYwyCgHz: TDataSource
    DataSet = YwyCgHz
    Left = 230
    Top = 110
  end
  object sYwyCgMx: TDataSource
    DataSet = YwyCgMx
    Left = 284
    Top = 110
  end
  object CgddQk: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgddQk'
    RemoteServer = Data.CnBb
    Left = 326
    Top = 102
    object IntegerField18: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object DateField11: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField42: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField43: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField44: TWideStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'MC'
    end
    object FloatField61: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object WideStringField45: TWideStringField
      DisplayLabel = #25191#34892#24773#20917
      FieldName = 'DDZT'
      Size = 8
    end
  end
  object CgMfDj: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCgMfDj'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_YWY
    Left = 380
    Top = 102
    object IntegerField19: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object DateField12: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'