dltxpllr.dfm

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

        '   LTXSJ, LTXYY, LTXQJBGZ, TBJT, JHLJT, TQTXYS, TSGZYS, GKJXGZYS' +
        ', YDYHGZYS, '
      
        '   TSGX, JHSY, LXYT, LSBT, JC, TSGWJFBL, GQZJBL, GG_85, GG_93, T' +
        'SGZYS_97, '
      
        '   HLF, GBJTF, TXFZE, DYBZ, BZ, YWZT, YZBM, LXDH, LXDZ, QSXM, QS' +
        'SFZH, QSGX, '
      '   QSLXDH, QSYB, QSLXDZ, JBR, JBRQ, SHR, SHRQ, KSFFSJ)'
      'values'
      
        '  (:RYID, :DYFFZZYF, :STJFNX, :KSJFSJ, :BZGZ_93, :GRZHZE_93, :JF' +
        'NX, :ZW, '
      
        '   :ZC, :LTLB, :LTXSJ, :LTXYY, :LTXQJBGZ, :TBJT, :JHLJT, :TQTXYS' +
        ', :TSGZYS, '
      
        '   :GKJXGZYS, :YDYHGZYS, :TSGX, :JHSY, :LXYT, :LSBT, :JC, :TSGWJ' +
        'FBL, :GQZJBL, '
      
        '   :GG_85, :GG_93, :TSGZYS_97, :HLF, :GBJTF, :TXFZE, :DYBZ, :BZ,' +
        ' :YWZT, '
      
        '   :YZBM, :LXDH, :LXDZ, :QSXM, :QSSFZH, :QSGX, :QSLXDH, :QSYB, :' +
        'QSLXDZ, '
      '   :JBR, :JBRQ, :SHR, :SHRQ, :KSFFSJ)')
    DeleteSQL.Strings = (
      'delete from tLTXJBXX'
      'where'
      '  RYID = :OLD_RYID')
    Left = 211
    Top = 8
  end
  object sqlLTXJBXX_JR: TUpdateSQL
    ModifySQL.Strings = (
      'update tLTXJBXX_JR'
      'set'
      '  RYID = :RYID,'
      '  SHBT93 = :SHBT93,'
      '  SHBT95 = :SHBT95,'
      '  SHBT97 = :SHBT97,'
      '  SQJT = :SQJT,'
      '  TQJT = :TQJT,'
      '  ZHJT = :ZHJT,'
      '  ZFJT = :ZFJT,'
      '  WJJT = :WJJT,'
      '  QEFFJE = :QEFFJE,'
      '  JLGZ = :JLGZ'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tLTXJBXX_JR'
      
        '  (RYID, SHBT93, SHBT95, SHBT97, SQJT, TQJT, ZHJT, ZFJT, WJJT, Q' +
        'EFFJE, '
      '   JLGZ)'
      'values'
      
        '  (:RYID, :SHBT93, :SHBT95, :SHBT97, :SQJT, :TQJT, :ZHJT, :ZFJT,' +
        ' :WJJT, '
      '   :QEFFJE, :JLGZ)')
    DeleteSQL.Strings = (
      'delete from tLTXJBXX_JR'
      'where'
      '  RYID = :OLD_RYID')
    Left = 211
    Top = 59
  end
  object souXB: TDataSource
    DataSet = qryXB
    Left = 19
    Top = 266
  end
  object qryXB: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'XB'#39)
    Left = 67
    Top = 266
  end
  object souYGXS: TDataSource
    DataSet = qryYGXS
    Left = 147
    Top = 266
  end
  object qryYGXS: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tdmb'
      'where zdbz='#39'YGXS'#39)
    Left = 195
    Top = 266
  end
  object souRYZT: TDataSource
    DataSet = qryRYZT
    Left = 271
    Top = 266
  end
  object qryRYZT: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tdmb'
      'where zdbz='#39'RYZT'#39)
    Left = 317
    Top = 265
  end
  object souDWDM: TDataSource
    DataSet = qryDWID
    Left = 384
    Top = 266
  end
  object qryDWID: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select dwid,dwdm,dwmc from tDWXX')
    Left = 432
    Top = 266
  end
  object souLTLB: TDataSource
    DataSet = qryLTLB
    Left = 27
    Top = 346
  end
  object qryLTLB: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'LTLB'#39)
    Left = 73
    Top = 346
  end
  object souDYBZ: TDataSource
    DataSet = qryDYBZ
    Left = 276
    Top = 346
  end
  object qryDYBZ: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'DYBZ'#39)
    Left = 325
    Top = 345
  end
  object souLTXYY: TDataSource
    DataSet = qryLTXYY
    Left = 387
    Top = 346
  end
  object qryLTXYY: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'LTXYY'#39)
    Left = 433
    Top = 346
  end
  object souZW: TDataSource
    DataSet = qryZW
    Left = 147
    Top = 346
  end
  object qryZW: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'ZW'#39)
    Left = 188
    Top = 346
  end
  object souGG_93: TDataSource
    DataSet = qryGG_93
    Left = 32
    Top = 416
  end
  object qryGG_93: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'GG_93'#39)
    Left = 88
    Top = 416
  end
  object souGG_85: TDataSource
    DataSet = qryGG_85
    Left = 160
    Top = 416
  end
  object qryGG_85: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'GG_85'#39)
    Left = 216
    Top = 416
  end
  object souZC: TDataSource
    DataSet = qryZC
    Left = 280
    Top = 416
  end
  object qryZC: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'ZC'#39)
    Left = 320
    Top = 416
  end
  object souLTXJBXX_DL: TDataSource
    DataSet = qryLTXJBXX_DL
    OnStateChange = souLTXJBXX_DLStateChange
    Left = 48
    Top = 107
  end
  object qryLTXJBXX_DL: TwwQuery
    CachedUpdates = True
    AfterInsert = qryLTXJBXX_DLAfterInsert
    DatabaseName = 'MainDB'
    DataSource = frmLTXPLLR.souTemp
    SQL.Strings = (
      'select * from tLTXJBXX_DL'
      'where RYID=:RYID')
    UpdateObject = sqlLTXJBXX_DL
    ValidateWithMask = True
    Left = 131
    Top = 104
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryLTXJBXX_DLRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TLTXJBXX_DL.RYID'
      FixedChar = True
      Size = 10
    end
    object qryLTXJBXX_DLSHBT95: TFloatField
      DisplayLabel = '95年增加离休费'
      FieldName = 'SHBT95'
      Origin = 'MAINDB.TLTXJBXX_DL.SHBT95'
    end
    object qryLTXJBXX_DLSHBT97: TFloatField
      DisplayLabel = '97年增加离休费'
      FieldName = 'SHBT97'
      Origin = 'MAINDB.TLTXJBXX_DL.SHBT97'
    end
    object qryLTXJBXX_DLTZYLJ97: TFloatField
      DisplayLabel = '97年调整养老金'
      FieldName = 'TZYLJ97'
      Origin = 'MAINDB.TLTXJBXX_DL.TZYLJ97'
    end
    object qryLTXJBXX_DLLMJT: TFloatField
      DisplayLabel = '劳模荣誉津贴'
      FieldName = 'LMJT'
      Origin = 'MAINDB.TLTXJBXX_DL.LMJT'
    end
    object qryLTXJBXX_DLGJGZ94: TFloatField
      DisplayLabel = '94年底岗位技能工资'
      FieldName = 'GJGZ94'
      Origin = 'MAINDB.TLTXJBXX_DL.GJGZ94'
    end
    object qryLTXJBXX_DLGRZHCCE: TFloatField
      DisplayLabel = '退休时个人帐户储存额(本息之和)'
      FieldName = 'GRZHCCE'
      Origin = 'MAINDB.TLTXJBXX_DL.GRZHCCE'
    end
    object qryLTXJBXX_DLGRJF: TFloatField
      DisplayLabel = '个人帐户储存额中个人缴费部分'
      FieldName = 'GRJF'
      Origin = 'MAINDB.TLTXJBXX_DL.GRJF'
    end
    object qryLTXJBXX_DLTZYLJ94: TFloatField
      DisplayLabel = '94年调整养老金'
      FieldName = 'TZYLJ94'
      Origin = 'MAINDB.TLTXJBXX_DL.TZYLJ94'
    end
    object qryLTXJBXX_DLTZXS: TFloatField
      DisplayLabel = '调整系数'
      FieldName = 'TZXS'
      Origin = 'MAINDB.TLTXJBXX_DL.TZXS'
    end
  end
  object sqlLTXJBXX_DL: TUpdateSQL
    ModifySQL.Strings = (
      'update tLTXJBXX_DL'
      'set'
      '  RYID = :RYID,'
      '  TZYLJ94 = :TZYLJ94,'
      '  SHBT95 = :SHBT95,'
      '  SHBT97 = :SHBT97,'
      '  TZYLJ97 = :TZYLJ97,'
      '  LMJT = :LMJT,'
      '  GJGZ94 = :GJGZ94,'
      '  GRZHCCE = :GRZHCCE,'
      '  GRJF = :GRJF,'
      '  TZXS = :TZXS'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tLTXJBXX_DL'
      
        '  (RYID, TZYLJ94, SHBT95, SHBT97, TZYLJ97, LMJT, GJGZ94, GRZHCCE' +
        ', GRJF, '
      '   TZXS)'
      'values'
      
        '  (:RYID, :TZYLJ94, :SHBT95, :SHBT97, :TZYLJ97, :LMJT, :GJGZ94, ' +
        ':GRZHCCE, '
      '   :GRJF, :TZXS)')
    DeleteSQL.Strings = (
      'delete from tLTXJBXX_DL'
      'where'
      '  RYID = :OLD_RYID')
    Left = 211
    Top = 107
  end
  object souLYXJBXX_MH: TDataSource
    DataSet = qryLTXJBXX_MH
    OnStateChange = souLYXJBXX_MHStateChange
    Left = 48
    Top = 153
  end
  object qryLTXJBXX_MH: TwwQuery
    CachedUpdates = True
    AfterInsert = qryLTXJBXX_MHAfterInsert
    DatabaseName = 'MainDB'
    DataSource = frmLTXPLLR.souTemp
    SQL.Strings = (
      'select * from tLTXJBXX_MH'
      'where RYID=:RYID')
    UpdateObject = sqlLTXJBXX_MH
    ValidateWithMask = True
    Left = 131
    Top = 153
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryLTXJBXX_MHRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TLTXJBXX_MH.RYID'
      FixedChar = True
      Size = 10
    end
    object qryLTXJBXX_MHTFBZ: TFloatField
      DisplayLabel = '停飞生活补助'
      FieldName = 'TFBZ'
      Origin = 'MAINDB.TLTXJBXX_MH.TFBZ'
    end
    object qryLTXJBXX_MHLHBL: TFloatField
      DisplayLabel = '参加"两航"起义增加比例'
      FieldName = 'LHBL'
      Origin = 'MAINDB.TLTXJBXX_MH.LHBL'
    end
  end
  object sqlLTXJBXX_MH: TUpdateSQL
    ModifySQL.Strings = (
      'update tLTXJBXX_MH'
      'set'
      '  RYID = :RYID,'
      '  TFBZ = :TFBZ,'
      '  LHBL = :LHBL'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tLTXJBXX_MH'
      '  (RYID, TFBZ, LHBL)'
      'values'
      '  (:RYID, :TFBZ, :LHBL)')
    DeleteSQL.Strings = (
      'delete from tLTXJBXX_MH'
      'where'
      '  RYID = :OLD_RYID')
    Left = 219
    Top = 153
  end
  object souLTXJBXX_SY: TDataSource
    DataSet = qryLTXJBXX_SY
    OnStateChange = souLTXJBXX_SYStateChange
    Left = 48