職工考勤管理信息系統(tǒng)課程設計報告

1、學號數(shù)據(jù)庫系統(tǒng)概論課程設計報告題目：職工考勤管理信息系統(tǒng)專業(yè)：網(wǎng)絡工程班級： 姓名： 指導教師：成績：計算機學院2017年12月8日目錄需求分析 11.1 系統(tǒng)目標以及功能 11.2 系統(tǒng)功能分析 11.3系統(tǒng) E-R 圖 11.4信息分析 21.5功能圖 21.6 模塊分析 31.7員工出勤和出差的 E-R 圖 3概念結構設計 42.1關系模式分析 42.1.1 實體關系模式： 42.1.2聯(lián)系的關系模式： 42.2下面是本次設計的每一個表所涉及的數(shù)據(jù)： 42.2.1員工信息表： 42.2.2請假信息表： 52.2.3出差信息表： 52.2.4加班信息表： 52.2.5日出勤信息表： 52.

2、2.6管理員信息表 5部分代碼和截圖 63.1管理員登錄界面 63.2職工考勤系統(tǒng)界面 73.3員工信息添加界面 93.4員工信息查詢界面 103.5員工信息修改界面 113.6員工信息刪除界面 133.7出差信息添加界面 143.8出差信息查詢界面 163.9出差信息修改界面 183.10出差信息刪除界面 193.11管理員修改界面 21心得體會 22參考文獻 22需求分析1.1系統(tǒng)目標以及功能為了配合人事管理系統(tǒng)的使用，充分地記錄員工的出勤情況，可以開發(fā)考勤管理系 統(tǒng)。進行出勤情況統(tǒng)計的過程中，要充分考慮到各種缺勤情況的類別。此系統(tǒng)其主要功 能有職工信息，包括職工編號、職工姓名、性別、年齡

3、、職稱等；出勤記錄信息，包括 上班打卡時間，下班打開時間，缺勤記錄等；出差信息，包括出差起始時間、結束時間、 統(tǒng)計總共天數(shù)等；請假信息，包括請假開始時間，結束時間，統(tǒng)計請假天數(shù)等；加班信 息，包括加班開始時間、結束時間、統(tǒng)計加班總時間。實現(xiàn)企業(yè)員工出勤情況的詳細的、系統(tǒng)的管理。使得企業(yè)員工的管理更加現(xiàn)代化、科學化、自動化，并可以很好地督促企業(yè)員工更好地為企業(yè)謀福利?？梢允褂每记跈C，使得企業(yè)的管理更加現(xiàn)代化。1.2系統(tǒng)功能分析員工考勤系統(tǒng)能夠和考勤機相連，可以把數(shù)據(jù)導入數(shù)據(jù)庫中，從而完成自動、高效、科學的考勤信息的輸入。可以完成員工考勤信息的手工輸入、修改、刪除等操作?？梢栽O定缺勤的類型，如病假

4、、事假等。1.3系統(tǒng)E-R圖1.4 信息分析這個系統(tǒng)的主要功能有：數(shù)據(jù)入庫、查詢、修改和刪除等。本系統(tǒng)的主要功能由以下幾 個部分組成：員工基本信息模塊輸入：員工信息功能：對員工基本信息的查詢、修改、刪除和查詢。員工考勤管理模塊輸入：員工考勤情況功能：完成對員工的考勤以及對考勤情況的查詢、統(tǒng)計和刪除員工考勤等情況 員工出差模塊輸入：員工出差時間以及回來的時間功能：完成對員工出差信息的詳細記錄，也是為了完善員工考勤信息 員工加班模塊輸入：員工加班開始以及結束時間功能：完成對員工加班信息的詳細記錄，也是為了完善員工考勤信息 員工請假模塊輸入：員工請假時間 以及回來的時間 功能：完成對員工請假信息的詳

