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

1、學(xué)號數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計報告題目：職工考勤管理信息系統(tǒng)專業(yè)：網(wǎng)絡(luò)工程班級：姓名：指導(dǎo)教師：成績：計算機學(xué)院2017年12月8日目錄需求分析11.1 系統(tǒng)目標(biāo)以及功能11.2 系統(tǒng)功能分析11.3系統(tǒng)E-R圖11.4信息分析21.5功能圖21.6模塊分析31.7員工出勤和出差的E-R圖3概念結(jié)構(gòu)設(shè)計42.1關(guān)系模式分析4實體關(guān)系模式：4聯(lián)系的關(guān)系模式：42.2下面是本次設(shè)計的每一個表所涉及的數(shù)據(jù)：4員工信息表：4請假信息表：5出差信息表：5加班信息表：5日出勤信息表：5管理員信息表5部分代碼和截圖63.1管理員登錄界面63.2職工考勤系統(tǒng)界面73.3員工信息添加界面93.4員工信息查詢界面10

2、3.5員工信息修改界面113.6員工信息刪除界面133.7出差信息添加界面143.8出差信息查詢界面163.9出差信息修改界面183.10出差信息刪除界面193.11管理員修改界面21心得體會22參考文獻(xiàn)22需求分析1.1 系統(tǒng)目標(biāo)以及功能為了配合人事管理系統(tǒng)的使用，充分地記錄員工的出勤情況，可以開發(fā)考勤管理系統(tǒng)。進(jìn)行出勤情況統(tǒng)計的過程中，要充分考慮到各種缺勤情況的類別。此系統(tǒng)其主要功能有職工信息，包括職工編號、職工姓名、性別、年齡、職稱等；出勤記錄信息，包括上班打卡時間，下班打開時間，缺勤記錄等；出差信息，包括出差起始時間、結(jié)束時間、統(tǒng)計總共天數(shù)等；請假信息，包括請假開始時間，結(jié)束時間，統(tǒng)計

3、請假天數(shù)等；加班信息，包括加班開始時間、結(jié)束時間、統(tǒng)計加班總時間。² 實現(xiàn)企業(yè)員工出勤情況的詳細(xì)的、系統(tǒng)的管理。² 使得企業(yè)員工的管理更加現(xiàn)代化、科學(xué)化、自動化，并可以很好地督促企業(yè)員工更好地為企業(yè)謀福利。² 可以使用考勤機，使得企業(yè)的管理更加現(xiàn)代化。1.2 系統(tǒng)功能分析² 員工考勤系統(tǒng)能夠和考勤機相連，可以把數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫中，從而完成自動、高效、科學(xué)的考勤信息的輸入。² 可以完成員工考勤信息的手工輸入、修改、刪除等操作。² 可以設(shè)定缺勤的類型，如病假、事假等。1.3系統(tǒng)E-R圖姓名上班時間性別編號考勤記錄管理考勤職員 M 1下班時間

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

5、是為了完善員工考勤信息；1.5功能圖界面增加職工編號，姓名，性別，年齡，職稱查詢按職工編號，姓名，進(jìn)行查詢，刪除先輸入要刪除的職工編號，姓名，顯示各種記錄，選擇要刪除的記錄進(jìn)行刪除修改先輸入要刪除的職工編號，姓名，顯示各種記錄，選擇要修改的記錄進(jìn)行修改1.6模塊分析 在這個系統(tǒng)中各個模塊之間獨立工作，但是相互補充，考勤表，記錄了員工們的出勤信息，但是不包括出差和請假，加班的員工信息，所以就需要出差和請假，加班這兩個模塊來補充這一缺陷。最后就是留言板，主要是為了給員工們一個自由言論的機會，這一也對公司是一件有意義的事情?？记谙到y(tǒng) 員工信息考勤信息出差信息請假信息加班信息管理員信息圖系統(tǒng)功能模塊圖

6、1.7員工出勤和出差的E-R圖職工姓名出差請假日期出差、請假員工出差、請假信息出差或請假總天數(shù)職員編號結(jié)束時間加班加班總時間加班結(jié)束時間加班記錄加班開始時間職工編號職工姓名概念結(jié)構(gòu)設(shè)計2.1關(guān)系模式分析實體關(guān)系模式：職工（編號，姓名，性別，年齡，職稱，）出勤記錄（上班打卡時間，下班打卡時間，缺勤記錄）出差記錄（出差起始時間，出差結(jié)束時間，出差總天數(shù)）請假記錄（請假開始時間，請假結(jié)束時間，請假天數(shù)）加班記錄（加班開始時間，加班結(jié)束時間，加班總時間）聯(lián)系的關(guān)系模式：報到（編號，姓名，上班打卡時間，下班打卡時間，缺勤記錄）安排（編號，姓名，出差起始時間，出差結(jié)束時間，出差總天數(shù)）申請（編號，姓名，請

