dm.dfm

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

      DisplayFormat = '#,0.00'
    end
    object ZhQMJE: TFloatField
      DisplayLabel = #20313#39069
      DisplayWidth = 12
      FieldName = 'QMJE'
      DisplayFormat = '#,0.00'
    end
    object ZhITMP: TIntegerField
      FieldName = 'ITMP'
    end
  end
  object sZh: TDataSource
    DataSet = Zh
    Left = 111
    Top = 66
  end
  object Sfkfs: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pSfkfs'
    RemoteServer = Cn
    BeforeOpen = SfkfsBeforeOpen
    Left = 127
    Top = 54
    object SfkfsID: TIntegerField
      FieldName = 'ID'
    end
    object SfkfsMC: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC'
      Size = 16
    end
    object SfkfsZHID: TIntegerField
      DisplayLabel = #32570#30465#24080#25143
      FieldName = 'ZHID'
    end
    object SfkfsaZHMC: TStringField
      DisplayLabel = #32570#30465#24080#25143
      FieldName = 'aZHMC'
    end
  end
  object sSfkfs: TDataSource
    DataSet = Sfkfs
    Left = 144
    Top = 66
  end
  object Srzclb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pSrzclb'
    RemoteServer = Cn
    Left = 158
    Top = 54
    object SrzclbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object SrzclbBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
      Size = 6
    end
    object SrzclbMC: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC'
    end
    object SrzclbSRL: TBooleanField
      Tag = 1
      DisplayLabel = #31867#21035
      DisplayWidth = 6
      FieldName = 'SRL'
      OnGetText = SrzclbSRLGetText
    end
    object SrzclbaSRL: TStringField
      DisplayLabel = #31867#21035
      DisplayWidth = 10
      FieldName = 'aSRL'
      Size = 255
    end
    object SrzclbBZ: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'BZ'
      Size = 32
    end
  end
  object sSrzclb: TDataSource
    DataSet = Srzclb
    Left = 177
    Top = 66
  end
  object Hplb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHplb'
    RemoteServer = Cn
    Left = 220
    Top = 54
    object HplbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object HplbMC: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC'
      Size = 16
    end
    object HplbBZ: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'BZ'
      Size = 30
    end
  end
  object sHplb: TDataSource
    DataSet = Hplb
    Left = 244
    Top = 66
  end
  object Sjzl: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pSjzl'
    RemoteServer = Cn
    Left = 250
    Top = 54
    object SjzlID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object SjzlXH: TIntegerField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'XH'
    end
    object SjzlMC: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC'
      Size = 16
    end
    object SjzlBZ: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'BZ'
      Size = 30
    end
  end
  object sSjzl: TDataSource
    DataSet = Sjzl
    Left = 277
    Top = 66
  end
  object Cyjsdw: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCyjsdw'
    RemoteServer = Cn
    Left = 281
    Top = 54
    object CyjsdwMC: TStringField
      DisplayLabel = #35745#31639#21333#20301
      FieldName = 'MC'
      Size = 8
    end
  end
  object sCyjsdw: TDataSource
    DataSet = Cyjsdw
    Left = 310
    Top = 66
  end
  object Hphsff: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHphsff'
    RemoteServer = Cn
    Left = 312
    Top = 54
    object HphsffID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object HphsffMC: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC'
    end
    object HphsffLB: TIntegerField
      Tag = 1
      Alignment = taLeftJustify
      DisplayLabel = #36135#21697#23646#24615
      DisplayWidth = 10
      FieldName = 'LB'
      OnGetText = ConverHphsff
    end
  end
  object sHphsff: TDataSource
    DataSet = Hphsff
    Left = 343
    Top = 66
  end
  object Ck: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pCk'
    RemoteServer = Cn
    Left = 189
    Top = 54
    object CkID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object CkXH: TIntegerField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'XH'
    end
    object CkMC: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC'
      Size = 16
    end
    object CkWZ: TStringField
      DisplayLabel = #20301#32622
      FieldName = 'WZ'
      Size = 40
    end
    object CkBZ: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'BZ'
      Size = 40
    end
  end
  object sCk: TDataSource
    DataSet = Ck
    Left = 210
    Top = 66
  end
  object Bm: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pBm'
    RemoteServer = Cn
    Left = 39
    Top = 110
    object BmID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object BmMC: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 16
      FieldName = 'MC'
      Size = 12
    end
  end
  object sBm: TDataSource
    DataSet = Bm
    Left = 43
    Top = 114
  end
  object Yglb: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYglb'
    RemoteServer = Cn
    Left = 69
    Top = 110
    object YglbID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object YglbMC: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 16
      FieldName = 'MC'
      Size = 32
    end
  end
  object sYglb: TDataSource
    DataSet = Yglb
    Left = 73
    Top = 114
  end
  object Yg: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pYg'
    RemoteServer = Cn
    Left = 99
    Top = 110
    object YgID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object YgBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
      Size = 4
    end
    object YgXM: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'XM'
      Size = 8
    end
    object YgXB: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'XB'
      Size = 2
    end
    object YgBMID: TIntegerField
      Tag = 1
      FieldName = 'BMID'
    end
    object YgaBMMC: TStringField
      DisplayLabel = #37096#38376
      FieldName = 'aBMMC'
      Size = 16
    end
    object YgcBMMC: TStringField
      DisplayLabel = #37096#38376
      FieldKind = fkInternalCalc
      FieldName = 'cBMMC'
      Size = 16
    end
    object YgYGLBID: TIntegerField
      Tag = 1
      FieldName = 'YGLBID'
    end
    object YgaYGLBMC: TStringField
      DisplayLabel = #21592#24037#31867#21035
      FieldName = 'aYGLBMC'
      Size = 16
    end
    object YgcYGLBMC: TStringField
      DisplayLabel = #21592#24037#31867#21035
      FieldKind = fkInternalCalc
      FieldName = 'cYGLBMC'
      Size = 16
    end
    object YgZW: TStringField
      DisplayLabel = #32844#21153
      FieldName = 'ZW'
      Size = 10
    end
    object YgCSRQ: TDateField
      DisplayLabel = #20986#29983#26085#26399
      FieldName = 'CSRQ'
    end
    object YgXL: TStringField
      DisplayLabel = #23398#21382
      FieldName = 'XL'
      Size = 10
    end
    object YgDH: TStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'DH'
    end
    object YgBP: TStringField
      DisplayLabel = #20256#21796#26426#21495
      FieldName = 'BP'
      Size = 15
    end
    object YgZZ: TStringField
      DisplayLabel = #20303#22336
      FieldName = 'ZZ'
      Size = 40
    end
    object YgSFZH: TStringField
      DisplayLabel = #36523#20221#35777#21495
      FieldName = 'SFZH'
      Size = 18
    end
    object YgJG: TStringField
      DisplayLabel = #31821#36143
      FieldName = 'JG'
    end
    object YgYB: TStringField
      DisplayLabel = #37038#32534
      FieldName = 'YB'
      Size = 6
    end
    object YgRZRQ: TDateField
      DisplayLabel = #20837#32844#26085#26399
      FieldName = 'RZRQ'
    end
    object YgJSFF: TIntegerField
      Tag = 1
      DisplayLabel = #24037#36164#35745#31639#26041#27861
      FieldName = 'JSFF'
      OnGetText = YgJSFFGetText
    end
    object YgaJSFF: TStringField
      DisplayLabel = #24037#36164#35745#31639#26041#27861
      FieldName = 'aJSFF'
      Size = 255
    end
    object YgJBGZ: TFloatField
      DisplayLabel = #22522#26412#24037#36164
      DisplayWidth = 12
      FieldName = 'JBGZ'
      DisplayFormat = '#,0.00'
    end
    object YgYWYBZ: TBooleanField
      Tag = 1
      Alignment = taCenter
      DisplayLabel = #26159#21542#19994#21153#21592
      FieldName = 'YWYBZ'
      DisplayValues = #8730';'
    end
    object YgaYWYBZ: TStringField
      DisplayLabel = #26159#21542#19994#21153#21592
      DisplayWidth = 10
      FieldName = 'aYWYBZ'
      Size = 255
    end
    object YgLZ: TBooleanField
      Tag = 1
      Alignment = taCenter
      DisplayLabel = #26159#21542#24050#31163#32844
      FieldName = 'LZ'
      DisplayValues = #8730';'
    end
    object YgaLZ: TStringField
      DisplayLabel = #26159#21542#24050#31163#32844
      DisplayWidth = 10
      FieldName = 'aLZ'
      Size = 255
    end
    object YgBZ: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 40
      FieldName = 'BZ'
      Size = 30
    end
  end
  object sYg: TDataSource
    DataSet = Yg
    Left = 103
    Top = 114
  end
  object Hp: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pHp'
    RemoteServer = Cn
    Left = 343
    Top = 54
    object HpID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object HpBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
    end
    object HpHPLBID: TIntegerField
      Tag = 1
      DisplayLabel = #31867#21035
      FieldName = 'HPLBID'
    end
    object HpaHPLBMC: TStringField
      DisplayLabel = #31867#21035
      FieldName = 'aHPLBMC'
      Size = 16
    end
    object HpcHPLBMC: TStringField
      DisplayLabel = #31867#21035
      FieldKind = fkInternalCalc
      FieldName = 'cHPLBMC'
      Size = 16
    end
    object HpPM: TStringField
      DisplayLabel = #21697#21517#35268#26684
      FieldName = 'PM'
      Size = 40
    end
    object HpDW: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'DW'
      Size = 4
    end
    object HpHPHSFFID: TIntegerField
      Tag = 1
      DisplayLabel = #26680#31639#26041#27861
      FieldName = 'HPHSFFID'
    end
    object HpHPSXID: TIntegerField
      Tag = 1
      Alignment = taLeftJustify
      DisplayLabel = #36135#21697#23646#24615
      FieldName = 'HPSXID'
      OnGetText = ConverHphsff
    end
    object HpaHPSX: TStringField
      DisplayLabel = #36135#21697#23646#24615
      DisplayWidth = 10
      FieldName = 'aHPSX'
      Size = 255
    end
    object HpaZKCL: TFloatField
      DisplayLabel = #24635#24211#23384#37327
      FieldName = 'aZKCL'
      DisplayFormat = '#,0.###'
    end
    object HpJJ: TFloatField
      DisplayLabel = #26368#36817#36827#20215
      DisplayWidth = 10
      FieldName = 'JJ'
      DisplayFormat = '#,0.###'
    end
    object HpJJJ: TFloatField
      DisplayLabel = #26087#36827#20215
      DisplayWidth = 10
      FieldName = 'JJJ'
      DisplayFormat = '#,0.###'
    end
    object HpJQJ: TFloatField
      DisplayLabel = #21152#26435#20215
      DisplayWidth = 10
      FieldName = 'JQJ'
      DisplayFormat = '#,0.###'
    end
    object HpQCJQJ: TFloatField
      DisplayWidth = 10
      FieldName = 'QCJQJ'
      DisplayFormat = '#,0.###'