ufkxxplgz.dfm

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

object frmFKXXPLGZ: TfrmFKXXPLGZ
  Left = 212
  Top = 117
  Width = 541
  Height = 375
  Caption = '反馈信息批量更正'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 445
    Top = 0
    Width = 88
    Height = 348
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object btnDisplay: TButton
      Left = 8
      Top = 12
      Width = 75
      Height = 25
      Caption = '情况显示'
      TabOrder = 0
      OnClick = btnDisplayClick
    end
    object btnModify: TButton
      Left = 8
      Top = 44
      Width = 75
      Height = 25
      Caption = '更正'
      TabOrder = 1
      OnClick = btnModifyClick
    end
    object btnClose: TButton
      Left = 8
      Top = 76
      Width = 75
      Height = 25
      Caption = '关闭'
      ModalResult = 1
      TabOrder = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 445
    Height = 348
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    TabOrder = 1
    object pagMain: TPageControl
      Left = 5
      Top = 5
      Width = 435
      Height = 338
      ActivePage = tabSuccess
      Align = alClient
      TabOrder = 0
      object tabSuccess: TTabSheet
        Caption = '更正成功'
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 427
          Height = 311
          Align = alClient
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
      object tabFail: TTabSheet
        Caption = '更正失败'
        ImageIndex = 1
        object DBGrid2: TDBGrid
          Left = 0
          Top = 0
          Width = 427
          Height = 311
          Align = alClient
          DataSource = DataSource2
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 461
    Top = 168
  end
  object Query1: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tff_ryfkxx'
      'where ffbz=3')
    Left = 493
    Top = 168
    object Query1RYID_FF: TStringField
      DisplayLabel = '人员标识'
      FieldName = 'RYID_FF'
      Origin = 'MAINDB.TFF_RYFKXX.RYID_FF'
      FixedChar = True
      Size = 10
    end
    object Query1FFYF: TDateTimeField
      DisplayLabel = '发放月份'
      FieldName = 'FFYF'
      Origin = 'MAINDB.TFF_RYFKXX.FFYF'
    end
    object Query1FFBZ: TFloatField
      DisplayLabel = '发放标志'
      FieldName = 'FFBZ'
      Origin = 'MAINDB.TFF_RYFKXX.FFBZ'
    end
    object Query1XM: TStringField
      DisplayLabel = '姓名'
      FieldName = 'XM'
      Origin = 'MAINDB.TFF_RYFKXX.XM'
      Size = 10
    end
    object Query1SFZH: TStringField
      DisplayLabel = '身份证号'
      FieldName = 'SFZH'
      Origin = 'MAINDB.TFF_RYFKXX.SFZH'
    end
    object Query1ZH: TStringField
      DisplayLabel = '帐户'
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_RYFKXX.ZH'
      Size = 60
    end
    object Query1KHH: TStringField
      DisplayLabel = '开户行'
      FieldName = 'KHH'
      Origin = 'MAINDB.TFF_RYFKXX.KHH'
      Size = 100
    end
    object Query1HRDD: TStringField
      DisplayLabel = '汇入地点'
      FieldName = 'HRDD'
      Origin = 'MAINDB.TFF_RYFKXX.HRDD'
      Size = 100
    end
    object Query1YZBM: TStringField
      DisplayLabel = '邮政编码'
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_RYFKXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object Query1DZ: TStringField
      DisplayLabel = '地址'
      FieldName = 'DZ'
      Origin = 'MAINDB.TFF_RYFKXX.DZ'
      Size = 100
    end
    object Query1FFJE: TFloatField
      DisplayLabel = '发放金额'
      FieldName = 'FFJE'
      Origin = 'MAINDB.TFF_RYFKXX.FFJE'
    end
    object Query1DQDM: TStringField
      DisplayLabel = '地区代码'
      FieldName = 'DQDM'
      Origin = 'MAINDB.TFF_RYFKXX.DQDM'
      FixedChar = True
      Size = 6
    end
    object Query1DQMC: TStringField
      DisplayLabel = '地区名称'
      FieldName = 'DQMC'
      Origin = 'MAINDB.TFF_RYFKXX.DQMC'
    end
    object Query1DWDM: TStringField
      DisplayLabel = '单位代码'
      FieldName = 'DWDM'
      Origin = 'MAINDB.TFF_RYFKXX.DWDM'
      Size = 10
    end
    object Query1CWBZ: TFloatField
      DisplayLabel = '错误标志'
      FieldName = 'CWBZ'
      Origin = 'MAINDB.TFF_RYFKXX.CWBZ'
    end
    object Query1BZ: TStringField
      DisplayLabel = '备注'
      FieldName = 'BZ'
      Origin = 'MAINDB.TFF_RYFKXX.BZ'
      Size = 40
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 461
    Top = 208
  end
  object Query2: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tff_ryfkxx'
      'where ffbz=1')
    Left = 493
    Top = 208
    object Query2RYID_FF: TStringField
      DisplayLabel = '人员标识'
      FieldName = 'RYID_FF'
      Origin = 'MAINDB.TFF_RYFKXX.RYID_FF'
      FixedChar = True
      Size = 10
    end
    object Query2FFYF: TDateTimeField
      DisplayLabel = '发放月份'
      FieldName = 'FFYF'
      Origin = 'MAINDB.TFF_RYFKXX.FFYF'
    end
    object Query2FFBZ: TFloatField
      DisplayLabel = '发放标志'
      FieldName = 'FFBZ'
      Origin = 'MAINDB.TFF_RYFKXX.FFBZ'
    end
    object Query2XM: TStringField
      DisplayLabel = '姓名'
      FieldName = 'XM'
      Origin = 'MAINDB.TFF_RYFKXX.XM'
      Size = 10
    end
    object Query2SFZH: TStringField
      DisplayLabel = '身份证号'
      FieldName = 'SFZH'
      Origin = 'MAINDB.TFF_RYFKXX.SFZH'
    end
    object Query2ZH: TStringField
      DisplayLabel = '帐户'
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_RYFKXX.ZH'
      Size = 60
    end
    object Query2KHH: TStringField
      DisplayLabel = '开户行'
      FieldName = 'KHH'
      Origin = 'MAINDB.TFF_RYFKXX.KHH'
      Size = 100
    end
    object Query2HRDD: TStringField
      DisplayLabel = '汇入地点'
      FieldName = 'HRDD'
      Origin = 'MAINDB.TFF_RYFKXX.HRDD'
      Size = 100
    end
    object Query2YZBM: TStringField
      DisplayLabel = '邮政编码'
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_RYFKXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object Query2DZ: TStringField
      DisplayLabel = '地址'
      FieldName = 'DZ'
      Origin = 'MAINDB.TFF_RYFKXX.DZ'
      Size = 100
    end
    object Query2FFJE: TFloatField
      DisplayLabel = '发放金额'
      FieldName = 'FFJE'
      Origin = 'MAINDB.TFF_RYFKXX.FFJE'
    end
    object Query2DQDM: TStringField
      DisplayLabel = '地区代码'
      FieldName = 'DQDM'
      Origin = 'MAINDB.TFF_RYFKXX.DQDM'
      FixedChar = True
      Size = 6
    end
    object Query2DQMC: TStringField
      DisplayLabel = '地区名称'
      FieldName = 'DQMC'
      Origin = 'MAINDB.TFF_RYFKXX.DQMC'
    end
    object Query2DWDM: TStringField
      DisplayLabel = '单位代码'
      FieldName = 'DWDM'
      Origin = 'MAINDB.TFF_RYFKXX.DWDM'
      Size = 10
    end
    object Query2CWBZ: TFloatField
      DisplayLabel = '错误标志'
      FieldName = 'CWBZ'
      Origin = 'MAINDB.TFF_RYFKXX.CWBZ'
    end
    object Query2BZ: TStringField
      DisplayLabel = '备注'
      FieldName = 'BZ'
      Origin = 'MAINDB.TFF_RYFKXX.BZ'
      Size = 40
    end
  end
  object stpGZ: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'P_FF_FKSJPLGZ'
    Left = 465
    Top = 134
  end
end