uzzzgzc.dfm

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

              Top = 12
              Width = 81
              Height = 20
              TabStop = False
              Color = clBtnFace
              DataField = 'GRZHZE'
              DataSource = souDetail
              ImeName = 'Chinese (Simplified) - MS-PinYin98'
              ReadOnly = True
              TabOrder = 2
            end
            object DBEdit6: TDBEdit
              Left = 120
              Top = 33
              Width = 81
              Height = 20
              TabStop = False
              Color = clBtnFace
              DataField = 'GRJFZE'
              DataSource = souDetail
              ImeName = 'Chinese (Simplified) - MS-PinYin98'
              ReadOnly = True
              TabOrder = 3
            end
            object DBEdit7: TDBEdit
              Left = 297
              Top = 33
              Width = 81
              Height = 20
              TabStop = False
              Color = clBtnFace
              DataField = 'GRJFLX'
              DataSource = souDetail
              ImeName = 'Chinese (Simplified) - MS-PinYin98'
              ReadOnly = True
              TabOrder = 4
            end
            object DBEdit9: TDBEdit
              Left = 478
              Top = 36
              Width = 81
              Height = 20
              TabStop = False
              Color = clBtnFace
              DataField = 'JFGZZE'
              DataSource = souDetail
              ImeName = 'Chinese (Simplified) - MS-PinYin98'
              ReadOnly = True
              TabOrder = 5
            end
          end
          object GroupBox2: TGroupBox
            Left = 0
            Top = 188
            Width = 624
            Height = 166
            Align = alClient
            Caption = '在职职工缴费记录'
            TabOrder = 2
            object Panel2: TPanel
              Left = 2
              Top = 14
              Width = 620
              Height = 150
              Align = alClient
              BevelOuter = bvLowered
              Caption = 'Panel2'
              TabOrder = 0
              object wwDBGrid1: TwwDBGrid
                Left = 1
                Top = 1
                Width = 618
                Height = 148
                Selected.Strings = (
                  'JFKSYF'#9'18'#9'缴费开始月份'
                  'JFZZYF'#9'18'#9'缴费终止月份'
                  'JFYS'#9'10'#9'缴费月数'
                  'JFZE'#9'10'#9'缴费总额'
                  'JFGZZE'#9'10'#9'缴费工资额'
                  'GRJFBL'#9'12'#9'个人缴费比例'
                  'DWHBBL'#9'12'#9'单位划拨比例')
                IniAttributes.Delimiter = ';;'
                TitleColor = clBtnFace
                FixedCols = 0
                ShowHorzScrollBar = True
                Align = alClient
                BorderStyle = bsNone
                DataSource = souJFXX
                ImeName = 'Chinese (Simplified) - MS-PinYin98'
                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
  end
  inherited ActionList1: TActionList
    inherited actCheck: TAction
      OnExecute = actCheckExecute
    end
    object actCalc: TAction
      Category = '界面操作'
      Caption = '计算'
      ImageIndex = 6
    end
    object actPrint: TAction
      Category = '界面操作'
      Caption = '打印'
      Hint = '打印养老保险待遇核定表'
      ImageIndex = 9
      OnExecute = actPrintExecute
    end
    object actFind: TAction
      Category = '界面操作'
      Caption = '查找'
      ImageIndex = 4
      ShortCut = 16454
      OnExecute = actFindExecute
    end
  end
  inherited qryMaster: TwwQuery
    SQL.Strings = (
      'select ryid from tZZZYXX where ryid='#39'0'#39)
  end
  inherited souDetail: TwwDataSource
    OnDataChange = souDetailDataChange
  end
  inherited qryDetail: TwwQuery
    BeforeInsert = qryDetailBeforeInsert
    AfterInsert = qryDetailAfterInsert
    OnCalcFields = qryDetailCalcFields
    SQL.Strings = (
      'select * from tZZZYXX where ryid=:ryid')
    Top = 42
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryDetailRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TZZZYXX.RYID'
      FixedChar = True
      Size = 10
    end
    object qryDetailSFZH: TStringField
      FieldKind = fkCalculated
      FieldName = 'SFZH'
      Size = 18
      Calculated = True
    end
    object qryDetailXM: TStringField
      FieldKind = fkCalculated
      FieldName = 'XM'
      Size = 10
      Calculated = True
    end
    object qryDetailDWMC: TStringField
      FieldKind = fkCalculated
      FieldName = 'DWMC'
      Size = 40
      Calculated = True
    end
    object qryDetailSBJGDM: TStringField
      DisplayLabel = '社保机构代码'
      FieldName = 'SBJGDM'
      Origin = 'MAINDB.TZZZYXX.SBJGDM'
      FixedChar = True
      Size = 6
    end
    object qryDetailJSYF: TDateTimeField
      DisplayLabel = '结算月份'
      FieldName = 'JSYF'
      Origin = 'MAINDB.TZZZYXX.JSYF'
      DisplayFormat = 'yyyy-mm'
    end
    object qryDetailGRJFZE: TFloatField
      DisplayLabel = '个人缴费总额'
      FieldName = 'GRJFZE'
      Origin = 'MAINDB.TZZZYXX.GRJFZE'
    end
    object qryDetailGRJFLX: TFloatField
      DisplayLabel = '个人缴费利息'
      FieldName = 'GRJFLX'
      Origin = 'MAINDB.TZZZYXX.GRJFLX'
    end
    object qryDetailDWHBZE: TFloatField
      DisplayLabel = '单位划拨总额'
      FieldName = 'DWHBZE'
      Origin = 'MAINDB.TZZZYXX.DWHBZE'
    end
    object qryDetailDWHBLX: TFloatField
      DisplayLabel = '单位划拨利息'
      FieldName = 'DWHBLX'
      Origin = 'MAINDB.TZZZYXX.DWHBLX'
    end
    object qryDetailGRZHZE: TFloatField
      DisplayLabel = '个人帐户总额'
      FieldName = 'GRZHZE'
      Origin = 'MAINDB.TZZZYXX.GRZHZE'
    end
    object qryDetailZYBH: TStringField
      DisplayLabel = '转移编号'
      FieldName = 'ZYBH'
      Origin = 'MAINDB.TZZZYXX.ZYBH'
    end
    object qryDetailZYRQ: TDateTimeField
      DisplayLabel = '转移日期'
      FieldName = 'ZYRQ'
      Origin = 'MAINDB.TZZZYXX.ZYRQ'
    end
    object qryDetailJBR: TStringField
      DisplayLabel = '经办人'
      FieldName = 'JBR'
      Origin = 'MAINDB.TZZZYXX.JBR'
      Size = 10
    end
    object qryDetailJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TZZZYXX.JBRQ'
    end
    object qryDetailSHR: TStringField
      DisplayLabel = '审核人'
      FieldName = 'SHR'
      Origin = 'MAINDB.TZZZYXX.SHR'
      Size = 10
    end
    object qryDetailSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TZZZYXX.SHRQ'
    end
    object qryDetailYWZT: TFloatField
      FieldName = 'YWZT'
      Origin = 'MAINDB.TZZZYXX.YWZT'
    end
    object qryDetailZYDW: TStringField
      FieldName = 'ZYDW'
      Origin = 'MAINDB.TZZZYXX.ZYDW'
      Size = 40
    end
    object qryDetailSBRQ: TDateTimeField
      FieldName = 'SBRQ'
      Origin = 'MAINDB.TZZZYXX.SBRQ'
    end
    object qryDetailJFGZZE: TFloatField
      FieldName = 'JFGZZE'
      Origin = 'MAINDB.TZZZYXX.JFGZZE'
    end
  end
  inherited sqlDetail: TUpdateSQL
    ModifySQL.Strings = (
      'update tZZZYXX'
      'set'
      '  RYID = :RYID,'
      '  SBJGDM = :SBJGDM,'
      '  ZYDW = :ZYDW,'
      '  SBRQ = :SBRQ,'
      '  JSYF = :JSYF,'
      '  GRJFZE = :GRJFZE,'
      '  GRJFLX = :GRJFLX,'
      '  DWHBZE = :DWHBZE,'
      '  DWHBLX = :DWHBLX,'
      '  GRZHZE = :GRZHZE,'
      '  JFGZZE = :JFGZZE,'
      '  ZYBH = :ZYBH,'
      '  ZYRQ = :ZYRQ,'
      '  YWZT = :YWZT,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tZZZYXX'
      
        '  (RYID, SBJGDM, ZYDW, SBRQ, JSYF, GRJFZE, GRJFLX, DWHBZE, DWHBL' +
        'X, '
      'GRZHZE, '
      '   JFGZZE, ZYBH, ZYRQ, YWZT, JBR, JBRQ, SHR, SHRQ)'
      'values'
      
        '  (:RYID, :SBJGDM, :ZYDW, :SBRQ, :JSYF, :GRJFZE, :GRJFLX, :DWHBZ' +
        'E, '
      ':DWHBLX, '
      
        '   :GRZHZE, :JFGZZE, :ZYBH, :ZYRQ, :YWZT, :JBR, :JBRQ, :SHR, :SH' +
        'RQ)')
    DeleteSQL.Strings = (
      'delete from tZZZYXX'
      'where'
      '  RYID = :OLD_RYID')
  end
  object souJFXX: TwwDataSource
    DataSet = qryJFXX
    Left = 376
    Top = 40
  end
  object qryJFXX: TwwQuery
    DatabaseName = 'MainDB'
    DataSource = souDetail
    SQL.Strings = (
      'select * from tJFXX'
      'where ryid=:ryid')
    ValidateWithMask = True
    Left = 407
    Top = 40
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryJFXXJFKSYF: TDateTimeField
      DisplayLabel = '缴费开始月份'
      DisplayWidth = 18
      FieldName = 'JFKSYF'
      Origin = 'MAINDB.TJFXX.JFKSYF'
    end
    object qryJFXXJFZZYF: TDateTimeField
      DisplayLabel = '缴费终止月份'
      DisplayWidth = 18
      FieldName = 'JFZZYF'
      Origin = 'MAINDB.TJFXX.JFZZYF'
    end
    object qryJFXXJFYS: TFloatField
      DisplayLabel = '缴费月数'
      DisplayWidth = 10
      FieldName = 'JFYS'
      Origin = 'MAINDB.TJFXX.JFYS'
    end
    object qryJFXXJFZE: TFloatField
      DisplayLabel = '缴费总额'
      DisplayWidth = 10
      FieldName = 'JFZE'
      Origin = 'MAINDB.TJFXX.JFZE'
    end
    object qryJFXXJFGZZE: TFloatField
      DisplayLabel = '缴费工资额'
      DisplayWidth = 10
      FieldName = 'JFGZZE'
      Origin = 'MAINDB.TJFXX.JFGZZE'
    end
    object qryJFXXGRJFBL: TFloatField
      DisplayLabel = '个人缴费比例'
      DisplayWidth = 12
      FieldName = 'GRJFBL'
      Origin = 'MAINDB.TJFXX.GRJFBL'
    end
    object qryJFXXDWHBBL: TFloatField
      DisplayLabel = '单位划拨比例'
      DisplayWidth = 12
      FieldName = 'DWHBBL'
      Origin = 'MAINDB.TJFXX.DWHBBL'
    end
  end
  object stoTemp: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'P_ZZZCSL'
    Left = 524
    Top = 108
    ParamData = <
      item
        DataType = ftString
        Name = 'P_RYID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_SBJGDM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ZYDW'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'P_SBRQ'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'P_JSRQ'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ZYBH'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'P_ZYRQ'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_GRJFZE'
        ParamType = ptOutput
      end
      item
        DataType = ftFloat
        Name = 'P_GRJFLX'
        ParamType = ptOutput
      end
      item
        DataType = ftFloat
        Name = 'P_DWHBZE'
        ParamType = ptOutput
      end
      item
        DataType = ftFloat
        Name = 'P_DWHBLX'
        ParamType = ptOutput
      end
      item
        DataType = ftFloat
        Name = 'P_JFGZZE'
        ParamType = ptOutput
      end
      item
        DataType = ftFloat
        Name = 'P_GRZHZE'
        ParamType = ptOutput
      end
      item
        DataType = ftFloat
        Name = 'P_ERRORCODE'
        ParamType = ptOutput
      end>
  end
  object souSBJG: TDataSource
    DataSet = qrySBJG
    Left = 444
    Top = 108
  end
  object qrySBJG: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select jgdm,jgmc from tsbjg')
    Left = 396
    Top = 108
  end
end