課程設(shè)計(jì)---企業(yè)人事管理系統(tǒng)

1、<p><b>　　課程設(shè)計(jì)報(bào)告書</b></p><p>　　課程名稱：數(shù)據(jù)庫(kù)課程設(shè)計(jì)</p><p>　　設(shè)計(jì)題目：企業(yè)人事管理系統(tǒng)</p><p>　　一、設(shè)計(jì)題目：企業(yè)人事管理系統(tǒng)</p><p><b>　　二、功能描述：</b></p><p>　　人力

2、資源管理是結(jié)合公司實(shí)際的人事、制度，經(jīng)過(guò)實(shí)際的需求分析，采用功能強(qiáng)大的Visual Basic6.0作為開發(fā)工具而開發(fā)出來(lái)的單機(jī)版企業(yè)人事管理系統(tǒng)。整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，本企業(yè)人事管理系統(tǒng)具有如下功能：?jiǎn)T工基本信息的錄入、修改、查詢、刪除模塊，員工假條信息錄入、修改、查詢、刪除模塊，員工工資信息的錄入，計(jì)算，查詢，以及系統(tǒng)用戶的設(shè)置以及系統(tǒng)的維護(hù)功能。為企業(yè)人事管理提供信息咨詢，信息檢索，信息存取

3、等服務(wù)，基本上能夠滿足現(xiàn)代企業(yè)對(duì)人事管理的需要。</p><p><b>　　三、 概要設(shè)計(jì)：</b></p><p><b>　　1.系統(tǒng)的功能分析</b></p><p>　　人事信息管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)開發(fā)應(yīng)用程序，它由員工信息管理、工資管理、假條信息管理、系統(tǒng)用戶管理等模塊組成，具體規(guī)劃如下：</p&g

4、t;<p>　?。?）系統(tǒng)用戶管理：</p><p>　　對(duì)使用系統(tǒng)的用戶進(jìn)行管理，為他們分配一定的權(quán)限，使他們規(guī)范的使用系統(tǒng)。本系統(tǒng)的用戶分為兩類：管理員和一般用戶。管理員可以對(duì)系統(tǒng)的各個(gè)模塊進(jìn)行添加，刪除，修改，查詢；而一般用戶只能對(duì)各模塊進(jìn)行簡(jiǎn)單的查詢，從而了解相關(guān)的信息。</p><p>　?。?）職工信息管理：</p><p>　　職工信息管

5、理包括對(duì)職工基本信息和情況的記錄進(jìn)行查詢、添加、刪除和修改。主要由管理員進(jìn)行。</p><p>　　（3）職工工資管理：</p><p>　　職工工資管理主要是對(duì)職工工資的綜合的核算，建立合理，規(guī)范的企業(yè)工資核算制度，保障職工的合法權(quán)利。</p><p>　?。?）職工假條管理：</p><p>　　職工假條管理是對(duì)職工的出勤進(jìn)行管理，方便人

6、事處管理員對(duì)職工工資的核算，方便隨時(shí)了解最新，最全面工作情況，從而合理的完成工作。</p><p><b>　　2.系統(tǒng)功能結(jié)構(gòu)</b></p><p>　　系統(tǒng)功能結(jié)構(gòu)圖主要從功能的角度描述了系統(tǒng)的結(jié)構(gòu)。</p><p><b>　　四、 詳細(xì)設(shè)計(jì)：</b></p><p><b>　　

7、1、數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　人事管理系統(tǒng)的數(shù)據(jù)庫(kù)采用Access ，系統(tǒng)數(shù)據(jù)庫(kù)的名稱為“data”。數(shù)據(jù)庫(kù)data中包含了4張數(shù)據(jù)表。下面分別給出數(shù)據(jù)表概要說(shuō)明和主要數(shù)據(jù)表的結(jié)構(gòu)。</p><p>　?。?）職工信息數(shù)據(jù)表：用于儲(chǔ)存職工的基本信息。職工信息表見表1所示：</p><p>　　表1 職工基本信息表</p>&

