uyzxx.dfm

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

inherited frmTZXX: TfrmTZXX
  Left = -4
  Top = -4
  Caption = '调整信息'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel2: TPanel
    inherited TreeView1: TTreeView
      OnClick = TreeView1Click
    end
  end
  inherited pagTemp: TPageControl
    inherited tabEdit: TTabSheet
      inherited pnlEdit: TPanel
        object Button1: TButton
          Left = 10
          Top = 4
          Width = 75
          Height = 25
          Caption = '打印'
          TabOrder = 1
          OnClick = Button1Click
        end
        object Button3: TButton
          Left = 85
          Top = 4
          Width = 75
          Height = 25
          Caption = '倒出'
          TabOrder = 2
          OnClick = Button3Click
        end
      end
      inherited Panel6: TPanel
        inherited scrMain: TScrollBox
          object DBGridEh1: TDBGridEh
            Left = 0
            Top = 0
            Width = 628
            Height = 417
            Align = alClient
            DataSource = souTemp
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = '宋体'
            TitleFont.Style = []
            FooterFont.Charset = GB2312_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -12
            FooterFont.Name = '宋体'
            FooterFont.Style = []
            FooterColor = clWindow
            UseMultiTitle = True
            MinAutoFitWidth = 1
            RowHeight = 4
            RowSizingAllowed = True
            RowLines = 1
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText]
          end
        end
      end
    end
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'SELECT'
      '    tz1999.XM           AS "姓名",'
      '    tz1999.SHBZH        AS "社会保障号",'
      '    tz1999.LTXSJ        AS "离退休时间",'
      '    tz1999.TZRQ         AS "1999年调整日期",'
      '    tz2000.TZRQ         AS "2000年调整日期",'
      '    tz1999.YLDYHJ_TZQ   AS "初始养老待遇合计",'
      '    tz1999.JCYLJ_TZQ    AS "初始基础养老金",'
      '    tz1999.GDXYLJ_TZQ   AS "初始过渡性养老金",'
      '    tz1999.GRZHYLJ_TZQ  AS "初始个人账户养老金",'
      '    tz1999.HYGDXBT_TZQ  AS "初始行业过渡性补贴",'
      '    tz1999.DFBCLXDY_TZQ AS "初始地方补充离休待遇",'
      '    tz1999.HLF_TZQ      AS "初始护理费",'
      '    tz1999.TZJ_TZQ      AS "初始调整金",'
      '    tz1999.YLDYHJ_TZH   AS "1999年调整后养老待遇合计",'
      '    tz1999.JCYLJ_TZH    AS "1999年调整后基础养老金",'
      '    tz1999.GDXYLJ_TZH   AS "1999年调整后过渡性养老金",'
      '    tz1999.GRZHYLJ_TZH  AS "1999年调整后个人账户养老金",'
      '    tz1999.HYGDXBT_TZH  AS "1999年调整后行业过渡性补贴",'
      '    tz1999.DFBCLXDY_TZH AS "1999年调整后地方补充离休待遇",'
      '    tz1999.HLF_TZH      AS "1999年调整后护理费",'
      '    tz1999.TZJ_TZH      AS "1999年调整后调整金",'
      '    tz1999.YLDYHJ_ZJ    AS "1999年增加养老待遇合计",'
      '    tz1999.JCYLJ_ZJ     AS "1999年增加基础养老金",'
      '    tz1999.GDXYLJ_ZJ    AS "1999年增加过渡性养老金",'
      '    tz1999.GRZHYLJ_ZJ   AS "1999年增加个人账户养老金",'
      '    tz1999.HYGDXBT_ZJ   AS "1999年增加行业过渡性补贴",'
      '    tz1999.DFBCLXDY_ZJ  AS "1999年增加地方补充离休待遇",'
      '    tz1999.HLF_ZJ       AS "1999年增加护理费",'
      '    tz1999.TZJ_ZJ       AS "1999年增加调整金",'
      '    tz2000.YLDYHJ_TZH   AS "2000年调整后养老待遇合计",'
      '    tz2000.JCYLJ_TZH    AS "2000年调整后基础养老金",'
      '    tz2000.GDXYLJ_TZH   AS "2000年调整后过渡性养老金",'
      '    tz2000.GRZHYLJ_TZH  AS "2000年调整后个人账户养老金",'
      '    tz2000.HYGDXBT_TZH  AS "2000年调整后行业过渡性补贴",'
      '    tz2000.DFBCLXDY_TZH AS "2000年调整后地方补充离休待遇",'
      '    tz2000.HLF_TZH      AS "2000年调整后护理费",'
      '    tz2000.TZJ_TZH      AS "2000年调整后调整金",'
      '    tz2000.YLDYHJ_ZJ    AS "2000年增加养老待遇合计",'
      '    tz2000.JCYLJ_ZJ     AS "2000年增加基础养老金",'
      '    tz2000.GDXYLJ_ZJ    AS "2000年增加过渡性养老金",'
      '    tz2000.GRZHYLJ_ZJ   AS "2000年增加个人账户养老金",'
      '    tz2000.HYGDXBT_ZJ   AS "2000年增加行业过渡性补贴",'
      '    tz2000.DFBCLXDY_ZJ  AS "2000年增加地方补充离休待遇",'
      '    tz2000.HLF_ZJ       AS "2000年增加护理费",'
      '    tz2000.TZJ_ZJ       AS "2000年增加调整金"'
      'FROM tYLDYDZD_REP tz1999,tYLDYDZD_REP tz2000'
      'WHERE'
      
        '    tz1999.dwdm =:dwdm and    tz1999.tzrq =(select tzrq from tfz' +
        'ctzxx where dygc='#39'p_99dytz'#39') and '
      
        '    tz2000.dwdm =:dwdm and    tz2000.tzrq =(select tzrq from tfz' +
        'ctzxx where dygc='#39'p_2000dytz'#39') and '
      '    tz1999.ryid=tz2000.ryid'
      'ORDER BY tz1999.ryid'
      '')
    ParamData = <
      item
        DataType = ftString
        Name = 'dwdm'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'dwdm'
        ParamType = ptInput
      end>
  end
  object PrintGrid: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = [pghFitingByColWidths, pghOptimalColWidths]
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.Font.Charset = GB2312_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -16
    PageFooter.Font.Name = '宋体'
    PageFooter.Font.Style = [fsBold]
    PageHeader.Font.Charset = GB2312_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -32
    PageHeader.Font.Name = '宋体'
    PageHeader.Font.Style = []
    PrintFontName = '宋体'
    Units = MM
    Left = 334
    Top = 83
  end
  object spTZXX: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'SP_REP_LCTZXX'
    Left = 374
    Top = 91
    ParamData = <
      item
        DataType = ftString
        Name = 'P_DWID'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_ERRORCODE'
        ParamType = ptOutput
      end
      item
        DataType = ftString
        Name = 'P_ERRORTEXT'
        ParamType = ptOutput
      end>
  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]
    Formats.DateTimeFormat = 'yyyy-MM-dd h:mm'
    Formats.IntegerFormat = '#,###,##0'
    Formats.CurrencyFormat = '00.00￥'
    Formats.FloatFormat = '#,###,##0.00'
    Formats.DateFormat = 'yyyy-MM-dd'
    Formats.TimeFormat = 'h:mm'
    Formats.BooleanTrue = 'True'
    Formats.BooleanFalse = 'False'
    Left = 427
    Top = 113
  end
  object dlgSave: TSaveDialog
    DefaultExt = '.xls'
    Filter = 'Excel 文件|*.xls'
    Title = '数据倒出'
    Left = 640
    Top = 198
  end
end