udytzwh.dfm

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

inherited frmDYTZWH: TfrmDYTZWH
  Left = 88
  Top = 74
  Caption = 'frmDYTZWH'
  PixelsPerInch = 96
  TextHeight = 12
  inherited barStatus: TStatusBar
    Panels = <
      item
        Width = 80
      end
      item
        Alignment = taCenter
        Width = 170
      end
      item
        Alignment = taCenter
        Width = 170
      end
      item
        Alignment = taCenter
        Width = 50
      end
      item
        Alignment = taRightJustify
        Width = 50
      end>
  end
  inherited Panel1: TPanel
    inherited pagTemp: TPageControl
      inherited tabEdit: TTabSheet
        inherited scrMain: TScrollBox
          object GroupBox1: TGroupBox
            Left = 0
            Top = 0
            Width = 624
            Height = 91
            Align = alTop
            Caption = '调整信息'
            TabOrder = 0
            object Label1: TLabel
              Left = 72
              Top = 32
              Width = 72
              Height = 12
              Caption = '待遇调整日期'
            end
            object Label2: TLabel
              Left = 362
              Top = 32
              Width = 72
              Height = 12
              Caption = '实际操作日期'
            end
            object Label3: TLabel
              Left = 24
              Top = 56
              Width = 120
              Height = 12
              Caption = '过渡性养老金增发比例'
              FocusControl = DBEdit3
            end
            object Label4: TLabel
              Left = 302
              Top = 56
              Width = 132
              Height = 12
              Caption = '个人帐户养老金增发比例'
              FocusControl = DBEdit4
            end
            object Label5: TLabel
              Left = 231
              Top = 56
              Width = 6
              Height = 12
              Caption = '%'
            end
            object Label6: TLabel
              Left = 515
              Top = 57
              Width = 6
              Height = 12
              Caption = '%'
            end
            object DBEdit3: TDBEdit
              Left = 162
              Top = 52
              Width = 64
              Height = 20
              DataField = 'GDXYLJ'
              DataSource = souDetail
              TabOrder = 2
            end
            object DBEdit4: TDBEdit
              Left = 441
              Top = 52
              Width = 64
              Height = 20
              DataField = 'GRZHYLJ'
              DataSource = souDetail
              TabOrder = 3
            end
            object dtpTZRQ: TwwDBDateTimePicker
              Left = 163
              Top = 28
              Width = 121
              Height = 20
              CalendarAttributes.Font.Charset = DEFAULT_CHARSET
              CalendarAttributes.Font.Color = clWindowText
              CalendarAttributes.Font.Height = -11
              CalendarAttributes.Font.Name = 'MS Sans Serif'
              CalendarAttributes.Font.Style = []
              DataField = 'TZRQ'
              DataSource = souDetail
              Date = 36192
              Epoch = 1950
              ShowButton = True
              TabOrder = 0
              UnboundDataType = wwDTEdtDate
            end
            object wwDBDateTimePicker2: TwwDBDateTimePicker
              Left = 441
              Top = 28
              Width = 121
              Height = 20
              CalendarAttributes.Font.Charset = DEFAULT_CHARSET
              CalendarAttributes.Font.Color = clWindowText
              CalendarAttributes.Font.Height = -11
              CalendarAttributes.Font.Name = 'MS Sans Serif'
              CalendarAttributes.Font.Style = []
              DataField = 'ZXRQ'
              DataSource = souDetail
              Date = 36220
              Epoch = 1950
              ShowButton = True
              TabOrder = 1
              UnboundDataType = wwDTEdtDate
            end
          end
          object GroupBox2: TGroupBox
            Left = 0
            Top = 91
            Width = 624
            Height = 236
            Align = alClient
            Caption = '历次待遇调整信息'
            TabOrder = 1
            object wwDBGrid1: TwwDBGrid
              Left = 2
              Top = 14
              Width = 620
              Height = 220
              Selected.Strings = (
                'TZRQ'#9'18'#9'待遇调整日期'
                'ZXRQ'#9'18'#9'实际操作日期'
                'GDXYLJ'#9'10'#9'过渡性养老金增发比例(%)'
                'GRZHYLJ'#9'10'#9'个人帐户养老金增发比例(%)')
              IniAttributes.Delimiter = ';;'
              TitleColor = clBtnFace
              FixedCols = 0
              ShowHorzScrollBar = True
              Align = alClient
              DataSource = souDetail
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgTrailingEllipsis]
              TabOrder = 0
              TitleAlignment = taCenter
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = '宋体'
              TitleFont.Style = []
              TitleLines = 1
              TitleButtons = False
              IndicatorColor = icBlack
            end
          end
        end
      end
    end
  end
  inherited qryDetail: TwwQuery
    AfterInsert = qryDetailAfterInsert
    BeforePost = qryDetailBeforePost
    DataSource = nil
    SQL.Strings = (
      'select * from tDYTZXX'
      'order by tzrq desc')
    object qryDetailTZRQ: TDateTimeField
      DisplayLabel = '待遇调整日期'
      DisplayWidth = 18
      FieldName = 'TZRQ'
      Origin = 'MAINDB.TDYTZXX.TZRQ'
    end
    object qryDetailZXRQ: TDateTimeField
      DisplayLabel = '实际操作日期'
      DisplayWidth = 18
      FieldName = 'ZXRQ'
      Origin = 'MAINDB.TDYTZXX.ZXRQ'
    end
    object qryDetailGDXYLJ: TFloatField
      DisplayLabel = '过渡性养老金增发比例(%)'
      DisplayWidth = 10
      FieldName = 'GDXYLJ'
      Origin = 'MAINDB.TDYTZXX.GDXYLJ'
    end
    object qryDetailGRZHYLJ: TFloatField
      DisplayLabel = '个人帐户养老金增发比例(%)'
      DisplayWidth = 10
      FieldName = 'GRZHYLJ'
      Origin = 'MAINDB.TDYTZXX.GRZHYLJ'
    end
    object qryDetailJBR: TStringField
      DisplayLabel = '经办人'
      DisplayWidth = 10
      FieldName = 'JBR'
      Origin = 'MAINDB.TDYTZXX.JBR'
      Visible = False
      Size = 10
    end
    object qryDetailJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      DisplayWidth = 18
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TDYTZXX.JBRQ'
      Visible = False
    end
    object qryDetailSHR: TStringField
      DisplayLabel = '审核人'
      DisplayWidth = 10
      FieldName = 'SHR'
      Origin = 'MAINDB.TDYTZXX.SHR'
      Visible = False
      Size = 10
    end
    object qryDetailSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      DisplayWidth = 18
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TDYTZXX.SHRQ'
      Visible = False
    end
  end
  inherited sqlDetail: TUpdateSQL
    ModifySQL.Strings = (
      'update tDYTZXX'
      'set'
      '  TZRQ = :TZRQ,'
      '  ZXRQ = :ZXRQ,'
      '  GDXYLJ = :GDXYLJ,'
      '  GRZHYLJ = :GRZHYLJ,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  TZRQ = :OLD_TZRQ')
    InsertSQL.Strings = (
      'insert into tDYTZXX'
      '  (TZRQ, ZXRQ, GDXYLJ, GRZHYLJ, JBR, JBRQ, SHR, SHRQ)'
      'values'
      '  (:TZRQ, :ZXRQ, :GDXYLJ, :GRZHYLJ, :JBR, :JBRQ, :SHR, :SHRQ)')
    DeleteSQL.Strings = (
      'delete from tDYTZXX'
      'where'
      '  TZRQ = :OLD_TZRQ')
  end
end