企業(yè)安全教育管理說明書

1、期末作業(yè)題 目： 企業(yè)職工安全教育管理系統(tǒng) 學(xué)生姓名： 馮晨陽 學(xué) 號(hào)： 0990801079 系部名稱： 安全工程 專業(yè)班級(jí)： 勞動(dòng)安全1班 指導(dǎo)教師： 胡廣霞 評(píng)定成績： 年 月 日目 錄目 錄1 引言1.1課題背景1.2課程設(shè)計(jì)目的1.3課程設(shè)計(jì)任務(wù)2 系統(tǒng)結(jié)構(gòu)分析2.1 需求分析2.2 功能模塊圖3 數(shù)據(jù)庫設(shè)計(jì)3.1 概念結(jié)構(gòu)設(shè)計(jì)3.2邏輯結(jié)構(gòu)設(shè)計(jì)3.3數(shù)據(jù)庫表的建立4 系統(tǒng)設(shè)計(jì)4.1職工基本信息管理4.2.三級(jí)教育信息管理模塊4.3事故演練模塊4.4 事故統(tǒng)計(jì)分析模塊4.5 密碼修改5系統(tǒng)測試及結(jié)果5.1系統(tǒng)調(diào)試5.2 測試結(jié)果6 系統(tǒng)技術(shù)實(shí)現(xiàn)6.1 Access6.2 Visual

2、 Basic參考文獻(xiàn)附錄 部分程序代碼1 引言1.1課題背景1.2課程設(shè)計(jì)目的系統(tǒng)地掌握需求分析、數(shù)據(jù)庫設(shè)計(jì)、編碼實(shí)現(xiàn)、測試等軟件開發(fā)的流程，提高自身分析問題、解決問題的能力。1.3課程設(shè)計(jì)任務(wù)本課程設(shè)計(jì)任務(wù)是通過企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，將所學(xué)的數(shù)據(jù)庫系統(tǒng)概論理路結(jié)合實(shí)際課程任務(wù)，進(jìn)一步學(xué)習(xí)數(shù)據(jù)庫系統(tǒng)的設(shè)計(jì)與開發(fā)，提高實(shí)踐動(dòng)手能力，系統(tǒng)使用Visual basic和2 系統(tǒng)結(jié)構(gòu)分析2.1 需求分析2.2 功能模塊圖根據(jù)需求和系統(tǒng)分析，可以設(shè)計(jì)出系統(tǒng)的總體功能模塊，如圖2.1所示。企業(yè)安全教育管理系統(tǒng)系統(tǒng)密碼修改三級(jí)教育管理事故演練管理職工信息管理事故演練統(tǒng)計(jì)圖2.1 系統(tǒng)功能模塊示意圖1

3、.系統(tǒng)密碼修改功能，其功能模塊如下圖2.2所示。系統(tǒng)密碼修改修改密碼用戶登錄職工信息管理模塊職工基本信息打印職工信息職工信息維護(hù)圖2.2 用戶密碼修改 圖2.3 職工信息管理模塊2.職工信息管理模塊，保存和更新數(shù)據(jù)信息，職工基本信息，包括編號(hào)，姓名，出生年月，工作時(shí)間，職位，職稱，備注等數(shù)據(jù)，實(shí)現(xiàn)對(duì)應(yīng)模塊的添加，瀏覽，刪除和修改。模塊如上圖2.3所示。3.三級(jí)教育信息管理模塊：保存和更新數(shù)據(jù)信息，包括編號(hào)、教育級(jí)別、培訓(xùn)時(shí)間、培訓(xùn)人、以及受訓(xùn)人等數(shù)據(jù)，實(shí)現(xiàn)設(shè)置、添加和修改信息功能。模塊如圖2.4所示。 三級(jí)教育管理模塊教育信息添加打印三級(jí)教育三級(jí)教育維護(hù) 事故演練管理模塊事故演練添加打印事故演

