unit1.~dfm

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

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Button1: TButton
      Left = 3
      Top = 8
      Width = 75
      Height = 25
      Caption = '显示'
      TabOrder = 0
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Left = 320
      Top = 11
      Width = 145
      Height = 20
      ItemHeight = 12
      TabOrder = 1
    end
    object check1: TCheckBox
      Left = 213
      Top = 12
      Width = 97
      Height = 17
      Caption = '是否分类倒出'
      TabOrder = 2
    end
    object Button2: TButton
      Left = 89
      Top = 8
      Width = 75
      Height = 25
      Caption = '倒出'
      TabOrder = 3
      OnClick = Button2Click
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 41
    Width = 688
    Height = 152
    Align = alTop
    Lines.Strings = (
      'SELECT   tdwxx.dwdm "单位代码",'
      '         tryjbxx.xm "姓名",'
      '         tryjbxx.sfzh "身份证号",'
      #9#9' to_char(tltxjbxx.ltxsj,'#39'yyyymmdd'#39') "离退休时间",'
      '         hb.jfys_94_1 "94年上半年缴费月数",'
      '         hb.jfze_94_1 "94年上半年缴费总额",'
      '         hb.jfgzze_94_1 "94年上半年缴费工资总额",'
      '         hb.jfys_94_2 "94年下半年缴费月数",'
      '         hb.jfze_94_2 "94年下半年缴费总额",'
      '         hb.jfgzze_94_2 "94年下半年缴费工资总额",'
      '         hb.jfys_95_1 "95年上半年缴费月数",'
      '         hb.jfze_95_1 "95年上半年缴费总额",'
      '         hb.jfgzze_95_1 "95年上半年缴费工资总额",'
      '         hb.jfys_95_2 "95年下半年缴费月数",'
      '         hb.jfze_95_2 "95年下半年缴费总额",'
      '         hb.jfgzze_95_2 "95年下半年缴费工资总额",'
      '         hb.jfys_96_1 "96年上半年缴费月数",'
      '         hb.jfze_96_1 "96年上半年缴费总额",'
      '         hb.jfgzze_96_1 "96年上半年缴费工资总额",'
      '         hb.jfys_96_2 "96年下半年缴费月数",'
      '         hb.jfze_96_2 "96年下半年缴费总额",'
      '         hb.jfgzze_96_2 "96年下半年缴费工资总额",'
      '         hb.jfys_97_1 "97年上半年缴费月数",'
      '         hb.jfze_97_1 "97年上半年缴费总额",'
      '         hb.jfgzze_97_1 "97年上半年缴费工资总额",'
      '         hb.jfys_97_2 "97年下半年缴费月数",'
      '         hb.jfze_97_2 "97年下半年缴费总额",'
      '         hb.jfgzze_97_2 "97年下半年缴费工资总额",'
      '         hb.jfys_98_1 "98年上半年缴费月数",'
      '         hb.jfze_98_1 "98年上半年缴费总额",'
      '         hb.jfgzze_98_1 "98年上半年缴费工资总额",'
      '         hb.jfys_98_2 "98年下半年缴费月数",'
      '         hb.jfze_98_2 "98年下半年缴费总额",'
      '         hb.jfgzze_98_2 "98年下半年缴费工资总额",'
      '         hb.jfys_99_1 "99年上半年缴费月数",'
      '         hb.jfze_99_1 "99年上半年缴费总额",'
      '         hb.jfgzze_99_1 "99年上半年缴费工资总额",'
      '         hb.jfys_99_2 "99年下半年缴费月数",'
      '         hb.jfze_99_2 "99年下半年缴费总额",'
      '         hb.jfgzze_99_2 "99年下半年缴费工资总额",'
      '         hb.jfys_00_1 "2000年上半年缴费月数",'
      '         hb.jfze_00_1 "2000年上半年缴费总额",'
      '         hb.jfgzze_00_1 "2000年上半年缴费工资总额",'
      '         hb.jfys_00_2 "2000年下半年缴费月数",'
      '         hb.jfze_00_2 "2000年下半年缴费总额",'
      '         hb.jfgzze_00_2 "2000年下半年缴费工资总额",'
      '         hb.jfys_01_1 "2001年上半年缴费月数",'
      '         hb.jfze_01_1 "2001年上半年缴费总额",'
      '         hb.jfgzze_01_1 "2001年上半年缴费工资总额"'
      '    FROM tjfxx_hb hb,'
      '         tryjbxx,'
      '         tdwxx,'
      '         tltxjbxx'
      '   WHERE tryjbxx.ryid = hb.ryid'
      '     AND tryjbxx.dwid = tdwxx.dwid'
      '     AND tryjbxx.ryid = tltxjbxx.ryid'
      '     AND tdwxx.dwdm LIKE '#39'331%'#39
      '     AND tltxjbxx.ltxsj >= TO_DATE ('#39'200101'#39', '#39'yyyymm'#39')'
      'ORDER BY tdwxx.dwdm,'
      '         tryjbxx.ryid'
      ' ')
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 193
    Width = 688
    Height = 260
    Align = alClient
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 24
    Top = 96
  end
  object Query1: TQuery
    DatabaseName = 'sidb'
    Left = 56
    Top = 96
  end
  object QExport: TVExcelExport
    ExcelOptions.PageFooter = 'Page &P of &N'
    ExcelOptions.DefaultFont.Charset = DEFAULT_CHARSET
    ExcelOptions.DefaultFont.Color = clWindowText
    ExcelOptions.DefaultFont.Height = -13
    ExcelOptions.DefaultFont.Name = 'Arial'
    ExcelOptions.DefaultFont.Style = []
    ExcelOptions.RowHeaderFont.Charset = DEFAULT_CHARSET
    ExcelOptions.RowHeaderFont.Color = clWindowText
    ExcelOptions.RowHeaderFont.Height = -13
    ExcelOptions.RowHeaderFont.Name = 'Arial'
    ExcelOptions.RowHeaderFont.Style = [fsBold]
    Dataset = Query1
    Formats.DateTimeFormat = 'yyyy-M-d h:mm'
    Formats.IntegerFormat = '#,###,##0'
    Formats.CurrencyFormat = '00.00￥'
    Formats.FloatFormat = '#,###,##0.00'
    Formats.DateFormat = 'yyyy-M-d'
    Formats.TimeFormat = 'h:mm'
    Formats.BooleanTrue = 'True'
    Formats.BooleanFalse = 'False'
    Left = 536
    Top = 8
  end
end