dltxpllr.dfm

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

object dfmLTXPLLR: TdfmLTXPLLR
  OldCreateOrder = False
  Left = 182
  Top = 148
  Height = 512
  Width = 730
  object souLTXJBXX: TDataSource
    DataSet = qryLTXJBXX
    OnStateChange = souLTXJBXXStateChange
    OnDataChange = souLTXJBXXDataChange
    Left = 48
    Top = 8
  end
  object souLTXJBXX_JR: TDataSource
    DataSet = qryLTXJBXX_JR
    OnStateChange = souLTXJBXX_JRStateChange
    Left = 48
    Top = 59
  end
  object qryLTXJBXX: TwwQuery
    CachedUpdates = True
    BeforeInsert = qryLTXJBXXBeforeInsert
    AfterInsert = qryLTXJBXXAfterInsert
    AutoRefresh = True
    DatabaseName = 'MainDB'
    DataSource = frmLTXPLLR.souTemp
    SQL.Strings = (
      'select * from tLTXJBXX'
      'where RYID=:RYID')
    UpdateObject = sqlLTXJBXX
    ValidateWithMask = True
    Left = 131
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryLTXJBXXRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TLTXJBXX.RYID'
      FixedChar = True
      Size = 10
    end
    object qryLTXJBXXDYFFZZYF: TDateTimeField
      FieldName = 'DYFFZZYF'
      Origin = 'MAINDB.TLTXJBXX.DYFFZZYF'
    end
    object qryLTXJBXXSTJFNX: TFloatField
      FieldName = 'STJFNX'
      Origin = 'MAINDB.TLTXJBXX.STJFNX'
    end
    object qryLTXJBXXKSJFSJ: TDateTimeField
      FieldName = 'KSJFSJ'
      Origin = 'MAINDB.TLTXJBXX.KSJFSJ'
    end
    object qryLTXJBXXBZGZ_93: TFloatField
      FieldName = 'BZGZ_93'
      Origin = 'MAINDB.TLTXJBXX.BZGZ_93'
    end
    object qryLTXJBXXGRZHZE_93: TFloatField
      FieldName = 'GRZHZE_93'
      Origin = 'MAINDB.TLTXJBXX.GRZHZE_93'
    end
    object qryLTXJBXXJFNX: TFloatField
      FieldName = 'JFNX'
      Origin = 'MAINDB.TLTXJBXX.JFNX'
    end
    object qryLTXJBXXZW: TFloatField
      FieldName = 'ZW'
      Origin = 'MAINDB.TLTXJBXX.ZW'
    end
    object qryLTXJBXXZC: TFloatField
      FieldName = 'ZC'
      Origin = 'MAINDB.TLTXJBXX.ZC'
    end
    object qryLTXJBXXLTLB: TFloatField
      FieldName = 'LTLB'
      Origin = 'MAINDB.TLTXJBXX.LTLB'
    end
    object qryLTXJBXXLTXSJ: TDateTimeField
      FieldName = 'LTXSJ'
      Origin = 'MAINDB.TLTXJBXX.LTXSJ'
    end
    object qryLTXJBXXLTXYY: TFloatField
      FieldName = 'LTXYY'
      Origin = 'MAINDB.TLTXJBXX.LTXYY'
    end
    object qryLTXJBXXLTXQJBGZ: TFloatField
      FieldName = 'LTXQJBGZ'
      Origin = 'MAINDB.TLTXJBXX.LTXQJBGZ'
    end
    object qryLTXJBXXTBJT: TFloatField
      FieldName = 'TBJT'
      Origin = 'MAINDB.TLTXJBXX.TBJT'
    end
    object qryLTXJBXXJHLJT: TFloatField
      FieldName = 'JHLJT'
      Origin = 'MAINDB.TLTXJBXX.JHLJT'
    end
    object qryLTXJBXXTQTXYS: TFloatField
      FieldName = 'TQTXYS'
      Origin = 'MAINDB.TLTXJBXX.TQTXYS'
    end
    object qryLTXJBXXTSGZYS: TFloatField
      DisplayLabel = '高空和重体力工种月数'
      FieldName = 'TSGZYS'
      Origin = 'MAINDB.TLTXJBXX.TSGZYS'
    end
    object qryLTXJBXXTSGX: TFloatField
      FieldName = 'TSGX'
      Origin = 'MAINDB.TLTXJBXX.TSGX'
    end
    object qryLTXJBXXJHSY: TFloatField
      FieldName = 'JHSY'
      Origin = 'MAINDB.TLTXJBXX.JHSY'
    end
    object qryLTXJBXXLXYT: TFloatField
      FieldName = 'LXYT'
      Origin = 'MAINDB.TLTXJBXX.LXYT'
    end
    object qryLTXJBXXLSBT: TFloatField
      FieldName = 'LSBT'
      Origin = 'MAINDB.TLTXJBXX.LSBT'
    end
    object qryLTXJBXXJC: TFloatField
      FieldName = 'JC'
      Origin = 'MAINDB.TLTXJBXX.JC'
    end
    object qryLTXJBXXTSGWJFBL: TFloatField
      FieldName = 'TSGWJFBL'
      Origin = 'MAINDB.TLTXJBXX.TSGWJFBL'
    end
    object qryLTXJBXXGQZJBL: TFloatField
      FieldName = 'GQZJBL'
      Origin = 'MAINDB.TLTXJBXX.GQZJBL'
    end
    object qryLTXJBXXGG_85: TFloatField
      FieldName = 'GG_85'
      Origin = 'MAINDB.TLTXJBXX.GG_85'
    end
    object qryLTXJBXXGG_93: TFloatField
      FieldName = 'GG_93'
      Origin = 'MAINDB.TLTXJBXX.GG_93'
    end
    object qryLTXJBXXTSGZYS_97: TFloatField
      FieldName = 'TSGZYS_97'
      Origin = 'MAINDB.TLTXJBXX.TSGZYS_97'
    end
    object qryLTXJBXXHLF: TFloatField
      FieldName = 'HLF'
      Origin = 'MAINDB.TLTXJBXX.HLF'
    end
    object qryLTXJBXXGBJTF: TFloatField
      FieldName = 'GBJTF'
      Origin = 'MAINDB.TLTXJBXX.GBJTF'
    end
    object qryLTXJBXXTXFZE: TFloatField
      FieldName = 'TXFZE'
      Origin = 'MAINDB.TLTXJBXX.TXFZE'
    end
    object qryLTXJBXXDYBZ: TFloatField
      FieldName = 'DYBZ'
      Origin = 'MAINDB.TLTXJBXX.DYBZ'
    end
    object qryLTXJBXXBZ: TStringField
      FieldName = 'BZ'
      Origin = 'MAINDB.TLTXJBXX.BZ'
      Size = 80
    end
    object qryLTXJBXXYWZT: TFloatField
      FieldName = 'YWZT'
      Origin = 'MAINDB.TLTXJBXX.YWZT'
    end
    object qryLTXJBXXJBR: TStringField
      FieldName = 'JBR'
      Origin = 'MAINDB.TLTXJBXX.JBR'
      Size = 10
    end
    object qryLTXJBXXJBRQ: TDateTimeField
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TLTXJBXX.JBRQ'
    end
    object qryLTXJBXXSHR: TStringField
      FieldName = 'SHR'
      Origin = 'MAINDB.TLTXJBXX.SHR'
      Size = 10
    end
    object qryLTXJBXXSHRQ: TDateTimeField
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TLTXJBXX.SHRQ'
    end
    object qryLTXJBXXGKJXGZYS: TFloatField
      DisplayLabel = '井下和高低温工种月数'
      FieldName = 'GKJXGZYS'
      Origin = 'MAINDB.TLTXJBXX.GKJXGZYS'
    end
    object qryLTXJBXXYDYHGZYS: TFloatField
      DisplayLabel = '有毒有害工种月数'
      FieldName = 'YDYHGZYS'
      Origin = 'MAINDB.TLTXJBXX.YDYHGZYS'
    end
    object qryLTXJBXXYZBM: TStringField
      DisplayLabel = '邮政编码'
      FieldName = 'YZBM'
      Origin = 'MAINDB.TLTXJBXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryLTXJBXXLXDH: TStringField
      DisplayLabel = '联系电话'
      FieldName = 'LXDH'
      Origin = 'MAINDB.TLTXJBXX.LXDH'
    end
    object qryLTXJBXXLXDZ: TStringField
      DisplayLabel = '联系地址'
      FieldName = 'LXDZ'
      Origin = 'MAINDB.TLTXJBXX.LXDZ'
      Size = 100
    end
    object qryLTXJBXXQSXM: TStringField
      DisplayLabel = '亲属姓名'
      FieldName = 'QSXM'
      Origin = 'MAINDB.TLTXJBXX.QSXM'
      Size = 10
    end
    object qryLTXJBXXQSSFZH: TStringField
      DisplayLabel = '亲属身份证号'
      FieldName = 'QSSFZH'
      Origin = 'MAINDB.TLTXJBXX.QSSFZH'
      FixedChar = True
      Size = 18
    end
    object qryLTXJBXXQSGX: TFloatField
      DisplayLabel = '亲属关系'
      FieldName = 'QSGX'
      Origin = 'MAINDB.TLTXJBXX.QSGX'
    end
    object qryLTXJBXXQSLXDH: TStringField
      DisplayLabel = '亲属联系电话'
      FieldName = 'QSLXDH'
      Origin = 'MAINDB.TLTXJBXX.QSLXDH'
    end
    object qryLTXJBXXQSYB: TStringField
      DisplayLabel = '亲属邮编'
      FieldName = 'QSYB'
      Origin = 'MAINDB.TLTXJBXX.QSYB'
      FixedChar = True
      Size = 6
    end
    object qryLTXJBXXQSLXDZ: TStringField
      DisplayLabel = '亲属联系地址'
      FieldName = 'QSLXDZ'
      Origin = 'MAINDB.TLTXJBXX.QSLXDZ'
      Size = 100
    end
    object qryLTXJBXXKSFFSJ: TDateTimeField
      FieldName = 'KSFFSJ'
      Origin = 'MAINDB.TLTXJBXX.KSFFSJ'
    end
  end
  object qryLTXJBXX_JR: TwwQuery
    CachedUpdates = True
    AfterInsert = qryLTXJBXX_JRAfterInsert
    DatabaseName = 'MainDB'
    DataSource = frmLTXPLLR.souTemp
    SQL.Strings = (
      'select * from tLTXJBXX_JR'
      'where RYID=:RYID')
    UpdateObject = sqlLTXJBXX_JR
    ValidateWithMask = True
    Left = 131
    Top = 59
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryLTXJBXX_JRRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TLTXJBXX_JR.RYID'
      FixedChar = True
      Size = 10
    end
    object qryLTXJBXX_JRSHBT93: TFloatField
      FieldName = 'SHBT93'
      Origin = 'MAINDB.TLTXJBXX_JR.SHBT93'
    end
    object qryLTXJBXX_JRSHBT95: TFloatField
      FieldName = 'SHBT95'
      Origin = 'MAINDB.TLTXJBXX_JR.SHBT95'
    end
    object qryLTXJBXX_JRSHBT97: TFloatField
      FieldName = 'SHBT97'
      Origin = 'MAINDB.TLTXJBXX_JR.SHBT97'
    end
    object qryLTXJBXX_JRSQJT: TFloatField
      FieldName = 'SQJT'
      Origin = 'MAINDB.TLTXJBXX_JR.SQJT'
    end
    object qryLTXJBXX_JRTQJT: TFloatField
      FieldName = 'TQJT'
      Origin = 'MAINDB.TLTXJBXX_JR.TQJT'
    end
    object qryLTXJBXX_JRZHJT: TFloatField
      FieldName = 'ZHJT'
      Origin = 'MAINDB.TLTXJBXX_JR.ZHJT'
    end
    object qryLTXJBXX_JRZFJT: TFloatField
      FieldName = 'ZFJT'
      Origin = 'MAINDB.TLTXJBXX_JR.ZFJT'
    end
    object qryLTXJBXX_JRWJJT: TFloatField
      FieldName = 'WJJT'
      Origin = 'MAINDB.TLTXJBXX_JR.WJJT'
    end
    object qryLTXJBXX_JRQEFFJE: TFloatField
      FieldName = 'QEFFJE'
      Origin = 'MAINDB.TLTXJBXX_JR.QEFFJE'
    end
    object qryLTXJBXX_JRJLGZ: TFloatField
      FieldName = 'JLGZ'
      Origin = 'MAINDB.TLTXJBXX_JR.JLGZ'
    end
  end
  object sqlLTXJBXX: TUpdateSQL
    ModifySQL.Strings = (
      'update tLTXJBXX'
      'set'
      '  RYID = :RYID,'
      '  DYFFZZYF = :DYFFZZYF,'
      '  STJFNX = :STJFNX,'
      '  KSJFSJ = :KSJFSJ,'
      '  BZGZ_93 = :BZGZ_93,'
      '  GRZHZE_93 = :GRZHZE_93,'
      '  JFNX = :JFNX,'
      '  ZW = :ZW,'
      '  ZC = :ZC,'
      '  LTLB = :LTLB,'
      '  LTXSJ = :LTXSJ,'
      '  LTXYY = :LTXYY,'
      '  LTXQJBGZ = :LTXQJBGZ,'
      '  TBJT = :TBJT,'
      '  JHLJT = :JHLJT,'
      '  TQTXYS = :TQTXYS,'
      '  TSGZYS = :TSGZYS,'
      '  GKJXGZYS = :GKJXGZYS,'
      '  YDYHGZYS = :YDYHGZYS,'
      '  TSGX = :TSGX,'
      '  JHSY = :JHSY,'
      '  LXYT = :LXYT,'
      '  LSBT = :LSBT,'
      '  JC = :JC,'
      '  TSGWJFBL = :TSGWJFBL,'
      '  GQZJBL = :GQZJBL,'
      '  GG_85 = :GG_85,'
      '  GG_93 = :GG_93,'
      '  TSGZYS_97 = :TSGZYS_97,'
      '  HLF = :HLF,'
      '  GBJTF = :GBJTF,'
      '  TXFZE = :TXFZE,'
      '  DYBZ = :DYBZ,'
      '  BZ = :BZ,'
      '  YWZT = :YWZT,'
      '  YZBM = :YZBM,'
      '  LXDH = :LXDH,'
      '  LXDZ = :LXDZ,'
      '  QSXM = :QSXM,'
      '  QSSFZH = :QSSFZH,'
      '  QSGX = :QSGX,'
      '  QSLXDH = :QSLXDH,'
      '  QSYB = :QSYB,'
      '  QSLXDZ = :QSLXDZ,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ,'
      '  KSFFSJ = :KSFFSJ'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tLTXJBXX'
      
        '  (RYID, DYFFZZYF, STJFNX, KSJFSJ, BZGZ_93, GRZHZE_93, JFNX, ZW,' +
        ' ZC, LTLB, '