4、練事故演練維護(hù) 圖2.4三級(jí)教育管理模塊 圖2.5 事故演練管理模塊4.事故演練管理模塊：保存和更新數(shù)據(jù)信息，包括演練部門，演練時(shí)間，演練內(nèi)容等數(shù)據(jù)，實(shí)現(xiàn)設(shè)置、添加和修改信息功能。功能模塊如圖2.5所示。5.事故演練統(tǒng)計(jì)功能實(shí)現(xiàn)對(duì)事故演練信息的統(tǒng)計(jì)，通過條形圖直觀的顯示出來，并實(shí)現(xiàn)導(dǎo)出excel功能。功能模塊如圖2.6所示。按部門統(tǒng)計(jì)按時(shí)間統(tǒng)計(jì)數(shù)據(jù)導(dǎo)出到表格事故演練統(tǒng)計(jì)模塊 圖2.6 事故演練統(tǒng)計(jì)3 數(shù)據(jù)庫設(shè)計(jì)3.1 概念結(jié)構(gòu)設(shè)計(jì)通過對(duì)用戶需求進(jìn)行綜合、歸納和抽象，形成一個(gè)獨(dú)立于具體數(shù)據(jù)庫的概念模型。根據(jù)前面的設(shè)計(jì)規(guī)劃處實(shí)體有：用戶實(shí)體、總體。構(gòu)建E-R圖用來描述本系統(tǒng)中的概念模型。（1）用戶

5、實(shí)體包含的屬性：用戶名、密碼、用戶類型。用戶實(shí)體與各屬性是對(duì)應(yīng)的關(guān)系，各屬性之間則是部分存在對(duì)應(yīng)關(guān)系，如用戶名確定，則可以推斷其它兩個(gè)屬性，但是密碼確定，卻不能推斷其它屬性，用戶實(shí)體E-R圖如圖3.1所示。管理人員用戶名密碼圖3.1 用戶實(shí)體E-R圖（2）根據(jù)分E-R圖和需求分析，可得到總E-R圖，如圖3.2所示。姓名職工編號(hào)工種職位文化程度出生日期單位部門性別 類別備注工作時(shí)間記錄職工基本信息數(shù)據(jù)庫姓名教育編號(hào)受訓(xùn)人考核結(jié)果教育級(jí)別培訓(xùn)內(nèi)容記錄三級(jí)教育信息數(shù)據(jù)庫 時(shí)間事故演練部門演練內(nèi)容 時(shí)間記錄事故演練信息數(shù)據(jù)庫3.2邏輯結(jié)構(gòu)設(shè)計(jì)根據(jù)以上的E-R，結(jié)合關(guān)系數(shù)據(jù)庫理論原則，可以得到以下的關(guān)系

6、模型:（1）登陸表：（存放管理員用戶名和密碼）（2）三級(jí)安全教育培訓(xùn)情況表；（3）事故演練記錄表；（4）職工基本信息登記表；我們用數(shù)據(jù)字典來羅列關(guān)系模型的屬性及其描述，本學(xué)生管理系統(tǒng)的數(shù)據(jù)字典如表3.1所示。表3.1 職工基本信息數(shù)據(jù)字典名字描述數(shù)據(jù)類型職工編號(hào)描述職工編號(hào)的數(shù)據(jù)50變長字符串姓名描述姓名的數(shù)據(jù)50變長字符串性別描述性別的數(shù)據(jù)50變長字符串出生日期描述出生日期的數(shù)據(jù)50變長字符串文化程度描述文化程度的數(shù)據(jù)50變長字符串工作時(shí)間描述工作時(shí)間的數(shù)據(jù)50變長字符串單位部門描述單位部門的數(shù)據(jù)50變長字符串職位描述職位的數(shù)據(jù)50變長字符串工種描述工種的數(shù)據(jù)50變長字符串類別描述類別的數(shù)據(jù)

