rsgl.frm

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

         End
         Begin VB.Menu mnuJieManYuBao 
            Caption         =   "劳动合同届满预报"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuLaoDongHeTongLiShi 
            Caption         =   "劳动合同历史"
         End
         Begin VB.Menu mnuDaoQiYuBao 
            Caption         =   "劳动合同到期预报"
         End
      End
      Begin VB.Menu mnurenyuanrenyuanchaxun 
         Caption         =   "查询统计"
         Begin VB.Menu mnu_ZhaoPinCX 
            Caption         =   "招 聘 查 询"
         End
         Begin VB.Menu mnu_MianShiCX 
            Caption         =   "面 试 查 询"
         End
         Begin VB.Menu mnuYGSearch 
            Caption         =   "员工信息查询"
         End
         Begin VB.Menu mnuYuanGongTongJiBiao 
            Caption         =   "公司员工统计表"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuNianlingTongJi 
            Caption         =   "年龄、文化、职位统计表"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuZaiCeRenYuan 
            Caption         =   "在册人员增减变动表"
         End
      End
   End
   Begin VB.Menu mnuxinzi 
      Caption         =   "薪资管理(&M)"
      Begin VB.Menu mnuxinzikaoqin 
         Caption         =   "考勤登记"
      End
      Begin VB.Menu mnuxinzikaohedengji 
         Caption         =   "考核登记"
      End
      Begin VB.Menu mnuxinzigongzishengcheng 
         Caption         =   "工资生成"
         Begin VB.Menu mnuZaiGangGongZi 
            Caption         =   "在岗职工工资生成"
         End
         Begin VB.Menu mnuXiaoShiGongGongZi 
            Caption         =   "小时工工资生成"
         End
      End
      Begin VB.Menu mnuxinzixinzichaxun 
         Caption         =   "查询统计"
         Begin VB.Menu mnu_KaoQinCX 
            Caption         =   "考勤查询"
         End
         Begin VB.Menu mnuGeRenSuoDeSui 
            Caption         =   "个人所得税表"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuGongZiTongJi 
            Caption         =   "工资统计"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuKouKuanTongJi 
            Caption         =   "扣款统计"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuJiHuaGongZi 
            Caption         =   "计划工资"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuYueYuSuan 
            Caption         =   "月预算"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuYuanGongGeRenFeiYong 
            Caption         =   "员工个人费用"
            Visible         =   0   'False
         End
      End
   End
   Begin VB.Menu mnufulibaoxianlaowufei 
      Caption         =   "福利保险福利费(&F)"
      Begin VB.Menu mnufulibaoxianlaowufeiyanglaobaoxian 
         Caption         =   "养老保险"
         Begin VB.Menu mnuGongSiBiLi 
            Caption         =   "公司比例"
         End
         Begin VB.Menu mnu_YangLaoBaoXianDengJi 
            Caption         =   "养老保险登记"
         End
         Begin VB.Menu mnuGeRenFeiYong 
            Caption         =   "个人费用记录"
         End
         Begin VB.Menu mnuJiaoFeiQingKuang 
            Caption         =   "缴费情况表"
         End
         Begin VB.Menu mnuShouZhiYueBao 
            Caption         =   "收支月报"
         End
         Begin VB.Menu mnuGeRenBaoXianChaXun 
            Caption         =   "个人保险费用查询"
         End
      End
      Begin VB.Menu mnufulibaoxianlaowufeishiyebaoxian 
         Caption         =   "失业保险"
         Visible         =   0   'False
      End
      Begin VB.Menu mnufulibaoxianlaowufeidabingyiliao 
         Caption         =   "大病医疗"
         Begin VB.Menu mnu_DaBingTouChouDengJi 
            Caption         =   "大病统筹登记"
         End
         Begin VB.Menu mnu_DaBingTongChouBaoBiao 
            Caption         =   "大病统筹报表"
         End
      End
      Begin VB.Menu mnufulibaoxianlaowufeifulifeiyongdengji 
         Caption         =   "福利费"
         Begin VB.Menu mnu_FuLiFeiYongDengJi 
            Caption         =   "福利费用登记"
         End
         Begin VB.Menu mnu_FuLiFeiYongCX 
            Caption         =   "福利费用查询"
         End
         Begin VB.Menu Mnu_FuLiFeiYongBaoBiao 
            Caption         =   "福利费用报表"
         End
      End
      Begin VB.Menu mnuLaoWu 
         Caption         =   "劳务费"
         Begin VB.Menu mnuLaoWuFeiDengJi 
            Caption         =   "劳务费登记"
         End
         Begin VB.Menu mnuLaoWiFeiJiHua 
            Caption         =   "劳务费查询"
         End
      End
   End
   Begin VB.Menu mnuPeiXun 
      Caption         =   "培    训(&P)"
      Begin VB.Menu mnuPeiXunJiHuaDengJi 
         Caption         =   "部门培训计划登记"
      End
      Begin VB.Menu mnuPeiXunShiShiJiHua 
         Caption         =   "培训实施计划"
      End
      Begin VB.Menu mnuPeiXunxXiangMuShiShi 
         Caption         =   "培训项目实施表"
      End
      Begin VB.Menu mnuYuanGongPeiXunDangAn 
         Caption         =   "员工培训档案"
      End
      Begin VB.Menu mnuNianDuPeiXunJiHuaHuiZong 
         Caption         =   "年度培训计划汇总"
      End
      Begin VB.Menu mnuShiShiJiHuaHuiZong 
         Caption         =   "年度实施计划汇总"
      End
      Begin VB.Menu mnuYuanGongPeiXunFeiYongHuiZong 
         Caption         =   "员工培训费用汇总"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuPeiXunChaXun 
         Caption         =   "查询统计"
         Begin VB.Menu mnu_BuMenPeiXunJiHuaCX 
            Caption         =   "部门培训计划查询"
         End
         Begin VB.Menu mnu_PeiXunShiShiJiHuaCX 
            Caption         =   "培训实施计划查询"
         End
         Begin VB.Menu mnu_PeiXunXiangMuShiShiCX 
            Caption         =   "培训项目实施查询"
         End
      End
   End
   Begin VB.Menu mnulaobaowupin 
      Caption         =   "劳保物品管理(&M)"
      Begin VB.Menu mnuGangWeiLaoBaoBiaoZhun 
         Caption         =   "岗位劳保物品配备标准"
      End
      Begin VB.Menu mnuLaoBaoFaFangMingDan 
         Caption         =   "劳保发放名单"
      End
   End
   Begin VB.Menu mnujiangcheng 
      Caption         =   "奖    惩(&J)"
      Begin VB.Menu mnuJiangLi 
         Caption         =   "奖  励"
      End
      Begin VB.Menu mnuChengFa 
         Caption         =   "惩  罚"
      End
   End
   Begin VB.Menu mnujinsheng 
      Caption         =   "晋    升(&Y)"
   End
   Begin VB.Menu mnuTongJi 
      Caption         =   "统计报表(&R)"
      Begin VB.Menu mnulaoDongXiaoYiJiBao 
         Caption         =   "劳动效益季报"
      End
      Begin VB.Menu mnuLaoDongXiaoYiNianBao 
         Caption         =   "劳动效益年报"
      End
      Begin VB.Menu mnulaoDongQueBao 
         Caption         =   "劳动情况月报基层表"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuQuanYuanYiLanBiao 
         Caption         =   "全员情况一览表"
         Visible         =   0   'False
      End
      Begin VB.Menu mnulaoDongQingKuangBiao 
         Caption         =   "劳动情况表"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu XTWH 
      Caption         =   "系统维护(&S)"
      Begin VB.Menu WPLY 
         Caption         =   "物品领用"
         Visible         =   0   'False
      End
      Begin VB.Menu BLJSWH 
         Caption         =   "比例基数维护"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关 于……"
      End
      Begin VB.Menu LINE1 
         Caption         =   "-"
      End
      Begin VB.Menu ToolData 
         Caption         =   "数据维护"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuOperMana 
         Caption         =   "操作员管理"
      End
      Begin VB.Menu mnuPWS 
         Caption         =   "口令修改"
      End
      Begin VB.Menu Exit 
         Caption         =   "退    出"
         Shortcut        =   ^Q
      End
   End
