數(shù)據庫課程設計-職工考勤系統(tǒng)(共21頁)

1、精選優(yōu)質文檔-傾情為你奉上摘要 在現(xiàn)代企業(yè)管理中，企業(yè)信息化是提高企業(yè)管理效率的重要手段。隨著企業(yè)人事管理的日趨復雜和企業(yè)人員的增多，企業(yè)的考勤管理變得越來越復雜。規(guī)范的考勤管理是現(xiàn)代企業(yè)提高管理效益的重要保障，而傳統(tǒng)的人工管理存在著效率低、不易統(tǒng)計、成本高和易出錯等弊端，已經無法適應現(xiàn)代企業(yè)的需求。隨著計算機技術和通信技術的迅速發(fā)展，將傳統(tǒng)的人工考勤管理信息化，建立一個高效率的、無差錯的考勤管理系統(tǒng)，能夠有效地幫助企業(yè)實現(xiàn)“公正考勤，高效薪資”的管理理念，使企業(yè)的管理水平登上一個新的臺階。本課程設計主要是對企業(yè)員工的考勤管理。本系統(tǒng)的設計只要是為了實現(xiàn)管理和查詢企業(yè)員工的工作出勤情況。主要功

2、能有：刷卡記錄管理、加班管理、請假管理、用戶登錄和注冊功能以及月考勤統(tǒng)計表的查詢。本系統(tǒng)的數(shù)據庫是用Microsoft Access 2007軟件進行創(chuàng)建和設計，分別包括刷卡記錄信息表，加班信息表，請假信息表，月考勤統(tǒng)計表和登錄信息表五個表。通過系統(tǒng)ODBC數(shù)據源管理工具把已創(chuàng)建的數(shù)據源與系統(tǒng)數(shù)據庫相連。然后利用Visual Basic軟件對系統(tǒng)的窗口進行設計，包括登錄界面、注冊新用戶界面、主界面、瀏覽窗體和查詢窗體等，可以通過這些窗體進行登錄操作，對輸入的用戶信息進行驗證，和注冊新用戶操作，以及最重要的操作是對數(shù)據庫中信息進行修改與查詢。并可以對數(shù)據進行添加與刪除，做到及時更新員工考勤信息。

3、關鍵詞：考勤管理，Microsoft Access 2007軟件，Visual Basic軟件1. 系統(tǒng)功能概述1.1 系統(tǒng)功能考勤管理系統(tǒng)主要是實現(xiàn)刷卡記錄、加班和請假的管理以及員工月考勤統(tǒng)計。設計為MDI窗體，含有主菜單：文件、管理考勤信息、查詢考勤信息。文件菜單包含以下子菜單及其功能：注冊:打開“注冊新用戶”窗體關閉：結束程序運行登錄：登錄主界面管理考勤信息包含以下子菜單：刷卡信息菜單：顯示刷卡信息瀏覽和編輯窗體加班信息菜單：顯示加班信息瀏覽和編輯窗體請假信息菜單：顯示請假信息瀏覽和編輯窗體查詢考勤信息 包含以下子菜單：刷卡信息查詢菜單：顯示刷卡信息查詢窗體加班信息查詢菜單：顯示加班信息

4、查詢窗體請假信息查詢菜單：顯示請假信息查詢窗體月考勤信息查詢菜單：顯示月考勤信息查詢窗體1.2 系統(tǒng)結構總圖考勤管理系統(tǒng)的結構總圖，如圖1.1所示：請假信息管理刷卡信息管理加班信息管理刷卡信息查詢加班信息查詢請假信息查詢月考勤信息查詢查詢信息系統(tǒng)管理信息系統(tǒng)考勤管理系統(tǒng) 圖1.1 考勤管理系統(tǒng)的結構總體2.數(shù)據庫設計2.1 需求分析隨著現(xiàn)代數(shù)據的信息化和大數(shù)據時代的到來，各個企業(yè)也逐漸實行信息化管理。而企業(yè)考勤管理一直以來就遵循著傳統(tǒng)的人工管理制度，這種人工管理方法已經不再是高效、快速解決問題的最好選擇。隨著各企業(yè)的快速發(fā)展和企業(yè)員工頻繁交替更換，使得企業(yè)對考勤管理系統(tǒng)有著更高的要求，來達到企