7、50變長字符串3.2三級(jí)安全教育培訓(xùn)情況表數(shù)據(jù)字典名字描述數(shù)據(jù)類型職工編號(hào)描述職工編號(hào)的數(shù)據(jù)50變長字符串姓名描述姓名的數(shù)據(jù)50變長字符串教育級(jí)別描述教育級(jí)別的數(shù)據(jù)50變長字符串培訓(xùn)時(shí)間描述培訓(xùn)時(shí)間的數(shù)據(jù)50變長字符串培訓(xùn)內(nèi)容描述培訓(xùn)內(nèi)容的數(shù)據(jù)250變長字符串考核結(jié)果描述考核結(jié)果的數(shù)據(jù)50變長字符串培訓(xùn)人描述培訓(xùn)人的數(shù)據(jù)50變長字符串3.3三級(jí)安全教育培訓(xùn)情況表數(shù)據(jù)字典名字描述數(shù)據(jù)類型演練部門描述演練部門的數(shù)據(jù)50變長字符串演練內(nèi)容描述演練內(nèi)容的數(shù)據(jù)250變長字符串時(shí)間描述演練時(shí)間的數(shù)據(jù)50變長字符串3.3數(shù)據(jù)庫表的建立在設(shè)計(jì)數(shù)據(jù)庫表結(jié)構(gòu)之前，首先要?jiǎng)?chuàng)建一個(gè)數(shù)據(jù)庫，企業(yè)安全教育管理系統(tǒng)選用Ac

8、cess 2003創(chuàng)建用戶數(shù)據(jù)庫，其建設(shè)過程如圖3.3圖3.6所示。圖3.3 創(chuàng)建數(shù)據(jù)庫界面圖3.4 職工基本信息表圖3.5 三級(jí)安全教育培訓(xùn)情況表圖3.6 事故演練記錄表圖3.7 用戶登錄表4 系統(tǒng)設(shè)計(jì)4.1職工基本信息管理當(dāng)用戶選定了添加職工基本信息按鈕后，會(huì)出現(xiàn)以下界面，如圖圖4.1 添加職工信息2.維護(hù)職工基本信息為了方便查看，在程序中使用了DataGrid控件。修改信息時(shí)，點(diǎn)擊修改后，text控件才變?yōu)榭尚薷臓顟B(tài)，修改后如下圖4.3所示。圖4.2 職工信息維護(hù)修改成功后將彈出如下提示框，如圖4.3。圖4.5 提示框刪除時(shí)會(huì)出現(xiàn)如下提示框如圖4.4圖4.4 刪除提示3. 打印職工基本信

9、息打印職工基本信息界面如下圖4.5。圖4.5 打印職工信息4.2.三級(jí)教育信息管理模塊1.三級(jí)教育記錄添加 圖4.6 三級(jí)教育記錄添加2. 三級(jí)教育記錄維護(hù)圖4.7 三級(jí)教育記錄維護(hù)4.3事故演練模塊1事故演練記錄添加4.8事故演練添加4.4 事故統(tǒng)計(jì)分析模塊圖4.9 事故演練統(tǒng)計(jì)分析4.5 密碼修改用于管理員修改密碼，界面簡單，如下圖4.10圖4.10 密碼修改圖4.11 錯(cuò)誤提示圖4.12修改成功提示5系統(tǒng)測試及結(jié)果5.1系統(tǒng)調(diào)試在系統(tǒng)投入使用前要進(jìn)行一系列測試，以保證更高的系統(tǒng)準(zhǔn)確性，數(shù)據(jù)要按照標(biāo)準(zhǔn)測試要求進(jìn)行測試，如邊界數(shù)據(jù)、關(guān)聯(lián)數(shù)據(jù)、相似區(qū)分?jǐn)?shù)據(jù)、正常使用數(shù)據(jù)、大小寫等。經(jīng)調(diào)試后確認(rèn)