8、lt;p>　　（2）工資信息數(shù)據(jù)表：用來(lái)存儲(chǔ)職工的工資情況，包括姓名，職稱，工資等信息。工資信息表見表2所示：</p><p><b>　　表2 工資信息表</b></p><p>　?。?）假條信息數(shù)據(jù)表：存儲(chǔ)假條相關(guān)信息。假條信息表見表3所示：</p><p><b>　　表3 假條信息表</b></p

9、><p>　?。?）用戶信息表，用于儲(chǔ)存用戶信息。用戶信息表見表4所示：</p><p><b>　　表4 用戶信息表</b></p><p>　　2、主要功能模塊設(shè)計(jì)</p><p><b>　　（一）系統(tǒng)架構(gòu)設(shè)計(jì)</b></p><p>　　人事管理系統(tǒng)的架構(gòu)分為窗體和模塊

10、兩個(gè)部分。在窗體的部分有以下幾個(gè)窗體，他們的作用分別是：</p><p>　　“frmAbout”是關(guān)于窗口，是對(duì)系統(tǒng)的說(shuō)明； </p><p>　　“frmEdit.frm”是編輯窗口，可以對(duì)員工信息進(jìn)行添加，刪除的操作；</p><p>　　“frmHelp.frm”是幫助窗體，對(duì)新用戶提供幫助；</p><p>　　“frmLogin

11、.frm”是用戶的登陸窗口，啟動(dòng)系統(tǒng)時(shí)就會(huì)出現(xiàn)這個(gè)窗口； </p><p>　　“frmmain.frm”是系統(tǒng)主界面，用戶可以選擇要執(zhí)行的任務(wù)；</p><p>　　“frmPsw.frm” 是密碼修改，用戶可以在此修改自己的密碼；</p><p>　　“frmSearch.frm” 是尋找窗口，用戶可以進(jìn)行模糊查詢和邏輯查詢；</p><p&

12、gt;　　“frmSetup.frm”是設(shè)置條目的窗口，管理員可以把可以對(duì)外公布的設(shè)置為顯示條目， 而對(duì)少數(shù)人公布的設(shè)置為隱藏條目，從而達(dá)到不同的使用者具有不同的使用權(quán)限；</p><p>　　“frmSys.frm” 是關(guān)于用戶窗體，在這個(gè)窗體中可以添加新用戶，可以設(shè)置密碼，也可以對(duì)用戶權(quán)限進(jìn)行授權(quán)，這個(gè)窗體和數(shù)據(jù)庫(kù)也有密切的聯(lián)系，可以在這里更新用戶信息；</p><p>　　“frmT

13、able.frm”是桌面窗體，它羅列了員工學(xué)歷和部門的信息，同時(shí)可以進(jìn)行添加，編輯和刪除的操作。</p><p>　　（二）控件準(zhǔn)備和引用設(shè)置</p><p>　　控件準(zhǔn)備和引用設(shè)置是目前制作應(yīng)用程序的前提條件，在Visual Basic 6.0默認(rèn)的工具箱中，很多使用的部件沒(méi)有顯示，所以要將我們需要的部件添加進(jìn)工具箱。另外，包括一些庫(kù)文件的函數(shù)，也是沒(méi)有被引用，我們要先將這些具有特定功能

14、的函數(shù)引用。</p><p><b>　　（1）.控件準(zhǔn)備</b></p><p>　　人事管理系統(tǒng)中需要通過(guò)“工程”→“部件”命令添加到工具箱中的“ActiveX”部件。</p><p><b>　　（2）.引用設(shè)置</b></p><p>　　人事管理系統(tǒng)中需要通過(guò)“工程”→“引用”命令引用庫(kù)文

15、件內(nèi)的函數(shù)，來(lái)完成數(shù)據(jù)庫(kù)的連接。</p><p><b>　?。ㄈ┫到y(tǒng)登陸設(shè)計(jì)</b></p><p>　　系統(tǒng)用戶登錄模塊主要用于完成對(duì)登錄系統(tǒng)的用戶的驗(yàn)證，只有合法的用戶才可以進(jìn)入系統(tǒng)。</p><p>　　1.系統(tǒng)登陸窗體的功能</p><p>　　登錄窗體是用戶進(jìn)入系統(tǒng)的鑰匙，只有合法的登錄才是有效的登錄。在本

