uyjtj.dfm

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

          Left = 216
          Top = 8
          Width = 97
          Height = 17
          Caption = '全部单位'
          TabOrder = 4
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 33
        Width = 638
        Height = 427
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 5
        Caption = 'Panel3'
        TabOrder = 1
        object Panel4: TPanel
          Left = 5
          Top = 27
          Width = 628
          Height = 41
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object Label4: TLabel
            Left = 0
            Top = 10
            Width = 42
            Height = 21
            Caption = '题目'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -21
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
        end
        object PageControl3: TPageControl
          Left = 5
          Top = 5
          Width = 628
          Height = 22
          ActivePage = TabSheet9
          Align = alTop
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          MultiLine = True
          ParentFont = False
          Style = tsButtons
          TabOrder = 1
          OnChange = PageControl3Change
          object TabSheet12: TTabSheet
            Caption = '离退休人员增减变动'
            ImageIndex = 1
          end
          object TabSheet13: TTabSheet
            Caption = '一次性待遇明细'
            ImageIndex = 2
          end
          object TabSheet14: TTabSheet
            Caption = '养老待遇汇总'
            ImageIndex = 3
          end
          object TabSheet7: TTabSheet
            Caption = '待遇支付汇总'
            ImageIndex = 3
          end
          object TabSheet9: TTabSheet
            Caption = '当月发放明细'
            ImageIndex = 4
          end
        end
        object DBGridEh2: TDBGridEh
          Left = 5
          Top = 68
          Width = 628
          Height = 354
          Align = alClient
          DataSource = souTemp2
          TabOrder = 2
          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
        end
      end
    end
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'select '
      '    to_char(YJRQ,'#39'yyyy-mm'#39') as "年月",'
      '    LX_QC as "期初|离休",'
      '    LGR_QC as "期初|老工人",'
      '    TX_QC as "期初|退休",'
      '    TZ_QC as "期初|退职",'
      '    HJ_QC as "期初|合计",'
      ''
      '    LX_ZJ as "增加|离休",'
      '    LGR_ZJ as "增加|老工人",'
      '    TX_ZJ as "增加|退休",'
      '    TZ_ZJ as "增加|退职",'
      '    HJ_ZJ as "增加|合计",'
      '    '
      '    LX_JS as "减少|离休",'
      '    LGR_JS as "减少|老工人",'
      '    TX_JS as "减少|退休",'
      '    TZ_JS as "减少|退职",'
      '    HJ_JS as "减少|合计",'
      ''
      '    LX_QM as "期末|离休",'
      '    LGR_QM as "期末|老工人",'
      '    TX_QM as "期末|退休",'
      '    TZ_QM as "期末|退职",'
      '    HJ_QM as "期末|合计"'
      '   '
      'from tREP_DWZJBD')
  end
  inherited mnuTemp: TPopupMenu
    Left = 58
    Top = 102
  end
  object PrintGrid: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = [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 = 630
    Top = 100
  end
  object spYJTJ: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'SP_YJCL_DW'
    Left = 422
    Top = 204
    ParamData = <
      item
        DataType = ftString
        Name = 'P_DWID'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_ERRORCODE'
        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 = 526
    Top = 203
  end
  object stpZJBD: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'SP_REP_DWZJBD'
    Left = 423
    Top = 247
    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 stpYCXDY: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'SP_REP_DWYCXDYMX'
    Left = 424
    Top = 290
    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 stpDYMX: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'SP_REP_DWDYMX'
    Left = 427
    Top = 335
    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 stpZFMX: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'SP_REP_DWDYZFHZ'
    Left = 427
    Top = 375
    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 stpLCDYTZ: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'SP_REP_LCTZXX'
    Left = 491
    Top = 207
    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 qryTemp2: TQuery
    DatabaseName = 'MainDB'
    Left = 606
    Top = 148
  end
  object souTemp2: TDataSource
    DataSet = qryTemp2
    Left = 575
    Top = 148
  end
  object PrintGrid2: TPrintDBGridEh
    DBGridEh = DBGridEh2
    Options = []
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 643
    Top = 151
  end
  object qryFFYF: TQuery
    DatabaseName = 'MainDB'
    DataSource = souTemp
    SQL.Strings = (
      'select * from tDYFF'
      'where ryid=:ryid'
      'order by ffyf desc')
    Left = 548
    Top = 466
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ryid'
        ParamType = ptUnknown
      end>
  end
  object souFFYF: TDataSource
    DataSet = qryFFYF
    Left = 515
    Top = 465
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGrid1
    Options = [pghFitGridToPageWidth, pghOptimalColWidths]
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.Font.Charset = ANSI_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -27
    PageFooter.Font.Name = '宋体'
    PageFooter.Font.Style = [fsBold]
    PageHeader.Font.Charset = ANSI_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -15
    PageHeader.Font.Name = '宋体'
    PageHeader.Font.Style = []
    PageHeader.LineType = pcltSingleLine
    PrintFontName = '宋体'
    Units = MM
    Left = 587
    Top = 465
  end
  object menuPrint: TPopupMenu
    Left = 371
    Top = 481
    object N1: TMenuItem
      Caption = '打印'
      OnClick = N1Click
    end
  end
  object stpYFHJ: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'SP_REP_YFHJ'
    Left = 491
    Top = 249
    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
end