10、本系統(tǒng)，已完成分析階段所要求的所有功能，可以投入使用。5.2 測試結(jié)果兼容性：軟件在win7系統(tǒng)運(yùn)行正常，反應(yīng)迅速，測試過程中沒有出現(xiàn)崩潰，卡死等現(xiàn)象。功能實(shí)現(xiàn)：各個(gè)模塊，功能完全正常，符合設(shè)計(jì)預(yù)期。其他：軟件大小2mb，小巧實(shí)用，此為第一版，以后會(huì)進(jìn)行功能上的改良和完善，加入用戶管理系統(tǒng)，管理員超級(jí)密碼，窗口管理系統(tǒng)，訪客查詢數(shù)據(jù)系統(tǒng)等。6 系統(tǒng)技術(shù)實(shí)現(xiàn)6.1 Access 6.2 Visual BasicVisual Basic是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動(dòng)編程語言。從任何標(biāo)準(zhǔn)來說，VB都是世界上使用人數(shù)最多的語言不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于

11、BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。參考文獻(xiàn)1 VisualBasic范例開發(fā)大全, 隋麗娜, 清華大學(xué)出版社, 2010.62 數(shù)據(jù)庫技術(shù)，黃平，機(jī)械工業(yè)出版社，20023Visual Basic +Access 數(shù)據(jù)庫開發(fā)與實(shí)例， 劉文濤，清華大學(xué)出版社，2006.10附錄 部分程序代碼1 密碼修改部分代碼Private Conn As ADODB.ConnectionPrivate rs As ADODB

12、.RecordsetDim cnt As IntegerPrivate Sub Command1_Click() If Trim(Text1.Text) = "" Then MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit Sub End If Dim sql As String Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient sql = "select * from 登

13、錄表 where 用戶名='" & Text1.Text & "'" rs.Open sql, Conn, 2, 2 If rs.EOF = True Then MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, "" Text1.SetFocus Else '檢驗(yàn)密碼是否正確 If Trim(rs.Fields(1) = Trim(Text2.Text) Then If Trim(Text3.Text) = "" Or Trim(

14、Text4.Text) = "" Then MsgBox "密碼不能為空", , "提示" Else If Trim(Text3.Text) <> Trim(Text4.Text) Then ' userID = text1.Text 'userpow = rs.Fields(2) MsgBox "新密碼不相同！", , "提示" Text3 = "" Text4 = "" Text3.SetFocus Else rs.Fiel

15、ds("密碼") = Trim(Text4.Text) rs.Update rs.Close MsgBox "修改成功", , "恭喜" Unload Me End If End If Else MsgBox "原密碼不正確", vbOKOnly + vbExclamation, "" Text2 = "" Text2.SetFocus cnt = cnt + 1 End If End IfIf cnt = 3 ThenMsgBox "原密碼錯(cuò)誤超過3次"

16、, , "提示" Unload MeEnd IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Set Conn = New ADODB.ConnectionConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "企業(yè)安全教育管理.mdb"Conn.Open '打開數(shù)據(jù)庫cnt = 0End Sub

17、2 添加職工信息代碼Private Sub Form_Load()Set Conn = New ADODB.ConnectionConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "企業(yè)安全教育管理.mdb"Conn.Open '打開數(shù)據(jù)庫Set rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.Open "職工基本信息登記表",

18、 Conn, 2, 2End SubPrivate Sub Command1_Click() For i = 0 To 4 If Trim(Text(i).Text) = "" Then MsgBox "記錄不能為空！", vbOKOnly + vbInformation, "提示" Text(i).SetFocus Exit Sub End If Next rs.AddNew '添加新記錄 rs.Fields("職工編號(hào)") = Trim(Text(0).Text) rs.Fields("姓名&