16、系統(tǒng)中預(yù)設(shè)了兩種用戶：root超級(jí)用戶和any一般用戶，超級(jí)用戶對(duì)一般用戶有管理的功能。超級(jí)用戶和一般用戶對(duì)系統(tǒng)的員工信息，假條信息，工資信息都有編輯，刪除，查詢，設(shè)置的功能。而超級(jí)用戶對(duì)一般用戶有權(quán)限的管理，一般用戶是超級(jí)用戶授權(quán)了的用戶，它不能對(duì)其他用戶進(jìn)行干預(yù)，它只能對(duì)修改自己的密碼的功能。超級(jí)用戶也可添加登錄用戶，也可對(duì)其設(shè)置權(quán)限。</p><p>　　2.系統(tǒng)登陸的代碼設(shè)計(jì)</p><

17、;p>　?。?）登陸窗體代碼設(shè)計(jì)</p><p>　　窗體代碼主要實(shí)現(xiàn)了連接數(shù)據(jù)庫(kù)的功能，這里用于連接用戶信息表。其程序如下：</p><p>　　Private Sub Form_Load()</p><p>　　Dim i As Integer</p><p>　　If App.PrevInstance Then</p>

18、<p>　　MsgBox ("程序已經(jīng)運(yùn)行，不能再次裝載。"), vbExclamation</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p>　　'本段代碼用于判定本程序是否已經(jīng)裝載于內(nèi)存中，以避免程序的多重

19、啟動(dòng)</p><p><b>　　i = 0</b></p><p>　　Open App.Path + "\user.ini" For Input As #1</p><p>　　Do While Not EOF(1)</p><p>　　Input #1, user(i), pws(i), sta

20、te(i), Emplo(i)</p><p>　　If state(i) = "A" Then</p><p>　　Combo1.AddItem user(i)</p><p><b>　　End If</b></p><p><b>　　i = i + 1</b></p

21、><p>　　Loop Close #1</p><p>　　Combo1.ListIndex = 1</p><p>　　'在窗口裝載階段讀取用戶設(shè)置文件獲取用戶信息 并裝載于用戶列表框中</p><p><b>　　End Sub</b></p><p>　　（2）“取消”按鈕是退出登錄

22、界面，退出系統(tǒng)的。其代碼如下：</p><p>　　Private Sub CmdCancel_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End</b></p><p><b>　　End Sub</b></p&g

23、t;<p>　?。?）“確定”按鈕代碼設(shè)計(jì)</p><p>　　“確定”按鈕代碼主要實(shí)現(xiàn)了用戶登陸時(shí)，用戶名和密碼的認(rèn)證，當(dāng)用戶名或密碼錯(cuò)誤時(shí)，系統(tǒng)提示錯(cuò)誤。其程序如下：</p><p>　　Private Sub cmdOK_Click()</p><p>　　If txtPassword = pws(Combo1.ListIndex) Then&l

24、t;/p><p>　　CurId = Combo1.ListIndex</p><p>　　EmploID = Emplo(CurId)</p><p>　　CurUser = user(CurId)</p><p>　　CurPsw = pws(CurId)</p><p><b>　　Me.Hide</

25、b></p><p>　　'Load FrmMain</p><p>　　FrmMain.Show</p><p>　　Else MsgBox "Invalid Password, try again!", , "Login"</p><p>　　txtPassword.SetFocu

26、s</p><p>　　SendKeys "{Home}+{End}"</p><p>　　End If End Sub</p><p><b>　?。ㄋ模┲鞔绑w的設(shè)計(jì)</b></p><p>　　主窗體界面是顯示系統(tǒng)主要操作功能的面板，在系統(tǒng)主窗體的狀態(tài)欄中，可以顯示當(dāng)前的操作員、當(dāng)前系統(tǒng)的日期時(shí)

