rsgl.frm

非常不错的人事管理软件

    'Dim TextBox As TextBox
    On Error Resume Next
    For Each TextBox In Me.Controls
        TextBox.Font.Name = "宋体"
        TextBox.Font.Size = 9
    Next

   DRP_人员增减变动.Show
   SetParent DRP_人员增减变动.hWnd, Frame1.hWnd

End Sub

Private Sub GZLLD_Click()
    FRM_GZLLDJS.Show
    Me.Enabled = False
End Sub

Private Sub mnu_BuMenPeiXunJiHuaCX_Click()
F_PeiXunJiHuaCX.Show
Me.Enabled = False
End Sub

Private Sub mnu_BuMenYueGongZiHuiZong_Click()
F_KYGongZiYueBuMen.Show
Me.Enabled = False
End Sub

Private Sub mnu_DaBingTongChouBaoBiao_Click()
    frm_DBYLJL.Show
    Me.Enabled = False
End Sub

Private Sub mnu_DaBingTouChouDengJi_Click()
    frm_DBTCDJ.Show
    Me.Enabled = False
End Sub

Private Sub mnu_GongZiTiao_Click()
F_KYGongZiTiao.Show
Me.Enabled = False

End Sub

Private Sub Mnu_FuLiFeiYongBaoBiao_Click()
F_FuliFeiDaYin.Show
Me.Enabled = False

End Sub

Private Sub mnu_FuLiFeiYongCX_Click()
F_FuliFeiCX.Show
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 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 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 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 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 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 WPLY_Click()
    FRMckd.Show
    Me.Enabled = False
End Sub