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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

15、1322 嚴蔚敏,吳偉民 VB信息管理開發(fā)M.北京：清華大學出版社，1995,12：911503 正阿奇 VB實用教程M.北京：電子工業(yè)出版社，2021 ,4：88-1254 郭安源 教育信息化系統(tǒng)開發(fā)M.北京：人民郵電出版社，2021 ,5：220-2805 劉天惠. Visual Basic程序設計教程M.清華大學出版社,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("請輸入員工號", "查找窗") Adodc2.Recordset.Find "工作證號= '" & m & " '", , , 1 If Adodc2.Recordset.EOF Then MsgBox "無此員工！", , "提示" 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("工作證號")Form5.Adodc1.CommandType = adCmdTextForm5.Adodc1.RecordSource = "select* from 員工個人信息表 where 工作證號='" & n & "'"Form5.Adodc1.RefreshForm3.HideForm5.ShowEnd SubPrivate Sub DataList1_Click()Adodc2.RecordSour

20、ce = "Select * from 員工信息 Where 所屬部門 ='" & DataList1.BoundText & "'"Adodc2.RefreshEnd Sub(3)員工個人詳細信息窗體源代碼：Private Sub command1_Click()Dim strb() As ByteAdodc1.RecordSource = "select*from 員工個人信息表 where 工作證號='" & 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)調轉部門窗體源代碼：Private Sub command1_Click()Dim no As Stringno = Val(Text1.Text)Adodc1.Recordset.Find &q

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

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 "已有這個用戶", 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