27、間、程序制作人員等信息，還可以通過(guò)菜單的列表或窗體中的按鈕來(lái)控制其他功能子窗體，并且為不同的操作員賦予相應(yīng)的操作權(quán)限。</p><p>　　（1）.系統(tǒng)主窗體的功能</p><p>　　成功登錄后，進(jìn)入的系統(tǒng)的主窗體，在主窗體中有兩組按鈕，第一組是表單選擇按鈕，通過(guò)點(diǎn)擊相應(yīng)的按鈕可以在主窗體中顯示不同的表單，這些表單分別是員工信息表，假條信息表，工資信息表，這組按鈕和Access數(shù)據(jù)庫(kù)中各

28、表相聯(lián)系。在第一組按鈕中設(shè)置按鈕對(duì)超級(jí)用戶和一般用戶所執(zhí)行的情況不同。超級(jí)用戶可以通過(guò)設(shè)置按鈕進(jìn)入用戶權(quán)限窗體，而一般用戶則通過(guò)設(shè)置按鈕進(jìn)入修改自己登錄密碼。第二組按鈕是對(duì)各個(gè)表的操作按鈕，包括編輯，刪除，查詢和設(shè)置。</p><p>　　（2）.系統(tǒng)主窗體的主要代碼設(shè)計(jì)</p><p>　　主窗體是由兩組按鈕實(shí)現(xiàn)的，它們分別是窗體選擇的單擊事件按鈕和命令事件按鈕。</p>

29、<p>　　A、窗體選擇的單擊事件代碼設(shè)計(jì)</p><p>　　窗體選擇的單擊事件代碼主要實(shí)現(xiàn)了進(jìn)入本系統(tǒng)所有模塊的功能，這里有以下幾個(gè)模塊，它們分別是員工信息模塊，假條信息模塊，工資管理模塊，用戶設(shè)置模塊等/其程序如下：</p><p>　　Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)&

30、lt;/p><p>　　Select Case Button.Index</p><p><b>　　Case 1</b></p><p>　　Call showemployee ‘顯示員工信息模塊</p><p><b>　　Case 2</b></p><p>　　Cal

31、l showleave ‘顯示假條信息模塊</p><p><b>　　Case 3</b></p><p>　　Call showsalary ‘顯示工資信息模塊 </p><p><b>　　Case 4</b></p><p>　　If frmLogin.CurUse

32、r = "root" Then</p><p>　　FrmSys.Show</p><p><b>　　Else</b></p><p>　　FrmPsw.Show</p><p>　　Pwin = "Frmmain"</p><p>　　FrmMain.E

33、nabled = False</p><p><b>　　End If</b></p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　B、命令按鈕的單擊事件代碼設(shè)計(jì)</p><p>　　命令按鈕的代碼主要實(shí)現(xiàn)了進(jìn)入本

34、系統(tǒng)部分主要模塊的功能，這里有以下幾個(gè)功能，它們分別是編輯，刪除，查詢，設(shè)置。其程序如下：</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Index</p><p>　　Case 1

35、 'edit</p><p>　　FrmEdit.Show</p><p>　　FrmMain.Enabled = False</p><p>　　Case 2 'del</p><p>　　If DBGA.SelBookmarks.Count = 1 Then</p&g

36、t;<p>　　If MsgBox("確定要?jiǎng)h除嗎？", vbOKCancel, "確定") = vbOK Then DataA.Recordset.Delete cuAp = 0</p><p>　　Else MsgBox "請(qǐng)選擇要?jiǎng)h除的條目！"</p><p><b>　　End If</b

37、></p><p>　　Case 3 'seek</p><p>　　FrmSearch.Show</p><p>　　Case 4 'setup</p><p>　　FrmSetup.Show</p><p>　　End Select&

38、lt;/p><p><b>　　End Sub</b></p><p>　　（3）.員工信息模塊的功能</p><p>　　把員工信息表作為主窗體的默認(rèn)表，所示主窗體的運(yùn)行結(jié)果也是員工信息表的運(yùn)行結(jié)果。在員工信息表中可以對(duì)員工信息進(jìn)行編輯，刪除，查詢和設(shè)置。</p><p>　　A、員工信息的編輯是可以對(duì)新員工進(jìn)行添加錄入，