5、業(yè)利益最大化和職工利益的公平性。數(shù)據庫管理系統(tǒng)能快速的幫助管理者處理數(shù)據，提高工作效率，實現(xiàn)公平公正的管理制度。2.2 E-R模型刷卡記錄信息管理E-R圖，如圖2.1所示。加班信息管理E-R圖，如圖2.2所示。請假信息管理E-R圖，如圖2.3所示。月考勤統(tǒng)計信息E-R圖，如圖2.4所示。登錄E-R圖，如圖2.5所示。全局E-R圖，如圖2.6所示。刷卡時間刷卡記錄信息管理職員編號刷卡日期圖2.1 刷卡記錄信息管理實體屬性圖加班原因加班時數(shù)加班日期職員編號加班信息管理 圖2.2 加班信息管理實體屬性圖請假日期職員編號請假信息管理請假原因請假時數(shù) 圖2.3 請假信息管理實體屬性圖早退次數(shù)遲到次數(shù)月考

6、勤統(tǒng)計信息管理曠工次數(shù)請假次數(shù)加班時間職員編號日期圖2.4 月考勤統(tǒng)計信息管理實體屬性圖密碼用戶名登錄 圖2.5 登錄實體屬性圖日期刷卡日期職員編號刷卡記錄信息刷卡時間加班原因加班時數(shù)加班日期加班信息職員編號請假時數(shù)請假日期請假原因職員編號請假次數(shù)加班時間職員編號遲到次數(shù)早退次數(shù)曠工次數(shù)請假信息刷卡用戶名密碼登錄刷卡刷卡刷卡刷卡月考勤統(tǒng)計職工信息圖2.6 全局E-R圖2.3 關系模型一個實體性轉換為一個關系模式。實體的屬性就是關系的屬性，實體的碼就是關系的碼。根據E-R圖向關系模型轉換的原則，就是把E-R圖轉換為關系模型。刷卡記錄信息：職員編號、刷卡時間、刷卡日期（主鍵為職員編號）加班信息：職

7、員編號、加班時數(shù)、加班日期、加班原因（主鍵為職員編號）請假信息：職員編號、請假日期、請假次數(shù)、請假原因（主鍵為職員編號）月考勤統(tǒng)計信息：職員編號、日期、加班時間、請假次數(shù)、曠工次數(shù)、遲到次數(shù)、早退次數(shù)（主鍵為職員編號）登錄：用戶名、密碼（主鍵為用戶名）2.4 表結構設計刷卡信息表結構如圖2.7所示。刷卡記錄職員編號日期刷卡時間8522015/12/77點57分8532015/12/77點41分8542015/12/77點10分8552015/12/77點30分 圖2.8 刷卡信息表圖加班信息表結構如圖2.8所示。加班管理職員編號加班日期加班時數(shù)加班原因8522015/11/22工作未完成853

8、2015/11/102工作未完成8542015/11/112工作未完成8552015/11/262工作未完成圖2.8 加班信息表圖請加信息表結構如圖2.9所示。請假管理職員編號請假日期請假時數(shù)請假原因8522015/12/12生病8532015/12/21生病8552015/12/51生病圖2.9 請假信息表圖月考勤統(tǒng)計表結構如圖2.10所示。月考勤統(tǒng)計表職員編號日期遲到次數(shù)早退次數(shù)曠工次數(shù)請假次數(shù)加班時間8522015/12/7100128532015/12/7000128542015/12/7000028552015/12/700012圖2.10 月考勤統(tǒng)計表圖 登錄表結構如圖2.11所示

