dmbb.dfm

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

    end
    object WideStringField46: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object WideStringField47: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField48: TWideStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'MC'
    end
    object FloatField62: TFloatField
      DisplayLabel = #24320#21333#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField63: TFloatField
      DisplayLabel = #24050#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField64: TFloatField
      DisplayLabel = #27424#27454#37329#39069
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object sCgddQk: TDataSource
    DataSet = CgddQk
    Left = 338
    Top = 110
  end
  object sCgMfDj: TDataSource
    DataSet = CgMfDj
    Left = 392
    Top = 110
  end
  object CkkcMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCkkcMx'
    RemoteServer = Data.CnBb
    Left = 444
    Top = 102
    object CkkcMxLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object CkkcMxZBID: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object CkkcMxRQ: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object CkkcMxDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object CkkcMxPM: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC1'
      Size = 40
    end
    object CkkcMxDJ: TFloatField
      DisplayLabel = #21152#26435#20215
      DisplayWidth = 10
      FieldName = 'DJ1'
      DisplayFormat = '#,0.###'
    end
    object CkkcMxSL: TFloatField
      DisplayLabel = #25910#20837#25968#37327
      FieldName = 'SLA'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.###'
    end
    object CkkcMxJEA: TFloatField
      DisplayLabel = #25910#20837#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.00'
    end
    object CkkcMxSL1: TFloatField
      DisplayLabel = #21457#20986#25968#37327
      FieldName = 'SLB'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.###'
    end
    object CkkcMxJE1: TFloatField
      DisplayLabel = #21457#20986#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.00'
    end
    object CkkcMxSL12: TFloatField
      DisplayLabel = #32467#20313#25968#37327
      FieldName = 'JYSL'
      DisplayFormat = '#,0.###'
    end
    object CkkcMxJE12: TFloatField
      DisplayLabel = #32467#20313#37329#39069
      DisplayWidth = 12
      FieldName = 'JYJE'
      DisplayFormat = '#,0.00'
    end
  end
  object CkkcHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCkkcHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 410
    Top = 102
    object IntegerField20: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object WideStringField49: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object WideStringField50: TWideStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'PM'
      Size = 40
    end
    object WideStringField51: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object CkkcHzSLA2: TFloatField
      DisplayLabel = #26399#21021#25968#37327
      FieldName = 'SLA'
      DisplayFormat = '#,0.###'
    end
    object CkkcHzJEA2: TFloatField
      DisplayLabel = #26399#21021#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object CkkcHzSLB: TFloatField
      DisplayLabel = #26412#26399#25910#20837#25968#37327
      FieldName = 'SLB'
      DisplayFormat = '#,0.###'
    end
    object CkkcHzJEB: TFloatField
      DisplayLabel = #26412#26399#25910#20837#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField46: TFloatField
      DisplayLabel = #26412#26399#21457#20986#25968#37327
      FieldName = 'SLC'
      DisplayFormat = '#,0.###'
    end
    object FloatField47: TFloatField
      DisplayLabel = #26412#26399#21457#20986#37329#39069
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object CkkcHzSLA: TFloatField
      DisplayLabel = #26399#26411#25968#37327
      FieldName = 'SLD'
      DisplayFormat = '#,0.###'
    end
    object CkkcHzJEA: TFloatField
      DisplayLabel = #26399#26411#37329#39069
      DisplayWidth = 12
      FieldName = 'JED'
      DisplayFormat = '#,0.00'
    end
  end
  object sCkkcHz: TDataSource
    DataSet = CkkcHz
    Left = 422
    Top = 110
  end
  object sCkkcMx: TDataSource
    DataSet = CkkcMx
    Left = 456
    Top = 110
  end
  object HpCwb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pXsMsdj'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_YWY
    Left = 478
    Top = 102
  end
  object sHpCwb: TDataSource
    DataSet = HpCwb
    Left = 490
    Top = 110
  end
  object YfkZb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYfkZb'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 218
    Top = 152
    object YfkZbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object YfkZbBH: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object YfkZbMC: TWideStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'MC'
    end
    object YfkZbJEA: TFloatField
      DisplayLabel = #26399#21021#20313#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object YfkZbJEB: TFloatField
      DisplayLabel = #26412#26399#24212#20184#27454#21457#29983#25968
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object YfkZbJEC: TFloatField
      DisplayLabel = #26412#26399#20184#27454#21457#29983#25968
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object YfkZbJED: TFloatField
      DisplayLabel = #26399#26411#20313#39069
      DisplayWidth = 12
      FieldName = 'JED'
      DisplayFormat = '#,0.00'
    end
    object YfkZbcMC: TStringField
      FieldKind = fkCalculated
      FieldName = 'cMC'
      Calculated = True
    end
  end
  object YfkZlfx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYfkZlfx'
    RemoteServer = Data.CnBb
    Left = 326
    Top = 152
    object YfkZlfxID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object YfkZlfxBH: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object YfkZlfxMC: TWideStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'MC'
    end
    object YfkZlfxTS1: TFloatField
      DisplayWidth = 12
      FieldName = 'TS1'
      DisplayFormat = '#,0.00'
    end
    object YfkZlfxTS2: TFloatField
      DisplayWidth = 12
      FieldName = 'TS2'
      DisplayFormat = '#,0.00'
    end
    object YfkZlfxTS3: TFloatField
      DisplayWidth = 12
      FieldName = 'TS3'
      DisplayFormat = '#,0.00'
    end
    object YfkZlfxTS4: TFloatField
      DisplayWidth = 12
      FieldName = 'TS4'
      DisplayFormat = '#,0.00'
    end
    object YfkZlfxTS5: TFloatField
      DisplayWidth = 12
      FieldName = 'TS5'
      DisplayFormat = '#,0.00'
    end
    object YfkZlfxTS6: TFloatField
      DisplayWidth = 12
      FieldName = 'TS6'
      DisplayFormat = '#,0.00'
    end
    object YfkZlfxTS7: TFloatField
      DisplayWidth = 12
      FieldName = 'TS7'
      DisplayFormat = '#,0.00'
    end
    object YfkZlfxTS8: TFloatField
      DisplayWidth = 12
      FieldName = 'TS8'
      DisplayFormat = '#,0.00'
    end
    object YfkZlfxHJ: TFloatField
      DisplayLabel = #21512#35745
      DisplayWidth = 12
      FieldName = 'HJ'
      DisplayFormat = '#,0.00'
    end
  end
  object YskZb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYskZb'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 2
    Top = 152
    object YskZbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object YskZbBH: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object YskZbMC: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object YskZbJEA: TFloatField
      DisplayLabel = #26399#21021#20313#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object YskZbJEB: TFloatField
      DisplayLabel = #26412#26399#24212#25910#27454#21457#29983#25968
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object YskZbJEC2: TFloatField
      DisplayLabel = #26412#26399#25910#27454#21457#29983#25968
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
    object YskZbJEC: TFloatField
      DisplayLabel = #26399#26411#20313#39069
      DisplayWidth = 12
      FieldName = 'JED'
      DisplayFormat = '#,0.00'
    end
    object YskZbcMC: TStringField
      FieldKind = fkCalculated
      FieldName = 'cMC'
      Calculated = True
    end
  end
  object YskZlfx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYskZlfx'
    RemoteServer = Data.CnBb
    Left = 110
    Top = 152
    object YskZlfxID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object YskZlfxBH: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object YskZlfxMC: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'MC'
    end
    object YskZlfxTS1: TFloatField
      DisplayWidth = 12
      FieldName = 'TS1'
      DisplayFormat = '#,0.00'
    end
    object YskZlfxTS2: TFloatField
      DisplayWidth = 12
      FieldName = 'TS2'
      DisplayFormat = '#,0.00'
    end
    object YskZlfxTS3: TFloatField
      DisplayWidth = 12
      FieldName = 'TS3'
      DisplayFormat = '#,0.00'
    end
    object YskZlfxTS4: TFloatField
      DisplayWidth = 12
      FieldName = 'TS4'
      DisplayFormat = '#,0.00'
    end
    object YskZlfxTS5: TFloatField
      DisplayWidth = 12
      FieldName = 'TS5'
      DisplayFormat = '#,0.00'
    end
    object YskZlfxTS6: TFloatField
      DisplayWidth = 12
      FieldName = 'TS6'
      DisplayFormat = '#,0.00'
    end
    object YskZlfxTS7: TFloatField
      DisplayWidth = 12
      FieldName = 'TS7'
      DisplayFormat = '#,0.00'
    end
    object YskZlfxTS8: TFloatField
      DisplayWidth = 12
      FieldName = 'TS8'
      DisplayFormat = '#,0.00'
    end
    object YskZlfxHJ: TFloatField
      DisplayLabel = #21512#35745
      DisplayWidth = 12
      FieldName = 'HJ'
      DisplayFormat = '#,0.00'
    end
  end
  object sYfkZb: TDataSource
    DataSet = YfkZb
    Left = 230
    Top = 160
  end
  object sYfkZlfx: TDataSource
    DataSet = YfkZlfx
    Left = 338
    Top = 160
  end
  object sYskZb: TDataSource
    DataSet = YskZb
    Left = 14
    Top = 160
  end
  object sYskZlfx: TDataSource
    DataSet = YskZlfx
    Left = 122
    Top = 160
  end
  object YskMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYskMx'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 56
    Top = 152
    object YskMxZBID: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object YskMxRQ: TDateField
      DisplayLabel = #35760#24080#26085#26399
      FieldName = 'RQ'
    end
    object YskMxLX: TWideStringField
      DisplayLabel = #19994#21153#31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object YskMxDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object YskMxJEB: TFloatField
      DisplayLabel = #24212#25910#37329#39069