員工管理系統(tǒng)vb課程設(shè)計(jì)

1、 課程設(shè)計(jì)說(shuō)明書(shū) NO.26員工信息管理系統(tǒng)用戶管理和密碼修改1.設(shè)計(jì)目的21世紀(jì),高新技術(shù)的超速發(fā)展和全球化的市場(chǎng)經(jīng)濟(jì)導(dǎo)致企業(yè)之間的競(jìng)爭(zhēng)空前激烈,但歸根結(jié)底是人才的競(jìng)爭(zhēng),誰(shuí)能有效地管理和開(kāi)發(fā)人力資源,誰(shuí)就能掌握知識(shí)經(jīng)濟(jì)時(shí)代的生產(chǎn)力，幾乎所有的企業(yè)管理者都意識(shí)到人力資源是企業(yè)最重要最寶貴的資源。然而,如何開(kāi)發(fā)和管理人力資源,使其轉(zhuǎn)化為一種現(xiàn)實(shí)的勞動(dòng)生產(chǎn)力,則是眾多管理者的盲點(diǎn)。看似簡(jiǎn)單的人力資源管理,其實(shí)蘊(yùn)涵了極為豐富的內(nèi)涵。通過(guò)對(duì)人力資源的規(guī)劃、招聘、考核、培訓(xùn)、激勵(lì)等一系列的手段,充分挖掘員工的潛力,提高他們對(duì)企業(yè)的認(rèn)同感和責(zé)任感.只有這樣,才能使企業(yè)擁有不斷創(chuàng)新的活力,保證其在研發(fā)、生產(chǎn)

2、、營(yíng)銷(xiāo)等各方面的領(lǐng)先地位,最終贏得市場(chǎng)的認(rèn)可。隨著人力資源部門(mén)工作范圍的日益擴(kuò)展,人力資源經(jīng)理專業(yè)要求的日益提升,使得計(jì)算機(jī)等先進(jìn)技術(shù)手段的作用日益顯現(xiàn)。因此,開(kāi)發(fā)人力資源管理系統(tǒng)是非常有必要的,它不僅能夠完成日常繁瑣的業(yè)務(wù),而且可以準(zhǔn)確及時(shí)地搜集各種人力資源信息以供管理者進(jìn)行決策，這個(gè)系統(tǒng)要實(shí)現(xiàn)的功能包括以下幾個(gè)部分，部門(mén)的添加，更改和刪除，員工的信息管理，員工信息統(tǒng)計(jì)管理。2.功能介紹2.1 系統(tǒng)功能模塊劃分人力資源管理系統(tǒng)完成的任務(wù)雖然隨著企業(yè)的不同而有所差異,但對(duì)其任務(wù)進(jìn)行歸納和劃分后可將系統(tǒng)分為幾個(gè)共同的功能需求模塊,人力資源管理系統(tǒng)主要功能需求為下列六大部分,每個(gè)部分具體的功能需求

3、如下：(1)部門(mén)編制管理部分：可以進(jìn)行設(shè)置、修改、刪除、查看企業(yè)的組織部門(mén)信息。 (2)員工信息管理部分：可以進(jìn)行增加、修改、刪除、查詢企業(yè)的職員各種信息。2.2系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)(1)系統(tǒng)數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)針對(duì)人力資源管理系統(tǒng)的需求，為本系統(tǒng)設(shè)計(jì)如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：用戶密碼表結(jié)構(gòu)如表1所示。表1戶密碼表結(jié)構(gòu)表字 段類(lèi) 型長(zhǎng) 度說(shuō) 明用戶名文本50主鍵密碼文本50不允許為空員工個(gè)人信息表結(jié)構(gòu)如表2所示。表2員工個(gè)人信息表結(jié)構(gòu)表字 段類(lèi) 型長(zhǎng) 度說(shuō) 明工作證號(hào)數(shù)字長(zhǎng)整型主鍵姓名文本50允許為空所屬部門(mén)文本50允許為空身份證號(hào)文本50允許為空性別文本50允許為空民族文本50允許為空出生日期日期/時(shí)間允許

