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

　　

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