19、quot;) = Trim(Text(1).Text) rs.Fields("性別") = Combo1.Text rs.Fields("出生日期") = DTPicker1.Value rs.Fields("文化程度") = Combo2.Text rs.Fields("工作時(shí)間") = DTPicker2.Value rs.Fields("單位部門") = Trim(Text(2).Text) rs.Fields("職位") = Trim(Text(3).Text) rs

20、.Fields("職稱") = Combo3.Text rs.Fields("類別") = Combo4.Text rs.Fields("備注") = Trim(Text(4).Text) rs.Update '更新記錄 MsgBox "添加成功", , "成功" Unload Me End SubPrivate Sub Command2_Click() '退出Unload MeEnd Sub3 職工信息維護(hù)代碼Private Conn As ADODB.ConnectionPr

21、ivate rs As ADODB.RecordsetPrivate rschaxun As ADODB.RecordsetPrivate Sub Command2_Click()If Command2.Caption = "修改" Then '點(diǎn)擊修改按鈕后，按鈕標(biāo)題改為確認(rèn)修改，完成修改操作 Command2.Caption = "確認(rèn)修改" Text(0).Enabled = TrueText(1).Enabled = TrueText(2).Enabled = TrueText(3).Enabled = TrueText(4).Enabl

22、ed = TrueText(5).Enabled = TrueText(6).Enabled = TrueText(7).Enabled = TrueText(8).Enabled = TrueText(9).Enabled = TrueText(10).Enabled = True Else rs.Fields("職工編號(hào)") = Trim(Text(0).Text) rs.Fields("姓名") = Trim(Text(1).Text) rs.Fields("性別") = Trim(Text(2).Text) rs.Fields

23、("出生日期") = Trim(Text(3).Text) rs.Fields("文化程度") = Trim(Text(4).Text) rs.Fields("單位部門") = Trim(Text(5).Text) rs.Fields("職位") = Trim(Text(6).Text) rs.Fields("工作時(shí)間") = Trim(Text(7).Text) rs.Fields("類別") = Trim(Text(8).Text) rs.Fields("職稱&

24、quot;) = Trim(Text(9).Text)rs.Fields("備注") = Trim(Text(10).Text) Text(0).DataField = "職工編號(hào)" rs.Update '更新記錄 DataGrid1.Refresh '更新DataGrid1 MsgBox "修改成功" Command2.Caption = "修改" Text(0).Enabled = FalseText(1).Enabled = FalseText(2).Enabled = FalseText(3

25、).Enabled = FalseText(4).Enabled = FalseText(5).Enabled = FalseText(6).Enabled = FalseText(7).Enabled = FalseText(8).Enabled = FalseText(9).Enabled = FalseText(10).Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()'刪除記錄Dim a As StringDim b As Stringa = "是否確定要?jiǎng)h除記錄" & Text(0).T

26、extb = rs.RecordCountIf b = 0 Then Exit SubIf b = 1 ThenIf MsgBox(a, vbOKCancel, "刪除記錄?") = vbCancel Then Exit Sub End Ifrs.DeleteText(0) = ""Text(1) = ""Text(2) = ""Else If Not rs.EOF And Not rs.BOF Then If MsgBox(a, vbOKCancel, "刪除記錄?") = vbCancel

27、Then Exit Sub Else rs.Delete rs.MoveNext End If If rs.EOF Then rs.MovePrevious End IfText(0).DataField = "職工編號(hào)" Text(1).DataField = "姓名" Text(2).DataField = "性別" Text(3).DataField = "出生日期" Text(4).DataField = "文化程度" Text(5).DataField = "單位部門&quo

28、t; Text(6).DataField = "職位" Text(7).DataField = "工作時(shí)間" Text(8).DataField = "類別" Text(9).DataField = "職稱" Text(10).DataField = "備注" End IfDataGrid1.Refresh '更新DataGrid1End SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()Set C

