ujfbl.dfm

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

              Value = 1990
            end
            object edtMonth1: TSpinEdit
              Left = 191
              Top = 21
              Width = 39
              Height = 21
              MaxValue = 12
              MinValue = 1
              TabOrder = 1
              Value = 1
              OnEnter = edtMonth1Enter
            end
            object edtMonth2: TSpinEdit
              Left = 254
              Top = 21
              Width = 39
              Height = 21
              MaxValue = 12
              MinValue = 1
              TabOrder = 2
              Value = 1
              OnEnter = edtMonth2Enter
              OnExit = edtMonth2Exit
            end
          end
          object GroupBox2: TGroupBox
            Left = 0
            Top = 135
            Width = 624
            Height = 189
            Align = alClient
            Caption = '缴费历史记录'
            TabOrder = 1
            object wwDBGrid1: TwwDBGrid
              Left = 2
              Top = 14
              Width = 620
              Height = 173
              Selected.Strings = (
                'JFKSYF'#9'19'#9'缴费开始月份'
                'JFZZYF'#9'15'#9'缴费终止月份'
                'JFYS'#9'12'#9'缴费月数'
                'JFZE'#9'13'#9'缴费总额'
                'JFGZZE'#9'14'#9'缴费工资总额'
                'GRJFBL'#9'14'#9'个人缴费比例')
              IniAttributes.Delimiter = ';;'
              TitleColor = clBtnFace
              FixedCols = 0
              ShowHorzScrollBar = False
              Align = alClient
              BorderStyle = bsNone
              DataSource = souDetail
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgShowFooter]
              TabOrder = 0
              TitleAlignment = taCenter
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = '宋体'
              TitleFont.Style = []
              TitleLines = 1
              TitleButtons = False
              IndicatorColor = icBlack
              OnTopRowChanged = wwDBGrid1TopRowChanged
              OnUpdateFooter = wwDBGrid1UpdateFooter
            end
          end
        end
      end
    end
  end
  inherited ActionList1: TActionList
    object actFind: TAction
      Category = '数据库操作'
      Caption = '查询个人缴费'
      ImageIndex = 4
    end
  end
  inherited qryMaster: TwwQuery
    SQL.Strings = (
      'select * from tJFXX'
      'where ryid=:ryid')
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryMasterJFKSYF: TDateTimeField
      DisplayLabel = '缴费开始月份'
      DisplayWidth = 19
      FieldName = 'JFKSYF'
      Origin = 'MAINDB.TJFXX.JFKSYF'
      DisplayFormat = 'yyyy-mm'
    end
    object qryMasterJFZZYF: TDateTimeField
      ConstraintErrorMessage = '出错了'
      DisplayLabel = '缴费终止月份'
      DisplayWidth = 15
      FieldName = 'JFZZYF'
      Origin = 'MAINDB.TJFXX.JFZZYF'
      DisplayFormat = 'yyyy-mm'
    end
    object qryMasterJFYS: TFloatField
      DisplayLabel = '缴费月数'
      DisplayWidth = 12
      FieldName = 'JFYS'
      Origin = 'MAINDB.TJFXX.JFYS'
    end
    object qryMasterJFZE: TFloatField
      DisplayLabel = '缴费总额'
      DisplayWidth = 13
      FieldName = 'JFZE'
      Origin = 'MAINDB.TJFXX.JFZE'
      currency = True
    end
    object qryMasterJFGZZE: TFloatField
      DisplayLabel = '缴费工资总额'
      DisplayWidth = 14
      FieldName = 'JFGZZE'
      Origin = 'MAINDB.TJFXX.JFGZZE'
      currency = True
    end
    object qryMasterGRJFBL: TFloatField
      CustomConstraint = 'x>=0 and x<=100'
      ConstraintErrorMessage = '比例值在0-100之间'
      DisplayLabel = '个人缴费比例'
      DisplayWidth = 14
      FieldName = 'GRJFBL'
      Origin = 'MAINDB.TJFXX.GRJFBL'
    end
    object qryMasterYWZT: TFloatField
      FieldName = 'YWZT'
      Origin = 'MAINDB.TJFXX.YWZT'
      Visible = False
    end
    object qryMasterJBR: TStringField
      DisplayLabel = '经办人'
      DisplayWidth = 10
      FieldName = 'JBR'
      Origin = 'MAINDB.TJFXX.JBR'
      Visible = False
      Size = 10
    end
    object qryMasterJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      DisplayWidth = 13
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TJFXX.JBRQ'
      Visible = False
    end
    object qryMasterSHR: TStringField
      DisplayLabel = '审核人'
      DisplayWidth = 10
      FieldName = 'SHR'
      Origin = 'MAINDB.TJFXX.SHR'
      Visible = False
      Size = 10
    end
    object qryMasterSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      DisplayWidth = 14
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TJFXX.SHRQ'
      Visible = False
    end
    object qryMasterRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TJFXX.RYID'
      Visible = False
      FixedChar = True
      Size = 10
    end
  end
  inherited souDetail: TwwDataSource
    AutoEdit = False
    OnDataChange = souDetailDataChange
  end
  inherited qryDetail: TwwQuery
    AfterInsert = qryDetailAfterInsert
    BeforePost = qryDetailBeforePost
    SQL.Strings = (
      'select * from tJFXX'
      'where ryid=:ryid'
      'order by jfksyf desc')
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryDetailJFKSYF: TDateTimeField
      DisplayLabel = '缴费开始月份'
      DisplayWidth = 19
      FieldName = 'JFKSYF'
      Origin = 'MAINDB.TJFXX.JFKSYF'
      DisplayFormat = 'yyyy-mm'
    end
    object qryDetailJFZZYF: TDateTimeField
      DisplayLabel = '缴费终止月份'
      DisplayWidth = 15
      FieldName = 'JFZZYF'
      Origin = 'MAINDB.TJFXX.JFZZYF'
      DisplayFormat = 'yyyy-mm'
    end
    object qryDetailJFYS: TFloatField
      DisplayLabel = '缴费月数'
      DisplayWidth = 12
      FieldName = 'JFYS'
      Origin = 'MAINDB.TJFXX.JFYS'
    end
    object qryDetailJFZE: TFloatField
      DisplayLabel = '缴费总额'
      DisplayWidth = 13
      FieldName = 'JFZE'
      Origin = 'MAINDB.TJFXX.JFZE'
    end
    object qryDetailJFGZZE: TFloatField
      DisplayLabel = '缴费工资总额'
      DisplayWidth = 14
      FieldName = 'JFGZZE'
      Origin = 'MAINDB.TJFXX.JFGZZE'
    end
    object qryDetailGRJFBL: TFloatField
      CustomConstraint = 'x>=0 and x<=100'
      ConstraintErrorMessage = '比例值在0-100之间'
      DisplayLabel = '个人缴费比例'
      DisplayWidth = 14
      FieldName = 'GRJFBL'
      Origin = 'MAINDB.TJFXX.GRJFBL'
    end
    object qryDetailJBR: TStringField
      DisplayLabel = '经办人'
      DisplayWidth = 10
      FieldName = 'JBR'
      Origin = 'MAINDB.TJFXX.JBR'
      Visible = False
      Size = 10
    end
    object qryDetailJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      DisplayWidth = 13
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TJFXX.JBRQ'
      Visible = False
    end
    object qryDetailSHR: TStringField
      DisplayLabel = '审核人'
      DisplayWidth = 10
      FieldName = 'SHR'
      Origin = 'MAINDB.TJFXX.SHR'
      Visible = False
      Size = 10
    end
    object qryDetailSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      DisplayWidth = 14
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TJFXX.SHRQ'
      Visible = False
    end
    object qryDetailYWZT: TFloatField
      DisplayLabel = '业务状态'
      DisplayWidth = 10
      FieldName = 'YWZT'
      Origin = 'MAINDB.TJFXX.YWZT'
      Visible = False
    end
    object qryDetailRYID: TStringField
      DisplayLabel = '人员ID'
      DisplayWidth = 10
      FieldName = 'RYID'
      Origin = 'MAINDB.TJFXX.RYID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryDetailDWHBBL: TFloatField
      FieldName = 'DWHBBL'
      Origin = 'MAINDB.TJFXX.DWHBBL'
      Visible = False
    end
  end
  inherited sqlDetail: TUpdateSQL
    ModifySQL.Strings = (
      'update tJFXX'