?? rsgl.frm

?? 這是一個藥品人事管理系統
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
         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
?? 文件大小 1134 K
?? 上傳用戶 wp1111111
?? 所屬分類企業管理
??? 相關標簽

#管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? rsgl.frm

?? 快捷鍵說明
