ufkxxgz.~dfm

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

    end
    object qryRYFKXXFFJE: TFloatField
      DisplayLabel = '发放金额'
      DisplayWidth = 10
      FieldName = 'FFJE'
      Origin = 'MAINDB.TFF_RYFKXX.FFJE'
    end
    object qryRYFKXXDQDM: TStringField
      DisplayLabel = '地区代码'
      DisplayWidth = 8
      FieldName = 'DQDM'
      Origin = 'MAINDB.TFF_RYFKXX.DQDM'
      FixedChar = True
      Size = 6
    end
    object qryRYFKXXDQMC: TStringField
      DisplayLabel = '地区名称'
      DisplayWidth = 20
      FieldName = 'DQMC'
      Origin = 'MAINDB.TFF_RYFKXX.DQMC'
    end
    object qryRYFKXXDWDM: TStringField
      DisplayLabel = '单位代码'
      DisplayWidth = 10
      FieldName = 'DWDM'
      Origin = 'MAINDB.TFF_RYFKXX.DWDM'
      Size = 10
    end
    object qryRYFKXXCWBZ: TFloatField
      DisplayLabel = '错误标志'
      DisplayWidth = 10
      FieldName = 'CWBZ'
      Origin = 'MAINDB.TFF_RYFKXX.CWBZ'
    end
    object qryRYFKXXBZ: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 23
      FieldName = 'BZ'
      Origin = 'MAINDB.TFF_RYFKXX.BZ'
      Size = 40
    end
  end
  object souRYXX: TDataSource
    DataSet = qryRYXX
    OnDataChange = souRYXXDataChange
    Left = 408
    Top = 292
  end
  object qryRYXX: TQuery
    CachedUpdates = True
    BeforePost = qryRYXXBeforePost
    AfterPost = qryRYXXAfterPost
    OnCalcFields = qryRYXXCalcFields
    DatabaseName = 'MainDB'
    DataSource = souRYFKXX
    SQL.Strings = (
      'select * from tff_ryxx where ryid_ff=:ryid_ff')
    UpdateObject = sqlRYXX
    Left = 442
    Top = 292
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID_FF'
        ParamType = ptInput
      end>
    object qryRYXXRYID_FF: TStringField
      FieldName = 'RYID_FF'
      Origin = 'MAINDB.TFF_RYXX.RYID_FF'
      FixedChar = True
      Size = 10
    end
    object qryRYXXDWID_FF: TStringField
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_RYXX.DWID_FF'
      FixedChar = True
      Size = 10
    end
    object qryRYXXSSDWID: TStringField
      FieldName = 'SSDWID'
      Origin = 'MAINDB.TFF_RYXX.SSDWID'
      FixedChar = True
      Size = 10
    end
    object qryRYXXRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TFF_RYXX.RYID'
      FixedChar = True
      Size = 10
    end
    object qryRYXXXM: TStringField
      FieldName = 'XM'
      Origin = 'MAINDB.TFF_RYXX.XM'
      Size = 10
    end
    object qryRYXXSFZH: TStringField
      FieldName = 'SFZH'
      Origin = 'MAINDB.TFF_RYXX.SFZH'
      FixedChar = True
    end
    object qryRYXXHDJE: TFloatField
      FieldName = 'HDJE'
      Origin = 'MAINDB.TFF_RYXX.HDJE'
    end
    object qryRYXXFFFS: TFloatField
      FieldName = 'FFFS'
      Origin = 'MAINDB.TFF_RYXX.FFFS'
    end
    object qryRYXXFFJGID: TStringField
      FieldName = 'FFJGID'
      Origin = 'MAINDB.TFF_RYXX.FFJGID'
      FixedChar = True
      Size = 10
    end
    object qryRYXXDJQK: TFloatField
      FieldName = 'DJQK'
      Origin = 'MAINDB.TFF_RYXX.DJQK'
    end
    object qryRYXXZH: TStringField
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_RYXX.ZH'
      Size = 40
    end
    object qryRYXXKHH: TStringField
      FieldName = 'KHH'
      Origin = 'MAINDB.TFF_RYXX.KHH'
      Size = 80
    end
    object qryRYXXHB: TFloatField
      FieldName = 'HB'
      Origin = 'MAINDB.TFF_RYXX.HB'
    end
    object qryRYXXSKR: TStringField
      FieldName = 'SKR'
      Origin = 'MAINDB.TFF_RYXX.SKR'
    end
    object qryRYXXHRDD: TStringField
      FieldName = 'HRDD'
      Origin = 'MAINDB.TFF_RYXX.HRDD'
      Size = 80
    end
    object qryRYXXYZBM: TStringField
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_RYXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryRYXXDZ: TStringField
      FieldName = 'DZ'
      Origin = 'MAINDB.TFF_RYXX.DZ'
      Size = 100
    end
    object qryRYXXFFJE: TFloatField
      FieldName = 'FFJE'
      Origin = 'MAINDB.TFF_RYXX.FFJE'
    end
    object qryRYXXLJFFJE: TFloatField
      FieldName = 'LJFFJE'
      Origin = 'MAINDB.TFF_RYXX.LJFFJE'
    end
    object qryRYXXFFZQ: TFloatField
      FieldName = 'FFZQ'
      Origin = 'MAINDB.TFF_RYXX.FFZQ'
    end
    object qryRYXXRYZT: TFloatField
      FieldName = 'RYZT'
      Origin = 'MAINDB.TFF_RYXX.RYZT'
    end
    object qryRYXXKSFFYF: TDateTimeField
      FieldName = 'KSFFYF'
      Origin = 'MAINDB.TFF_RYXX.KSFFYF'
    end
    object qryRYXXCSRQ: TDateTimeField
      FieldName = 'CSRQ'
      Origin = 'MAINDB.TFF_RYXX.CSRQ'
    end
    object qryRYXXTXSJ: TDateTimeField
      FieldName = 'TXSJ'
      Origin = 'MAINDB.TFF_RYXX.TXSJ'
    end
    object qryRYXXTXLB: TFloatField
      FieldName = 'TXLB'
      Origin = 'MAINDB.TFF_RYXX.TXLB'
    end
    object qryRYXXLXDH: TStringField
      FieldName = 'LXDH'
      Origin = 'MAINDB.TFF_RYXX.LXDH'
    end
    object qryRYXXXM_QS: TStringField
      FieldName = 'XM_QS'
      Origin = 'MAINDB.TFF_RYXX.XM_QS'
      Size = 10
    end
    object qryRYXXSFZH_QS: TStringField
      FieldName = 'SFZH_QS'
      Origin = 'MAINDB.TFF_RYXX.SFZH_QS'
      FixedChar = True
    end
    object qryRYXXGX_QS: TFloatField
      FieldName = 'GX_QS'
      Origin = 'MAINDB.TFF_RYXX.GX_QS'
    end
    object qryRYXXLXDH_QS: TStringField
      FieldName = 'LXDH_QS'
      Origin = 'MAINDB.TFF_RYXX.LXDH_QS'
    end
    object qryRYXXLXDZ_QS: TStringField
      FieldName = 'LXDZ_QS'
      Origin = 'MAINDB.TFF_RYXX.LXDZ_QS'
      Size = 100
    end
    object qryRYXXYZBM_QS: TStringField
      FieldName = 'YZBM_QS'
      Origin = 'MAINDB.TFF_RYXX.YZBM_QS'
      FixedChar = True
      Size = 6
    end
    object qryRYXXYYFWSJ: TFloatField
      FieldName = 'YYFWSJ'
      Origin = 'MAINDB.TFF_RYXX.YYFWSJ'
    end
    object qryRYXXSKFWRQ: TFloatField
      FieldName = 'SKFWRQ'
      Origin = 'MAINDB.TFF_RYXX.SKFWRQ'
    end
    object qryRYXXSKFWSJ: TFloatField
      FieldName = 'SKFWSJ'
      Origin = 'MAINDB.TFF_RYXX.SKFWSJ'
    end
    object qryRYXXBZ: TStringField
      FieldName = 'BZ'
      Origin = 'MAINDB.TFF_RYXX.BZ'
      Size = 100
    end
    object qryRYXXJBR: TStringField
      FieldName = 'JBR'
      Origin = 'MAINDB.TFF_RYXX.JBR'
      Size = 10
    end
    object qryRYXXJBRQ: TDateTimeField
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TFF_RYXX.JBRQ'
    end
    object qryRYXXSHR: TStringField
      FieldName = 'SHR'
      Origin = 'MAINDB.TFF_RYXX.SHR'
      Size = 10
    end
    object qryRYXXSHRQ: TDateTimeField
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TFF_RYXX.SHRQ'
    end
    object qryRYXXBZJE: TFloatField
      FieldName = 'BZJE'
      Origin = 'MAINDB.TFF_RYXX.BZJE'
    end
    object qryRYXXSWSJ: TDateTimeField
      FieldName = 'SWSJ'
      Origin = 'MAINDB.TFF_RYXX.SWSJ'
    end
    object qryRYXXXYFFJE: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'XYFFJE'
      Calculated = True
    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,'
      '  BZJE = :BZJE,'
      '  SWSJ = :SWSJ'
      '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, SWSJ)'
      '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, :SWSJ)')
    DeleteSQL.Strings = (
      'delete from tff_ryxx'
      'where'
      '  RYID_FF = :OLD_RYID_FF')
    Left = 479
    Top = 293
  end
  object souHB: TDataSource
    Left = 593
    Top = 139
  end
  object qryHB: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB where zdbz='#39'HB'#39
      'order by dm ')
    Left = 633
    Top = 139
  end
  object souFFFS: TDataSource
    DataSet = qryFFFS
    Left = 625
    Top = 289
  end
  object qryFFFS: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'FFXS'#39
      'ORDER BY DM')
    Left = 657
    Top = 289
  end
  object souDJQK: TDataSource
    DataSet = qryDJQK
    Left = 623
    Top = 324
  end
  object qryDJQK: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'DJQK'#39
      'ORDER BY DM')
    Left = 655
    Top = 324
  end
  object souFFZQ: TDataSource
    DataSet = qryFFZQ
    Left = 623
    Top = 356
  end
  object qryFFZQ: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'FFZQ'#39
      'ORDER BY DM')
    Left = 655
    Top = 356
  end
  object souFFJG: TDataSource
    DataSet = qryFFJG
    Left = 621
    Top = 388
  end
  object qryFFJG: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT *'
      'from tFF_WTFFJG')
    Left = 653
    Top = 390
  end
  object souDQXX: TDataSource
    DataSet = qryDQXX
    Left = 408
    Top = 329
  end
  object qryDQXX: TQuery
    CachedUpdates = True
    AfterPost = qryDQXXAfterPost
    DatabaseName = 'MainDB'
    DataSource = souRYFKXX
    SQL.Strings = (
      'select * from tff_rydqxx where ryid_ff=:ryid_ff')
    UpdateObject = sqlDQXX
    Left = 440
    Top = 330
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID_FF'
        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 = 480
    Top = 329
  end
  object Query1: TQuery
    DatabaseName = 'MainDB'
    Left = 440
    Top = 39
  end
  object Query2: TQuery
    DatabaseName = 'MainDB'
    Left = 488
    Top = 39
  end
end