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