7、假開始時間，請假結(jié)束時間，請假天數(shù)）參加（編號，姓名，加班開始時間，加班結(jié)束時間，加班總時間）2.2下面是本次設(shè)計的每一個表所涉及的數(shù)據(jù)：員工信息表：列名說明數(shù)據(jù)類型備注number員工編號Int主鍵name員工姓名Varchar(50)可以為空sex員工性別Char（4）可以為空age員工年齡Varchar(50)可以為空title員工職稱Varchar(50)可以為空請假信息表：列名說明數(shù)據(jù)類型備注number員工編號Int主鍵name員工姓名Varchar(50)主鍵leavebegin請假開始時間Dt可以為空leaveend請假結(jié)束時間Dt可以為空Leavedays請假總天數(shù)Int可以

8、為空出差信息表：列名說明數(shù)據(jù)類型備注number員工編號Int主鍵name員工姓名Varchar(50)主鍵errondbegin出差開始時間Dt可以為空errondend出差結(jié)束時間Dt可以為空erronddays出差總天數(shù)Int可以為空加班信息表：列名說明數(shù)據(jù)類型備注number員工編號Int主鍵name員工姓名Varchar(50)主鍵addbegin加班開始時間Dt可以為空addend加班結(jié)束時間Dt可以為空Addtime（h）加班總時間Int可以為空日出勤信息表：列名說明數(shù)據(jù)類型備注number員工編號Int主鍵name員工姓名Varchar(50)主鍵Shangban上班時間Dt可

9、以為空Xiaban下班時間Dt可以為空Queqin缺勤情況Varchar(50)可以為空管理員信息表列名說明數(shù)據(jù)類型備注name員工姓名Varchar(50)主鍵passward密碼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.Connectioncon

10、n.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As StringIf Text1.Text = "" Then MsgBox "請輸入用戶名" Text1.SetFocus Exit SubEnd If sqlcmd = "SELECT * FROM guan WHERE name='" & Text1.Text & "

11、'" Dim rss As New ADODB.Recordset rss.CursorLocation = adUseClient rss.Open sqlcmd, conn, adOpenStatic, adLockReadOnly If rss.EOF Then MsgBox "輸入的用戶名不對，請重新輸入", vbOKOnly, "提示" Text1.SetFocus Exit Sub End If If Trim(rss.Fields("passward") <> Text2.Text Then

12、 MsgBox "輸入的密碼不對，請重新輸入", vbOKOnly, "提示" Text2.SetFocus Exit Sub Else user = Text1.Text pwd = Text2.Text Form2.Show Unload Me End If rss.CloseEnd Sub截圖3.2職工考勤系統(tǒng)界面Option ExplicitPrivate Sub chuchai_add_Click()Form4.ShowEnd SubPrivate Sub chuchai_change_Click()Form5.ShowEnd SubPriva

13、te Sub chuchai_chaxun_Click()Form6.ShowEnd SubPrivate Sub chuchai_delete_Click()Form7.ShowEnd SubPrivate Sub chuqin_add_Click()Form20.ShowEnd SubPrivate Sub chuqin_change_Click()Form21.ShowEnd SubPrivate Sub chuqin_chaxun_Click()Form22.ShowEnd SubPrivate Sub chuqin_delete_Click()Form23.ShowEnd SubPr

14、ivate Sub exit_Click()Unload MeEnd SubPrivate Sub guan_change_Click()Form3.ShowEnd 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 q

15、ingjia_add_Click()Form8.ShowEnd SubPrivate Sub qingjia_change_Click()Form13.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 SubPrivat

16、e Sub yuangong_chaxun_Click()Form9.ShowEnd SubPrivate Sub yuangong_delete_Click()Form12.ShowEnd Sub截圖3.3員工信息添加界面代碼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=(lo

17、cal);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM yuangong"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3rss.AddNewrss.Fields(0) = Text1.Textrss.Fields(1) = Text2.Textrss.Fields(2) = Text3.Textrss.

18、Fields(3) = Text4.Textrss.Fields(4) = Text5.Textrss.UpdateMsgBox "添加成功"rss.CloseUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub截圖3.4員工信息查詢界面代碼Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "

19、;Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"sqlcmd = "SELECT * FROM yuangong WHERE number='" & Text1.Text & "' "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF

