企業(yè)人事管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)論文-資料下載頁
2025-06-20 13:16本頁面
【正文】 e Sub mnuQueryCheck_Click()End SubPrivate Sub mnuQueryComment_Click()End SubPrivate Sub mnuQueryMove_Click()End SubPrivate Sub mnuQueryPay_Click()End SubPrivate Sub mnuQueryRecord_Click()End SubPrivate Sub mnuRecordR_Click()End SubPrivate Sub mnuUpdateRecord_Click()End Sub Private Sub mnuReLogin_Click()If MsgBox(確定要重新登錄嗎？, vbInformation + vbYesNo, 重新登錄) = vbYes Then Unload Me Load FrmLogin End IfEnd SubPrivate Sub about_Click()End Sub考勤統(tǒng)計(jì)：If = adStateOpen ThenEnd If select *from 員工檔案 where 員工編號=39。 amp。 amp。 39。 , DBCON, adOpenKeyset, adLockOptimistic, adCmdText = (1).Value = (2).Value = (18).Value = (16).ValueEnd SubPrivate Sub CmdRefresh_Click()Set = End SubPrivate Sub CmdRetrun_Click()Unload MeEnd SubPrivate Sub Tmr_Timer()Call CmdRefresh_ClickEnd SubPrivate Sub Form_Load() = / 5 = 0If = adStateClosed Then 考勤信息, DBCON, adOpenKeyset, adLockOptimistic, adCmdTableEnd IfIf 0 ThenCall FormTxtValue1ElseCall FormTxtValue2End IfEnd SubPrivate Sub CmdAdd_Click()Call FormTxtValue2Call TxtStateCall CmdState1If = adStateClosed Then 員工檔案, DBCON, adOpenKeyset, adLockPessimistic, adCmdTableEnd IfSet = RsRecordCheck = 員工編號 = 員工編號End SubPrivate Sub CmdDel_Click()If MsgBox(確定要?jiǎng)h除嗎？, vbInformation + vbYesNo, 刪除信息) = vbYes Then If 0 Then Call CmdMove_Click Else MsgBox 當(dāng)前沒有任何記錄, , 刪除記錄 Call FormTxtValue2 End IfEnd IfEnd SubPrivate Sub CmdEdit_Click()Call CmdState1Call TxtStateEnd SubPrivate Sub CmdMove_Click()If 0 Then If Then End If Call FormTxtValue1ElseMsgBox 當(dāng)前沒有任何記錄, , 移動(dòng)記錄End IfEnd SubPrivate Sub CmdPrint_Click()End SubPrivate Sub CmdSave_Click()If Trim() Empty Or Trim() Empty Or Trim() Empty Or Trim() Empty Or Trim() Empty Or Trim() Empty Then Call UpRsValueOn Error GoTo ErrSave Call CmdMove_Click MsgBox 數(shù)據(jù)已保存, , 保存成功 = 0 Call CmdState2 Call TxtState1ElseMsgBox 帶 * 不能為空,若沒有請?zhí)顢?shù)字 0, , 驗(yàn)證失敗 = 1End IfExit SubErrSave: Select Case Case 2147352571 MsgBox 沒選擇編號或帶 * 內(nèi)容沒填,若沒有請輸入 0 , vbInformation + vbOKOnly, 輸入錯(cuò)誤 Case Else MsgBox 錯(cuò)誤描述： amp。 amp。 vbCrLf amp。 錯(cuò)誤代碼： amp。 , vbCritical + vbOKOnly, 非法操作 End SelectEnd SubPrivate Sub FormTxtValue1() = (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = (11).Value = (12).Value = (13).Value = (14).Value = (15).Value = (16).Value = (17).Value = (18).Value = (19).Value = (20).Value = (21).Value = (22).Value = (23).Value = End SubPrivate Sub FormTxtValue2() = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Date = Date = Date = Date = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = End SubPrivate Sub TxtState() = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = TrueEnd Sub因工資管理、員工檔案、員工調(diào)動(dòng)、工作評價(jià)模塊等內(nèi)的設(shè)計(jì)大體相近，代碼也大同小異，這里不再敖述！
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1