5、細記錄，也是為了完善員工考勤信息；1.5 功能圖1.6模塊分析在這個系統(tǒng)中各個模塊之間獨立工作，但是相互補充，考勤表，記錄了員工們的出勤信 息，但是不包括出差和請假，加班的員工信息，所以就需要出差和請假，加班這兩個模 塊來補充這一缺陷。最后就是留言板，主要是為了給員工們一個自由言論的機會，這一 也對公司是一件有意義的事情?？记谙到y(tǒng)r、員工信息考勤信息L 丿出差信息請假信息)1)圖1.3.1系統(tǒng)功能模塊圖加班信息管理員信 息丿1.7員工出勤和出差的 E-R圖出差請假日期概念結構設計2.1關系模式分析2.1.1實體關系模式：職工（編號，姓名，性別，年齡，職稱，）出勤記錄（上班打卡時間，下班打卡時間

6、，缺勤記錄） 岀差記錄（岀差起始時間，岀差結束時間，岀差總天數(shù)） 請假記錄（請假開始時間，請假結束時間，請假天數(shù)） 加班記錄（加班開始時間，加班結束時間，加班總時間） 2.1.2聯(lián)系的關系模式：報到（編號，姓名，上班打卡時間，下班打卡時間，缺勤記錄） 安排（編號，姓名，出差起始時間，出差結束時間，出差總天數(shù)） 申請（編號，姓名，請假開始時間，請假結束時間，請假天數(shù)） 參加（編號，姓名，加班開始時間，加班結束時間，加班總時間）2.2下面是本次設計的每一個表所涉及的數(shù)據(jù):2.2.1員工信息表:列名說明數(shù)據(jù)類型備注nu mber員工編號Int主鍵n ame員工姓名Varchar(50)可以為空sex

7、員工性別Char( 4)可以為空age員工年齡Varchar(50)可以為空title員工職稱Varchar(50)可以為空2.2.2請假信息表:列名說明數(shù)據(jù)類型備注nu mber員工編號Int主鍵n ame員工姓名Varchar(50)主鍵leavebeg in請假開始時間Dt可以為空leavee nd請假結束時間Dt可以為空Leavedays請假總天數(shù)Int可以為空223出差信息表:列名說明數(shù)據(jù)類型備注nu mber員工編號Int主鍵n ame員工姓名Varchar(50)主鍵erron dbegi n出差開始時間Dt可以為空errondend出差結束時間Dt可以為空erron ddays

8、出差總天數(shù)Int可以為空224加班信息表:列名說明數(shù)據(jù)類型備注nu mber員工編號Int主鍵n ame員工姓名Varchar(50)主鍵addbeg in加班開始時間Dt可以為空addend加班結束時間Dt可以為空Addtime ( h)加班總時間Int可以為空225日岀勤信息表:列名說明數(shù)據(jù)類型備注n umber員工編號Int主鍵n ame員工姓名Varchar(50)主鍵Shangban上班時間Dt可以為空Xiaba n下班時間Dt可以為空Queqi n缺勤情況Varchar(50)可以為空226管理員信息表列名說明數(shù)據(jù)類型備注n ame員工姓名Varchar(50)主鍵passward

9、密碼Int不可以為空部分代碼和截圖3.1 管理員登錄界面代碼Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Cata

10、log=worker"Dim sqlcmd As StringIf Text1.Text = "" ThenMsgBox " 請輸入用戶名 "Text1.SetFocusExit SubEnd Ifsqlcmd = "SELECT * FROM guan WHERE name='" & Text1.Text & "'"Dim rss As New ADODB.Recordset rss.CursorLocation = adUseClient rss.Open sqlcmd

