uzzzgxx.dfm

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

  end
  inherited qryTemp: TwwQuery
    AfterInsert = qryTempAfterInsert
    OnCalcFields = qryTempCalcFields
    DataSource = souMaster
    SQL.Strings = (
      'select * from tRYJBXX'
      'where ryid=:ryid')
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryTempRYID: TStringField
      DisplayLabel = '人员代码'
      FieldName = 'RYID'
      Origin = 'MAINDB.TRYJBXX.RYID'
      FixedChar = True
      Size = 10
    end
    object qryTempDWID: TStringField
      DisplayLabel = '单位ID'
      FieldName = 'DWID'
      Origin = 'MAINDB.TRYJBXX.DWID'
      FixedChar = True
      Size = 10
    end
    object qryTempXM: TStringField
      DisplayLabel = '姓名'
      FieldName = 'XM'
      Origin = 'MAINDB.TRYJBXX.XM'
      Size = 10
    end
    object qryTempSFZH: TStringField
      DisplayLabel = '社会保障号'
      FieldName = 'SFZH'
      Origin = 'MAINDB.TRYJBXX.SFZH'
      Size = 18
    end
    object qryTempXB: TFloatField
      DisplayLabel = '性别'
      FieldName = 'XB'
      Origin = 'MAINDB.TRYJBXX.XB'
    end
    object qryTempCSSJ: TDateTimeField
      DisplayLabel = '出生时间'
      FieldName = 'CSSJ'
      Origin = 'MAINDB.TRYJBXX.CSSJ'
    end
    object qryTempCJGZSJ: TDateTimeField
      DisplayLabel = '参加工作时间'
      FieldName = 'CJGZSJ'
      Origin = 'MAINDB.TRYJBXX.CJGZSJ'
    end
    object qryTempYGXS: TFloatField
      DisplayLabel = '用工形式'
      FieldName = 'YGXS'
      Origin = 'MAINDB.TRYJBXX.YGXS'
    end
    object qryTempRYZT: TFloatField
      DisplayLabel = '人员状态'
      FieldName = 'RYZT'
      Origin = 'MAINDB.TRYJBXX.RYZT'
    end
    object qryTempYWZT: TFloatField
      DisplayLabel = '业务状态'
      FieldName = 'YWZT'
      Origin = 'MAINDB.TRYJBXX.YWZT'
    end
    object qryTempDWMC: TStringField
      DisplayLabel = '单位名称'
      FieldKind = fkCalculated
      FieldName = 'DWMC'
      Size = 40
      Calculated = True
    end
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tRYJBXX'
      'set'
      '  RYID = :RYID,'
      '  DWID = :DWID,'
      '  XM = :XM,'
      '  SFZH = :SFZH,'
      '  XB = :XB,'
      '  CSSJ = :CSSJ,'
      '  CJGZSJ = :CJGZSJ,'
      '  YGXS = :YGXS,'
      '  RYZT = :RYZT,'
      '  YWZT = :YWZT'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tRYJBXX'
      '  (RYID, DWID, XM, SFZH, XB, CSSJ, CJGZSJ, YGXS, RYZT, YWZT)'
      'values'
      
        '  (:RYID, :DWID, :XM, :SFZH, :XB, :CSSJ, :CJGZSJ, :YGXS, :RYZT, ' +
        ':YWZT)')
    DeleteSQL.Strings = (
      'delete from tRYJBXX'
      'where'
      '  RYID = :OLD_RYID')
  end
  object souMaster: TwwDataSource
    DataSet = qryMaster
    Left = 320
    Top = 16
  end
  object qryMaster: TwwQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT RY.RYID,RY.XM,RY.SFZH, DW.DWMC,DM.DMMC'
      'FROM tRYJBXX RY ,tDWXX DW,tDMB DM'
      'WHERE DW.DWID=RY.DWID and DM.ZDBZ='#39'SSHY'#39' and DM.DM=DW.SSHY'
      'and RY.RYID='#39'0'#39)
    ValidateWithMask = True
    Left = 392
    Top = 16
  end
  object souZZRYJBXX: TwwDataSource
    DataSet = qryZZRYJBXX
    OnStateChange = souZZRYJBXXStateChange
    OnDataChange = souZZRYJBXXDataChange
    Left = 672
    Top = 48
  end
  object qryZZRYJBXX: TwwQuery
    CachedUpdates = True
    BeforeInsert = qryZZRYJBXXBeforeInsert
    AfterInsert = qryZZRYJBXXAfterInsert
    DatabaseName = 'MainDB'
    DataSource = souTemp
    SQL.Strings = (
      'select * from tZZRYJBXX'
      'where RYID=:RYID')
    UpdateObject = sqlZZRYJBXX
    ValidateWithMask = True
    Left = 704
    Top = 48
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryZZRYJBXXRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MainDB.tZZRYJBXX.RYID'
      Size = 10
    end
    object qryZZRYJBXXSTJFNX: TFloatField
      DisplayLabel = '视同缴费年限'
      FieldName = 'STJFNX'
      Origin = 'MainDB.tZZRYJBXX.STJFNX'
    end
    object qryZZRYJBXXKSJFSJ: TDateTimeField
      DisplayLabel = '开始缴费时间'
      FieldName = 'KSJFSJ'
      Origin = 'MainDB.tZZRYJBXX.KSJFSJ'
    end
    object qryZZRYJBXXBZGZ_93: TFloatField
      DisplayLabel = '93年标准工资'
      FieldName = 'BZGZ_93'
      Origin = 'MainDB.tZZRYJBXX.BZGZ_93'
    end
    object qryZZRYJBXXGRJFZE_93: TFloatField
      DisplayLabel = '93年前个人缴费总额'
      FieldName = 'GRJFZE_93'
      Origin = 'MainDB.tZZRYJBXX.GRJFZE_93'
    end
    object qryZZRYJBXXJBR: TStringField
      DisplayLabel = '经办人'
      FieldName = 'JBR'
      Origin = 'MainDB.tZZRYJBXX.JBR'
      Size = 10
    end
    object qryZZRYJBXXJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      FieldName = 'JBRQ'
      Origin = 'MainDB.tZZRYJBXX.JBRQ'
    end
    object qryZZRYJBXXSHR: TStringField
      DisplayLabel = '审核人'
      FieldName = 'SHR'
      Origin = 'MainDB.tZZRYJBXX.SHR'
      Size = 10
    end
    object qryZZRYJBXXSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      FieldName = 'SHRQ'
      Origin = 'MainDB.tZZRYJBXX.SHRQ'
    end
    object qryZZRYJBXXYWZT: TFloatField
      FieldName = 'YWZT'
      Origin = 'MAINDB.TZZRYJBXX.YWZT'
    end
  end
  object sqlZZRYJBXX: TUpdateSQL
    ModifySQL.Strings = (
      'update tZZRYJBXX'
      'set'
      '  RYID = :RYID,'
      '  STJFNX = :STJFNX,'
      '  KSJFSJ = :KSJFSJ,'
      '  BZGZ_93 = :BZGZ_93,'
      '  GRJFZE_93 = :GRJFZE_93,'
      '  YWZT = :YWZT,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tZZRYJBXX'
      
        '  (RYID, STJFNX, KSJFSJ, BZGZ_93, GRJFZE_93, YWZT, JBR, JBRQ, SH' +
        'R, SHRQ)'
      'values'
      
        '  (:RYID, :STJFNX, :KSJFSJ, :BZGZ_93, :GRJFZE_93, :YWZT, :JBR, :' +
        'JBRQ, :SHR, '
      '   :SHRQ)')
    DeleteSQL.Strings = (
      'delete from tZZRYJBXX'
      'where'
      '  RYID = :OLD_RYID')
    Left = 736
    Top = 48
  end
  object souDWID: TwwDataSource
    DataSet = qryDWID
    Left = 256
    Top = 12
  end
  object qryDWID: TwwQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select DWID,DWDM,DWMC'
      'from tDWXX')
    ValidateWithMask = True
    Left = 285
    Top = 12
  end
  object souXB: TwwDataSource
    Left = 467
    Top = 12
  end
  object qryXB: TwwQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select *'
      'from tDMB'
      'where ZDBZ='#39'XB'#39)
    ValidateWithMask = True
    Left = 499
    Top = 12
  end
  object souYGXS: TwwDataSource
    DataSet = qryYGXS
    Left = 483
    Top = 84
  end
  object qryYGXS: TwwQuery