rsgl.frm

用Visual basic6开发的人事信息管理系统,数据库采用的是Sql Server2000

    Me.Enabled = False
End Sub

Private Sub mnu_FuLiFeiYongDengJi_Click()
F_FuLiFeiYong.Show
Me.Enabled = False

End Sub

Private Sub mnu_KaoQinCX_Click()
F_KaoQinCX.Show
Me.Enabled = False
End Sub

Private Sub mnu_MianShiCX_Click()
    F_MianShiCX.Show
    Me.Enabled = False
End Sub

Private Sub mnu_PeiXunShiShiJiHuaCX_Click()
    F_PeiXunShiShiJiHuaCX.Show
    Me.Enabled = False
End Sub

Private Sub mnu_PeiXunXiangMuShiShiCX_Click()
    F_PeiXunXiangMuShiShiCX.Show
    Me.Enabled = False
End Sub

Private Sub mnu_YangLaoBaoXianDengJi_Click()
F_YangLaoBaoXianDengJi.Show
Me.Enabled = False
End Sub

Private Sub mnu_YueGeRenGongZiMingXi_Click()
'F_KYGongZiYueGeRen.Show
'Me.Enabled = False
End Sub

Private Sub mnu_ZhaoPinCX_Click()
F_ZhaoPInCX.Show
Me.Enabled = False
End Sub

Private Sub mnu_ZhengShiGongGongZi_Click()
F_KongYunGongZi.Show
Me.Enabled = False
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show vbModal
End Sub

Private Sub mnuChengFa_Click()
    F_ChengFa.Show
    Me.Enabled = False
End Sub

Private Sub mnuDaoQiYuBao_Click()
F_LaoDongHeTongYuBao.Show
Me.Enabled = False
End Sub

Private Sub mnuDingGangDingYuan_Click()
    F_GangWeiShuoMing.Show
    Me.Enabled = False
End Sub

Private Sub mnufulibaoxianlaowufeifulifeiyongdengji_Click()
    'ToDo: Add 'mnufulibaoxianlaowufeifulifeiyongdengji_Click' code.

End Sub

Private Sub mnufulibaoxianlaowufeidabingyiliao_Click()
    'ToDo: Add 'mnufulibaoxianlaowufeidabingyiliao_Click' code.

End Sub

Private Sub mnufulibaoxianlaowufeishiyebaoxian_Click()
    'ToDo: Add 'mnufulibaoxianlaowufeishiyebaoxian_Click' code.
'F_ShiYeBaoXian.Show
    frm_SYBXJL.Show
    Me.Enabled = False
End Sub

Private Sub mnufulibaoxianlaowufeiyanglaobaoxian_Click()
    'ToDo: Add 'mnufulibaoxianlaowufeiyanglaobaoxian_Click' code.
    
End Sub

Private Sub mnuGangWeiLaoBaoBiaoZhun_Click()
    F_LaoBaoBiaoZhun.Show
    Me.Enabled = False
End Sub

Private Sub mnuGeRenFeiYong_Click()
F_GeRenJiShu.Show
Me.Enabled = False
End Sub

Private Sub mnuGeRenSuoDeSui_Click()
F_GeRenSuoDeShui.Show
Me.Enabled = True
End Sub

Private Sub mnuGongSiBiLi_Click()
    F_YangLaoBeLi.Show
    Me.Enabled = False
End Sub

Private Sub mnuJiangLi_Click()
    F_Jiangli.Show
    Me.Enabled = False
End Sub

Private Sub mnuJiaoFeiQingKuang_Click()
    F_YangLaoJiaoFei.Show
    Me.Enabled = False
End Sub

Private Sub mnujinsheng_Click()
    F_JinSheng.Show
    Me.Enabled = False
End Sub

Private Sub mnuLaoBaoFaFangMingDan_Click()
    F_LaoBaoFaFangMingDan.Show
    Me.Enabled = False
End Sub

Private Sub mnulaoDongHeTongDengJi_Click()
 F_LaoDongHeTong.Show
 Me.Enabled = False
End Sub

Private Sub mnuLaoDongHeTongLiShi_Click()
F_LaoDongHeTongLiShi.Show
Me.Enabled = False
End Sub

Private Sub mnulaoDongXiaoYiJiBao_Click()
    F_GongZiXiaoYiJiBao.Show
    Me.Enabled = False
End Sub

Private Sub mnuLaoDongXiaoYiNianBao_Click()
    F_GongZiXiaoYiNianBao.Show
    Me.Enabled = False
End Sub

Private Sub mnuLaoWiFeiJiHua_Click()
    F_LaoWuFeiCX.Show
    Me.Enabled = False
End Sub

Private Sub mnuLaoWuFeiDengJi_Click()
    F_LaoWuFeiDengJi.Show
    Me.Enabled = False
End Sub

Private Sub mnuLiZhiJiaoJie_Click()
F_LiZhiJiaoJie.Show
Me.Enabled = False
End Sub

Private Sub mnuMaster_Click()
    frmMaster.Show vbModal
End Sub

Private Sub mnuMianShiDengJi_Click()
F_Mianshi.Show
Me.Enabled = False
End Sub

Private Sub mnuNianDuPeiXunJiHuaHuiZong_Click()

'f_PeiXunJiHuaHuiZong.Show
    F_PXJHHZ.Show
    Me.Enabled = False
End Sub

Private Sub mnuNianlingTongJi_Click()
DRP_年龄文化职位.Show
End Sub