4、為空文化程度文本50允許為空戶口所在地文本50允許為空移動(dòng) 文本50允許為空照片文本50允許為空員工信息表結(jié)構(gòu)如表3所示。表3員工信息表結(jié)構(gòu)表字 段類(lèi) 型長(zhǎng) 度說(shuō) 明工作證號(hào)數(shù)字長(zhǎng)整型主鍵員工姓名文本20允許為空所屬部門(mén)文本20允許為空到崗日期日期/時(shí)間允許為空職務(wù)文本50允許為空辦公 文本50允許為空政治面貌文本50允許為空合同有效期文本50允許為空工資數(shù)字長(zhǎng)整型允許為空獎(jiǎng)金數(shù)字長(zhǎng)整型允許為空(2)建立數(shù)據(jù)庫(kù)運(yùn)行Access 2021 ，建立一個(gè)空數(shù)據(jù)庫(kù)，命名為人力資源管理數(shù)據(jù)庫(kù)，操作界面如圖1所示。圖1 建立Access數(shù)據(jù)庫(kù)界面圖通過(guò)設(shè)計(jì)器創(chuàng)建表，并插入數(shù)據(jù)在數(shù)據(jù)庫(kù)的設(shè)計(jì)中，共設(shè)計(jì)了三張

5、表。其中包括基本信息表、個(gè)人獎(jiǎng)懲表、工資質(zhì)詢表。(3)連接數(shù)據(jù)庫(kù)單擊菜單“工程”，在部件對(duì)話框中，添加控件“Microsoft ADO Data Control 6.0”,然后點(diǎn)擊確定按鈕，具體操作對(duì)話框如圖2所示。圖2添加“Microsoft ADO Data Control 6.0”圖在窗體上添加Adodc數(shù)據(jù)控件，右擊Adodc，在屬性窗口中，首先選擇“通用”選項(xiàng)卡，并選擇“連接字符串”，單擊“生成”按鈕，如圖3所示。圖3 ADODC屬性界面在“提供者”選項(xiàng)卡中，選擇“Microsoft Jet 4.0 OLE DB Provider”，如圖4所示。圖4 添加“Microsoft Jet

6、 4.0 OLE DB Provider”圖單擊“測(cè)試連接”按鈕。如果顯示“測(cè)試連接成功”消息框，則表示連接成功，如圖5所示。圖5 測(cè)試連接成功圖3. 詳細(xì)設(shè)計(jì)3.1系統(tǒng)功能圖，如圖6所示。圖6 系統(tǒng)功能圖3.2登錄模塊設(shè)計(jì)登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶登錄的一個(gè)界面，進(jìn)入后將面對(duì)的是主界面，從而進(jìn)行相關(guān)的操作。登錄的界面主要由用戶名和密碼的信息，確定和取消的按鈕組成。通過(guò)標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成，如圖7所示。圖7 登陸界面圖登陸界面窗體的控件如表4所示。表4 登錄窗體控件表控 件 類(lèi) 別控件Name控件TextLabelLabel1用戶名Label2密碼TextB

7、oxText1（空）Text2（空）CommandButtonCommand1登陸Command2取消AdodcAdodc1（空）3.3“主窗體”模塊詳細(xì)設(shè)計(jì)主窗體是整個(gè)系統(tǒng)的運(yùn)行的基礎(chǔ)。主控制平臺(tái)使用簡(jiǎn)單直觀的布局，它主要實(shí)現(xiàn)對(duì)模塊的調(diào)用和顯示，提供了菜單的操作方式，對(duì)各個(gè)模塊進(jìn)行調(diào)用和顯示，如圖8所示。圖8 主窗體主窗體的菜單由菜單編輯器編輯完成，分為5個(gè)頂級(jí)菜單，具體菜單如表5所示。表5主窗體菜單明細(xì)表菜 單 名 稱Text屬性功 能 描 述MenuItem1基本信息管理頂級(jí)菜單，包含子菜單MenuItem2部門(mén)編制管理頂級(jí)菜單，包含子菜單MenuItem3員工信息頂級(jí)菜單，包含子菜單M

