dmbb.dfm

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

      DisplayWidth = 12
      FieldName = 'JEA'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.00'
    end
    object YskMxJEC: TFloatField
      DisplayLabel = #25910#27454#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.00'
    end
    object YskMxJED: TFloatField
      DisplayLabel = #26399#26411#32467#20313#37329#39069
      DisplayWidth = 12
      FieldName = 'JYJE'
      DisplayFormat = '#,0.00'
    end
  end
  object sYskMx: TDataSource
    DataSet = YskMx
    Left = 68
    Top = 160
  end
  object YfkMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYfkMx'
    RemoteServer = Data.CnBb
    Left = 272
    Top = 152
    object YfkMxZBID: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object YfkMxRQ: TDateField
      DisplayLabel = #35760#24080#26085#26399
      FieldName = 'RQ'
    end
    object YfkMxLX: TWideStringField
      DisplayLabel = #19994#21153#31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object YfkMxDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object YfkMxJEA: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.00'
    end
    object YfkMxJEB: TFloatField
      DisplayLabel = #20184#27454#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.00'
    end
    object YfkMxJYJE: TFloatField
      DisplayLabel = #26399#26411#32467#20313#37329#39069
      DisplayWidth = 12
      FieldName = 'JYJE'
      DisplayFormat = '#,0.00'
    end
  end
  object sYfkMx: TDataSource
    DataSet = YfkMx
    Left = 284
    Top = 160
  end
  object YskZlMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYskZlMx'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 164
    Top = 152
    object IntegerField21: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object DateField13: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object FloatField48: TFloatField
      DisplayLabel = #36317#20170#22825#25968
      DisplayWidth = 4
      FieldName = 'TS'
      OnGetText = ZeroToEmpty
      DisplayFormat = '0'
    end
    object WideStringField53: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object YskZlMxJEA: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object FloatField52: TFloatField
      DisplayLabel = #24050#25910#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object FloatField53: TFloatField
      DisplayLabel = #26411#25910#37329#39069
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object sYskZlMx: TDataSource
    DataSet = YskZlMx
    Left = 176
    Top = 160
  end
  object YfkZlMx: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYfkZlMx'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 380
    Top = 152
    object YfkZlMxZBID: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object YfkZlMxRQ: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object YfkZlMxTS: TFloatField
      DisplayLabel = #36317#20170#22825#25968
      DisplayWidth = 4
      FieldName = 'TS'
      OnGetText = ZeroToEmpty
      DisplayFormat = '0'
    end
    object YfkZlMxDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object YfkZlMxJEA: TFloatField
      DisplayLabel = #37319#36141#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      DisplayFormat = '#,0.00'
    end
    object YfkZlMxJEB: TFloatField
      DisplayLabel = #24050#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      DisplayFormat = '#,0.00'
    end
    object YfkZlMxJEC: TFloatField
      DisplayLabel = #26411#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'JEC'
      DisplayFormat = '#,0.00'
    end
  end
  object sYfkZlMx: TDataSource
    DataSet = YfkZlMx
    Left = 392
    Top = 160
  end
  object ZlFxt: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pFxt'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 434
    Top = 152
    object ZlFxtMC: TWideStringField
      FieldName = 'MC'
    end
    object ZlFxtcMC: TStringField
      FieldKind = fkCalculated
      FieldName = 'cMC'
      Calculated = True
    end
    object FloatField55: TFloatField
      DisplayLabel = #37319#36141#37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
  end
  object sZlfxt: TDataSource
    DataSet = ZlFxt
    Left = 446
    Top = 160
  end
  object RqLsz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pRqLsz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 2
    Top = 202
    object RqLszLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object RqLszZBID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object RqLszRQ: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object RqLszDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object RqLszMC1: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC1'
    end
    object RqLszJEA: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object RqLszMC: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 40
      FieldName = 'BZ'
      Size = 40
    end
  end
  object GysLsz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pGysLsz'
    RemoteServer = Data.CnBb
    Left = 110
    Top = 202
    object GysLszLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object GysLszID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object GysLszRQ: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object GysLszDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object GysLszJE: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object GysLszBZ: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 40
      FieldName = 'BZ'
      Size = 40
    end
  end
  object sRqLsz: TDataSource
    DataSet = RqLsz
    Left = 18
    Top = 210
  end
  object sGysLsz: TDataSource
    DataSet = GysLsz
    Left = 126
    Top = 210
  end
  object KhLsz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pKhLsz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 56
    Top = 202
    object KhLszLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object KhLszID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object KhLszRQ: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object KhLszDJBH: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object KhLszJE: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldName = 'JE'
      DisplayFormat = '#,0.00'
    end
    object KhLszBZ: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 40
      FieldName = 'BZ'
      Size = 40
    end
  end
  object sKhLsz: TDataSource
    DataSet = KhLsz
    Left = 72
    Top = 210
  end
  object SzLsz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pSzLsz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 218
    Top = 202
    object SzLszLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object SzLszBZ: TWideStringField
      DisplayLabel = #25910#27454#21435#21521'/'#20184#27454#26469#28304
      DisplayWidth = 10
      FieldName = 'ZHMC'
    end
    object DateField15: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object IntegerField23: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object WideStringField59: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object SzLszBZ2: TWideStringField
      DisplayLabel = #25910#27454'/'#20184#27454#26041#24335
      DisplayWidth = 10
      FieldName = 'SFKFSMC'
    end
    object FloatField76: TFloatField
      DisplayLabel = #25910#20837#37329#39069
      DisplayWidth = 12
      FieldName = 'JEA'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.00'
    end
    object FloatField77: TFloatField
      DisplayLabel = #25903#20986#37329#39069
      DisplayWidth = 12
      FieldName = 'JEB'
      OnGetText = ZeroToEmpty
      DisplayFormat = '#,0.00'
    end
    object SzLszBZ3: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 40
      FieldName = 'BZ'
      Size = 40
    end
  end
  object sSzLsz: TDataSource
    DataSet = SzLsz
    Left = 234
    Top = 210
  end
  object CkLsz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCkLsz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_PM
    Left = 164
    Top = 202
    object IntegerField1: TIntegerField
      Tag = 1
      FieldName = 'ZBID'
    end
    object CkLszLX: TWideStringField
      DisplayLabel = #31867#22411
      FieldName = 'LX'
      Size = 8
    end
    object DateField14: TDateField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'RQ'
    end
    object WideStringField52: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'DJBH'
      Size = 12
    end
    object CkLszBH: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'BH'
    end
    object CkLszPM: TWideStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'PM'
      Size = 40
    end
    object CkLszDW: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object CkLszSL1: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SL1'
      DisplayFormat = '#,0.###'
    end
    object CkLszDJ1: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'DJ1'
      DisplayFormat = '#,0.###'
    end
    object CkLszJE1: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 12
      FieldName = 'JE1'
      DisplayFormat = '#,0.00'
    end
  end
  object sCkLsz: TDataSource
    DataSet = CkLsz
    Left = 180
    Top = 210
  end
  object YyqkHz: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYyqkHz'
    RemoteServer = Data.CnBb
    OnCalcFields = CalcFields_MC
    Left = 488
    Top = 202
    object IntegerField2: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object WideStringField54: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object WideStringField55: TWideStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'MC'
    end
    object FloatField54: TFloatField
      DisplayLabel = #26399#21021#24212#20184#27454
      DisplayWidth = 12
      Fi