39、對(duì)在職員工的信息進(jìn)行修改，也可進(jìn)行相應(yīng)的刪除操作。</p><p>　　B、員工信息的刪除是刪除所有該員工的信息，在刪除需要選擇所要?jiǎng)h除的員工，在沒(méi)有選擇的情況下會(huì)出現(xiàn)要求選擇員工的窗體，在選中的情況下是會(huì)出現(xiàn)確定窗體。</p><p>　　C、員工信息的查詢是用戶可以通過(guò)員工信息表中員工的相關(guān)信息進(jìn)行模糊查詢和邏輯查詢，可以幫用戶快速找到相應(yīng)的員工。用戶可以通過(guò)員工信息查詢信息。<

40、/p><p>　　D、員工信息設(shè)置是對(duì)員工的相關(guān)信息的顯示與隱藏的設(shè)置，本系統(tǒng)可以對(duì)員工信息進(jìn)行顯示條目和隱藏條目的設(shè)置。</p><p>　　(4).假條信息模塊功能</p><p>　　點(diǎn)擊假條信息按鈕，在主窗體上就會(huì)顯示假條信息表，假條信息是員工的離職情況的記錄，包括離職日期和中止日期，請(qǐng)假天數(shù)，和原由等情況，是員工出勤情況的側(cè)面反映，是核算工資的重要依據(jù)，必須詳

41、細(xì)，準(zhǔn)確記錄，用戶可以通過(guò)下面的一組按鈕可以對(duì)假條信息進(jìn)行編輯，刪除，查詢和設(shè)置。</p><p>　　A、假條信息的編輯是可以對(duì)新假條信息進(jìn)行添加錄入，對(duì)已有的信息進(jìn)行修改，也可進(jìn)行相應(yīng)的刪除操作。</p><p>　　B、假條信息的查詢是用戶可以通過(guò)假條信息表中的相關(guān)信息進(jìn)行模糊查詢和邏輯查詢，可以幫用戶快速找到所需要的信息。</p><p>　　C、假條信息設(shè)

42、置是對(duì)假條信息中的相關(guān)信息的顯示與隱藏的設(shè)置，本系統(tǒng)可以對(duì)假條信息進(jìn)行顯示條目和隱藏條目的設(shè)置。</p><p>　?。?）.工資信息模塊功能</p><p>　　點(diǎn)擊工資信息按鈕，在主窗體上就會(huì)顯示工資信息表，工資信息是員工發(fā)放薪酬的依據(jù)，通過(guò)輸入基本工資，加班工資，交通補(bǔ)助等一些應(yīng)得工資，減去考勤扣除，保險(xiǎn)扣除，扣稅等總扣除項(xiàng)，從而得到員工的實(shí)際工資。用戶可以通過(guò)下面的一組按鈕可以對(duì)工

43、資信息進(jìn)行編輯，刪除，查詢和設(shè)置。</p><p>　　A、工資信息的編輯是可以對(duì)新員工的工資信息進(jìn)行添加錄入，對(duì)已有的信息進(jìn)行修改，也可進(jìn)行相應(yīng)的刪除操作。</p><p>　　B、工資信息的查詢是用戶可以通過(guò)工資信息表中的相關(guān)信息進(jìn)行模糊查詢和邏輯查詢，可以幫用戶快速找到所需要的信息。</p><p>　　C、工資信息設(shè)置是對(duì)工資信息中的相關(guān)信息的顯示與隱藏的設(shè)

44、置，本系統(tǒng)可以對(duì)工資信息進(jìn)行顯示條目和隱藏條目的設(shè)置。</p><p>　?。?）.系統(tǒng)用戶管理模塊</p><p>　　系統(tǒng)用戶管理分為用戶管理和口令修改兩個(gè)部分。</p><p><b>　　A、用戶管理的設(shè)計(jì)</b></p><p>　　用戶管理是人事信息管理系統(tǒng)中的比較重要的部分，它可以幫助管理員管理用戶信息。在