29、onn = New ADODB.ConnectionConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "企業(yè)安全教育管理.mdb"Conn.Open '打開數(shù)據(jù)庫Set rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.Open "職工基本信息登記表", Conn, 2, 2For i = 0 To 10 Set Text(i)

30、.DataSource = rsNext Text(0).DataField = "職工編號(hào)" Text(1).DataField = "姓名" Text(2).DataField = "性別" Text(3).DataField = "出生日期" Text(4).DataField = "文化程度" Text(5).DataField = "單位部門" Text(6).DataField = "職位" Text(7).DataField = "

31、工作時(shí)間" Text(8).DataField = "類別" Text(9).DataField = "職稱" Text(10).DataField = "備注" Set DataGrid1.DataSource = rs '為DataGrid1付值DataGrid1.RefreshText(0).Enabled = FalseText(1).Enabled = FalseText(2).Enabled = FalseText(3).Enabled = FalseText(4).Enabled = FalseText

32、(5).Enabled = FalseText(6).Enabled = FalseText(7).Enabled = FalseText(8).Enabled = FalseText(9).Enabled = FalseText(10).Enabled = FalseEnd SubPrivate Sub Command1_Click()'判斷是否按照要求添加記錄，如有空項(xiàng)，提示并結(jié)束程序 If Trim(Text1.Text) = "" Then MsgBox "請(qǐng)輸入完整的信息！", vbOKOnly + vbInformation, &qu

33、ot;提示" Exit Sub End If Dim sql As String If Option1.Value = True Then sql = "select * from 職工基本信息登記表 where 職工編號(hào)='" & Trim(Text1.Text) & "'" Else sql = "select * from 職工基本信息登記表 where 姓名='" & Trim(Text1.Text) & "'" End If Set

34、 rschaxun = New ADODB.Recordset rschaxun.CursorLocation = adUseClient rschaxun.Open sql, Conn, 1, 1 '按照查詢條件打開表 If rschaxun.EOF Then '如果沒查到 給與提示 MsgBox "沒有找到符合條件的記錄！", vbOKOnly + vbInformation, "提示" Else Set DataGrid1.DataSource = rschaxun '查到后更新DataGrid1 DataGrid1.Ref

35、resh For i = 0 To 10 Set Text(i).DataSource = rschaxun Next Text(0).DataField = "職工編號(hào)" Text(1).DataField = "姓名" Text(2).DataField = "性別" Text(3).DataField = "出生日期" Text(4).DataField = "文化程度" Text(5).DataField = "單位部門" Text(6).DataField = &q

36、uot;職位" Text(7).DataField = "工作時(shí)間" Text(8).DataField = "類別" Text(9).DataField = "職稱" Text(10).DataField = "備注" End IfEnd Sub4.打印三級(jí)教育信息代碼Private Sub Command1_Click()If Trim(Text1.Text) = "" Then MsgBox "請(qǐng)輸入完整的信息！", vbOKOnly + vbInformat

37、ion, "提示" Exit SubEnd If Dim rs As ADODB.Recordset Set rs = DataEnvironment1.rsCommand4 If rs.State <> adStateClosed Then rs.Close End If Dim sql As String If Option1.Value = True Then sql = "select * from 三級(jí)安全教育培訓(xùn)情況表 where 職工編號(hào)='" & Trim(Text1.Text) & "

38、9;" Else sql = "select * from 三級(jí)安全教育培訓(xùn)情況表 where 姓名='" & Trim(Text1.Text) & "'" ' 連接數(shù)據(jù)庫 End If rs.Open sql If (rs.BOF Or rs.EOF) Then '如果當(dāng)前沒有員工信息 MsgBox "沒有找到！" End If DataGrid1.DataMember = "Command4"End SubPrivate Sub Command2_Click()DataReport2.ShowEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub5 事故演練分析代碼Private Conn As ADODB.ConnectionPrivate rs As ADODB.RecordsetPrivate Sub Command1_Click()Set Conn = New ADODB.Conn