dms.dfm

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

    object HpaHPSX: TStringField
      DisplayWidth = 10
      FieldName = 'aHPSX'
      ProviderFlags = []
      Size = 255
    end
    object HpaZKCL: TFloatField
      FieldName = 'aZKCL'
      ProviderFlags = []
    end
    object HpJJ: TFloatField
      FieldName = 'JJ'
      ProviderFlags = [pfInUpdate]
    end
    object HpJJJ: TFloatField
      FieldName = 'JJJ'
      ProviderFlags = [pfInUpdate]
    end
    object HpJQJ: TFloatField
      FieldName = 'JQJ'
      ProviderFlags = [pfInUpdate]
    end
    object HpQCJQJ: TFloatField
      FieldName = 'QCJQJ'
      ProviderFlags = [pfInUpdate]
    end
    object HpQCJE: TFloatField
      FieldName = 'QCJE'
      ProviderFlags = [pfInUpdate]
    end
    object HpSX: TFloatField
      FieldName = 'SX'
      ProviderFlags = [pfInUpdate]
    end
    object HpXX: TFloatField
      FieldName = 'XX'
      ProviderFlags = [pfInUpdate]
    end
    object HpZT: TBooleanField
      FieldName = 'ZT'
      ProviderFlags = [pfInUpdate]
    end
    object HpaZT: TStringField
      DisplayWidth = 2
      FieldName = 'aZT'
      ProviderFlags = []
      Size = 255
    end
    object HpITMP: TIntegerField
      FieldName = 'ITMP'
    end
  end
  object pHp: TDataSetProvider
    DataSet = Hp
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 352
    Top = 66
  end
  object Qtkcbdlx: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from QTKCBDLX')
    Left = 27
    Top = 118
    object QtkcbdlxID: TIntegerField
      FieldName = 'ID'
    end
    object QtkcbdlxMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
    end
    object QtkcbdlxRKL: TBooleanField
      FieldName = 'RKL'
      ProviderFlags = [pfInUpdate]
    end
    object QtkcbdlxTHBZ: TBooleanField
      FieldName = 'THBZ'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pQtkcbdlx: TDataSetProvider
    DataSet = Qtkcbdlx
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 19
    Top = 114
  end
  object HpCkXx: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select MC,JCS from CK,HPKC')
    Left = 390
    Top = 70
    object HpCkXxMC: TStringField
      FieldName = 'MC'
      Size = 16
    end
    object HpCkXxJCS: TFloatField
      FieldName = 'JCS'
    end
  end
  object pHpCkXx: TDataSetProvider
    DataSet = HpCkXx
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 382
    Top = 66
  end
  object HpSjXx: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select MC,SJ from SJZL,HPSJ')
    Left = 420
    Top = 70
    object HpSjXxMC: TStringField
      FieldName = 'MC'
      Size = 16
    end
    object HpSjXxSJ: TFloatField
      FieldName = 'SJ'
    end
  end
  object pHpSjXx: TDataSetProvider
    DataSet = HpSjXx
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 412
    Top = 66
  end
  object Hpkc: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from HPKC')
    Left = 450
    Top = 70
    object HpkcCKID: TIntegerField
      FieldName = 'CKID'
    end
    object HpkcHPID: TIntegerField
      FieldName = 'HPID'
    end
    object HpkcQCS: TFloatField
      FieldName = 'QCS'
      ProviderFlags = [pfInUpdate]
    end
    object HpkcJCS: TFloatField
      FieldName = 'JCS'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pHpkc: TDataSetProvider
    DataSet = Hpkc
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 442
    Top = 66
  end
  object Hpsj: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from HPSJ')
    Left = 480
    Top = 70
    object HpsjSJZLID: TIntegerField
      FieldName = 'SJZLID'
    end
    object HpsjHPID: TIntegerField
      FieldName = 'HPID'
    end
    object HpsjSJ: TFloatField
      FieldName = 'SJ'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pHpsj: TDataSetProvider
    DataSet = Hpsj
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 472
    Top = 66
  end
  object Cgddzb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.*,iif(Z.ZT,'#39#26159#39','#39#21542#39') as aZT,'
      'K.BH as aGYSBH, K.MC as aGYSMC '
      'from CGDDZB Z,GYS K,Z inner join K on Z.GYSID = K.ID '
      'order by Z.DJBH')
    Left = 22
    Top = 166
    object CgddzbID: TIntegerField
      FieldName = 'ID'
    end
    object CgddzbDJBH: TStringField
      FieldName = 'DJBH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object CgddzbRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object CgddzbGYSID: TIntegerField
      FieldName = 'GYSID'
      ProviderFlags = [pfInUpdate]
    end
    object CgddzbaGYSBH: TStringField
      FieldName = 'aGYSBH'
      ProviderFlags = []
      Size = 12
    end
    object CgddzbaGYSMC: TStringField
      FieldName = 'aGYSMC'
      ProviderFlags = []
    end
    object CgddzbJHRQ: TDateField
      FieldName = 'JHRQ'
      ProviderFlags = [pfInUpdate]
    end
    object CgddzbJHDD: TStringField
      FieldName = 'JHDD'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object CgddzbYWY: TStringField
      FieldName = 'YWY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object CgddzbJE: TFloatField
      FieldName = 'JE'
      ProviderFlags = [pfInUpdate]
    end
    object CgddzbZT: TBooleanField
      FieldName = 'ZT'
      ProviderFlags = [pfInUpdate]
    end
    object CgddzbaZT: TStringField
      FieldName = 'aZT'
      ProviderFlags = []
      ReadOnly = True
      Size = 255
    end
    object CgddzbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object CgddzbCZY: TStringField
      FieldName = 'CZY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object pCgddzb: TDataSetProvider
    DataSet = Cgddzb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 14
    Top = 158
  end
  object Cgdd: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      
        'select M.*,(select HH from CGDD where CGDD.ZBID=M.ZBID and CGDD.' +
        'HH=M.HH) as TMP,'
      'SL AS aSHSL,iif(M.SL>aSHSL,M.SL-aSHSL,0) as aMSSL, '
      'H.BH as aBH, H.PM as aPM, H.DW as aDW '
      'from CGDD M, HP H, M inner join H on M.HPID=H.ID')
    Left = 56
    Top = 166
    object CgddZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object CgddHH: TIntegerField
      FieldName = 'HH'
    end
    object CgddRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object CgddHPID: TIntegerField
      FieldName = 'HPID'
      ProviderFlags = [pfInUpdate]
    end
    object CgddaBH: TStringField
      FieldName = 'aBH'
      ProviderFlags = []
    end
    object CgddaPM: TStringField
      FieldName = 'aPM'
      ProviderFlags = []
      Size = 40
    end
    object CgddaDW: TStringField
      FieldName = 'aDW'
      ProviderFlags = []
      Size = 4
    end
    object CgddSL: TFloatField
      FieldName = 'SL'
      ProviderFlags = [pfInUpdate]
    end
    object CgddDJ: TFloatField
      FieldName = 'DJ'
      ProviderFlags = [pfInUpdate]
    end
    object CgddNSL: TFloatField
      FieldName = 'NSL'
      ProviderFlags = [pfInUpdate]
    end
    object CgddaSHSL: TFloatField
      FieldName = 'aSHSL'
      ProviderFlags = []
    end
    object CgddaMSSL: TFloatField
      FieldName = 'aMSSL'
      ProviderFlags = []
    end
  end
  object pCgdd: TDataSetProvider
    DataSet = Cgdd
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 48
    Top = 158
  end
  object pAppSelect: TDataSetProvider
    DataSet = AppSelect
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 270
    Top = 6
  end
  object Cgshzb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.*,'
      'switch(CGLX=1,'#39#29616#27454#39', CGLX=2,'#39#35760#24080#39') as aCGLX,'
      'switch(FPLX=1,'#39#25910#25454#39', FPLX=2,'#39#26222#36890#21457#31080#39',FPLX=3,'#39#22686#20540#31246#21457#31080#39') as aFPLX,'
      'K.BH as aGYSBH, K.MC as aGYSMC,'
      'C.MC as aCKMC,'
      'S.MC as aSFKFSMC, H.MC as aZHMC'
      'from CGSHZB Z,GYS K,CK C, SFKFS S, ZH H,'
      'Z inner join K on Z.GYSID = K.ID,'
      'Z inner join C on Z.CKID = C.ID,'
      'Z left join S on Z.SFKFSID = S.ID,'
      'Z left join H on Z.ZHID = H.ID'
      'order by Z.DJBH'
      '')
    Left = 86
    Top = 166
    object CgshzbID: TIntegerField
      FieldName = 'ID'
    end
    object CgshzbDJBH: TStringField
      FieldName = 'DJBH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object CgshzbRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbGYSID: TIntegerField
      FieldName = 'GYSID'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbaGYSBH: TStringField
      FieldName = 'aGYSBH'
      ProviderFlags = []
      Size = 12
    end
    object CgshzbaGYSMC: TStringField
      FieldName = 'aGYSMC'
      ProviderFlags = []
    end
    object CgshzbCKID: TIntegerField
      FieldName = 'CKID'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbaCKMC: TStringField
      FieldName = 'aCKMC'
      ProviderFlags = []
      Size = 16
    end
    object CgshzbXSLX: TIntegerField
      FieldName = 'CGLX'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbaXSLX: TStringField
      DisplayWidth = 4
      FieldName = 'aCGLX'
      ProviderFlags = []
      Size = 255
    end
    object CgshzbSFKFSID: TSmallintField
      FieldName = 'SFKFSID'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbaSFKFSMC: TStringField
      FieldName = 'aSFKFSMC'
      ProviderFlags = []
      Size = 16
    end
    object CgshzbZHID: TSmallintField
      FieldName = 'ZHID'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbaZHMC: TStringField
      FieldName = 'aZHMC'
      ProviderFlags = []
    end
    object CgshzbPH: TStringField
      FieldName = 'PH'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbSKQX: TIntegerField
      FieldName = 'FKQX'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbFPLX: TIntegerField
      FieldName = 'FPLX'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbaFPLX: TStringField
      FieldName = 'aFPLX'
      ProviderFlags = []
      Size = 255
    end
    object CgshzbYWY: TStringField
      FieldName = 'YWY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object CgshzbJE: TFloatField
      FieldName = 'JE'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbYFJE3: TFloatField
      FieldName = 'YFJE'
      ProviderFlags = [pfInUpdate]
    end
    object CgshzbYFJE2: TFloatField
      FieldName = 'YFJE1'
      ProviderFlags = []
    end
    object CgshzbYFJE: TFloatField
      FieldName = 'MFJE'
      ProviderFlags = []
    end
    object CgshzbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object CgshzbCZY: TStringField
      FieldName = 'CZY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object Cgsh: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select M.*,'
      'H.BH as aBH, H.PM as aPM, H.DW as aDW '
      'from CGSH M, HP H, M inner join H on M.HPID=H.ID')
    Left = 116
    Top = 166
    object CgshZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object CgshHH: TIntegerField
      FieldName = 'HH'
    end
    object CgshRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end