8、enuItem4系統(tǒng)用戶管理頂級(jí)菜單，包含子菜單MenuItem5考勤考評(píng)管理頂級(jí)菜單，包含子菜單3.4基本信息管理設(shè)計(jì) 基本信息管理中又包含部門(mén)管理和員工管理兩個(gè)窗體。在基本信息管理模塊中主要對(duì)員工信息和部門(mén)信息進(jìn)行輸入和管理，并能進(jìn)行查詢。在部門(mén)管理中，主要對(duì)部門(mén)的信息進(jìn)行管理，可以對(duì)部門(mén)信息進(jìn)行添加，修改查找和刪除的操作。操作完成后，通過(guò)“返回”回到主界面,如圖9所示。 圖9 基本信息管理模塊設(shè)計(jì)圖部門(mén)管理模塊窗體的控件如表6所示。表6 部門(mén)管理模塊窗體控件表控 件 類(lèi) 別控件Name控件TextCommandButtonCommand1添加Command2查找Command3刪除Com

9、mand4返回FrameFrame1（空）LabelLabel1部門(mén)信息DataGridDataGrid1（空）AdodcAdodc1（空）詳細(xì)個(gè)人信息是每個(gè)員工的個(gè)人信息，在這個(gè)窗體中，顯示與個(gè)人信息有關(guān)的內(nèi)容，詳細(xì)個(gè)人信息與員工信息綁定，通過(guò)員工信息窗體，可以直接顯示對(duì)應(yīng)的員工個(gè)人信息，不用再進(jìn)行查詢。當(dāng)需要添加個(gè)人信息時(shí)，點(diǎn)擊添加按鈕即可添加，點(diǎn)擊確定保存道數(shù)據(jù)庫(kù)。對(duì)相片可以進(jìn)行修改或者是添加，當(dāng)點(diǎn)擊“添加”按鈕時(shí)，彈出一個(gè)文件操作的對(duì)話框，選定添加后，單擊保存進(jìn)行保存到數(shù)據(jù)庫(kù)的操作，如圖10所示。圖10 員工個(gè)人信息窗體設(shè)計(jì)圖員工個(gè)人信息窗體的控件如表7所示。表7 員工個(gè)人信息窗體控件

10、表控 件 類(lèi) 別控件Name控件TextCommandButtonCommand1添加Command2保存Command3返回Command4添加Command5確定TextBoxText1（空）Text2（空）Text3（空）Text4（空）Text5（空）Text6（空）Text7（空）Text8（空）Text9（空）Text10（空）LabelLabel1員工個(gè)人詳細(xì)信息Label2工作證號(hào)ImageImage1（空）CommonDialogCommonDialog1（空）AdodcAdodc1（空）在系統(tǒng)用戶管理模塊中有兩個(gè)窗體，分別為用戶管理和修改密碼。在用戶管理模塊中可以對(duì)系統(tǒng)用戶

11、進(jìn)行添加用戶和用戶的密碼修改操作。用戶管理窗體中，可以進(jìn)行添加用戶的操作。在輸入密碼時(shí)，兩次輸入的密碼要相同，不同的話系統(tǒng)會(huì)進(jìn)行提示，必須進(jìn)行再次輸入。完成后點(diǎn)擊“確定” 如圖11所示。圖11 用戶管理窗體用戶管理窗體的控件如表8所示。表8 用戶管理窗體控件表控 件 類(lèi) 別控件Name控件TextCommandButtonCommand1確定Command2返回LabelLabel1員工姓名Label2請(qǐng)輸入密碼Label3再次輸入密碼TextBoxText1（空）Text2（空）Text3（空）FrameFrame1（空）AdodcAdodc1（空）修改密碼窗體中，可以對(duì)當(dāng)前用戶的密碼進(jìn)行修

12、改。同時(shí)，兩次輸入的密碼應(yīng)該一致，不一致的話，系統(tǒng)會(huì)給出提示，并要求重新輸入。完成后點(diǎn)擊“確定”。當(dāng)修改成功時(shí)，系統(tǒng)會(huì)給出修改成功的提示如圖12所示。圖12 修改密碼窗體修改密碼窗體的控件如表9所示。表9修改密碼窗體控件如表控 件 類(lèi) 別控件Name控件TextCommandButtonCommand1確定Command2返回LabelLabel1輸入新密碼Label2再次輸入密碼TextBoxText1（空）Text2（空）FrameFrame1（空）AdodcAdodc1（空）4.系統(tǒng)運(yùn)行及結(jié)果在系統(tǒng)登錄界面中輸入用戶名和密碼，點(diǎn)擊確實(shí)進(jìn)入員工信息管理系統(tǒng)主界面如圖13所示。 圖 13主界

