基于accessvb的人力資源管理系統(tǒng)的設計與實現(xiàn)-資料下載頁
2024-12-06 02:32本頁面
【導讀】機實現(xiàn)企業(yè)人力資源管理勢在必行。對于大中型企業(yè)來說，利用計算機支持企業(yè)。點檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人力資源管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。不同的企業(yè)需要不同的人力資源管理系統(tǒng)。目前市面上流行的人力資源管理系統(tǒng)不少。但是，對于企、事業(yè)單位的人力。能滿足本中心對數(shù)據(jù)的管理及需求的系統(tǒng)。我們的目標就是在于開發(fā)一個功能實。用、操作方便，簡單明了的人力資源管理系統(tǒng)。尺度的要求、推動企業(yè)人力資源管理走向科學化、規(guī)范化的必要條件。資源管理規(guī)范了，才能在其他方面更好的發(fā)展。
【正文】 Bool As Boolean Dim Rst As New Dim strSQL As String Dim rstCount As Integer If IsNumeric() = False Then 39。判斷用戶代碼必須是純數(shù)字 MsgBox 用戶代碼錯誤：類型不正確！ , vbCritical = 39。清除界面 = 39。設置鼠標焦點 Exit Sub End If On Error GoTo ErrorExit 39。錯誤處理 rstCount = 0 = vbHourglass CnnBool = ConnectDB 39。連接數(shù)據(jù)庫 If CnnBool = False Then 39。數(shù)據(jù)庫連接失敗 Unload Me Exit Sub End If strSQL = SELECT UserID,UserPwd FROM tb_Login WHERE UserID= amp。 strSQL, CnnPeopleDB, adOpenStatic, adLockReadOnly 39。執(zhí)行選取記錄集的 SQL 語句 Do While = False 39。計算記錄集中記錄數(shù) rstCount = rstCount + 1 Loop If rstCount = 0 Then 39。判斷用戶名是否存在：記錄集中記錄應不為 0條 MsgBox 無此用戶！ 39。關閉數(shù)據(jù)庫 畢業(yè)論文 更多畢業(yè)設計論文請訪問： 19 = vbDefault = = Exit Sub End If If 1 Then 39。記錄集中記錄數(shù)不唯一 MsgBox 數(shù)據(jù)庫錯誤：用戶有重復！ 39。關閉數(shù)據(jù)庫 = vbDefault Unload Me 39。關閉系統(tǒng) Exit Sub End If If IsNull((UserPwd).Value) Then 39。判斷用戶密碼是否正確 If Then MsgBox 用戶密碼不正確！ = vbDefault = Exit Sub End If Else If (UserPwd).Value Then MsgBox 用戶密碼不正確！ = vbDefault = Exit Sub End If End If Set Rst = Nothing 39。關閉臨時記錄集 畢業(yè)論文 更多畢業(yè)設計論文請訪問： 20 strSQL = SELECT UserName FROM tb_BasicInfo WHERE UserID= amp。 strSQL, CnnPeopleDB, adOpenStatic, adLockReadOnly 39。重新選取記錄集 Do While = False rstCount = rstCount + 1 Loop If rstCount = 0 Then 39。記錄集中記錄為 0條時 MsgBox 數(shù)據(jù)庫錯誤：員工基本信息數(shù)據(jù)表中無此人！ , vbCritical 39。關閉數(shù)據(jù)庫 = vbDefault Unload Me 39。關閉系統(tǒng) Exit Sub End If = amp。 — [ amp。 (0).Value amp。 ] = vbDefault Set Rst = Nothing 39。關閉靜態(tài)的記錄集 Unload Me 39。關閉當前窗口 39。顯示主窗口 Exit Sub ErrorExit: = vbDefault MsgBox , vbInformation, Set Rst = Nothing 39。關閉記錄集 Set CnnPeopleDB = Nothing 39。關閉數(shù)據(jù)庫 Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub 畢業(yè)論文 更多畢業(yè)設計論文請訪問： 21 致謝 經(jīng)過四個多月的構思與設計 , 在指導老師的精心指導和安排下， 本系統(tǒng)已經(jīng)設計完畢。 由于個人能力有限，設計中出現(xiàn)了很多疑難之處，得到了設計指導 劉振明老師的悉心指導和技術支持， 在此向 劉振明老師 致以真摯的謝意。 還有劉志遠等同學在設計過程中給予我的幫助和支持，在此表示感謝。 此外，我還要向在這大學四年中教過我們的所有老師表示忠心感謝，是他們使我們在這四年的大學學習生活中學到的許多寶貴的東西，也為我今后的人生之旅指明了目標。 畢業(yè)論文 更多畢業(yè)設計論文請訪問： 22 教師評語： 指導教師： 建議成績： 評閱人評語： 評閱人（姓名、職稱）： 建議成績： 評閱人評語： 評閱人（姓名、職稱）： 建議成績： 畢業(yè)論文 更多畢業(yè)設計論文請訪問： 23 答辯委員會意見： 答辯委員會（教師姓名、職稱）： 畢業(yè)設計（論文）成績：
研究報告相關推薦
鄂ICP備17016276號-1