End
Attribute VB_Name = "RSGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'Private Function pGetPicture(sFileName As String) As StdPicture
'    Set pGetPicture = LoadPicture(App.Path + "\Image\" + sFileName + ".ico")
'End Function
'
'Private Sub ShowMenu()
'    With SmartMenuXP1.MenuItems
'        .Add 0, "mnuRenYuan", , "人员管理(&R)    "
'        .Add "MENU_QT", "MENU_Par_RUZHU", , "入住登记    "
'        .Add "MENU_Par_RUZHU", "mnuChina", , "国内旅客入住      ", pGetPicture("BreakPoints"), , vbKeyF5
'        .Add "MENU_Par_RUZHU", "mnuChina_Group", , "国内团体入住      ", pGetPicture("Designer"), vbCtrlMask, vbKeyF5
'        .Add "MENU_Par_RUZHU", "mnuSoil", , "境外旅客入住      ", pGetPicture("Processes"), , vbKeyF6
'        .Add "MENU_Par_RUZHU", "mnuSoil_Group", , "境外团体入住      ", pGetPicture("NewProject"), vbCtrlMask, vbKeyF6
'        .Add "MENU_QT", "mnuRetu", , "退房登记    ", pGetPicture("closesolution"), , vbKeyF7
'        .Add "MENU_QT", "mnuChange", , "换房登记    ", pGetPicture("OpenProject"), , vbKeyF8
'        .Add "MENU_QT", "mnuModi", , "旅客信息修改      ", pGetPicture("ViewOpen"), , vbKeyF9
'        .Add "MENU_QT", "mnuRoomMana", , "客房管理      "
'        .Add "MENU_QT", "mnuOutInfo", , "外部接口信息      "
'        .Add "MENU_QT", "mnuExit", , "退出系统    ", pGetPicture("OpenProjectFromWeb"), vbCtrlMask, vbKeyQ
'
'        .Add 0, "mnuSysTools", , "&S.系统工具    "
'        .Add "mnuSysTools", "mnuRoomMan", , "客房管理    ", pGetPicture("FindSymbol")
'        .Add "mnuSysTools", "mnuDataMana", , "数据库维护     ", pGetPicture("NewFile")
'
'        .Add 0, "mnuSysReports", , "&R.查询报表    "
'        .Add "mnuSysReports", "mnuHistoryInfo", , "客历信息    "
'        .Add "mnuSysReports", "mnuGuestInfo", , "旅客信息    ", pGetPicture("Code")
'        .Add "mnuSysReports", "mnuSearchTotal", , "统计信息    "
'        .Add "mnuSearchTotal", "mnuPreceTotal", , "开房率统计     "
'        .Add "mnuSearchTotal", "mnuMonthTotal", , "旅客按月统计      "
'        .Add "mnuSearchTotal", "mnuDayTotal", , "旅客按日统计      "
'
'
'        .Add 0, "mnuSysManager", , "&M.系统管理    "
'        .Add "mnuSysManager", "mnuOperatorMana", , "操作员管理     "
'        .Add "mnuSysManager", "mnuCodeMana", , "数据字典管理      "
'        .Add "mnuSysManager", "mnuSysSet", , "系统设置    "
'        .Add "mnuSysManager", "mnuSysInfo", , "日志信息    "
'        .Add "mnuSysManager", "mnuTONGXUN", , "通讯发包情况       "
'
'        .Add 0, "mnuHelp", , "&H.帮助  "
'    End With
'
'    SmartMenuXP1.Font.Name = "Ms Sans Serif"
'    SmartMenuXP1.Font.Size = 9
'
'End Sub
Private Sub BLJSWH_Click()
    frm_BLJSWH.Show
    Me.Enabled = False
End Sub

Private Sub Exit_Click()
    If MsgBox("是否确认退出本系统？", vbYesNo + vbQuestion, "系统提示") = vbNo Then Exit Sub
        End
End Sub

Private Sub Form_Load()
    '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