9、。登錄表用戶名密碼3系統(tǒng)各功能模塊的詳細設計3.1 各窗體的設計此考勤管理系統(tǒng)共包括13個窗體，分別是登錄、注冊、刷卡記錄信息查詢、加班信息查詢、請假信息查詢、月考勤信息查詢和MDI主窗體。3.2 各窗體實現(xiàn)及代碼3.2.1登錄窗體打開登錄界面后，輸入用戶名和密碼，點擊登錄按鈕，進入MDI主窗體，如圖3.1所示。圖3.1登錄界面圖代碼：Dim micount As IntegerPrivate Sub Command1_Click()Dim str As Stringstr = "select * from 登錄 where 用戶名 ='" & Text1.

10、Text & "'"Adodc1.RecordSource = strAdodc1.RefreshIf Adodc1.Recordset.BOF = True ThenMsgBox "用戶名錯誤,請重新輸入", vbExlamation, "警告"Text1.Text = ""Text2.Text = ""Text1.SetFocusElseIf Trim(Adodc1.Recordset.Fields("密碼") = Text2.Text ThenMDIFo

11、rm1.ShowUnload MeMDIForm1.g.Enabled = TrueMDIForm1.c.Enabled = TrueElse MsgBox "密碼錯誤，請重新輸入", vbExlamation, "警告"Text2.Text = ""Text2.SetFocusEnd IfEnd Ifmicount = micount + 1If micount >= 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.2.2 MDI主窗體

12、主窗體含有主菜單：文件、數(shù)據管理、數(shù)據查詢。文件菜單包含子菜單登錄、注冊、退出。數(shù)據管理菜單包含子菜單有：刷卡信息管理、加班信息管理和請假信息管理。數(shù)據查詢包含子菜單有：刷卡信息查詢、加班信息查詢、請假信息查詢和月考勤信息查詢。如圖3.2所示。圖3.2 MDI主窗體圖代碼：Private Sub c1_Click()刷卡信息.ShowEnd SubPrivate Sub c2_Click()加班信息.ShowEnd SubPrivate Sub c3_Click()請假信息.ShowEnd SubPrivate Sub g1_Click()刷卡信息查詢.ShowEnd SubPrivate S

13、ub g2_Click()加班信息查詢.ShowEnd SubPrivate Sub g3_Click()請假信息查詢.ShowEnd SubPrivate Sub g4_Click()月考勤信息查詢.ShowEnd SubPrivate Sub MDIForm_Load()g.Enabled = Falsec.Enabled = FalseEnd SubPrivate Sub w1_Click()注冊.ShowEnd SubPrivate Sub w2_Click()登錄.ShowEnd SubPrivate Sub w3_Click()Unload MeEnd Sub3.2.3新用戶注冊在

14、主窗體上點擊查單文件下的注冊，進入注冊界面，輸入用戶名、密碼和確認密碼，點擊確定，注冊成功。如圖3.3所示。圖3.3 新用戶注冊圖代碼：Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = "" Then MsgBox "請輸入用戶名!", vbExclamation, "確認用戶名" Text1.SetFocus Exit SubElse sqlstr = "Select * from 登錄 where 用戶名='" & Text1.

15、Text & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox "用戶名已存在,請重新輸入!", vbExclamation, "檢驗用戶名" Text1 = "" Text1.SetFocus Text2 = "" Text3 = "" Exit Sub End IfEnd IfIf Text2 <> Text3

16、Then MsgBox "二次輸入的密碼不一致,請重新輸入", vbExclamation, "檢驗密碼" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElseIf Text2 = "" Then MsgBox "密碼不能為空！", vbExclamation, "檢驗密碼" Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(

17、"用戶名") = Trim(Text1) Adodc1.Recordset.Fields("密碼") = Trim(Text2) Adodc1.Recordset.Update MsgBox "成功注冊新用戶！", vbInformation, "添加用戶" Me.Hide MDIForm1.ShowUnload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeMDIForm1.ShowEnd Sub3.2.4 刷卡信息點擊MDI主窗體的數(shù)據管理菜單下的刷卡信

18、息，出現(xiàn)刷卡信息界面如圖3.4所示，如有修改，點擊修改，彈出圖3.5所示界面便于增加、刪除、前移和后移的功能。圖3.4圖3.5代碼:Private Sub Command1_Click()Adodc1.Recordset.MoveFirstCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/

19、" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command10_Click()Adodc1.RefreshCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueEnd SubPrivate

20、Sub Command2_Click()Adodc1.Recordset.MovePreviousCommand3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstCommand1.Enabled = FalseCommand2.Enabled = FalseEnd IfLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" &

21、; Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNextCommand1.Enabled = TrueCommand2.Enabled = TrueIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastCommand3.Enabled = FalseCommand4.Enabled = FalseEnd IfLabel5.Caption = "記錄：" & Adodc1.Recordset.A

22、bsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveLastCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition &am

23、p; "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command5_Click()Dim n As Integern = Text5.TextAdodc1.Recordset.Move nLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command6_Click(

24、)Adodc1.Recordset.AddNewCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = TrueCommand10.Enabled = TrueEnd SubPrivate Sub Command7_Click()x = MsgBox("確實要刪除當前記錄嗎？", vbYesNo + vbQuestion, "確認")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.

