dms.dfm

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

    object CgshCKID: TIntegerField
      FieldName = 'CKID'
      ProviderFlags = [pfInUpdate]
    end
    object CgshHPID: TIntegerField
      FieldName = 'HPID'
      ProviderFlags = [pfInUpdate]
    end
    object CgshaBH: TStringField
      FieldName = 'aBH'
      ProviderFlags = []
    end
    object CgshaPM: TStringField
      FieldName = 'aPM'
      ProviderFlags = []
      Size = 40
    end
    object CgshaDW: TStringField
      FieldName = 'aDW'
      ProviderFlags = []
      Size = 4
    end
    object CgshSL: TFloatField
      FieldName = 'SL'
      ProviderFlags = [pfInUpdate]
    end
    object CgshDJ: TFloatField
      FieldName = 'DJ'
      ProviderFlags = [pfInUpdate]
    end
    object CgshNSL: TFloatField
      FieldName = 'NSL'
      ProviderFlags = [pfInUpdate]
    end
    object CgshDDID: TIntegerField
      FieldName = 'DDID'
      ProviderFlags = [pfInUpdate]
    end
  end
  object CgddHelp: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.ID, Z.DJBH, Z.RQ, Z.JE, Z.JHRQ, '
      'G.BH AS aGYSBH, G.MC AS aGYSMC'
      'from CGDDZB Z,GYS G,Z inner join G on Z.GYSID=G.ID'
      'where not Z.ZT '
      'order by Z.DJBH;')
    Left = 34
    Top = 322
    object CgddHelpID: TIntegerField
      FieldName = 'ID'
    end
    object CgddHelpDJBH: TStringField
      FieldName = 'DJBH'
      Size = 12
    end
    object CgddHelpRQ: TDateField
      FieldName = 'RQ'
    end
    object CgddHelpJE: TFloatField
      FieldName = 'JE'
    end
    object CgddHelpJHRQ: TDateField
      FieldName = 'JHRQ'
    end
    object CgddHelpaGYSBH: TStringField
      FieldName = 'aGYSBH'
      Size = 12
    end
    object CgddHelpaGYSMC: TStringField
      FieldName = 'aGYSMC'
    end
  end
  object pCgshzb: TDataSetProvider
    DataSet = Cgshzb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 78
    Top = 158
  end
  object pCgsh: TDataSetProvider
    DataSet = Cgsh
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 108
    Top = 158
  end
  object pCgddHelp: TDataSetProvider
    DataSet = CgddHelp
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 26
    Top = 314
  end
  object Cgfkzb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.*,'
      'switch(FKLX=1,'#39#24212#20184#27454#39', FKLX=2,'#39#39044#20184#27454#39') as aFKLX,'
      'K.BH as aGYSBH, K.MC as aGYSMC,'
      'S.MC as aSFKFSMC, H.MC as aZHMC '
      'from CGFKZB Z, GYS K, SFKFS S, ZH H, '
      'Z inner join K on Z.GYSID = K.ID,'
      'Z inner join S on Z.SFKFSID = S.ID, '
      'Z inner join H on Z.ZHID = H.ID '
      'order by Z.DJBH')
    Left = 146
    Top = 166
    object CgfkzbID: TIntegerField
      FieldName = 'ID'
    end
    object CgfkzbDJBH: TStringField
      FieldName = 'DJBH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object CgfkzbRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbGYSID: TIntegerField
      FieldName = 'GYSID'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbaGYSBH: TStringField
      FieldName = 'aGYSBH'
      ProviderFlags = []
      Size = 12
    end
    object CgfkzbaGYSMC: TStringField
      FieldName = 'aGYSMC'
      ProviderFlags = []
    end
    object CgfkzbFKLX: TIntegerField
      FieldName = 'FKLX'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbaFKLX: TStringField
      FieldName = 'aFKLX'
      ProviderFlags = []
      Size = 255
    end
    object CgfkzbSFKFSID: TSmallintField
      FieldName = 'SFKFSID'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbaSFKFSMC: TStringField
      FieldName = 'aSFKFSMC'
      ProviderFlags = []
      Size = 16
    end
    object CgfkzbZHID: TSmallintField
      FieldName = 'ZHID'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbaZHMC: TStringField
      FieldName = 'aZHMC'
      ProviderFlags = []
    end
    object CgfkzbPH: TStringField
      FieldName = 'PH'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbSYJY: TBooleanField
      FieldName = 'SYJY'
    end
    object CgfkzbJE: TFloatField
      FieldName = 'JE'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbJEA: TFloatField
      FieldName = 'JEA'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbJEB: TFloatField
      FieldName = 'JEB'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkzbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object CgfkzbCZY: TStringField
      FieldName = 'CZY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object pCgfkzb: TDataSetProvider
    DataSet = Cgfkzb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 138
    Top = 158
  end
  object Cgfk: TADOQuery
    AutoCalcFields = False
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select M.*,'
      'D.DJBH as aDDBH, D.RQ as aDDRQ, D.JE as aDDJE, '
      'D.YFJE as aYFJE, D.JE - D.YFJE as aMFJE '
      'from CGFK M, CGSHZB D, M inner join D on M.DDID=D.ID')
    Left = 176
    Top = 166
    object CgfkZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object CgfkHH: TIntegerField
      FieldName = 'HH'
    end
    object CgfkRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkDDID: TIntegerField
      FieldName = 'DDID'
      ProviderFlags = [pfInUpdate]
    end
    object CgfkaDDBH: TStringField
      FieldName = 'aDDBH'
      ProviderFlags = []
      Size = 12
    end
    object CgfkaDDRQ: TDateField
      FieldName = 'aDDRQ'
      ProviderFlags = []
    end
    object CgfkaDDJE: TFloatField
      FieldName = 'aDDJE'
      ProviderFlags = []
    end
    object CgfkaYFJE: TFloatField
      FieldName = 'aYFJE'
      ProviderFlags = []
    end
    object CgfkaMFJE: TFloatField
      FieldName = 'aMFJE'
      ProviderFlags = []
    end
    object CgfkJE: TFloatField
      FieldName = 'JE'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pCgfk: TDataSetProvider
    DataSet = Cgfk
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 168
    Top = 158
  end
  object ADOQuery3: TADOQuery
    Connection = Cn1
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from ')
    Left = 486
    Top = 14
  end
  object DataSetProvider3: TDataSetProvider
    DataSet = ADOQuery3
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 478
    Top = 6
  end
  object Cgthzb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.*,'
      'switch(THLX=1,'#39#20379#24212#21830#36864#29616#27454#39', THLX=2,'#39#36864#27454#36716#20837#39044#20184#27454#39') as aTHLX,'
      'K.BH as aGYSBH, K.MC as aGYSMC,'
      'C.MC as aCKMC,S.MC as aSFKFSMC, H.MC as aZHMC '
      'from CGTHZB 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 inner join S on Z.SFKFSID = S.ID, '
      'Z inner join H on Z.ZHID = H.ID '
      'order by Z.DJBH')
    Left = 206
    Top = 166
    object CgthzbID: TIntegerField
      FieldName = 'ID'
    end
    object CgthzbDJBH: TStringField
      FieldName = 'DJBH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object CgthzbRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object CgthzbGYSID: TIntegerField
      FieldName = 'GYSID'
      ProviderFlags = [pfInUpdate]
    end
    object CgthzbaGYSBH: TStringField
      FieldName = 'aGYSBH'
      ProviderFlags = []
      Size = 12
    end
    object CgthzbaGYSMC: TStringField
      FieldName = 'aGYSMC'
      ProviderFlags = []
    end
    object CgthzbCKID: TIntegerField
      FieldName = 'CKID'
      ProviderFlags = [pfInUpdate]
    end
    object CgthzbaCKMC: TStringField
      FieldName = 'aCKMC'
      ProviderFlags = []
      Size = 16
    end
    object CgthzbTHLX: TIntegerField
      FieldName = 'THLX'
      ProviderFlags = [pfInUpdate]
    end
    object CgthzbaTHLX: TStringField
      FieldName = 'aTHLX'
      ProviderFlags = []
      Size = 16
    end
    object CgthzbSFKFSID: TSmallintField
      FieldName = 'SFKFSID'
      ProviderFlags = [pfInUpdate]
    end
    object CgthzbaSFKFSMC: TStringField
      FieldName = 'aSFKFSMC'
      ProviderFlags = []
      Size = 16
    end
    object CgthzbZHID: TSmallintField
      FieldName = 'ZHID'
      ProviderFlags = [pfInUpdate]
    end
    object CgthzbaZHMC: TStringField
      FieldName = 'aZHMC'
      ProviderFlags = []
    end
    object CgthzbPH: TStringField
      FieldName = 'PH'
      ProviderFlags = [pfInUpdate]
    end
    object CgthzbYWY: TStringField
      FieldName = 'YWY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object CgthzbJE: TFloatField
      FieldName = 'JE'
      ProviderFlags = [pfInUpdate]
    end
    object CgthzbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object CgthzbCZY: TStringField
      FieldName = 'CZY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object Cgth: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select M.*,'
      'H.BH as aBH, H.PM as aPM, H.DW as aDW '
      'from CGTH M, HP H, M inner join H on M.HPID=H.ID')
    Left = 236
    Top = 166
    object CgthZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object CgthHH: TIntegerField
      FieldName = 'HH'
    end
    object CgthRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object CgthCKID: TIntegerField
      FieldName = 'CKID'
      ProviderFlags = [pfInUpdate]
    end
    object CgthHPID: TIntegerField
      FieldName = 'HPID'
      ProviderFlags = [pfInUpdate]
    end
    object CgthaBH: TStringField
      FieldName = 'aBH'
      ProviderFlags = []
    end
    object CgthaPM: TStringField
      FieldName = 'aPM'
      ProviderFlags = []
      Size = 40
    end
    object CgthaDW: TStringField
      FieldName = 'aDW'
      ProviderFlags = []
      Size = 4
    end
    object CgthSL: TFloatField
      FieldName = 'SL'
      ProviderFlags = [pfInUpdate]
    end
    object CgthDJ: TFloatField
      FieldName = 'DJ'
      ProviderFlags = [pfInUpdate]
    end
    object CgthNSL: TFloatField
      FieldName = 'NSL'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pCgthzb: TDataSetProvider
    DataSet = Cgthzb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 198
    Top = 158
  end
  object pCgth: TDataSetProvider
    DataSet = Cgth
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 228
    Top = 158
  end
  object Xsddzb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.*,iif(Z.ZT,'#39#26159#39','#39#21542#39') as aZT,'
      'K.BH as aKHBH, K.MC as aKHMC '
      'from CGDDZB Z,KH K,Z inner join K on Z.GYSID = K.ID '
      'order by Z.DJBH')
    Left = 266
    Top = 166
    object XsddzbID: TIntegerField
      FieldName = 'ID'
    end
    object XsddzbDJBH: TStringField
      FieldName = 'DJBH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object XsddzbRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object XsddzbGYSID: TIntegerField
      FieldName = 'KHID'
      ProviderFlags = [pfInUpdate]
    end
    object XsddzbaKHBH: TStringField
      FieldName = 'aKHBH'
      ProviderFlags = []
      Size = 12
    end
    object XsddzbaKHMC: TStringField
      FieldName = 'aKHMC'
      ProviderFlags = []
    end
    object XsddzbJHRQ: TDateField
      FieldName = 'JHRQ'
      ProviderFlags = [pfInUpdate]
    end
    object XsddzbJHDD: TStringField
      FieldName = 'JHDD'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object XsddzbYWY: TStringField
      FieldName = 'YWY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object XsddzbJE: TFloatField
      FieldName = 'JE'
      ProviderFlags = [pfInUpdate]
    end
    object XsddzbZT: TBooleanField