dms.dfm

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

      FieldName = 'ZT'
      ProviderFlags = [pfInUpdate]
    end
    object XsddzbaZT: TStringField
      FieldName = 'aZT'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 255
    end
    object XsddzbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object XsddzbCZY: TStringField
      FieldName = 'CZY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object pXsddzb: TDataSetProvider
    DataSet = Xsddzb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 258
    Top = 158
  end
  object Xsdd: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <
      item
        Name = 'aSHSL'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'select M.*,(select HH from CGDD where CGDD.ZBID=M.ZBID and CGDD.' +
        'HH=M.HH) as TMP,'
      'SL AS aYTSL,iif(M.SL>aSHSL,M.SL-aSHSL,0) as aMTSL, '
      '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 = 296
    Top = 166
    object XsddZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object XsddHH: TIntegerField
      FieldName = 'HH'
    end
    object XsddRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object XsddHPID: TIntegerField
      FieldName = 'HPID'
      ProviderFlags = [pfInUpdate]
    end
    object XsddaBH: TStringField
      FieldName = 'aBH'
      ProviderFlags = []
    end
    object XsddaPM: TStringField
      FieldName = 'aPM'
      ProviderFlags = []
      Size = 40
    end
    object XsddaDW: TStringField
      FieldName = 'aDW'
      ProviderFlags = []
      Size = 4
    end
    object XsddSL: TFloatField
      FieldName = 'SL'
      ProviderFlags = [pfInUpdate]
    end
    object XsddDJ: TFloatField
      FieldName = 'DJ'
      ProviderFlags = [pfInUpdate]
    end
    object XsddNSL: TFloatField
      FieldName = 'NSL'
      ProviderFlags = [pfInUpdate]
    end
    object XsddaYTSL: TFloatField
      FieldName = 'aYTSL'
      ProviderFlags = []
    end
    object XsddaMTSL: TFloatField
      FieldName = 'aMTSL'
      ProviderFlags = []
    end
  end
  object pXsdd: TDataSetProvider
    DataSet = Xsdd
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 288
    Top = 158
  end
  object Xskdzb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.*,'
      'switch(XSLX=1,'#39#29616#27454#39', XSLX=2,'#39#35760#24080#39') as aXSLX,'
      '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 aKHBH, K.MC as aKHMC,'
      'C.MC as aCKMC,'
      'S.MC as aSFKFSMC, H.MC as aZHMC'
      'from XSKDZB Z,KH K,CK C, SFKFS S, ZH H,'
      'Z inner join K on Z.KHID = 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 = 326
    Top = 166
    object XskdzbID: TIntegerField
      FieldName = 'ID'
    end
    object XskdzbDJBH: TStringField
      FieldName = 'DJBH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object XskdzbRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbKHID: TIntegerField
      FieldName = 'KHID'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbaKHBH: TStringField
      FieldName = 'aKHBH'
      ProviderFlags = []
      Size = 12
    end
    object XskdzbaKHMC: TStringField
      FieldName = 'aKHMC'
      ProviderFlags = []
    end
    object XskdzbCKID: TIntegerField
      FieldName = 'CKID'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbaCKMC: TStringField
      FieldName = 'aCKMC'
      ProviderFlags = []
      Size = 16
    end
    object XskdzbFKLX: TIntegerField
      FieldName = 'XSLX'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbaFKLX: TStringField
      DisplayWidth = 4
      FieldName = 'aXSLX'
      ProviderFlags = []
      Size = 255
    end
    object XskdzbSFKFSID: TSmallintField
      FieldName = 'SFKFSID'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbaSFKFSMC: TStringField
      FieldName = 'aSFKFSMC'
      ProviderFlags = []
      Size = 16
    end
    object XskdzbZHID: TSmallintField
      FieldName = 'ZHID'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbaZHMC: TStringField
      FieldName = 'aZHMC'
      ProviderFlags = []
    end
    object XskdzbPH: TStringField
      FieldName = 'PH'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbFPLX: TIntegerField
      FieldName = 'FPLX'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbaFPLX: TStringField
      FieldName = 'aFPLX'
      ProviderFlags = []
      Size = 255
    end
    object XskdzbYWY: TStringField
      FieldName = 'YWY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object XskdzbSKQX: TIntegerField
      FieldName = 'SKQX'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbJHDD: TStringField
      FieldName = 'JHDD'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object XskdzbJE: TFloatField
      FieldName = 'JE'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbYSJE3: TFloatField
      FieldName = 'YSJE'
      ProviderFlags = [pfInUpdate]
    end
    object XskdzbYSJE2: TFloatField
      FieldName = 'YSJE1'
      ProviderFlags = []
    end
    object XskdzbYSJE: TFloatField
      FieldName = 'MSJE'
      ProviderFlags = []
    end
    object XskdzbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object XskdzbCZY: TStringField
      FieldName = 'CZY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object Xskd: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select M.*,'
      'H.BH as aBH, H.PM as aPM, H.DW as aDW '
      'from XSKD M, HP H, M inner join H on M.HPID=H.ID')
    Left = 356
    Top = 166
    object XskdZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object XskdHH: TIntegerField
      FieldName = 'HH'
    end
    object XskdRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object XskdCKID: TIntegerField
      FieldName = 'CKID'
      ProviderFlags = [pfInUpdate]
    end
    object XskdHPID: TIntegerField
      FieldName = 'HPID'
      ProviderFlags = [pfInUpdate]
    end
    object XskdaBH: TStringField
      FieldName = 'aBH'
      ProviderFlags = []
    end
    object XskdaPM: TStringField
      FieldName = 'aPM'
      ProviderFlags = []
      Size = 40
    end
    object XskdaDW: TStringField
      FieldName = 'aDW'
      ProviderFlags = []
      Size = 4
    end
    object XskdSL: TFloatField
      FieldName = 'SL'
      ProviderFlags = [pfInUpdate]
    end
    object XskdDJ: TFloatField
      FieldName = 'DJ'
      ProviderFlags = [pfInUpdate]
    end
    object XskdCBDJ: TFloatField
      FieldName = 'CBDJ'
      ProviderFlags = [pfInUpdate]
    end
    object XskdNSL: TFloatField
      FieldName = 'NSL'
      ProviderFlags = [pfInUpdate]
    end
    object XskdDDID: TIntegerField
      FieldName = 'DDID'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pXskdzb: TDataSetProvider
    DataSet = Xskdzb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 318
    Top = 158
  end
  object pXskd: TDataSetProvider
    DataSet = Xskd
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 348
    Top = 158
  end
  object XsddHelp: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.ID, Z.DJBH, Z.RQ, Z.JE, Z.JHRQ, '
      'G.BH AS aKHBH, G.MC AS aKHMC'
      'from XSDDZB Z,KH G,Z inner join G on Z.KHID=G.ID'
      'where not Z.ZT '
      'order by Z.DJBH;')
    Left = 76
    Top = 322
    object XsddHelpID: TIntegerField
      FieldName = 'ID'
    end
    object XsddHelpDJBH: TStringField
      FieldName = 'DJBH'
      Size = 12
    end
    object XsddHelpRQ: TDateField
      FieldName = 'RQ'
    end
    object XsddHelpJE: TFloatField
      FieldName = 'JE'
    end
    object XsddHelpJHRQ: TDateField
      FieldName = 'JHRQ'
    end
    object XsddHelpaKHBH: TStringField
      FieldName = 'aKHBH'
      Size = 12
    end
    object XsddHelpaKHMC: TStringField
      FieldName = 'aKHMC'
    end
  end
  object pXsddHelp: TDataSetProvider
    DataSet = XsddHelp
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 68
    Top = 314
  end
  object Xsskzb: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select Z.*,'
      'switch(FKLX=1,'#39#24212#25910#27454#39', FKLX=2,'#39#39044#25910#27454#39') as aFKLX,'
      'K.BH as aKHBH, K.MC as aKHMC,'
      'S.MC as aSFKFSMC, H.MC as aZHMC '
      'from XSSKZB Z, KH K, SFKFS S, ZH H, '
      'Z inner join K on Z.KHID = 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 = 386
    Top = 166
    object XsskzbID: TIntegerField
      FieldName = 'ID'
    end
    object XsskzbDJBH: TStringField
      FieldName = 'DJBH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object XsskzbRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbKHID: TIntegerField
      FieldName = 'KHID'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbaKHBH: TStringField
      FieldName = 'aKHBH'
      ProviderFlags = []
      Size = 12
    end
    object XsskzbaKHMC: TStringField
      FieldName = 'aKHMC'
      ProviderFlags = []
    end
    object XsskzbFKLX: TIntegerField
      FieldName = 'FKLX'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbaFKLX: TStringField
      FieldName = 'aFKLX'
      ProviderFlags = []
      Size = 255
    end
    object XsskzbSFKFSID: TSmallintField
      FieldName = 'SFKFSID'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbaSFKFSMC: TStringField
      FieldName = 'aSFKFSMC'
      ProviderFlags = []
      Size = 16
    end
    object XsskzbZHID: TSmallintField
      FieldName = 'ZHID'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbaZHMC: TStringField
      FieldName = 'aZHMC'
      ProviderFlags = []
    end
    object XsskzbPH: TStringField
      FieldName = 'PH'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbSYJY: TBooleanField
      FieldName = 'SYJY'
    end
    object XsskzbJE: TFloatField
      FieldName = 'JE'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbJEA: TFloatField
      FieldName = 'JEA'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbJEB: TFloatField
      FieldName = 'JEB'
      ProviderFlags = [pfInUpdate]
    end
    object XsskzbBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object XsskzbCZY: TStringField
      FieldName = 'CZY'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object pXsskzb: TDataSetProvider
    DataSet = Xsskzb
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 378
    Top = 158
  end
  object Xssk: TADOQuery
    AutoCalcFields = False
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select M.*,'
      'D.DJBH as aDDBH, D.RQ+D.SKQX as aSKQX, D.JE as aDDJE, '
      'D.YSJE as aYSJE, D.JE - D.YSJE as aMSJE '
      'from XSSK M, XSKDZB D, M inner join D on M.DDID=D.ID')
    Left = 416
    Top = 166
    object XsskZBID2: TIntegerField
      FieldName = 'ZBID'
    end
    object XsskHH: TIntegerField
      FieldName = 'HH'
    end
    object XsskRQ: TDateField
      FieldName = 'RQ'
      ProviderFlags = [pfInUpdate]
    end
    object XsskDDID: TIntegerField
      FieldName = 'DDID'
      ProviderFlags = [pfInUpdate]
    end
    object XsskaDDBH: TStringField
      FieldName = 'aDDBH'
      ProviderFlags = []
      Size = 12
    end
    object XsskaSKQX: TDateField
      FieldName = '