Private Sub mnuOperMana_Click()
    frmOperMan.Show vbModal
End Sub

Private Sub mnuPeiXunJiHuaDengJi_Click()
    F_BuMenPeiXunJiHua.Show
    Me.Enabled = False
End Sub

Private Sub mnuPeiXunShiShiJiHua_Click()
    F_PeiXunShiShiJiHua1.Show
    Me.Enabled = False
End Sub

Private Sub mnuPeiXunxXiangMuShiShi_Click()
    F_PeiXunXiangMuShiShi.Show
    Me.Enabled = False
End Sub

Private Sub mnuPWS_Click()
    frmPWS.Show vbModal
End Sub

Private Sub mnuRenYuanJiBenXinXi_Click()
    F_JiBenXinXi.Show
    Me.Enabled = False
End Sub

Private Sub mnuRuZhiTongZhiShu_Click()
F_RuZhiTongZhiShu.Show
Me.Enabled = False
End Sub

Private Sub mnuShiShiJiHuaHuiZong_Click()
    F_ShiShiJiHuaHuiZong.Show
End Sub

Private Sub mnuShouZhiYueBao_Click()
    F_ShouZhiYueBao.Show
    Me.Enabled = False
End Sub

Private Sub mnuXiaoShiGongGongZi_Click()
F_XiaoShiGongGongZi.Show
Me.Enabled = False
End Sub

Private Sub mnuxinzixinzichaxun_Click()
    'ToDo: Add 'mnuxinzixinzichaxun_Click' code.
   
End Sub

Private Sub mnuxinzigongzishengcheng_Click()
    'ToDo: Add 'mnuxinzigongzishengcheng_Click' code.

End Sub

Private Sub mnuxinzikaohedengji_Click()
    'ToDo: Add 'mnuxinzikaohedengji_Click' code.

F_KaoHe.Show
Me.Enabled = False
End Sub

Private Sub mnuxinzikaoqin_Click()
    'ToDo: Add 'mnuxinzikaoqin_Click' code.

F_KaoQin.Show
Me.Enabled = False
End Sub

Private Sub mnurenyuanrenyuanchaxun_Click()
    'ToDo: Add 'mnurenyuanrenyuanchaxun_Click' code.
   
  
End Sub

Private Sub mnurenyuanlaodonghetong_Click()
    'ToDo: Add 'mnurenyuanlaodonghetong_Click' code.
 
End Sub

Private Sub mnurenyuancundangfeiguanli_Click()
  'ToDo: Add 'mnurenyuancundangfeiguanli_Click' code.
  
  F_CunDangFeiYong.Show
  Me.Enabled = False

End Sub

Private Sub mnuYGSearch_Click()
    F_YGSearch.Show vbModal
End Sub

Private Sub mnuYuanGongPeiXunDangAn_Click()
    F_YuanGongPeiXunDangAn.Show
    Me.Enabled = False
End Sub

Private Sub mnuYuanGongTongJiBiao_Click()
    DRP_员工用工类型性别统计.Show
End Sub

Private Sub mnuZaiCeRenYuan_Click()
    F_RenYuanZhengJian.Show
    Me.Enabled = False
End Sub

Private Sub mnuZaiGangGongZi_Click()

    F_ZaiZhiGongGongZi.Show
    Me.Enabled = False

End Sub

Private Sub mnuZengGangXvQiu_Click()

    F_ZhengGangXVQiu.Show
    Me.Enabled = False

End Sub

Private Sub mnuZengYuanXvQiu_Click()
    F_BuYuanShenQing.Show
    Me.Enabled = False
End Sub

Private Sub mnuZhaoPinDengJi_Click()

    F_ZhaoPin.Show
    Me.Enabled = False
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "ToolRYGL"
            Call mnuRenYuanJiBenXinXi_Click  '人员基本信息
        Case "ToolCDFGL"
            Call mnurenyuancundangfeiguanli_Click
        Case "ToolHTDJ"                     '合同登记
            Call mnulaoDongHeTongDengJi_Click
        Case "ToolKQDJ"
            Call mnuxinzikaoqin_Click        '考勤登记
        Case "ToolKHDJ"
            Call mnuxinzikaohedengji_Click
        Case "ToolGZSC"
            Call mnuZaiGangGongZi_Click       '在职职工工资生成
        Case "ToolYLBX"
            Call mnu_YangLaoBaoXianDengJi_Click     '养老保险登记
        Case "ToolFLFY"
            Call mnu_FuLiFeiYongDengJi_Click      '福利费用登记
        Case "ToolLWFDJ"
            Call mnuLaoWuFeiDengJi_Click        '劳务费登记
        Case "ToolBMPX"
            Call mnuPeiXunJiHuaDengJi_Click     '部门培训计划登记
        Case "ToolPXSSJH"
            Call mnuPeiXunShiShiJiHua_Click     '培训实施计划
        Case "ToolJL"
            Call mnuJiangLi_Click               '奖励
        Case "ToolCF"
            Call mnuChengFa_Click               '惩罚
        Case "ToolOperMana"
             Call mnuOperMana_Click         '操作员管理
        Case "ToolPWS"
            Call mnuPWS_Click               '口令修改
        Case "ToolQuit"
            Call Exit_Click                 '退出系统
    End Select
End Sub

Private Sub ToolData_Click()
    frmDBMaintain.Show vbModal
End Sub

Private Sub WPLY_Click()
    FRMckd.Show
    Me.Enabled = False
End Sub