udtcx_ry.dfm

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

      '  SHRQ = :SHRQ,'
      '  BZJE = :BZJE'
      '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, BZJE)'
      '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, :BZJE)')
    DeleteSQL.Strings = (
      'delete from tff_ryxx'
      'where'
      '  RYID_FF = :OLD_RYID_FF')
    Left = 212
    Top = 31
  end
  object souFFFS: TDataSource
    DataSet = qryFFFS
    Left = 10
    Top = 350
  end
  object qryFFFS: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'FFXS'#39
      'ORDER BY DM')
    Left = 42
    Top = 350
  end
  object souDJQK: TDataSource
    DataSet = qryDJQK
    Left = 96
    Top = 353
  end
  object qryDJQK: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'DJQK'#39
      'ORDER BY DM')
    Left = 128
    Top = 353
  end
  object souFFZQ: TDataSource
    DataSet = qryFFZQ
    Left = 168
    Top = 345
  end
  object qryFFZQ: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'FFZQ'#39
      'ORDER BY DM')
    Left = 200
    Top = 345
  end
  object souFFJG: TDataSource
    DataSet = qryFFJG
    Left = 238
    Top = 345
  end
  object qryFFJG: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT *'
      'from tFF_WTFFJG')
    Left = 270
    Top = 347
  end
  object souHB: TDataSource
    Left = 328
    Top = 344
  end
  object qryHB: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB where zdbz='#39'HB'#39
      'order by dm ')
    Left = 368
    Top = 344
  end
  object souDQXX: TDataSource
    DataSet = qryDQXX
    Left = 116
    Top = 171
  end
  object qryDQXX: TQuery
    CachedUpdates = True
    AfterInsert = qryDQXXAfterInsert
    BeforePost = qryDQXXBeforePost
    AfterPost = qryDQXXAfterPost
    DatabaseName = 'MainDB'
    DataSource = souMain
    SQL.Strings = (
      'select * from tff_rydqxx'
      'where ryid_ff=:人员标识'
      ' ')
    UpdateObject = sqlDQXX
    Left = 156
    Top = 172
    ParamData = <
      item
        DataType = ftString
        Name = '人员标识'
        ParamType = ptInput
      end>
  end
  object sqlDQXX: TUpdateSQL
    ModifySQL.Strings = (
      'update tff_rydqxx'
      'set'
      '  RYID_FF = :RYID_FF,'
      '  DM = :DM,'
      '  MC = :MC'
      'where'
      '  RYID_FF = :OLD_RYID_FF')
    InsertSQL.Strings = (
      'insert into tff_rydqxx'
      '  (RYID_FF, DM, MC)'
      'values'
      '  (:RYID_FF, :DM, :MC)')
    DeleteSQL.Strings = (
      'delete from tff_rydqxx'
      'where'
      '  RYID_FF = :OLD_RYID_FF')
    Left = 196
    Top = 172
  end
  object souYF: TDataSource
    DataSet = qryYF
    Left = 236
    Top = 207
  end
  object qryYF: TQuery
    DatabaseName = 'MainDB'
    DataSource = souMain
    SQL.Strings = (
      
        'select ND as "年度",je_1 as "一月",je_2 as "二月",je_3 as "三月"' +
        ',je_4 as "四月",je_5 as "五月"'
      
        ',je_6 as "六月",je_7 as "七月",je_8 as "八月",je_9 as "九月",je_' +
        '10 as "十月",je_11 as "十一月"'
      ',je_12 as "十二月"'
      'from tff_yfdyxx'
      'where ryid_ff=:人员标识 ')
    Left = 268
    Top = 207
    ParamData = <
      item
        DataType = ftFixedChar
        Name = '人员标识'
        ParamType = ptInput
      end>
  end
  object souSF: TDataSource
    DataSet = qrySF
    Left = 236
    Top = 239
  end
  object qrySF: TQuery
    DatabaseName = 'MainDB'
    DataSource = souMain
    SQL.Strings = (
      
        'select ND as "年度",je_1 as "一月",je_2 as "二月",je_3 as "三月"' +
        ',je_4 as "四月",je_5 as "五月"'
      
        ',je_6 as "六月",je_7 as "七月",je_8 as "八月",je_9 as "九月",je_' +
        '10 as "十月",je_11 as "十一月"'
      ',je_12 as "十二月"'
      'from tff_sfdyxx'
      'where ryid_ff=:人员标识')
    Left = 268
    Top = 239
    ParamData = <
      item
        DataType = ftFixedChar
        Name = '人员标识'
        ParamType = ptInput
      end>
  end
  object souLastModify: TDataSource
    DataSet = qryLastModify
    Left = 120
    Top = 98
  end
  object qryLastModify: TQuery
    DatabaseName = 'MainDB'
    DataSource = souMain
    SQL.Strings = (
      'select * from tff_ryxx_1 where ryid_ff=:人员标识'
      'order by xgrq desc')
    Left = 160
    Top = 98
    ParamData = <
      item
        DataType = ftUnknown
        Name = '人员标识'
        ParamType = ptUnknown
      end>
    object qryLastModifyXGRQ: TDateTimeField
      DisplayLabel = '修改时间'
      FieldName = 'XGRQ'
      Origin = 'MAINDB.TFF_RYXX_1.XGRQ'
    end
    object qryLastModifyRYID_FF: TStringField
      DisplayLabel = '人员标识'
      FieldName = 'RYID_FF'
      Origin = 'MAINDB.TFF_RYXX_1.RYID_FF'
      FixedChar = True
      Size = 10
    end
    object qryLastModifySSDWID: TStringField
      DisplayLabel = '所属单位标识'
      FieldName = 'SSDWID'
      Origin = 'MAINDB.TFF_RYXX_1.SSDWID'
      FixedChar = True
      Size = 10
    end
    object qryLastModifyXM: TStringField
      DisplayLabel = '姓名'
      FieldName = 'XM'
      Origin = 'MAINDB.TFF_RYXX_1.XM'
      Size = 10
    end
    object qryLastModifySFZH: TStringField
      DisplayLabel = '身份证号'
      FieldName = 'SFZH'
      Origin = 'MAINDB.TFF_RYXX_1.SFZH'
      FixedChar = True
    end
    object qryLastModifyBZJE: TFloatField
      DisplayLabel = '标准金额'
      FieldName = 'BZJE'
      Origin = 'MAINDB.TFF_RYXX_1.BZJE'
    end
    object qryLastModifyHDJE: TFloatField
      DisplayLabel = '核定金额'
      FieldName = 'HDJE'
      Origin = 'MAINDB.TFF_RYXX_1.HDJE'
    end
    object qryLastModifyFFFS_New: TStringField
      DisplayLabel = '发放方式'
      FieldKind = fkLookup
      FieldName = 'FFFS_New'
      LookupDataSet = qryFFFS
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'FFFS'
      Lookup = True
    end
    object qryLastModifyFFJG_New: TStringField
      DisplayLabel = '发放机构'
      FieldKind = fkLookup
      FieldName = 'FFJG_New'
      LookupDataSet = qryFFJG
      LookupKeyFields = 'FFJGID'
      LookupResultField = 'JGMC'
      KeyFields = 'FFJGID'
      Lookup = True
    end
    object qryLastModifyDJQK_New: TStringField
      DisplayLabel = '定居情况'
      FieldKind = fkLookup
      FieldName = 'DJQK_New'
      LookupDataSet = qryDJQK
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'DJQK'
      Lookup = True
    end
    object qryLastModifyZH: TStringField
      DisplayLabel = '帐户'
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_RYXX_1.ZH'
      Size = 60
    end
    object qryLastModifyKHH: TStringField
      DisplayLabel = '开户行'
      FieldName = 'KHH'
      Origin = 'MAINDB.TFF_RYXX_1.KHH'
      Size = 100
    end
    object qryLastModifySKR: TStringField
      DisplayLabel = '收款人'
      FieldName = 'SKR'
      Origin = 'MAINDB.TFF_RYXX_1.SKR'
      Size = 30
    end
    object qryLastModifyHRDD: TStringField
      DisplayLabel = '汇入地点'
      FieldName = 'HRDD'
      Origin = 'MAINDB.TFF_RYXX_1.HRDD'
      Size = 100
    end
    object qryLastModifyYZBM: TStringField
      DisplayLabel = '邮政编码'
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_RYXX_1.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryLastModifyDZ: TStringField
      DisplayLabel = '地址'
      FieldName = 'DZ'
      Origin = 'MAINDB.TFF_RYXX_1.DZ'
      Size = 100
    end
    object qryLastModifyLJFFJE: TFloatField
      DisplayLabel = '累计发放金额'
      FieldName = 'LJFFJE'
      Origin = 'MAINDB.TFF_RYXX_1.LJFFJE'
    end
    object qryLastModifyFFZQ: TFloatField
      DisplayLabel = '发放周期'
      FieldName = 'FFZQ'
      Origin = 'MAINDB.TFF_RYXX_1.FFZQ'
    end
    object qryLastModifyRYZT: TFloatField
      DisplayLabel = '人员状态'
      FieldName = 'RYZT'
      Origin = 'MAINDB.TFF_RYXX_1.RYZT'
    end
    object qryLastModifyKSFFYF: TDateTimeField
      DisplayLabel = '开始发放月份'
      FieldName = 'KSFFYF'
      Origin = 'MAINDB.TFF_RYXX_1.KSFFYF'
    end
    object qryLastModifySWSJ: TDateTimeField
      DisplayLabel = '死亡时间'
      FieldName = 'SWSJ'
      Origin = 'MAINDB.TFF_RYXX_1.SWSJ'
    end
    object qryLastModifyBZ: TStringField
      DisplayLabel = '备注'
      FieldName = 'BZ'
      Origin = 'MAINDB.TFF_RYXX_1.BZ'
      Size = 100
    end
    object qryLastModifyFFFS: TFloatField
      FieldName = 'FFFS'
      Origin = 'MAINDB.TFF_RYXX_1.FFFS'
      Visible = False
    end
    object qryLastModifyFFJGID: TStringField
      FieldName = 'FFJGID'
      Origin = 'MAINDB.TFF_RYXX_1.FFJGID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryLastModifyDJQK: TFloatField
      FieldName = 'DJQK'
      Origin = 'MAINDB.TFF_RYXX_1.DJQK'
      Visible = False
    end
    object qryLastModifyHB: TFloatField
      FieldName = 'HB'
      Origin = 'MAINDB.TFF_RYXX_1.HB'
      Visible = False
    end
  end
end