13、面 點(diǎn)擊調(diào)轉(zhuǎn)部門(mén)，然后輸入員工編號(hào)點(diǎn)擊查找，顯示出該編號(hào)員工的姓名和現(xiàn)部門(mén)，然后可以選擇把該員工調(diào)到其他部門(mén)，然后點(diǎn)擊確定就實(shí)現(xiàn)了員工的調(diào)轉(zhuǎn)部門(mén)操作，如圖14所示。圖14調(diào)轉(zhuǎn)部門(mén)界面選擇修改密碼子菜單后，輸入新密碼，可以修改系統(tǒng)用戶的密碼如圖15所示。圖15修改密碼界面5.心得體會(huì)由于時(shí)間有限，本次課程設(shè)計(jì)在做的過(guò)程中出現(xiàn)了許多的問(wèn)題，比如，數(shù)據(jù)庫(kù)和 VB 的連接，以及和個(gè)功能之間的小細(xì)節(jié)，此次課程設(shè)計(jì)整體質(zhì)量上來(lái)說(shuō)做的并不是 很好，本系統(tǒng)的功能還很不完善，同樣也存在著很多缺陷。比如在起初的總體設(shè)計(jì)（功 能設(shè)計(jì)）方面，做的工作很不到位，導(dǎo)致在本系統(tǒng)中有得功能出現(xiàn)混亂，除了功能相對(duì)不夠完善，界面

14、的設(shè)計(jì)也不夠美觀，這些都是該系統(tǒng)需要改進(jìn)的地方，我會(huì)在以后的時(shí)間里繼續(xù)努力。在以后的學(xué)習(xí)中，還會(huì)遇到很多類(lèi)似的情況，此次課程設(shè)計(jì)為我以后的學(xué)習(xí)積累了很多寶貴的經(jīng)驗(yàn)。在這幾十節(jié)課中，從選定設(shè)計(jì)課題到具體設(shè)計(jì)再到完成系統(tǒng)開(kāi)發(fā)，是一個(gè)不斷地遇到問(wèn)題與解決問(wèn)題的過(guò)程。其中包括：分析各種需求、完善各種功能、增加必要環(huán)節(jié)、對(duì)各部分及整體進(jìn)行檢測(cè)與維護(hù)。當(dāng)然仍存在許多問(wèn)題不能解決地盡善盡美，還需不斷地繼續(xù)與探索。在結(jié)束設(shè)計(jì)的同時(shí)也感到了勞動(dòng)的艱辛與勞動(dòng)成果的來(lái)之不易,明白了課程設(shè)計(jì)是給自己提供了一個(gè)鍛煉、升華、提高、完善的機(jī)會(huì)。6.參考文獻(xiàn)1 姚卿達(dá) VB設(shè)計(jì)M. 北京：高等教育出版社，1987,9：120

15、1322 嚴(yán)蔚敏,吳偉民 VB信息管理開(kāi)發(fā)M.北京：清華大學(xué)出版社，1995,12：911503 正阿奇 VB實(shí)用教程M.北京：電子工業(yè)出版社，2021 ,4：88-1254 郭安源 教育信息化系統(tǒng)開(kāi)發(fā)M.北京：人民郵電出版社，2021 ,5：220-2805 劉天惠. Visual Basic程序設(shè)計(jì)教程M.清華大學(xué)出版社,2021 .2 ：165-224附錄：源程序(1)主窗體源代碼：Private Sub bmgl_Click()Form1.Hideform2.ShowEnd SubPrivate Sub gztj_Click()End SubPrivate Sub kqgl_Click

16、()Form11.ShowEnd SubPrivate Sub tc_Click()EndEnd SubPrivate Sub xgmm_Click()Form9.ShowEnd SubPrivate Sub yggl_Click()Form1.HideForm3.ShowEnd SubPrivate Sub ygxxtj_Click()Form10.ShowEnd SubPrivate Sub yhgl_Click()Form8.ShowEnd Sub(2)員工管理窗體源代碼：Private Sub command1_Click()Adodc2.Recordset.AddNewEnd Sub

