【導(dǎo)讀】信息管理也是不可或缺的功能模塊.是本人在指導(dǎo)教師的指導(dǎo)下，獨(dú)立進(jìn)行研究工作取得的成果。除文中已經(jīng)注明引用的內(nèi)容。（論文）的研究做出重要貢獻(xiàn)的個(gè)人和集體，均已在文中以明確方式標(biāo)明。（論文）引起的法律結(jié)果完全由本人承擔(dān)。本畢業(yè)設(shè)計(jì)（論文）成果歸北華航天工業(yè)學(xué)院所有。本人遵循北華航天工業(yè)學(xué)院有關(guān)。畢業(yè)設(shè)計(jì)（論文）的相關(guān)規(guī)定，提交畢業(yè)設(shè)計(jì)（論文）的印刷本和電子版本?？梢怨挤巧婷墚厴I(yè)設(shè)計(jì)（論文）的部分或全部?jī)?nèi)容。對(duì)實(shí)驗(yàn)器材信息進(jìn)行綜合分析與管理，不。僅是實(shí)驗(yàn)室管理本身的需要，也是提高教學(xué)質(zhì)量和辦學(xué)效益的需要。圍繞設(shè)備信息管理這一主題,該系統(tǒng)應(yīng)用。MicrosoftAccess數(shù)據(jù)庫(kù)軟件，內(nèi)嵌入一些VisualBasic程序設(shè)計(jì)來(lái)實(shí)現(xiàn)各功能模塊。設(shè)計(jì)了4項(xiàng)基本功能：信息的錄入、修改、查詢、輸出。此外，用戶管理，權(quán)限設(shè)置，具體實(shí)現(xiàn)過(guò)程涉及到：需求分析、系。統(tǒng)概念設(shè)計(jì)、系統(tǒng)邏輯和物理設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)和維護(hù)。

　　