20、Then Text2.Text = rss.Fields(0) Text3.Text = rss.Fields(1) Text4.Text = rss.Fields(2) Text5.Text = rss.Fields(3) Text6.Text = rss.Fields(4) rss.CloseElse MsgBox "沒有記錄"End IfEnd SubPrivate Sub Command2_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(lo

21、cal);User ID=sa;password=sa;Initial Catalog=worker"sqlcmd = "SELECT * FROM yuangong WHERE name='" & Text7.Text & "' "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF Then Text2.Text = rss.Fields(0) Text3.

22、Text = rss.Fields(1) Text4.Text = rss.Fields(2) Text5.Text = rss.Fields(3) Text6.Text = rss.Fields(4) rss.CloseElse MsgBox "沒有記錄"End IfEnd Sub截圖3.5員工信息修改界面代碼Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open &qu

23、ot;Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM yuangong WHERE number='" & Combo1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, con

24、n, 1, 3If Not rss.EOF Then rss.Fields(1) = Text1.Text rss.Fields(2) = Text2.Text rss.Fields(3) = Text3.Text rss.Fields(4) = Text4.Text rss.Update rss.Close MsgBox "修改成功"Else MsgBox "沒有記錄"End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click(

25、)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 yuangong WHERE number='" & Combo1.Text & "'"Dim rss2 As New ADODB.Recordsetrss2

26、.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" ThenText1.Text = rss2.Fields(1)Text2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Text4.Text = rss2.Fields(4)End Ifrss2.CloseEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "

27、Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT number FROM yuangong "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1 Combo1.Clear While Not rss.EOF Combo1.AddItem (rss

28、.Fields("number") rss.MoveNext Wend rss.CloseEnd Sub截圖3.6員工信息刪除界面代碼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&q

29、uot;Dim sqlcmmd As Stringsqlcmmd = "DELETE FROM yuangong WHERE number='" & Combo1 & "'"Dim rst As New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open sqlcmmd, conn, 1, 3MsgBox "已刪除該記錄!", vbOKOnly, "提示"Unload MeEnd SubPrivate Sub Form_Lo

30、ad()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT number FROM yuangong "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1

31、 Combo1.Clear While Not rss.EOF Combo1.AddItem (rss.Fields("number") rss.MoveNext Wend rss.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;D

32、ata Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3rss.AddNewrss.Fields(0) = Text1.Textrss.Fields(1) = Text2.Textrss.Fields(2) =

33、Text3.Textrss.Fields(3) = Text4.Textrss.Fields(4) = Text5.Textrss.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.ConnectionDim rs A

34、s 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 Stringsqlcmd = "SELECT * FROM chuchai WHERE number='" & Text1.Text & "&#

35、39;"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF Then Text4.Text = rss.Fields(0) Text5.Text = rss.Fields(1) Text6.Text = rss.Fields(2) Text7.Text = rss.Fields(3) Text8.Text = rss.Fields(4) rss.CloseElse MsgBox "沒有記錄"End IfEnd

36、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;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai WHERE name='" & T

37、ext2.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF Then Text4.Text = rss.Fields(0) Text5.Text = rss.Fields(1) Text6.Text = rss.Fields(2) Text7.Text = rss.Fields(3) Text8.Text = rss.Fields(4) rss.CloseElse MsgBox &q

38、uot;沒有記錄"End IfEnd Sub截圖3.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 Stringsqlcmd = &q

39、uot;SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3If Not rss.EOF Then rss.Fields(1) = Text1.Text rss.Fields(2) = Text2.Text rss.Fields(3) = Text3.Text rss.Fields(4) = Te

40、xt4.Text rss.Update rss.Close MsgBox "修改成功"Else MsgBox "沒有記錄"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;Initial Catalog

41、=worker"Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss2 As New ADODB.Recordsetrss2.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" ThenText1.Text = rss2.Fields(1)T

42、ext2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Text4.Text = rss2.Fields(4)End Ifrss2.CloseEnd SubPrivate Sub Command4_Click()Text4.Text = Val(Text3.Text) - Val(Text2.Text)End SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User I

43、D=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT number FROM chuchai "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1 Combo1.Clear While Not rss.EOF Combo1.AddItem (rss.Fields("number") rss.MoveNext Wend r

44、ss.CloseEnd Sub截圖3.10出差信息刪除界面代碼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 sqlcmmd As Stringsqlcmmd = "DELET

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

46、lick()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.Recordsetrss2.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" ThenText1.Text = rss2.Fields(1)Text2.Text = rss2.Fields(2)Te