uquery.dfm

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

inherited frmQuery: TfrmQuery
  Left = 327
  Top = 184
  Caption = '人员信息查询'
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlMain: TPanel
    Top = 33
    Height = 315
    inline frmRYXXEdit: TFrameRyxx
      Width = 536
      Height = 294
      Align = alClient
      TabOrder = 2
      inherited souRYXX: TDataSource
        DataSet = qryMain
      end
    end
    object TabSet1: TTabSet
      Left = 0
      Top = 294
      Width = 536
      Height = 21
      Align = alBottom
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Tabs.Strings = (
        '查询结果'
        '详细情况')
      TabIndex = 0
      OnChange = TabSet1Change
    end
    object grdMain: TwwDBGrid
      Left = 0
      Top = 0
      Width = 536
      Height = 294
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = souMain
      ReadOnly = True
      TabOrder = 1
      TitleAlignment = taCenter
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      IndicatorColor = icBlack
    end
  end
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 33
    Align = alTop
    TabOrder = 1
    object lblDWMC: TLabel
      Left = 16
      Top = 10
      Width = 48
      Height = 12
      Caption = '身份证号'
    end
    object Label1: TLabel
      Left = 202
      Top = 10
      Width = 24
      Height = 12
      Caption = '姓名'
    end
    object edtSFZH: TEdit
      Left = 66
      Top = 6
      Width = 121
      Height = 20
      TabOrder = 0
    end
    object edtXM: TEdit
      Left = 228
      Top = 6
      Width = 121
      Height = 20
      TabOrder = 1
    end
    object Button1: TButton
      Left = 408
      Top = 6
      Width = 54
      Height = 21
      Caption = '查询'
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object souMain: TDataSource
    DataSet = qryMain
    Left = 26
    Top = 263
  end
  object qryMain: TQuery
    CachedUpdates = True
    BeforeInsert = qryMainBeforeInsert
    BeforePost = qryMainBeforePost
    AfterPost = qryMainAfterPost
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tFF_RYXX')
    UpdateObject = sqlMain
    Left = 58
    Top = 263
    object qryMainRYID_FF: TStringField
      DisplayLabel = '发放人员ID'
      FieldName = 'RYID_FF'
      Origin = 'MAINDB.TFF_RYXX.RYID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMainDWID_FF: TStringField
      DisplayLabel = '单位序号'
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_RYXX.DWID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMainRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TFF_RYXX.RYID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMainXM: TStringField
      DisplayLabel = '姓名'
      FieldName = 'XM'
      Origin = 'MAINDB.TFF_RYXX.XM'
      Size = 10
    end
    object qryMainSFZH: TStringField
      DisplayLabel = '身份证号'
      FieldName = 'SFZH'
      Origin = 'MAINDB.TFF_RYXX.SFZH'
      FixedChar = True
    end
    object qryMainHDJE: TFloatField
      DisplayLabel = '核定金额'
      FieldName = 'HDJE'
      Origin = 'MAINDB.TFF_RYXX.HDJE'
    end
    object qryMainFFFS: TFloatField
      DisplayLabel = '发放方式'
      FieldName = 'FFFS'
      Origin = 'MAINDB.TFF_RYXX.FFFS'
      Visible = False
    end
    object qryMainFFFS_C: TStringField
      DisplayLabel = '发放方式'
      FieldKind = fkLookup
      FieldName = 'FFFS_C'
      LookupDataSet = frmRYXXEdit.qryFFFS
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'FFFS'
      Lookup = True
    end
    object qryMainFFJGID: TStringField
      DisplayLabel = '发放机构ID'
      FieldName = 'FFJGID'
      Origin = 'MAINDB.TFF_RYXX.FFJGID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMainFFJGID_C: TStringField
      DisplayLabel = '发放机构'
      FieldKind = fkLookup
      FieldName = 'FFJGID_C'
      LookupDataSet = frmRYXXEdit.qryFFJG
      LookupKeyFields = 'FFJGID'
      LookupResultField = 'JGMC'
      KeyFields = 'FFJGID'
      Lookup = True
    end
    object qryMainDJQK: TFloatField
      DisplayLabel = '定居情况'
      FieldName = 'DJQK'
      Origin = 'MAINDB.TFF_RYXX.DJQK'
      Visible = False
    end
    object qryMainDJQK_C: TStringField
      DisplayLabel = '定居情况'
      FieldKind = fkLookup
      FieldName = 'DJQK_C'
      LookupDataSet = frmRYXXEdit.qryDJQK
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'DJQK'
      Lookup = True
    end
    object qryMainZH: TStringField
      DisplayLabel = '帐户'
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_RYXX.ZH'
      Size = 40
    end
    object qryMainKHH: TStringField
      DisplayLabel = '开户行'
      FieldName = 'KHH'
      Origin = 'MAINDB.TFF_RYXX.KHH'
      Size = 80
    end
    object qryMainHB: TFloatField
      DisplayLabel = '行别'
      FieldName = 'HB'
      Origin = 'MAINDB.TFF_RYXX.HB'
      Visible = False
    end
    object qryMainHB_C: TStringField
      DisplayLabel = '行别'
      FieldKind = fkLookup
      FieldName = 'HB_C'
      LookupDataSet = frmRYXXEdit.qryHB
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'HB'
      Lookup = True
    end
    object qryMainSKR: TStringField
      DisplayLabel = '收款人'
      FieldName = 'SKR'
      Origin = 'MAINDB.TFF_RYXX.SKR'
      Size = 10
    end
    object qryMainHRDD: TStringField
      DisplayLabel = '汇入地点'
      FieldName = 'HRDD'
      Origin = 'MAINDB.TFF_RYXX.HRDD'
      Size = 80
    end
    object qryMainYZBM: TStringField
      DisplayLabel = '邮政编码'
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_RYXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryMainLXDH: TStringField
      DisplayLabel = '联系电话'
      FieldName = 'LXDH'
      Origin = 'MAINDB.TFF_RYXX.LXDH'
    end
    object qryMainDZ: TStringField
      DisplayLabel = '地址'
      FieldName = 'DZ'
      Origin = 'MAINDB.TFF_RYXX.DZ'
      Size = 100
    end
    object qryMainFFJE: TFloatField
      DisplayLabel = '发放金额'
      FieldName = 'FFJE'
      Origin = 'MAINDB.TFF_RYXX.FFJE'
    end
    object qryMainLJFFJE: TFloatField
      DisplayLabel = '累计发放金额'
      FieldName = 'LJFFJE'
      Origin = 'MAINDB.TFF_RYXX.LJFFJE'
    end
    object qryMainFFZQ: TFloatField
      DisplayLabel = '发放周期'
      FieldName = 'FFZQ'
      Origin = 'MAINDB.TFF_RYXX.FFZQ'
      Visible = False
    end
    object qryMainFFZQ_C: TStringField
      DisplayLabel = '发放周期'
      FieldKind = fkLookup
      FieldName = 'FFZQ_C'
      LookupDataSet = frmRYXXEdit.qryFFZQ
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'FFZQ'
      Lookup = True
    end
    object qryMainRYZT: TFloatField
      DisplayLabel = '人员状态'
      FieldName = 'RYZT'
      Origin = 'MAINDB.TFF_RYXX.RYZT'
      Visible = False
    end
    object qryMainKSFFYF: TDateTimeField
      DisplayLabel = '开始发放月份'
      FieldName = 'KSFFYF'
      Origin = 'MAINDB.TFF_RYXX.KSFFYF'
    end
    object qryMainCSRQ: TDateTimeField
      DisplayLabel = '出生日期'
      FieldName = 'CSRQ'
      Origin = 'MAINDB.TFF_RYXX.CSRQ'
    end
    object qryMainTXSJ: TDateTimeField
      DisplayLabel = '离退休时间'
      FieldName = 'TXSJ'
      Origin = 'MAINDB.TFF_RYXX.TXSJ'
    end
    object qryMainTXLB: TFloatField
      DisplayLabel = '退休类别'
      FieldName = 'TXLB'
      Origin = 'MAINDB.TFF_RYXX.TXLB'
    end
    object qryMainXM_QS: TStringField
      DisplayLabel = '亲属姓名'
      FieldName = 'XM_QS'
      Origin = 'MAINDB.TFF_RYXX.XM_QS'
      Size = 10
    end
    object qryMainSFZH_QS: TStringField
      DisplayLabel = '亲属身份证号'
      FieldName = 'SFZH_QS'
      Origin = 'MAINDB.TFF_RYXX.SFZH_QS'
      FixedChar = True
    end
    object qryMainGX_QS: TFloatField
      DisplayLabel = '亲属关系'
      FieldName = 'GX_QS'
      Origin = 'MAINDB.TFF_RYXX.GX_QS'
    end
    object qryMainLXDH_QS: TStringField
      DisplayLabel = '亲属联系电话'
      FieldName = 'LXDH_QS'
      Origin = 'MAINDB.TFF_RYXX.LXDH_QS'
    end
    object qryMainLXDZ_QS: TStringField
      DisplayLabel = '亲属联系地址'
      FieldName = 'LXDZ_QS'
      Origin = 'MAINDB.TFF_RYXX.LXDZ_QS'
      Size = 100
    end
    object qryMainYZBM_QS: TStringField
      DisplayLabel = '亲属邮政编码'
      FieldName = 'YZBM_QS'
      Origin = 'MAINDB.TFF_RYXX.YZBM_QS'
      FixedChar = True
      Size = 6
    end
    object qryMainYYFWSJ: TFloatField
      DisplayLabel = '语音服务时间'
      FieldName = 'YYFWSJ'
      Origin = 'MAINDB.TFF_RYXX.YYFWSJ'
    end
    object qryMainSKFWRQ: TFloatField
      DisplayLabel = '送款服务日期'
      FieldName = 'SKFWRQ'
      Origin = 'MAINDB.TFF_RYXX.SKFWRQ'
    end
    object qryMainSKFWSJ: TFloatField
      DisplayLabel = '送款服务时间'
      FieldName = 'SKFWSJ'
      Origin = 'MAINDB.TFF_RYXX.SKFWSJ'
    end
    object qryMainBZ: TStringField
      DisplayLabel = '备注'
      FieldName = 'BZ'
      Origin = 'MAINDB.TFF_RYXX.BZ'
      Size = 100
    end
    object qryMainJBR: TStringField
      DisplayLabel = '经办人'
      FieldName = 'JBR'
      Origin = 'MAINDB.TFF_RYXX.JBR'
      Visible = False
      Size = 10
    end
    object qryMainJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TFF_RYXX.JBRQ'
      Visible = False
    end
    object qryMainSHR: TStringField
      DisplayLabel = '审核人'
      FieldName = 'SHR'
      Origin = 'MAINDB.TFF_RYXX.SHR'
      Visible = False
      Size = 10
    end
    object qryMainSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TFF_RYXX.SHRQ'
      Visible = False
    end
    object qryMainSSDWID: TStringField
      DisplayLabel = '所属单位ID'
      FieldName = 'SSDWID'
      Origin = 'MAINDB.TFF_RYXX.SSDWID'
      Visible = False
      FixedChar = True
      Size = 10
    end
  end
  object sqlMain: TUpdateSQL
    ModifySQL.Strings = (
      'update tFF_RYXX'
      'set'
      '  RYID_FF = :RYID_FF,'
      '  DWID_FF = :DWID_FF,'
      '  SSDWID = :SSDWID,'
      '  RYID = :RYID,'
      '  XM = :XM,'
      '  SFZH = :SFZH,'
      '  HDJE = :HDJE,'
      '  FFFS = :FFFS,'
      '  FFJGID = :FFJGID,'
      '  DJQK = :DJQK,'
      '  ZH = :ZH,'
      '  KHH = :KHH,'
      '  HB = :HB,'
      '  SKR = :SKR,'
      '  HRDD = :HRDD,'
      '  YZBM = :YZBM,'
      '  DZ = :DZ,'
      '  FFJE = :FFJE,'
      '  LJFFJE = :LJFFJE,'
      '  FFZQ = :FFZQ,'
      '  RYZT = :RYZT,'
      '  KSFFYF = :KSFFYF,'
      '  CSRQ = :CSRQ,'
      '  TXSJ = :TXSJ,'
      '  TXLB = :TXLB,'
      '  LXDH = :LXDH,'
      '  XM_QS = :XM_QS,'
      '  SFZH_QS = :SFZH_QS,'
      '  GX_QS = :GX_QS,'
      '  LXDH_QS = :LXDH_QS,'
      '  LXDZ_QS = :LXDZ_QS,'
      '  YZBM_QS = :YZBM_QS,'
      '  YYFWSJ = :YYFWSJ,'
      '  SKFWRQ = :SKFWRQ,'
      '  SKFWSJ = :SKFWSJ,'
      '  BZ = :BZ,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  RYID_FF = :OLD_RYID_FF')
    InsertSQL.Strings = (
      'insert into tFF_RYXX'
      
        '  (RYID_FF, DWID_FF, SSDWID, RYID, XM, SFZH, HDJE, FFFS, FFJGID,' +
        ' DJQK, '
      
        '   ZH, KHH, HB, SKR, HRDD, YZBM, DZ, FFJE, LJFFJE, FFZQ, RYZT, K' +
        'SFFYF, '
      
        '   CSRQ, TXSJ, TXLB, LXDH, XM_QS, SFZH_QS, GX_QS, LXDH_QS, LXDZ_' +
        'QS, YZBM_QS, '
      '   YYFWSJ, SKFWRQ, SKFWSJ, BZ, JBR, JBRQ, SHR, SHRQ)'
      'values'
      
        '  (:RYID_FF, :DWID_FF, :SSDWID, :RYID, :XM, :SFZH, :HDJE, :FFFS,' +
        ' :FFJGID, '
      
        '   :DJQK, :ZH, :KHH, :HB, :SKR, :HRDD, :YZBM, :DZ, :FFJE, :LJFFJ' +
        'E, :FFZQ, '
      
        '   :RYZT, :KSFFYF, :CSRQ, :TXSJ, :TXLB, :LXDH, :XM_QS, :SFZH_QS,' +
        ' :GX_QS, '
      
        '   :LXDH_QS, :LXDZ_QS, :YZBM_QS, :YYFWSJ, :SKFWRQ, :SKFWSJ, :BZ,' +
        ' :JBR, '
      '   :JBRQ, :SHR, :SHRQ)')
    DeleteSQL.Strings = (
      'delete from tFF_RYXX'
      'where'
      '  RYID_FF = :OLD_RYID_FF')
    Left = 98
    Top = 264
  end
end