【正文】 ick: MsgBox Resume Exit_實(shí)驗(yàn)室管理 _Click End Sub (6) “管理員查詢”按鈕事件代碼： Private Sub 管理員查詢 _Click() On Error GoTo Err_管理員查詢 _Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(31649) amp。 ChrW(29702) amp。 ChrW(21592) amp。 ChrW(26597) amp。 ChrW(29726) amp。 ChrW(30616) amp。 ChrW(49) stDocName, , , stLinkCriteria Exit_管理員查詢 _Click: Exit Sub Err_管理員查詢 _Click: MsgBox Resume Exit_管理員查詢 _Click End Sub (7) “修改密碼”按鈕事件代碼： Private Sub 密碼修改 _Click() On Error GoTo Err_密碼修改 _Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(31649) amp。 ChrW(29702) amp。 ChrW(21592) amp。 ChrW(30616) stDocName, , , stLinkCriteria 北華航天工業(yè)學(xué)院畢業(yè)論文 22 Exit_密碼修改 _Click: Exit Sub Err_密碼修改 _Click: MsgBox Resume Exit_密碼修改 _Click End Sub (8)“打印報(bào)表”按鈕事件代碼： Private Sub 打印報(bào)表 _Click() On Error GoTo Err_打印報(bào)表 _Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(25171) amp。 ChrW(21360) amp。 ChrW(25253) amp。 ChrW(30616) stDocName, , , stLinkCriteria Exit_打印報(bào)表 _Click: Exit Sub Err_打印報(bào)表 _Click: MsgBox Resume Exit_打印報(bào)表 _Click End Sub (9)“系統(tǒng)信息”按鈕事件代碼： Private Sub 系統(tǒng)信息 _Click() On Error GoTo Err_系統(tǒng)信息 _Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(31995) amp。 ChrW(32479) amp。 ChrW(21442) amp。 ChrW(25968) amp。 ChrW(30616) amp。 ChrW(49) stDocName, , , stLinkCriteria Exit_系統(tǒng)信息 _Click: Exit Sub Err_系統(tǒng)信息 _Click: MsgBox Resume Exit_系統(tǒng)信息 _Click End Sub (10)“經(jīng)費(fèi)管理”按鈕事件代碼： Private Sub 經(jīng)費(fèi)管理 _Click() 北華航天工業(yè)學(xué)院畢業(yè)論文 23 On Error GoTo Err_經(jīng)費(fèi)管理 _Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(32463) amp。 ChrW(29383) amp。 ChrW(31649) amp。 ChrW(29702) amp。 ChrW(30616) stDocName, , , stLinkCriteria Exit_經(jīng)費(fèi)管理 _Click: Exit Sub Err_經(jīng)費(fèi)管理 _Click: MsgBox Resume Exit_經(jīng)費(fèi)管理 _Click End Sub (11) “退出系統(tǒng)”按鈕事件代碼： Private Sub 退出系統(tǒng) _Click() On Error GoTo Err_退出系統(tǒng) _Click Exit_退出系統(tǒng) _Click: Exit Sub Err_退出系統(tǒng) _Click: MsgBox Resume Exit_退出系統(tǒng) _Click End Sub 基本信息窗體 (1)設(shè)備信息窗體 在系統(tǒng)主界面點(diǎn)擊“設(shè)備信息”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入實(shí)驗(yàn)設(shè)備信息窗體，如圖 46所示。該窗體顯示實(shí)驗(yàn)設(shè)備基本信息，還可以實(shí)現(xiàn)實(shí)驗(yàn)設(shè)備信息的查詢、添加、修改、保存、刪除和打印實(shí)驗(yàn)設(shè)備信息的功能。 北華航天工業(yè)學(xué)院畢業(yè)論文 24 圖 46 實(shí)驗(yàn)設(shè)備信息窗體 “查詢” 按鈕單擊事件的具體代碼設(shè)置如下 Private Sub 查詢 _Click() On Error GoTo Err_查詢 _Click acFormBar, acEditMenu, 10, , acMenuVer70 Exit_查詢 _Click: Exit Sub Err_查詢 _Click: MsgBox Resume Exit_查詢 _Click End Sub “添加”按鈕單擊事件的具體代碼設(shè)置如下 Private Sub 添加 _Click() On Error GoTo Err_添加 _Click , , acNewRec Exit_添加 _Click: Exit Sub Err_添加 _Click: MsgBox Resume Exit_添加 _Click 北華航天工業(yè)學(xué)院畢業(yè)論文 25 End Sub “修改”按鈕單擊事件的具體代碼設(shè)置如下 Private Sub 修改 _Click() On Error GoTo Err_修改 _Click acFormBar, acEditMenu, acUndo, , acMenuVer70 Exit_修改 _Click: Exit Sub Err_修改 _Click: MsgBox Resume Exit_修改 _Click End Sub “保存”按鈕單擊事件的具體代碼設(shè)置如下 Private Sub 保存 _Click() On Error GoTo Err_保存 _Click acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_保存 _Click: Exit Sub Err_保存 _Click: MsgBox Resume Exit_保存 _Click End Sub “刪除”按鈕單擊事件的具體代碼設(shè)置如下 Private Sub 刪除 _Click() On Error GoTo Err_刪除 _Click acFormBar, acEditMenu, 8, , acMenuVer70 acFormBar, acEditMenu, 6, , acMenuVer70 Exit_刪除 _Click: Exit Sub Err_刪除 _Click: MsgBox Resume Exit_刪除 _Click End Sub “退出”按鈕單擊事件的具體代碼設(shè)置如下 Private Sub 退出 _Click() On Error GoTo Err_退出 _Click 北華航天工業(yè)學(xué)院畢業(yè)論文 26 Exit_退出 _Click: Exit Sub Err_退出 _Click: MsgBox Resume Exit_退出 _Click End Sub (2)元器件信息窗體 在系統(tǒng)主界面點(diǎn)擊“元器件信息”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入實(shí)驗(yàn)元器件信息窗體，如圖47 所示。該窗體顯示實(shí)驗(yàn)元器件基本信息，還可以實(shí)現(xiàn)元器件信息的查詢、添加、修改、保存、 刪除和打印實(shí)驗(yàn)設(shè)備信息的功能。 圖 47 元器件信息窗體 該窗體內(nèi)的查詢、添加、修改、保存、刪除和退出按鈕單擊事件的具體代碼與實(shí)驗(yàn)設(shè)備信息窗體內(nèi)控件的代碼相同。 (3)借用設(shè)備管理窗體 在系統(tǒng)主界面點(diǎn)擊“借用設(shè)備管理”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入借用設(shè)備管理窗體，如圖48 所示。該窗體顯示借用實(shí)驗(yàn)設(shè)備和元器件基本信息，還可以實(shí)現(xiàn)借用設(shè)備和元器件信息的查詢、添加、保存、刪除和打印借用設(shè)備信息的功能。 北華航天工業(yè)學(xué)院畢業(yè)論文 27 圖 48 借用設(shè)備信息窗體 該窗體內(nèi)的查詢、添加、保存、刪除和退出按鈕單擊事件的具體代碼與實(shí)驗(yàn)設(shè)備信息窗 體內(nèi)控件的代碼相同。 (4)損壞設(shè)備管理窗體 在系統(tǒng)主界面點(diǎn)擊“損壞設(shè)備管理”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入損壞設(shè)備管理窗體，如圖49 所示。該窗體顯示損壞實(shí)驗(yàn)設(shè)備和元器件基本信息，還可以實(shí)現(xiàn)損壞設(shè)備和元器件信息的查詢、添加、保存、刪除和打印損壞設(shè)備信息的功能。 圖 49 損壞設(shè)備信息窗體 該窗體內(nèi)的查詢、添加、保存、刪除和退出按鈕單擊事件的具體代碼與實(shí)驗(yàn)設(shè)備信息北華航天工業(yè)學(xué)院畢業(yè)論文 28 窗體內(nèi)控件的代碼相同。 (5)實(shí)驗(yàn)室管理窗體 在系統(tǒng)主界面點(diǎn)擊“實(shí)驗(yàn)室管理”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入實(shí)驗(yàn)室信息管理窗體，如圖410 所示。該窗體顯示實(shí)驗(yàn)室基 本信息，還可以實(shí)現(xiàn)實(shí)驗(yàn)室信息的查詢、添加、保存、刪除和打印實(shí)驗(yàn)室信息的功能。 圖 410 實(shí)驗(yàn)室信息窗體 該窗體內(nèi)的查詢、添加、保存、刪除和退出按鈕單擊事件的具體代碼與實(shí)驗(yàn)設(shè)備信息窗體內(nèi)控件的代碼相同。 (6)管理員查詢窗體 在系統(tǒng)主界面點(diǎn)擊“管理員查詢”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入管理員查詢窗體，如圖 411所示。該窗體顯示實(shí)驗(yàn)器材管理員的基本信息，還可以實(shí)現(xiàn)管理員信息的查詢、添加、保存、刪除的功能。 北華航天工業(yè)學(xué)院畢業(yè)論文 29 圖 411 管理員查詢窗體 該窗體內(nèi)的查詢、添加、保存、刪除和退出按鈕單擊事件的具體代碼與實(shí)驗(yàn)設(shè)備信息窗 體內(nèi)控件的代碼相同。 (7)經(jīng)費(fèi)管理窗體 在系統(tǒng)主界面點(diǎn)擊“經(jīng)費(fèi)管理”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入經(jīng)費(fèi)管理窗體，如圖 412 所示。該窗體顯示實(shí)驗(yàn)器材管理系統(tǒng)的經(jīng)費(fèi)管理信息，還可以實(shí)現(xiàn)經(jīng)費(fèi)管理信息的修改、保存、打印的功能。 圖 412 經(jīng)費(fèi)管理窗體 該窗體內(nèi)的修改、保存和退出按鈕單擊事件的具體代碼與實(shí)驗(yàn)設(shè)備信息窗體內(nèi)控件的代碼相同。 北華航天工業(yè)學(xué)院畢業(yè)論文 30 (8)系統(tǒng)信息窗體 在系統(tǒng)主界面點(diǎn)擊“系統(tǒng)信息”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入系統(tǒng)信息窗體，如圖 413 所示。該窗體顯示實(shí)驗(yàn)器材管理系統(tǒng)的附加信息，還可以實(shí)現(xiàn)經(jīng)費(fèi)管理信息的修改、保存、打印的功 能。 圖 413 系統(tǒng)信息窗體 該窗體內(nèi)的修改、保存和退出按鈕單擊事件的具體代碼與實(shí)驗(yàn)設(shè)備信息窗體內(nèi)控件的代碼相同。 密碼修改 在系統(tǒng)主界面點(diǎn)擊“密碼修改”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入密碼修改窗體，如圖 414 所示，該窗體實(shí)現(xiàn)管理員的密碼修改功能。 圖 414 管理員密碼修改窗體 北華航天工業(yè)學(xué)院畢業(yè)論文 31 “保存”按鈕單擊事件的具體代碼設(shè)置如下： Private Sub 保存 _Click() Dim r As QueryDef Dim s As Integer s= DLookup(“[密碼 ]”, “管理員表 ”, “[登錄賬號(hào) ]=”””amp。 用戶 amp?！薄薄薄? If old_pass=s Then Set r=(“修改密碼 ”) =”UPDATE 管理員表 SET 密碼 =”””+ new_pass +””” where 登錄賬號(hào) =”””+ 用戶 +””” MsgBox “您已經(jīng)成功修改了密碼！ ” Else MsgBox “密碼錯(cuò)誤！ ” End If End Sub “退出”按鈕單擊事件的具體代碼設(shè)置如下： Private Sub 退出 _Click() On Error GoTo Err_退出 _Click Exit_退出 _Click: Exit Sub Err_退出 _Click: MsgBox Resume Exit_退出 _Click End Sub 打印報(bào)表 在系統(tǒng)主界面點(diǎn)擊“打印報(bào)表”按鈕時(shí)，系統(tǒng)自動(dòng)進(jìn)入打印報(bào)表窗體，如圖 415 所示。 在該窗體內(nèi)共有 10 個(gè)預(yù)覽報(bào)表