udwxx.dfm

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

      Origin = 'MAINDB.TFF_RYXX.DJQK'
      Visible = False
    end
    object qryRYXXDJQK_C: TStringField
      DisplayLabel = '定居情况'
      FieldKind = fkLookup
      FieldName = 'DJQK_C'
      LookupDataSet = frmRyxxEdit.qryDJQK
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'DJQK'
      Lookup = True
    end
    object qryRYXXZH: TStringField
      DisplayLabel = '帐户'
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_RYXX.ZH'
      Size = 40
    end
    object qryRYXXKHH: TStringField
      DisplayLabel = '开户行'
      FieldName = 'KHH'
      Origin = 'MAINDB.TFF_RYXX.KHH'
      Size = 80
    end
    object qryRYXXHB: TFloatField
      DisplayLabel = '行别'
      FieldName = 'HB'
      Origin = 'MAINDB.TFF_RYXX.HB'
      Visible = False
    end
    object qryRYXXHB_C: TStringField
      DisplayLabel = '行别'
      FieldKind = fkLookup
      FieldName = 'HB_C'
      LookupDataSet = frmRyxxEdit.qryHB
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'HB'
      Lookup = True
    end
    object qryRYXXSKR: TStringField
      DisplayLabel = '收款人'
      FieldName = 'SKR'
      Origin = 'MAINDB.TFF_RYXX.SKR'
      Size = 10
    end
    object qryRYXXHRDD: TStringField
      DisplayLabel = '汇入地点'
      FieldName = 'HRDD'
      Origin = 'MAINDB.TFF_RYXX.HRDD'
      Size = 80
    end
    object qryRYXXYZBM: TStringField
      DisplayLabel = '邮政编码'
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_RYXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryRYXXLXDH: TStringField
      DisplayLabel = '联系电话'
      FieldName = 'LXDH'
      Origin = 'MAINDB.TFF_RYXX.LXDH'
    end
    object qryRYXXDZ: TStringField
      DisplayLabel = '地址'
      FieldName = 'DZ'
      Origin = 'MAINDB.TFF_RYXX.DZ'
      Size = 100
    end
    object qryRYXXFFJE: TFloatField
      DisplayLabel = '发放金额'
      FieldName = 'FFJE'
      Origin = 'MAINDB.TFF_RYXX.FFJE'
    end
    object qryRYXXLJFFJE: TFloatField
      DisplayLabel = '累计发放金额'
      FieldName = 'LJFFJE'
      Origin = 'MAINDB.TFF_RYXX.LJFFJE'
    end
    object qryRYXXFFZQ: TFloatField
      DisplayLabel = '发放周期'
      FieldName = 'FFZQ'
      Origin = 'MAINDB.TFF_RYXX.FFZQ'
      Visible = False
    end
    object qryRYXXFFZQ_C: TStringField
      DisplayLabel = '发放周期'
      FieldKind = fkLookup
      FieldName = 'FFZQ_C'
      LookupDataSet = frmRyxxEdit.qryFFZQ
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'FFZQ'
      Lookup = True
    end
    object qryRYXXRYZT: TFloatField
      DisplayLabel = '人员状态'
      FieldName = 'RYZT'
      Origin = 'MAINDB.TFF_RYXX.RYZT'
      Visible = False
    end
    object qryRYXXKSFFYF: TDateTimeField
      DisplayLabel = '开始发放月份'
      FieldName = 'KSFFYF'
      Origin = 'MAINDB.TFF_RYXX.KSFFYF'
    end
    object qryRYXXCSRQ: TDateTimeField
      DisplayLabel = '出生日期'
      FieldName = 'CSRQ'
      Origin = 'MAINDB.TFF_RYXX.CSRQ'
    end
    object qryRYXXTXSJ: TDateTimeField
      DisplayLabel = '离退休时间'
      FieldName = 'TXSJ'
      Origin = 'MAINDB.TFF_RYXX.TXSJ'
    end
    object qryRYXXTXLB: TFloatField
      DisplayLabel = '退休类别'
      FieldName = 'TXLB'
      Origin = 'MAINDB.TFF_RYXX.TXLB'
    end
    object qryRYXXXM_QS: TStringField
      DisplayLabel = '亲属姓名'
      FieldName = 'XM_QS'
      Origin = 'MAINDB.TFF_RYXX.XM_QS'
      Size = 10
    end
    object qryRYXXSFZH_QS: TStringField
      DisplayLabel = '亲属身份证号'
      FieldName = 'SFZH_QS'
      Origin = 'MAINDB.TFF_RYXX.SFZH_QS'
      FixedChar = True
    end
    object qryRYXXGX_QS: TFloatField
      DisplayLabel = '亲属关系'
      FieldName = 'GX_QS'
      Origin = 'MAINDB.TFF_RYXX.GX_QS'
    end
    object qryRYXXLXDH_QS: TStringField
      DisplayLabel = '亲属联系电话'
      FieldName = 'LXDH_QS'
      Origin = 'MAINDB.TFF_RYXX.LXDH_QS'
    end
    object qryRYXXLXDZ_QS: TStringField
      DisplayLabel = '亲属联系地址'
      FieldName = 'LXDZ_QS'
      Origin = 'MAINDB.TFF_RYXX.LXDZ_QS'
      Size = 100
    end
    object qryRYXXYZBM_QS: TStringField
      DisplayLabel = '亲属邮政编码'
      FieldName = 'YZBM_QS'
      Origin = 'MAINDB.TFF_RYXX.YZBM_QS'
      FixedChar = True
      Size = 6
    end
    object qryRYXXYYFWSJ: TFloatField
      DisplayLabel = '语音服务时间'
      FieldName = 'YYFWSJ'
      Origin = 'MAINDB.TFF_RYXX.YYFWSJ'
    end
    object qryRYXXSKFWRQ: TFloatField
      DisplayLabel = '送款服务日期'
      FieldName = 'SKFWRQ'
      Origin = 'MAINDB.TFF_RYXX.SKFWRQ'
    end
    object qryRYXXSKFWSJ: TFloatField
      DisplayLabel = '送款服务时间'
      FieldName = 'SKFWSJ'
      Origin = 'MAINDB.TFF_RYXX.SKFWSJ'
    end
    object qryRYXXBZ: TStringField
      DisplayLabel = '备注'
      FieldName = 'BZ'
      Origin = 'MAINDB.TFF_RYXX.BZ'
      Size = 100
    end
    object qryRYXXJBR: TStringField
      DisplayLabel = '经办人'
      FieldName = 'JBR'
      Origin = 'MAINDB.TFF_RYXX.JBR'
      Size = 10
    end
    object qryRYXXJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TFF_RYXX.JBRQ'
    end
    object qryRYXXSHR: TStringField
      DisplayLabel = '审核人'
      FieldName = 'SHR'
      Origin = 'MAINDB.TFF_RYXX.SHR'
      Size = 10
    end
    object qryRYXXSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TFF_RYXX.SHRQ'
    end
    object qryRYXXSSDWID: TStringField
      DisplayLabel = '所属单位ID'
      FieldName = 'SSDWID'
      Origin = 'MAINDB.TFF_RYXX.SSDWID'
      Visible = False
      FixedChar = True
      Size = 10
    end
  end
  object mnuMaster: TPopupMenu
    Left = 24
    Top = 360
    object N1: TMenuItem
      Action = actNewDWXX
    end
    object N2: TMenuItem
      Action = actEditDWXX
    end
    object N3: TMenuItem
      Action = actDeleteDWXX
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = actNewRYXX
    end
  end
  object actMaster: TActionList
    Left = 56
    Top = 360
    object actNewDWXX: TAction
      Caption = '创建单位'
      OnExecute = actNewDWXXExecute
    end
    object actNewGroup: TAction
      Caption = '创建发放组'
      OnExecute = actDeleteDWXXExecute
    end
    object actEditDWXX: TAction
      Caption = '编辑'
      OnExecute = actEditDWXXExecute
    end
    object actDeleteDWXX: TAction
      Caption = '删除'
      OnExecute = actDeleteDWXXExecute
    end
    object actNewRYXX: TAction
      Caption = '新增人员信息'
    end
  end
  object sqlRYXX: 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
  object souTemp: TDataSource
    DataSet = qryTemp
    Left = 32
    Top = 224
  end
  object qryTemp: TQuery
    DatabaseName = 'MainDB'
    DataSource = souMaster
    SQL.Strings = (
      'select * from tFF_DWDYHZ')
    Left = 72
    Top = 224
    object qryTempDWID_FF: TStringField
      DisplayLabel = '单位ID'
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_DWDYHZ.DWID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryTempFFRQ: TDateTimeField
      DisplayLabel = '发放日期'
      FieldName = 'FFRQ'
      Origin = 'MAINDB.TFF_DWDYHZ.FFRQ'
    end
    object qryTempRS_GH: TFloatField
      DisplayLabel = '工行人数'
      FieldName = 'RS_GH'
      Origin = 'MAINDB.TFF_DWDYHZ.RS_GH'
    end
    object qryTempJE_GH: TFloatField
      DisplayLabel = '工行金额'
      FieldName = 'JE_GH'
      Origin = 'MAINDB.TFF_DWDYHZ.JE_GH'
    end
    object qryTempRS_NH: TFloatField
      DisplayLabel = '农行人数'
      FieldName = 'RS_NH'
      Origin = 'MAINDB.TFF_DWDYHZ.RS_NH'
    end
    object qryTempJE_NH: TFloatField
      DisplayLabel = '农行金额'
      FieldName = 'JE_NH'
      Origin = 'MAINDB.TFF_DWDYHZ.JE_NH'
    end
    object qryTempRS_ZH: TFloatField
      DisplayLabel = '中行人数'
      FieldName = 'RS_ZH'
      Origin = 'MAINDB.TFF_DWDYHZ.RS_ZH'
    end
    object qryTempJE_ZH: TFloatField
      DisplayLabel = '中行金额'
      FieldName = 'JE_ZH'
      Origin = 'MAINDB.TFF_DWDYHZ.JE_ZH'
    end
    object qryTempRS_JH: TFloatField
      DisplayLabel = '建行人数'
      FieldName = 'RS_JH'
      Origin = 'MAINDB.TFF_DWDYHZ.RS_JH'
    end
    object qryTempJE_JH: TFloatField
      DisplayLabel = '建行金额'
      FieldName = 'JE_JH'
      Origin = 'MAINDB.TFF_DWDYHZ.JE_JH'
    end
    object qryTempRS_JT: TFloatField
      DisplayLabel = '交通人数'
      FieldName = 'RS_JT'
      Origin = 'MAINDB.TFF_DWDYHZ.RS_JT'
    end
    object qryTempJE_JT: TFloatField
      DisplayLabel = '交通金额'
      FieldName = 'JE_JT'
      Origin = 'MAINDB.TFF_DWDYHZ.JE_JT'
    end
    object qryTempRS_YC: TFloatField
      DisplayLabel = '邮政储蓄人数'
      FieldName = 'RS_YC'
      Origin = 'MAINDB.TFF_DWDYHZ.RS_YC'
    end
    object qryTempJE_YC: TFloatField
      DisplayLabel = '邮政储蓄金额'
      FieldName = 'JE_YC'
      Origin = 'MAINDB.TFF_DWDYHZ.JE_YC'
    end
    object qryTempRS_YJ: TFloatField
      DisplayLabel = '邮寄人数'
      FieldName = 'RS_YJ'
      Origin = 'MAINDB.TFF_DWDYHZ.RS_YJ'
    end
    object qryTempJE_YJ: TFloatField
      DisplayLabel = '邮寄金额'
      FieldName = 'JE_YJ'
      Origin = 'MAINDB.TFF_DWDYHZ.JE_YJ'
    end
    object qryTempZRS: TFloatField
      DisplayLabel = '总人数'
      FieldName = 'ZRS'
      Origin = 'MAINDB.TFF_DWDYHZ.ZRS'
    end
    object qryTempZJE: TFloatField
      DisplayLabel = '总金额'
      FieldName = 'ZJE'
      Origin = 'MAINDB.TFF_DWDYHZ.ZJE'
    end
  end
end