25、Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9

26、.Enabled = TrueCommand10.Enabled = TrueEnd SubPrivate Sub Command9_Click()Adodc1.Recordset.UpdateCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueEnd SubPr

27、ivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePos

28、ition & "/" & Adodc1.Recordset.RecordCountEnd Sub3.2.5加班信息管理點擊MDI主窗體的數(shù)據管理菜單下的加班信息管理，出現(xiàn)加班信息管理界面，可以進行增加，刪除，修改，前移后移等功能。如圖3.6所示。圖3.6圖3.7代碼同上。3.2.6請假信息管理點擊MDI主窗體的數(shù)據管理菜單下的請假信息管理，出現(xiàn)請假信息管理界面，可以進行增加，刪除，修改，前移后移等功能。如圖3.7所示。圖3.73.2.7刷卡信息查詢點擊MDI主窗體的數(shù)據查詢菜單下的刷卡信息查詢，出現(xiàn)刷卡信息查詢界面，可以進行增加，刪除，修改，前移后移等功能

29、。如圖3.8所示。代碼：Private Sub Command1_Click()Dim str As Stringstr = " Select * From 刷卡記錄 " str = str & " Where " & Combo1.Text & " Like'" & Text1 & "%' " Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Command3_Click()Unload F

30、orm8MDIForm1.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "職員編號"Combo1.AddItem "無"Text1.Text = ""Combo1.Text = ""End Sub3.2.8加班信息查詢點擊MDI主窗體的數(shù)據查詢菜單下的加班信息查詢，出現(xiàn)加班信息查詢界面，可以進行增加，刪除，修改，前移后移等功能。如圖3.9所示。代碼：Private Sub Cmd1_Click()Dim str As Stringstr = " Sele

31、ct * From 加班管理 " str = str & " Where " & Combo1.Text & " Like'" & Text1 & "%' " Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Form_Load()Combo1.AddItem "職員編號"Combo1.AddItem "無"Text1.Text = ""Com

32、bo1.Text = ""End SubPrivate Sub Command3_Click()Unload Form6MDIForm1.ShowEnd Sub3.2.9請假信息查詢點擊MDI主窗體的數(shù)據查詢菜單下的請假信息查詢，出現(xiàn)請假信息查詢界面，可以進行增加，刪除，修改，前移后移等功能。如圖3.10所示。代碼：Private Sub Command1_Click()Dim str As Stringstr = " Select * From 請假管理 " str = str & " Where " & Combo1.Text & " Like'" & Text1 & "%' " Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Form_Load()Combo1.AddItem "職員編號"Combo1.AddItem "無"Text1.Text = ""Combo1.Text = ""End SubPrivate Sub Command4_Click()Unload Fo