17、Private Sub Command2_Click()Dim m As String m = InputBox("請(qǐng)輸入員工號(hào)", "查找窗") Adodc2.Recordset.Find "工作證號(hào)= '" & m & " '", , , 1 If Adodc2.Recordset.EOF Then MsgBox "無(wú)此員工！", , "提示" End SubPrivate Sub Command3_Click()ask = MsgBox(

18、"是否刪除？", vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End SubPrivate Sub Command4_Click()Form3.HideForm4.ShowEnd SubPrivate Sub Command5_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Command6_Click(

19、)Dim n As Integern = Adodc2.Recordset.Fields("工作證號(hào)")Form5.Adodc1.CommandType = adCmdTextForm5.Adodc1.RecordSource = "select* from 員工個(gè)人信息表 where 工作證號(hào)='" & n & "'"Form5.Adodc1.RefreshForm3.HideForm5.ShowEnd SubPrivate Sub DataList1_Click()Adodc2.RecordSour

20、ce = "Select * from 員工信息 Where 所屬部門(mén) ='" & DataList1.BoundText & "'"Adodc2.RefreshEnd Sub(3)員工個(gè)人詳細(xì)信息窗體源代碼：Private Sub command1_Click()Dim strb() As ByteAdodc1.RecordSource = "select*from 員工個(gè)人信息表 where 工作證號(hào)='" & Text10 & "'"Adodc1

21、.RefreshCommonDialog1.ShowOpenOpen CommonDialog1.FileName For Binary As #1fl = LOF(1)ReDim strb(fl)Get #1, , strbAdodc1.Recordset.Fields("照片").AppendChunk strbClose #1Image1.Picture = LoadPicture(CommonDialog1.FileName)End SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd SubPrivat

22、e Sub Command3_Click()Form5.HideForm3.ShowEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Label12_Click()End Sub(4)調(diào)轉(zhuǎn)部門(mén)窗體源代碼：Private Sub command1_Click()Dim no As Stringno = Val(Text1.Text)Adodc1.Recordset.Find &q

23、uot;工作證號(hào)='" & no & "'", , , 1If Adodc1.Recordset.EOF Then MsgBox "數(shù)據(jù)不存在！", , "提示"End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Command2_Click()Form4.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.Fields("所屬部門(mén)")

24、= DataCombo1.BoundTextAdodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Text1 = ""Text2 = ""Text3 = ""End Sub(5)用戶管理窗體源代碼：Private Sub command1_Click()If Trim(Text1.Text) = "" Then MsgBox "用戶名不能為空", vbOKOnly + vbExclamation, "" Exit Sub T

25、ext1.SetFocusElse Do While Not Adodc1.Recordset.EOF If Trim(Adodc1.Recordset.Fields("用戶名") = Trim(Text1) Then MsgBox "已有這個(gè)用戶", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = "" Text3.Text = "" Exit Sub Else Adodc1.

26、Recordset.MoveNext End If Loop If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "兩次密碼不一致", vbOKOnly + vbExclamation, "" Text2.SetFocus Text2.Text = "" Text3.Text = "" Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用戶名") = Tex

27、t1 Adodc1.Recordset.Fields("密碼") = Text2 Adodc1.Recordset.Update MsgBox "添加用戶成功", vbOKOnly + vbExclamation, "" Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Form8.HideForm1.ShowEnd SubPrivate Sub Form_Load()Text2.PasswordChar = "*"Text3.PasswordChar

28、 = "*"End Sub(6)密碼修改窗體源代碼：Private Sub command1_Click()Adodc1.RecordSource = " select * from 密碼 where 用戶名='" & userID & "'"Adodc1.RefreshIf Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox "密碼不一致！", vbOKOnly + vbExclamation, "" T

29、ext1.SetFocus Text1.Text = "" Text2.Text = ""Else Adodc1.Recordset.Fields("密碼") = Text1 Adodc1.Recordset.Update MsgBox "密碼修改成功", vbOKOnly + vbExclamation, "" Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Form9.HideEnd SubPrivate Sub Form_Load()Adodc1.RecordSource = 系統(tǒng)管理Text1.PasswordC