11、, conn, adOpenStatic, adLockReadOnly If rss.EOF ThenMsgBox " 輸入的用戶名不對，請重新輸入", vbOKOnly, " 提示 "Text1.SetFocusExit SubEnd IfIf Trim(rss.Fields("passward") <> Text2.Text ThenMsgBox " 輸入的密碼不對，請重新輸入 ", vbOKOnly, " 提示 " Text2.SetFocusExit SubElse use

12、r = Text1.Text pwd = Text2.Text Form2.Show Unload MeEnd If rss.CloseEnd Sub截圖密碼:確定用戶盂3.2職工考勤系統(tǒng)界面Opti on ExplicitPrivate Sub chuchai_add_Click()Form4.ShowEnd SubPrivate Sub chuchai_cha nge_Click()Form5.ShowEnd SubPrivate Sub chuchai_chaxu n_Click()Form6.ShowEnd SubPrivate Sub chuchai_delete_Click()Fo

13、rm7.ShowEnd SubPrivate Sub chuqin_add_Click()Form20.ShowEnd SubPrivate Sub chuq in _cha nge_Click()Form21.ShowEnd SubPrivate Sub chuq in _chaxu n_Click()Form22.ShowEnd SubPrivate Sub chuqin_delete_Click()Form23.ShowEnd SubPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub guan_change_Click()Form3.S

14、howEnd SubPrivate Sub jiaban_add_Click()Form16.ShowEnd SubPrivate Sub jiaban_change_Click()Form17.ShowEnd SubPrivate Sub jiaban_chaxun_Click()Form18.ShowEnd SubPrivate Sub jiaban_delete_Click()Form19.ShowEnd SubPrivate Sub qingjia_add_Click()Form8.ShowEnd SubPrivate Sub qingjia_change_Click()Form13.

15、ShowEnd SubPrivate Sub qingjia_chaxun_Click()Form14.ShowEnd SubPrivate Sub qingjia_delete_Click()Form15.ShowEnd SubPrivate Sub yuangong_add_Click()Form10.ShowEnd SubPrivate Sub yuangong_change_Click()Form11.ShowEnd SubPrivate Sub yuangong_chaxun_Click()Form9.ShowEnd SubPrivate Sub yuangong_delete_Cl

16、ick()Form12.ShowEnd Sub截圖皆理員 出走信息 員工信息加班信息 潔假信息 出勤信息3.3員工信息添加界面代碼Opti on ExplicitDim conn As New ADODB.Co nn ectionDim rs As New ADODB.RecordsetPrivate Sub Comma nd1_Click()Set co nn = New ADODB.Co nn ectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;lnitial Catalo

17、g=worker"Dim sqlcmd As Stri ngsqlcmd = "SELECT * FROM yua ngo ng"Dim rss As New ADODB.Recordsetrss.CursorLocati on = adUseClie ntrss.Ope n sqlcmd, conn, 1, 3rss.AddNewrss.Fields(O) = Textl.Textrss.Fields(l) = Text2.Textrss.Fields(2) = Text3.Textrss.Fields(3) = Text4.Textrss.Fields =Te

18、xt5.Textrss.UpdateMsgBox "添加成功“rss.CloseUn load MeEnd SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub截圖3.4員工信息查詢界面代碼 Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Comma nd1_Click()Set co nn = New ADODB.Co nn ectionconn.Open "Provider=SQLOLEDB.1;Data Source=(loc

19、al);User ID=sa;password=sa;lnitial Catalog=worker" sqlcmd = "SELECT * FROM yua ngo ng WHERE n umber='" & Textl.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocati on = adUseClie ntrss.Ope n sqlcmd, conn ,1,1If Not rss.EOF The nText2.Text = rss.Fields(O)T

20、ext3.Text = rss.Fields(l)Text4.Text = rss.Fields(2)Text5.Text = rss.Fields(3)Text6.Text = rss.Fields(4)rss.CloseElseMsgBox "沒有記錄“End IfEnd SubPrivate Sub Comma nd2_Click()Set co nn = New ADODB.Co nn ectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;lnitial Cat

21、alog=worker" sqlcmd = "SELECT * FROM yuan go ng WHERE n ame='" & Text7.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocati on = adUseClie ntrss.Ope n sqlcmd, conn ,1,1If Not rss.EOF The nText2.Text = rss.Fields(O)Text3.Text = rss.Fields(l)Text4.Text = rs

22、s.Fields(2)Text5.Text = rss.Fields(3)Text6.Text = rss.Fields(4)rss.CloseElseMsgBox "沒有記錄“End IfEnd Sub截圖3.5員工信息修改界面代碼Dim conn As New ADODB.Connection Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);U

23、ser ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT * FROM yuangong WHERE number='" & Combo1.Text & "'"Dim rss As New ADODB.Recordset rss.CursorLocation = adUseClient rss.Open sqlcmd, conn, 1, 3 If Not rss.EOF Thenrss.Fields(1)

24、= Text1.Text rss.Fields(2) = Text2.Text rss.Fields(3) = Text3.Text rss.Fields(4) = Text4.Text rss.Update rss.Close MsgBox " 修改成功 "ElseMsgBox " 沒有記錄 "End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.O

25、pen "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM yuangong WHERE number='" & Combo1.Text & "'" Dim rss2 As New ADODB.Recordset rss2.CursorLocation = adUseClient rss2.

26、Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" Then Text1.Text = rss2.Fields(1) Text2.Text = rss2.Fields(2) Text3.Text = rss2.Fields(3) Text4.Text = rss2.Fields(4) End If rss2.CloseEnd SubPrivate Sub Form_Load()Set co nn = New ADODB.Co nn ectionconn.Open "Provider=SQLOLEDB.1;Data

27、Source=(local);User ID=sa;password=sa;lnitial Catalog=worker"Dim sqlcmd As Stri ngsqlcmd = "SELECT number FROM yua ngo ng "Dim rss As New ADODB.Recordsetrss.CursorLocati on = adUseClie ntrss.Ope n sqlcmd, conn ,1,1Combo1.ClearWhile Not rss.EOFCombo1.AddItem (rss.Fields(" number&q

28、uot;)rss.MoveNextWendrss.CloseEnd Sub截圖3.6員工信息刪除界面代碼Dim connAs New ADODB.Co nn ectionDim rs As New ADODB.RecordsetPrivate Sub Comma nd1_Click()Set co nn = New ADODB.Co nn ectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmmd As S

