dltxpllr.dfm

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

    Top = 204
  end
  object qryLTXJBXX_SY: TwwQuery
    CachedUpdates = True
    AfterInsert = qryLTXJBXX_SYAfterInsert
    DatabaseName = 'MainDB'
    DataSource = frmLTXPLLR.souTemp
    SQL.Strings = (
      'select * from tLTXJBXX_SY'
      'where RYID=:RYID')
    UpdateObject = sqlLTXJBXX_SY
    ValidateWithMask = True
    Left = 131
    Top = 201
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryLTXJBXX_SYRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TLTXJBXX_SY.RYID'
      FixedChar = True
    end
    object qryLTXJBXX_SYGSHLF: TFloatField
      DisplayLabel = '工伤护理费'
      FieldName = 'GSHLF'
      Origin = 'MAINDB.TLTXJBXX_SY.GSHLF'
    end
    object qryLTXJBXX_SYSHBT93_1: TFloatField
      DisplayLabel = '93年增发生活补贴(1)'
      FieldName = 'SHBT93_1'
      Origin = 'MAINDB.TLTXJBXX_SY.SHBT93_1'
    end
    object qryLTXJBXX_SYSHBT93_2: TFloatField
      DisplayLabel = '93年增发生活补贴(2)'
      FieldName = 'SHBT93_2'
      Origin = 'MAINDB.TLTXJBXX_SY.SHBT93_2'
    end
    object qryLTXJBXX_SYSHBT94: TFloatField
      DisplayLabel = '94年增发生活补贴'
      FieldName = 'SHBT94'
      Origin = 'MAINDB.TLTXJBXX_SY.SHBT94'
    end
    object qryLTXJBXX_SYSHBT95: TFloatField
      DisplayLabel = '95年增发生活补贴'
      FieldName = 'SHBT95'
      Origin = 'MAINDB.TLTXJBXX_SY.SHBT95'
    end
    object qryLTXJBXX_SYSHBT96: TFloatField
      DisplayLabel = '96年增发生活补贴'
      FieldName = 'SHBT96'
      Origin = 'MAINDB.TLTXJBXX_SY.SHBT96'
    end
    object qryLTXJBXX_SYSHBT97: TFloatField
      DisplayLabel = '97年增发生活补贴'
      FieldName = 'SHBT97'
      Origin = 'MAINDB.TLTXJBXX_SY.SHBT97'
    end
    object qryLTXJBXX_SYSHBT98: TFloatField
      DisplayLabel = '98年离退休费调整'
      FieldName = 'SHBT98'
      Origin = 'MAINDB.TLTXJBXX_SY.SHBT98'
    end
    object qryLTXJBXX_SYQEFFJE: TFloatField
      DisplayLabel = '全额发放金额'
      FieldName = 'QEFFJE'
      Origin = 'MAINDB.TLTXJBXX_SY.QEFFJE'
    end
  end
  object sqlLTXJBXX_SY: TUpdateSQL
    ModifySQL.Strings = (
      'update tLTXJBXX_SY'
      'set'
      '  RYID = :RYID,'
      '  GSHLF = :GSHLF,'
      '  SHBT93_1 = :SHBT93_1,'
      '  SHBT93_2 = :SHBT93_2,'
      '  SHBT94 = :SHBT94,'
      '  SHBT95 = :SHBT95,'
      '  SHBT96 = :SHBT96,'
      '  SHBT97 = :SHBT97,'
      '  SHBT98 = :SHBT98,'
      '  QEFFJE = :QEFFJE'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tLTXJBXX_SY'
      
        '  (RYID, GSHLF, SHBT93_1, SHBT93_2, SHBT94, SHBT95, SHBT96, SHBT' +
        '97, SHBT98, '
      '   QEFFJE)'
      'values'
      
        '  (:RYID, :GSHLF, :SHBT93_1, :SHBT93_2, :SHBT94, :SHBT95, :SHBT9' +
        '6, :SHBT97, '
      '   :SHBT98, :QEFFJE)')
    DeleteSQL.Strings = (
      'delete from tLTXJBXX_SY'
      'where'
      '  RYID = :OLD_RYID')
    Left = 215
    Top = 201
  end
  object souLTXJBXX_JT: TDataSource
    DataSet = qryLTXJBXX_JT
    OnStateChange = souLTXJBXX_JTStateChange
    Left = 331
    Top = 4
  end
  object qryLTXJBXX_JT: TwwQuery
    CachedUpdates = True
    AfterInsert = qryLTXJBXX_JTAfterInsert
    DatabaseName = 'MainDB'
    DataSource = frmLTXPLLR.souTemp
    SQL.Strings = (
      'select * from tLTXJBXX_JT'
      'where RYID=:RYID')
    UpdateObject = sqlLTXJBXX_JT
    ValidateWithMask = True
    Left = 419
    Top = 4
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryLTXJBXX_JTRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TLTXJBXX_JT.RYID'
      FixedChar = True
      Size = 10
    end
    object qryLTXJBXX_JTBZGZ93: TFloatField
      DisplayLabel = '93年底档案标准工资'
      FieldName = 'BZGZ93'
      Origin = 'MAINDB.TLTXJBXX_JT.BZGZ93'
    end
  end
  object sqlLTXJBXX_JT: TUpdateSQL
    ModifySQL.Strings = (
      'update tLTXJBXX_JT'
      'set'
      '  RYID = :RYID,'
      '  BZGZ93 = :BZGZ93'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tLTXJBXX_JT'
      '  (RYID, BZGZ93)'
      'values'
      '  (:RYID, :BZGZ93)')
    DeleteSQL.Strings = (
      'delete from tLTXJBXX_JT'
      'where'
      '  RYID = :OLD_RYID')
    Left = 503
    Top = 4
  end
  object souLTXJBXX_YD: TDataSource
    DataSet = qryLTXJBXX_YD
    OnStateChange = souLTXJBXX_YDStateChange
    Left = 331
    Top = 68
  end
  object qryLTXJBXX_YD: TwwQuery
    CachedUpdates = True
    AfterInsert = qryLTXJBXX_YDAfterInsert
    DatabaseName = 'MainDB'
    DataSource = frmLTXPLLR.souTemp
    SQL.Strings = (
      'Select * from tLTXJBXX_YD'
      'where RYID=:RYID')
    UpdateObject = sqlLTXJBXX_YD
    ValidateWithMask = True
    Left = 419
    Top = 68
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryLTXJBXX_YDRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TLTXJBXX_YD.RYID'
      FixedChar = True
      Size = 10
    end
    object qryLTXJBXX_YDSHBT94: TFloatField
      DisplayLabel = '94增加生活补贴'
      FieldName = 'SHBT94'
      Origin = 'MAINDB.TLTXJBXX_YD.SHBT94'
    end
  end
  object sqlLTXJBXX_YD: TUpdateSQL
    ModifySQL.Strings = (
      'update tLTXJBXX_YD'
      'set'
      '  RYID = :RYID,'
      '  SHBT94 = :SHBT94'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tLTXJBXX_YD'
      '  (RYID, SHBT94)'
      'values'
      '  (:RYID, :SHBT94)')
    DeleteSQL.Strings = (
      'delete from tLTXJBXX_YD'
      'where'
      '  RYID = :OLD_RYID')
    Left = 503
    Top = 68
  end
  object souLTXJBXX_TD: TDataSource
    DataSet = qryLTXJBXX_TD
    OnStateChange = souLTXJBXX_TDStateChange
    Left = 331
    Top = 124
  end
  object qryLTXJBXX_TD: TwwQuery
    CachedUpdates = True
    AfterInsert = qryLTXJBXX_TDAfterInsert
    DatabaseName = 'MainDB'
    DataSource = frmLTXPLLR.souTemp
    SQL.Strings = (
      'Select * from tLTXJBXX_TD'
      'where RYID=:RYID')
    UpdateObject = sqlLTXJBXX_TD
    ValidateWithMask = True
    Left = 419
    Top = 132
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryLTXJBXX_TDRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TLTXJBXX_TD.RYID'
      FixedChar = True
      Size = 10
    end
    object qryLTXJBXX_TDSHBT94: TFloatField
      DisplayLabel = '94调整离退休金'
      FieldName = 'SHBT94'
      Origin = 'MAINDB.TLTXJBXX_TD.SHBT94'
    end
    object qryLTXJBXX_TDSHBT95: TFloatField
      DisplayLabel = '95调整养老金'
      FieldName = 'SHBT95'
      Origin = 'MAINDB.TLTXJBXX_TD.SHBT95'
    end
    object qryLTXJBXX_TDSHBT96: TFloatField
      DisplayLabel = '96调整养老金'
      FieldName = 'SHBT96'
      Origin = 'MAINDB.TLTXJBXX_TD.SHBT96'
    end
    object qryLTXJBXX_TDGRJFE: TFloatField
      DisplayLabel = '退休时个人缴费累计额'
      FieldName = 'GRJFE'
      Origin = 'MAINDB.TLTXJBXX_TD.GRJFE'
    end
    object qryLTXJBXX_TDTLTFBT: TFloatField
      DisplayLabel = '铁路特发补贴'
      FieldName = 'TLTFBT'
      Origin = 'MAINDB.TLTXJBXX_TD.TLTFBT'
    end
    object qryLTXJBXX_TDBGBL: TFloatField
      DisplayLabel = '参加"二、七"罢工增加比例'
      FieldName = 'BGBL'
      Origin = 'MAINDB.TLTXJBXX_TD.BGBL'
    end
    object qryLTXJBXX_TDJNGZ: TFloatField
      FieldName = 'JNGZ'
      Origin = 'MAINDB.TLTXJBXX_TD.JNGZ'
    end
    object qryLTXJBXX_TDDGBZ: TFloatField
      FieldName = 'DGBZ'
      Origin = 'MAINDB.TLTXJBXX_TD.DGBZ'
    end
  end
  object sqlLTXJBXX_TD: TUpdateSQL
    ModifySQL.Strings = (
      'update tLTXJBXX_TD'
      'set'
      '  RYID = :RYID,'
      '  SHBT94 = :SHBT94,'
      '  SHBT95 = :SHBT95,'
      '  SHBT96 = :SHBT96,'
      '  GRJFE = :GRJFE,'
      '  TLTFBT = :TLTFBT,'
      '  BGBL = :BGBL,'
      '  JNGZ = :JNGZ,'
      '  DGBZ = :DGBZ'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tLTXJBXX_TD'
      
        '  (RYID, SHBT94, SHBT95, SHBT96, GRJFE, TLTFBT, BGBL, JNGZ, DGBZ' +
        ')'
      'values'
      
        '  (:RYID, :SHBT94, :SHBT95, :SHBT96, :GRJFE, :TLTFBT, :BGBL, :JN' +
        'GZ, :DGBZ)')
    DeleteSQL.Strings = (
      'delete from tLTXJBXX_TD'
      'where'
      '  RYID = :OLD_RYID')
    Left = 503
    Top = 124
  end
  object souYSGX: TDataSource
    DataSet = qryYSGX
    Left = 384
    Top = 416
  end
  object qryYSGX: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'GX'#39)
    Left = 432
    Top = 416
  end
  object souTSGX: TDataSource
    DataSet = qryTSGX
    Left = 328
    Top = 184
  end
  object qryTSGX: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'TSGX'#39)
    Left = 384
    Top = 184
  end
  object souJHSY: TDataSource
    DataSet = qryJHSY
    Left = 448
    Top = 184
  end
  object qryJHSY: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'JHSY'#39)
    Left = 504
    Top = 184
  end
  object souLXYT: TDataSource
    DataSet = qryLXYT
    Left = 328
    Top = 232
  end
  object qryLXYT: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'LXYT'#39)
    Left = 376
    Top = 232
  end
  object souLSBT: TDataSource
    DataSet = qryLSBT
    Left = 464
    Top = 232
  end
  object qryLSBT: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'LSBT'#39)
    Left = 512
    Top = 232
  end
end