45、本系統(tǒng)中系統(tǒng)用戶管理可以為不同的用戶設(shè)置不同的權(quán)限，系統(tǒng)管理者可以添加、刪除用戶，但是普通用戶則不可以操作，所有的用戶都可以修改自己的口令。用戶信息管理模塊只有系統(tǒng)管理者才能進(jìn)入。</p><p>　　B、口令修改的窗體設(shè)計(jì)</p><p>　　口令修改是人事信息管理系統(tǒng)中的比較重要的部分，它可以幫助用戶修改自己的密碼。首先用戶要正確輸入自己的舊密碼，兩次輸入自己的新密碼，否則系統(tǒng)便會(huì)抱錯(cuò)

46、。</p><p>　　C、口令修改的主要代碼設(shè)計(jì)</p><p>　　“確定”按鈕的代碼主要實(shí)現(xiàn)了用戶密碼的修改功能，當(dāng)舊密碼錯(cuò)誤或兩次新密碼輸入不一致時(shí)，系統(tǒng)會(huì)提示錯(cuò)誤。其程序如下：</p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim fil, i, Usercount As Integer

47、</p><p>　　If TxtNew1.Text <> TxtNew2.Text Then</p><p>　　MsgBox "two times no yizhi"</p><p>　　TxtNew1.SetFocus</p><p>　　TxtNew2.Text = ""</p

48、><p>　　SendKeys "{Home}+{End}"</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Txtold.Text <> frmLogin.CurPsw Then</p><p>　　MsgBox "old password

49、wrong"</p><p>　　Txtold.SetFocus</p><p>　　TxtNew1.Text = ""</p><p>　　TxtNew2.Text = ""</p><p>　　SendKeys "{Home}+{End}"</p><

50、;p><b>　　Exit Sub</b></p><p>　　Else fil = FreeFile()</p><p>　　Open App.Path + "\user.ini" For Input As #fil</p><p><b>　　i = 0</b></p>

51、<p>　　Do While Not EOF(fil)</p><p>　　Input #fil, user(i), pws(i)</p><p>　　Input #fil, state(i), Emplo(i)</p><p><b>　　i = i + 1</b></p><p><b>　　L

52、oop</b></p><p>　　Usercount = i</p><p>　　Close #fil</p><p>　　pws(frmLogin.CurId) = TxtNew1.Text</p><p>　　frmLogin.CurPsw = TxtNew1.Text</p><p>　　fil =

53、 FreeFile()</p><p>　　Open App.Path + "\user.ini" For Output As #fil</p><p>　　For i = 0 To Usercount - 1</p><p>　　Print #fil, user(i); ","; pws(i); ",";

54、 state(i); ","; Emplo(i)</p><p><b>　　Next i</b></p><p>　　Close #fil</p><p>　　Txtold.Text = ""</p><p>　　TxtNew1.Text = ""</p

55、><p>　　TxtNew2.Text = ""</p><p><b>　　Me.Hide</b></p><p>　　If FrmMain.Pwin = "Frmmain" Then</p><p>　　FrmMain.Enabled = True</p><p

56、>　　FrmMain.SetFocus</p><p>　　Else Call FrmSys.ActiveAll</p><p>　　FrmSys.SetFocus End If End If End Sub</p><p>　　五、 運(yùn)行結(jié)果及存在的問(wèn)題:</p><p>　　1、用戶登錄運(yùn)行結(jié)果</p

57、><p>　　2、系統(tǒng)主窗體的運(yùn)行結(jié)果</p><p>　　3、員工編輯窗體的運(yùn)行結(jié)果</p><p>　　4、員工信息查詢窗體</p><p><b>　　5、假條信息窗體</b></p><p><b>　　6、工資信息窗體</b></p><p>　

58、　7、用戶權(quán)限設(shè)置窗體</p><p><b>　　六、 心得體會(huì):</b></p><p>　　通過(guò)本次課程設(shè)計(jì)，基本掌握對(duì)access與vb的應(yīng)用及設(shè)計(jì)一個(gè)系統(tǒng)的基本過(guò)程。</p><p><b>　　參考文獻(xiàn):</b></p><p>　　于繁華 access基礎(chǔ)教程 第三版 中國(guó)水利水電出版