29、tringsqlcmmd = "DELETEFROM yuangong WHERE number* & Combol &Dim rst As New ADODB.Recordsetrst.CursorLocati on = adUseClie ntrst.Ope n sqlcmmd, conn, 1,3MsgBox "已刪除該記錄!", vbOKOnly,"提示"Un load MeEnd SubPrivate Sub Form_Load()Set co nn = New ADODB.Co nn ectionconn.Open

30、"Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;lnitial Catalog=worker"Dim sqlcmd As Stri ngsqlcmd = "SELECT number FROM yua ngo ng "Dim rss As New ADODB.Recordsetrss.CursorLocati on = adUseClie ntrss.Ope n sqlcmd, conn ,1,1Combo1.ClearWhile Not rss.EOFCombo1.AddI

31、tem (rss.Fields(" number")rss.MoveNextWendrss.CloseEnd Sub截圖3.7出差信息添加界面代碼Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Ini

32、tial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai "Dim rss As New ADODB.Recordset rss.CursorLocation = adUseClient rss.Open sqlcmd, conn, 1, 3 rss.AddNew rss.Fields(0) = Text1.Text rss.Fields(1) = Text2.Text rss.Fields(2) = Text3.Text rss.Fields(3) = Text4.Text

33、rss.Fields(4) = Text5.Text rss.UpdateMsgBox " 添加成功 "rss.CloseUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Text5.Text = Val(Text4.Text) - Val(Text3.Text)End Sub 截圖3.8出差信息查詢界面代碼Dim conn As New ADODB.Co nn ectionDim rs As New ADODB.RecordsetPrivate S

34、ub Comma nd1_Click()Set co nn = New ADODB.Co nn ectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;lnitial Catalog=worker"Dim sqlcmd As Stri ngsqlcmd = "SELECT * FROM chuchai WHERE number* & Textl.Text & ""'Dim rss As New ADODB.Record

35、setrss.CursorLocati on = adUseClie ntrss.Ope n sqlcmd, conn ,1,1If Not rss.EOF The nText4.Text = rss.Fields(O)Text5.Text = rss.Fields(l)Text6.Text = rss.Fields(2)Text7.Text = rss.Fields(3)Text8.Text = rss.Fields(4)rss.CloseElseMsgBox "沒有記錄“End IfEnd SubPrivate Sub Comma nd2_Click()Un load MeEnd

36、 SubPrivate Sub Comma nd3_Click()Set co nn = New ADODB.Co nn ectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;lnitial Catalog=worker"Dim sqlcmd As Stri ngsqlcmd = "SELECT * FROM chuchai WHERE name='" & Text2.Text & "'"Dim r

37、ss As New ADODB.Recordsetrss.CursorLocati on = adUseClie ntrss.Ope n sqlcmd, conn ,1,1If Not rss.EOF The nText4.Text = rss.Fields(O)Text5.Text = rss.Fields(l)Text6.Text = rss.Fields(2)Text7.Text = rss.Fields(3)Text8.Text = rss.Fields(4)rss.CloseElseMsgBox "沒有記錄“End IfEnd Sub截圖音理員出差信查詢出差信息5姓名騙號5

38、金王姓名2010 12 15-Il mx«查詢出差皓息按編號查詢g a3.9 出差信息修改界面代碼Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stri

39、ngsqlcmd = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss As New ADODB.Recordset rss.CursorLocation = adUseClient rss.Open sqlcmd, conn, 1, 3 If Not rss.EOF Thenrss.Fields(1) = Text1.Text rss.Fields(2) = Text2.Text rss.Fields(3) = Text3.Text rss

40、.Fields(4) = Text4.Textrss.Updaterss.CloseMsgBox " 修改成功 "ElseMsgBox " 沒有記錄 "End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;

41、Initial Catalog=worker" Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss2 As New ADODB.Recordset rss2.CursorLocation = adUseClient rss2.Open sqlcmd2, conn, 1, 1 If Combo1.Text <> "" Then Text1.Te

42、xt = rss2.Fields(1)Text2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Text4.Text = rss2.Fields(4)End Ifrss2.CloseEnd SubPrivate Sub Comma nd4_Click()Text4.Text = Val(Text3.Text) - Val(Text2.Text)End SubPrivate Sub Form_Load()Set co nn = New ADODB.Co nn ectionconn.Open "Provider=SQLOLEDB.1;Da

43、ta Source=(local);User ID=sa;password=sa;lnitial Catalog=worker"Dim sqlcmd As Stri ngsqlcmd = "SELECT number FROM chuchai "Dim rss As New ADODB.Recordsetrss.CursorLocati on = adUseClie ntrss.Ope n sqlcmd, conn ,1,1Combo1.ClearWhile Not rss.EOFCombo1.AddItem (rss.Fields(" number&q

44、uot;)rss.MoveNextWendrss.CloseEnd Sub截圖3.10出差信息刪除界面代碼Dim conn As New ADODB.Connection Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmmd As Str

45、ingsqlcmmd = "DELETE FROM chuchai WHERE number='" & Combo1 & "'"Dim rst As New ADODB.Recordset rst.CursorLocation = adUseClient rst.Open sqlcmmd, conn, 1, 3MsgBox " 已刪除該記錄 !", vbOKOnly, " 提示 " Unload MeEnd SubPrivate Sub Command2_Click()Unload

46、MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'" Dim rss2 As New ADODB.Recordset rss2.CursorLocation = adUseClient rss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" Then Text1.Text = rss2.Fields(1) Text2.Text = rss2.Fields(2)T