dms.dfm

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

      ProviderFlags = [pfInUpdate]
    end
  end
  object pGys: TDataSetProvider
    DataSet = Gys
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 78
    Top = 66
  end
  object Zh: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select *,iif(YHL,'#39#38134#34892#23384#27454#31867#39','#39#29616#37329#31867#39') as aYHL from ZH')
    Left = 116
    Top = 70
    object ZhID: TIntegerField
      FieldName = 'ID'
    end
    object ZhMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
    end
    object ZhYHL: TBooleanField
      FieldName = 'YHL'
      ProviderFlags = [pfInUpdate]
    end
    object ZhaYHL: TStringField
      DisplayWidth = 10
      FieldName = 'aYHL'
      ProviderFlags = []
      Size = 255
    end
    object ZhKHYH: TStringField
      FieldName = 'KHYH'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object ZhYHZH: TStringField
      FieldName = 'YHZH'
      ProviderFlags = [pfInUpdate]
    end
    object ZhQCJE: TFloatField
      FieldName = 'QCJE'
      ProviderFlags = [pfInUpdate]
    end
    object ZhQMJE: TFloatField
      FieldName = 'QMJE'
      ProviderFlags = []
    end
    object ZhITMP: TIntegerField
      FieldName = 'ITMP'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pZh: TDataSetProvider
    DataSet = Zh
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 108
    Top = 66
  end
  object Sfkfs: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select S.*, Z.MC as aZHMC '
      'from SFKFS S left join ZH Z on S.ZHID=Z.ID '
      'order by S.ID')
    Left = 146
    Top = 70
    object SfkfsID: TIntegerField
      FieldName = 'ID'
    end
    object SfkfsMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
      Size = 16
    end
    object SfkfsZHID: TIntegerField
      FieldName = 'ZHID'
      ProviderFlags = [pfInUpdate]
    end
    object SfkfsaZHMC: TStringField
      FieldName = 'aZHMC'
      ProviderFlags = []
    end
  end
  object pSfkfs: TDataSetProvider
    DataSet = Sfkfs
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 138
    Top = 66
  end
  object Srzclb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select *,iif(SRL,'#39#25910#20837#31867#39','#39#25903#20986#31867#39') as aSRL from SRZCLB order by BH')
    Left = 176
    Top = 70
    object SrzclbID: TIntegerField
      FieldName = 'ID'
    end
    object SrzclbBH: TStringField
      DisplayWidth = 6
      FieldName = 'BH'
      ProviderFlags = [pfInUpdate]
      Size = 6
    end
    object SrzclbMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
    end
    object SrzclbSRL: TBooleanField
      DisplayWidth = 6
      FieldName = 'SRL'
      ProviderFlags = [pfInUpdate]
    end
    object SrzclbaSRL: TStringField
      FieldName = 'aSRL'
      ProviderFlags = []
      Size = 255
    end
    object SrzclbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 32
    end
  end
  object pSrzclb: TDataSetProvider
    DataSet = Srzclb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 168
    Top = 66
  end
  object Ck: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from CK order by XH')
    Left = 206
    Top = 70
    object CkID: TIntegerField
      FieldName = 'ID'
    end
    object CkXH: TIntegerField
      FieldName = 'XH'
      ProviderFlags = [pfInUpdate]
    end
    object CkMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
      Size = 16
    end
    object CkWZ: TStringField
      FieldName = 'WZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object CkBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
  end
  object pCk: TDataSetProvider
    DataSet = Ck
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 198
    Top = 66
  end
  object Hplb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from HPLB')
    Left = 236
    Top = 70
    object HplbID: TIntegerField
      FieldName = 'ID'
    end
    object HplbMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
      Size = 16
    end
    object HplbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object pHplb: TDataSetProvider
    DataSet = Hplb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 228
    Top = 66
  end
  object Cyjsdw: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from CYJSDW')
    Left = 296
    Top = 70
    object CyjsdwMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 8
    end
  end
  object pCyjsdw: TDataSetProvider
    DataSet = Cyjsdw
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 288
    Top = 66
  end
  object Hphsff: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from HPHSFF')
    Left = 326
    Top = 70
    object HphsffID: TIntegerField
      FieldName = 'ID'
    end
    object HphsffMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
    end
    object HphsffLB: TIntegerField
      FieldName = 'LB'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pHphsff: TDataSetProvider
    DataSet = Hphsff
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 318
    Top = 66
  end
  object Bm: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from BM')
    Left = 69
    Top = 118
    object BmID: TIntegerField
      FieldName = 'ID'
    end
    object BmMC: TStringField
      DisplayWidth = 16
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
  end
  object pBm: TDataSetProvider
    DataSet = Bm
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 61
    Top = 114
  end
  object Yglb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from YGLB')
    Left = 111
    Top = 118
    object YglbID: TIntegerField
      FieldName = 'ID'
    end
    object YglbMC: TStringField
      DisplayWidth = 16
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
      Size = 32
    end
  end
  object pYglb: TDataSetProvider
    DataSet = Yglb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 103
    Top = 114
  end
  object Yg: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Y.*,B.MC as aBMMC,L.MC as aYGLBMC,'
      'iif(YWYBZ,'#39#26159#39','#39#21542#39') as aYWYBZ,'
      'switch(JSFF=1,'#39#26376#34218#39',JSFF=2,'#39#35745#20214#39') as aJSFF,'
      'iif(LZ,'#39#26159#39','#39#21542#39') as aLZ '
      'from YG Y,BM B,YGLB L,'
      'Y left join B on Y.BMID = B.ID,'
      'Y left join L on Y.YGLBID = L.ID'
      'order by BH')
    Left = 153
    Top = 118
    object YgID: TIntegerField
      FieldName = 'ID'
    end
    object YgBH: TStringField
      FieldName = 'BH'
      ProviderFlags = [pfInUpdate]
      Size = 4
    end
    object YgXM: TStringField
      FieldName = 'XM'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object YgXB: TStringField
      FieldName = 'XB'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object YgBMID: TIntegerField
      FieldName = 'BMID'
      ProviderFlags = [pfInUpdate]
    end
    object YgaBMMC: TStringField
      FieldName = 'aBMMC'
      ProviderFlags = []
      Size = 16
    end
    object YgYGLBID: TIntegerField
      FieldName = 'YGLBID'
      ProviderFlags = [pfInUpdate]
    end
    object YgaYGLBMC: TStringField
      FieldName = 'aYGLBMC'
      ProviderFlags = []
      Size = 16
    end
    object YgZW: TStringField
      FieldName = 'ZW'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object YgCSRQ: TDateField
      FieldName = 'CSRQ'
      ProviderFlags = [pfInUpdate]
    end
    object YgXL: TStringField
      FieldName = 'XL'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object YgDH: TStringField
      FieldName = 'DH'
      ProviderFlags = [pfInUpdate]
    end
    object YgBP: TStringField
      FieldName = 'BP'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object YgZZ: TStringField
      FieldName = 'ZZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object YgSFZH: TStringField
      FieldName = 'SFZH'
      ProviderFlags = [pfInUpdate]
      Size = 18
    end
    object YgJG: TStringField
      FieldName = 'JG'
      ProviderFlags = [pfInUpdate]
    end
    object YgYB: TStringField
      FieldName = 'YB'
      ProviderFlags = [pfInUpdate]
      Size = 6
    end
    object YgRZRQ: TDateField
      FieldName = 'RZRQ'
      ProviderFlags = [pfInUpdate]
    end
    object YgJSFF: TIntegerField
      FieldName = 'JSFF'
      ProviderFlags = [pfInUpdate]
    end
    object YgaJSFF: TStringField
      FieldName = 'aJSFF'
      ProviderFlags = []
      Size = 255
    end
    object YgJBGZ: TFloatField
      FieldName = 'JBGZ'
      ProviderFlags = [pfInUpdate]
    end
    object YgLZ: TBooleanField
      FieldName = 'LZ'
      ProviderFlags = [pfInUpdate]
    end
    object YgaYWYBZ: TStringField
      FieldName = 'aYWYBZ'
      ProviderFlags = []
      Size = 255
    end
    object YgYWYBZ: TBooleanField
      FieldName = 'YWYBZ'
      ProviderFlags = [pfInUpdate]
    end
    object YgaLZ: TStringField
      FieldName = 'aLZ'
      ProviderFlags = []
      Size = 255
    end
    object YgBZ: TStringField
      DisplayWidth = 40
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object pYg: TDataSetProvider
    DataSet = Yg
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 145
    Top = 114
  end
  object Hp: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select H.*,'
      '(select ID from HP where HP.ID=H.ID) as Tmp, '
      '(select sum(JCS) from HPKC where HPID=H.ID) as aZKCL,'
      'iif(XZBZ,'#39#26159#39','#39#21542#39') as aXZBZ,iif(ZT,'#39#26159#39','#39#21542#39') as aZT,'
      'switch(HPSXID=1,'#39#24211#23384#21830#21697#39', HPSXID=2,'#39#26381#21153'/'#21171#21153#39', '
      'HPSXID=3,'#39#20854#23427#25910#20837#39', HPSXID=4,'#39#20854#23427#25903#20986#39', '
      'HPSXID=5,'#39#25240#25187#39') as aHPSX,'
      'L.MC as aHPLBMC '
      'from HP H inner join HPLB L on H.HPLBID=L.ID'
      'order by BH')
    Left = 360
    Top = 70
    object HpID: TIntegerField
      FieldName = 'ID'
    end
    object HpBH: TStringField
      FieldName = 'BH'
      ProviderFlags = [pfInUpdate]
    end
    object HpHPLBID: TIntegerField
      FieldName = 'HPLBID'
      ProviderFlags = [pfInUpdate]
    end
    object HpaHPLBMC: TStringField
      FieldName = 'aHPLBMC'
      ProviderFlags = []
      Size = 16
    end
    object HpPM: TStringField
      FieldName = 'PM'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object HpDW: TStringField
      FieldName = 'DW'
      ProviderFlags = [pfInUpdate]
      Size = 4
    end
    object HpHPHSFFID: TIntegerField
      FieldName = 'HPHSFFID'
      ProviderFlags = [pfInUpdate]
    end
    object HpHPSXID: TIntegerField
      FieldName = 'HPSXID'
      ProviderFlags = [pfInUpdate]
    end