數(shù)據(jù)庫應(yīng)用、 實驗室設(shè)備管理系統(tǒng)

1、遼 寧 工 業(yè) 大 學(xué)數(shù)據(jù)庫應(yīng)用技術(shù)課 程 設(shè) 計 說 明 書題目： 實驗室設(shè)備管理系統(tǒng) 學(xué)院（系）： 軟件學(xué)院 專業(yè)班級： 軟件工程班 學(xué) 號： 學(xué)生姓名： 指導(dǎo)教師： 佟玉軍 教師職稱： 副教授 起止時間：2011.12.19-2011.12.31遼寧工業(yè)大學(xué)課程設(shè)計（論文）任務(wù)書院（系）：軟件學(xué)院 教研室： 軟件工程 學(xué) 號111301049學(xué)生姓名劉璐專業(yè)班級軟件工程112班設(shè)計題目實驗室設(shè)備管理系統(tǒng)設(shè)計技術(shù)參數(shù)1 題目要達(dá)到的目標(biāo)：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計等基本操作。2 數(shù)據(jù)庫：SQLSERVER2000。3 所使用的語言、工具:VB6.0+ SQLSERVER2000

2、+WINDOWSXP。4 所采用的技術(shù)、系統(tǒng)結(jié)構(gòu):ADO數(shù)據(jù)庫聯(lián)接技術(shù),系統(tǒng)結(jié)構(gòu)為C/S結(jié)構(gòu)。設(shè)計要求1 教師布置實習(xí)任務(wù)和要求時，不得缺席，并做好記錄。2 上機前預(yù)先把所有的源程序編寫好。3 上機時不得遲到，不得缺席，愛護(hù)設(shè)備，認(rèn)真調(diào)試程序。4 仔細(xì)查閱相關(guān)資料，認(rèn)真完成思考題。5 按要求書寫設(shè)計任務(wù)書，并按要求按版打印，不得雷同。工作量二周工作計劃周一聽取教師布置設(shè)計的任務(wù)及要求。周二學(xué)生查閱相關(guān)資料，進(jìn)行數(shù)據(jù)庫設(shè)計。周三至周五：詳細(xì)設(shè)計與界面設(shè)計。周一至周四程序設(shè)計與上機，調(diào)試源程序。周五書寫課程設(shè)計任務(wù)書。參考資料數(shù)據(jù)庫應(yīng)用技術(shù)數(shù)據(jù)庫應(yīng)用技術(shù)實驗指導(dǎo)書自編數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計大綱自編

3、等指導(dǎo)教師評語 教師： 學(xué)生：說明：此表一式四份，學(xué)生、指導(dǎo)教師、教研室、系部各一份?？杉痈巾?。2011年 12 月 31 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計 說 明 （ 計 算 ）書 目錄第一章 概述4第二章 問題定義5第三章 需求分析6第四章 數(shù)據(jù)庫設(shè)計12第五章 界面設(shè)計17第六章 代碼與注釋19參考文獻(xiàn)24第一章 概述實驗室設(shè)備管理系統(tǒng)是一個典型的信息管理系統(tǒng)，它可以為實驗室形成一個規(guī)范的管理體系。他的功能非常的強大，能夠完成設(shè)備的購置、使用、維修、賠償、報廢等多方面功能。系統(tǒng)采用VB（Visual Basic）和SQL Server 2000進(jìn)行開發(fā)，VB是Microsoft公司

4、推出的一種Windows應(yīng)用程序開發(fā)工具。是當(dāng)今世界上使用最廣泛的編程語言之一，它也被公認(rèn)為是編程效率最高的一種編程方法。它的功能強大、開發(fā)出來的軟件性能可靠。SQL Server 2000是微軟公司開發(fā)的大型關(guān)系數(shù)據(jù)庫管理系統(tǒng)，它不僅可以滿足大型數(shù)據(jù)處理系統(tǒng)對數(shù)據(jù)存儲量的需求，而且對于小型企業(yè)和個人來說，也可以作為管理數(shù)據(jù)的簡易工具，數(shù)據(jù)庫性能良好，數(shù)據(jù)可靠性高，易于使用。整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成學(xué)校部門管理、設(shè)備分類管理、設(shè)備的基本信息管理、設(shè)備使用管理、設(shè)備維護(hù)管理、設(shè)備報廢管理、綜合查詢管理等功能。并通過設(shè)置權(quán)限管理來實現(xiàn)系統(tǒng)的安全性和可靠性的

5、管理。目前國內(nèi)學(xué)校教學(xué)設(shè)備自動化管理水平不是很高。大多數(shù)學(xué)校設(shè)備管理辦法是設(shè)備采購進(jìn)來以后，將設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。以后檔案基本就沒人維護(hù)，如設(shè)備位置變遷、檢修情況、設(shè)備當(dāng)前運行狀態(tài)等信息根本不會體現(xiàn)在設(shè)備臺帳上，即設(shè)備跟蹤信息不能及時體現(xiàn)在設(shè)備檔案上。某些使用設(shè)備管理系統(tǒng)學(xué)校，對設(shè)備的跟蹤信息即使能體現(xiàn)在設(shè)備檔案上，但設(shè)備的缺陷處理及設(shè)備缺陷等功能沒有實施，設(shè)備檢修的備品備件情況和檢修成本核算沒有實現(xiàn)，整個學(xué)校設(shè)備管理信息化仍處于較低水平。本系統(tǒng)滿足學(xué)校設(shè)備管理的需要，將會提高學(xué)校的辦公效率和設(shè)備可靠性，減少工作人員的勞動強度，減少辦公耗材，提高學(xué)校的現(xiàn)代化管理水

6、平。實時報警功能對學(xué)校的安全生產(chǎn)更是不可忽視。第二章 問題定義因為現(xiàn)在各個高校內(nèi)教學(xué)設(shè)備眾多但自動管理水平相比過低，很多高校管理設(shè)備都采用在設(shè)備購進(jìn)以后將設(shè)備的基本情況和相關(guān)信息登記存檔。存檔以后檔案基本就沒人記錄與維護(hù)，至于以后設(shè)備的變遷或損壞都不會記錄在設(shè)備檔案中，即不能體現(xiàn)設(shè)備的即時狀態(tài)。而有些即使有設(shè)備管理系統(tǒng)的單位，就算是能把設(shè)備的即時信息體現(xiàn)在設(shè)備檔案上，但設(shè)備的缺陷處理及設(shè)備缺陷等功能沒有實施，設(shè)備檢修的備品備件情況和檢修成本核算沒有實現(xiàn)，整個學(xué)校教學(xué)設(shè)備管理信息化仍處于較低水平。將管理任務(wù)分成小塊，落實到個人并能隨時查詢設(shè)備當(dāng)前情況和歷史情況，對設(shè)備的可靠性分析有直接作用，使管

7、理人員從手工計算、統(tǒng)計工作中解脫出來。 現(xiàn)在，科學(xué)技術(shù)的飛速發(fā)展把人類社會推向了一個嶄新的時代信息時代。這已是無可爭議的事實；信息對社會經(jīng)濟發(fā)展的巨大推動作用，使其與物質(zhì)能源一起并列為現(xiàn)代社會的三大支柱，這已在全社會達(dá)到共識。隨著對信息作為一種資源來管理的需求日益加強，信息研究領(lǐng)域出現(xiàn)了一種新的管理思想和模式信息管理。因此，就誕生了“信息管理”這樣一個概念。由于信息是普遍存在的，人類信息管理活動的范圍也是十分廣泛的，信息管理不僅是信息工作的一部分，而且已被認(rèn)為是現(xiàn)代管理的重要組成部分。信息管理的概念源于西方，也是在世界信息量迅速增長、信息技術(shù)日新月異、信息產(chǎn)業(yè)強勁發(fā)展的六七十年代出現(xiàn)的。時至今

8、日，信息管理已不僅僅是一個概念，而是信息學(xué)和管理學(xué)中的重要內(nèi)容了。對信息管理的理解，一種認(rèn)為是，信息管理就是對信息的管理。第三章 需求分析一、數(shù)據(jù)庫需求分析1）設(shè)備信息管理部分管理員可對設(shè)備信息庫進(jìn)行維護(hù)，可添加新設(shè)備信息。管理員可對設(shè)備類別進(jìn)行維護(hù)，可添加新設(shè)備類別。管理員可對設(shè)備信息進(jìn)行查詢。管理員可查看設(shè)備類別。設(shè)備是否已經(jīng)借出應(yīng)存儲在設(shè)備信息中，因此設(shè)備必須有一個字段來記錄。2）設(shè)備使用者部分管理員可對使用者信息進(jìn)行維護(hù)，如添加，刪除，修改讀者信息等。管理員可通過ID查詢使用者信息，因此使用者ID必須唯一，且為必填字段。使用者可以注銷，即刪除使用者。3）設(shè)備借還部分管理員可對借用設(shè)備和

9、歸還設(shè)備信息進(jìn)行維護(hù)，如添加，刪除，修改等。因設(shè)備不經(jīng)常外借，所以管理員應(yīng)能一次性查閱所有借用記錄。外借設(shè)備和歸還記錄中應(yīng)包含借用者信息，如單位，姓名等。4）設(shè)備維修部分管理員可以對維修信息進(jìn)行維護(hù)，如添加，刪除，修改等。管理員可通過ID或類別查詢設(shè)備維修信息，因此設(shè)備ID必須唯一，且要有分類查詢功能。5）設(shè)備報廢部分管理員可以對報廢信息進(jìn)行維護(hù)，如添加，刪除，修改等。管理員可通過ID或類別查詢設(shè)備報廢信息，因此設(shè)備ID必須唯一，且要有分類查詢功能。6）設(shè)備賠償部分管理員可以對賠償信息進(jìn)行維護(hù)，如添加，刪除，修改等。管理員可通過ID或類別查詢設(shè)備賠償信息，因此設(shè)備ID必須唯一，且要有分類查詢功

10、能。7）實驗室管理員信息管理部分管理員可對實驗室管理員信息進(jìn)行維護(hù)，如添加，刪除設(shè)備管理員信息等。管理員可通過ID查詢實驗室管理員信息，因此設(shè)備管理員ID必須唯一，且為必填字段。8）管理員信息管理部分管理員有權(quán)限劃分，每個管理員ID必須對應(yīng)一個管理員權(quán)限類型（系統(tǒng)管理員，高級管理員，普通管理員）。管理員ID必須唯一。系統(tǒng)管理員可以維護(hù)管理員信息，如添加，刪除管理員。系統(tǒng)管理員可以查詢管理員信息，因此可查詢字段（ID）必須設(shè)置為必填。二、數(shù)據(jù)流圖數(shù)據(jù)流程圖是軟件工程學(xué)和管理信息系統(tǒng)科學(xué)中的概念,它描述的是一個具體的業(yè)務(wù)處理系統(tǒng)的信息來源,存儲,處理和信息將要流到何處去的全面情況,它可以輔助計算機

11、專業(yè)人員更好的了解現(xiàn)有系統(tǒng)的一些狀況,但還需要一些工具來補充系統(tǒng)的流程細(xì)節(jié)。是以圖形的方式表達(dá)在問題中信息的變換和傳遞過程。它把系統(tǒng)看成是由數(shù)據(jù)流聯(lián)系的各種概念的組合，用分解及抽象手段來控制需求分析的復(fù)雜性，采用分層的數(shù)據(jù)流程圖來表示一個復(fù)雜的系統(tǒng)。需要注意的是數(shù)據(jù)流圖和程序設(shè)計中的程序流程圖是不同的，數(shù)據(jù)流圖關(guān)心的是企業(yè)業(yè)務(wù)系統(tǒng)中的數(shù)據(jù)處理加工的客觀過程，并不關(guān)心未來電子化處理的加工過程；數(shù)據(jù)流圖中流動的只是數(shù)據(jù)，并沒有控制過程，但在程序流程圖當(dāng)中，必須有控制邏輯。結(jié)構(gòu)化分析是面向數(shù)據(jù)流開展需求分析工作的一種有效方法。一般采用自頂向下，逐層分解的演義分析法來定義系統(tǒng)的需求，即先把分析對象抽象

12、成一個系統(tǒng)，然后自頂向下的逐層分解，將復(fù)雜的系統(tǒng)分解成簡單的、能夠清楚地被理解和表達(dá)的若干個子系統(tǒng)。這樣就可以分別理解系統(tǒng)的每個細(xì)節(jié)、前后順序和相互關(guān)系，找出各部分之間的數(shù)據(jù)接口。在結(jié)構(gòu)化分析方法所采用的工具有數(shù)據(jù)流程圖（DFD）、數(shù)據(jù)字典（DD）、結(jié)構(gòu)化語言、判定樹、判定表等。數(shù)據(jù)流圖就是采用圖形方式來表達(dá)系統(tǒng)的邏輯功能、數(shù)據(jù)在系統(tǒng)內(nèi)部的邏輯流向和邏輯變換過程，是結(jié)構(gòu)化系統(tǒng)分析方法的主要表達(dá)工具及用于表示軟件模型的一種圖示方法。本系統(tǒng)流圖如圖3.1所示。管理員管理員設(shè)置設(shè)備類型設(shè)置實驗室信息設(shè)置供應(yīng)商信息設(shè)置用戶權(quán)限設(shè)置管理員信息設(shè)備信息實驗室信息權(quán)限信息供應(yīng)商信息設(shè)備添加實驗室管理員設(shè)置使

13、用者信息設(shè)置設(shè)備信息使用者信息實驗室管理員信息設(shè)備賠償設(shè)備賠償信息產(chǎn)生報表管理員產(chǎn)生報表管理員設(shè)備報廢設(shè)備報廢信息產(chǎn)生報表管理員設(shè)備借還設(shè)備借還信息產(chǎn)生報表管理員設(shè)備維修設(shè)備維修信息產(chǎn)生報表管理員圖3.1數(shù)據(jù)流圖三、數(shù)據(jù)字典（DD）:數(shù)據(jù)字典是一種用戶可以訪問的記錄數(shù)據(jù)庫和應(yīng)用程序元數(shù)據(jù)的目錄。主動數(shù)據(jù)字典是指在對數(shù)據(jù)庫或應(yīng)用程序結(jié)構(gòu)進(jìn)行修改時，其內(nèi)容可以由DBMS自動更新的數(shù)據(jù)字典。數(shù)據(jù)字典中存放著系統(tǒng)中所有數(shù)據(jù)的定義，即對所有數(shù)據(jù)庫結(jié)構(gòu)的描述。數(shù)據(jù)字典提供了對數(shù)據(jù)庫描述的集中管理手段。數(shù)據(jù)字典是一個定義應(yīng)用程序中使用的所有數(shù)據(jù)元素和結(jié)構(gòu)的含義、類型、數(shù)據(jù)大小、格式、度量單位、精度以及允許聚

14、值范圍的共享倉庫。作用是確保開發(fā)人員使用統(tǒng)一的數(shù)據(jù)定義，數(shù)據(jù)字典中有關(guān)系統(tǒng)的詳細(xì)信息是系統(tǒng)設(shè)計、系統(tǒng)實施與維護(hù)的重要依據(jù)。是關(guān)于數(shù)據(jù)信息的集合，也就是對數(shù)據(jù)流圖中包含的所有元素定義的集合。任何字典最主要的用途都是供人查閱不了解的條目的解釋，數(shù)據(jù)字典的作用也正是在軟件分析和設(shè)計過程中給人提供關(guān)于數(shù)據(jù)的描述信息。數(shù)據(jù)流圖和數(shù)據(jù)字典共同構(gòu)成系統(tǒng)的邏輯模型，沒有數(shù)據(jù)字典數(shù)據(jù)流圖就不嚴(yán)格，然而沒有數(shù)據(jù)流圖數(shù)據(jù)字典也難于發(fā)揮作用。只有數(shù)據(jù)流圖和對數(shù)據(jù)流圖精確的定義放在一起，才能共同構(gòu)成系統(tǒng)的規(guī)格說明。 以下是數(shù)據(jù)流圖中主要元素的數(shù)據(jù)字典卡片:名字：LabAd_ID別名：實驗室管理員編號描述：唯一標(biāo)志實驗室

15、管理員的關(guān)鍵域位置：實驗室信息表(Lab_Info)實驗室管理員信息表(LabAd_Info)名字：Lab_ID別名：實驗室編號描述：唯一標(biāo)志實驗室的關(guān)鍵域位置：實驗室信息表(Lab_Info) 設(shè)備信息表(Equip_Info) 維修信息表(Mend_Info) 報廢信息表(Broke_Info) 賠償信息表(Pey_Info)名字：Equip_ID別名：設(shè)備編號描述：唯一標(biāo)志一個特定設(shè)備的關(guān)鍵域位置：實驗室信息表(Lab_Info) 設(shè)備信息表(Equip_Info) 維修信息表(Mend_Info) 報廢信息表(Broke_Info) 賠償信息表(Pey_Info)名稱：SysAd_ID

16、別名：描述：記錄各部門的基本信息 位置：系統(tǒng)管理員信息表（SysAd_Info）供應(yīng)商信息表（Orter_Info）用戶權(quán)限表（Limit_Info）日志信息表（Log_Info）注冊控制表（Reg_Info）四、程序流程圖： 實驗室設(shè)備管理系統(tǒng)操作流程如圖3.2所示，系統(tǒng)提供兩種登錄方式，使用者可以先注冊一個使用編號，然后根據(jù)注冊信息登錄系統(tǒng)。開 始選擇登錄方式否使用者管理員否否選擇操作類型成功登錄注冊選擇操作方式否是成功成功否綜合查詢綜合查詢系統(tǒng)管理基本信息管理設(shè)備查詢與統(tǒng)計日常事務(wù)管理得到返回結(jié)果得到返回結(jié)果退出退出是是結(jié) 束結(jié) 束圖3.2程序流程圖五、功能結(jié)構(gòu)圖：系統(tǒng)功能結(jié)構(gòu)圖主要從功

17、能的角度描述了系統(tǒng)的結(jié)構(gòu)，但并未表達(dá)各功能之間的數(shù)據(jù)傳送關(guān)系。事實上，系統(tǒng)中許多業(yè)務(wù)或功能都是通過數(shù)據(jù)文件聯(lián)系起來的。例如，某一功能模塊向某一數(shù)據(jù)文件中存入數(shù)據(jù)，而另一個功能模塊則從該數(shù)據(jù)文件中取出數(shù)據(jù)。再比如，雖然在數(shù)據(jù)流程圖中的某兩個功能模塊之間原來并沒有通過數(shù)據(jù)文件發(fā)生聯(lián)系，但為了處理方便，在具體實現(xiàn)中有可能在兩個處理功能之間設(shè)立一個臨時的中間文件以便把它們聯(lián)系起來。上述這些關(guān)系在設(shè)計中是通過繪制信息系統(tǒng)流程圖來從整體上表達(dá)的。系統(tǒng)功能圖如圖3.3所示。實驗室設(shè)備管理系統(tǒng)日常事務(wù)管理設(shè)備的查詢與統(tǒng)計基本信息管理系統(tǒng)管理綜合管理設(shè)備購置管理設(shè)備使用管理設(shè)備維修管理入庫查詢與統(tǒng)計維修查詢與統(tǒng)

18、計賠償查詢與統(tǒng)計設(shè)備類型管理實驗室管理員管理設(shè)備供應(yīng)商管理設(shè)備使用者管理用戶管理修改密碼權(quán)限管理綜合信息查詢 圖3.3系統(tǒng)功能圖第四章 數(shù)據(jù)庫設(shè)計一、概念設(shè)計： 實驗室管理員姓名ID電話性別住址圖4.1實驗室管理員實體E-R圖設(shè)備ID名稱類別金額保修年限生產(chǎn)廠商購置日期圖4.2設(shè)備實體E-R圖實驗室ID名稱圖4.3實驗室實體E-R圖系統(tǒng)管理員名稱ID密碼備注權(quán)限類型圖4.4系統(tǒng)管理員實體E-R圖實驗室管理員管理管理員管理實驗室設(shè) 備使用者供應(yīng)商設(shè)備類別維修屬于借還賠償報廢分類供貨使用11n11nnn1n1n1圖4.5系統(tǒng)總體E-R圖二、邏輯設(shè)計：本系統(tǒng)采用Microsoft SQL Serve

19、r 2000 建立數(shù)據(jù)庫，包括14張表：“設(shè)備信息表”、“設(shè)備維修信息表”、“設(shè)備報廢信息表”、“設(shè)備借還信息表”、“賠償記錄信息表”、“實驗室信息表”、“設(shè)備類型信息表”、“設(shè)備使用者信息表”、“實驗室管理員信息表”、“系統(tǒng)管理員信息表”、“供應(yīng)商信息表”、“用戶權(quán)限表”、“日志信息表”、“注冊控制表”。下面列出幾個主要的數(shù)據(jù)庫表設(shè)計：表4.1 實驗室管理員信息表列名數(shù)據(jù)類型字段大小必填字段默認(rèn)值說明LabAd_IDvarchar50是遞增，主鍵LabAd_Namevarchar50是實驗室管理員姓名LabAd _Sexchar4是男實驗室管理員性別LabAd _Addrvarchar200

20、是實驗室管理員住址LabAd _Teltext16是實驗室管理員電話表4.2設(shè)備信息表列名數(shù)據(jù)類型字段大小必填字段默認(rèn)值說明Equip_IDchar15是主鍵，設(shè)備編號Type_IDint4是設(shè)備類型Orter_IDint4是設(shè)備供應(yīng)商Equip_Datedatetime8是購置日期Equip_Pricemoney8是設(shè)備金額Equip_Yearint4是保修年限Usr_IDchar16null設(shè)備使用者Lab_IDint4是null所屬實驗室Equip_Elsevarchar200null備注Equip_Lendchar4是否是否已外借報廢狀態(tài)char4是否是否報廢表4.3實驗室信息表列名數(shù)

21、據(jù)類型字段大小必填字段默認(rèn)值說明Lab_IDint4是遞增，主鍵Lab_Namechar16是實驗室名稱LabAd_IDvarchar50實驗室管理員編號表4.4 系統(tǒng)管理員信息表列名數(shù)據(jù)類型字段大小必填字段默認(rèn)值說明Admin _Namechar16是主鍵，管理員名稱Admin_SecNumchar16是管理員密碼Admin_Typechar10是權(quán)限類型Admin_Elsetext16管理員備注Timesint40記錄用戶進(jìn)入系統(tǒng)前，密碼錯誤次數(shù)三、物理設(shè)計 1. 數(shù)據(jù)庫的物理設(shè)計的內(nèi)容和方法數(shù)據(jù)庫最終是要存儲在物理設(shè)備上的。為一個給定的邏輯數(shù)據(jù)模型選取一個最適合應(yīng)用環(huán)境的物理結(jié)構(gòu)的過程，

22、就是數(shù)據(jù)庫的物理設(shè)計。物理結(jié)構(gòu)依賴于給定的DBMS和和硬件系統(tǒng)，因此設(shè)計人員必須充分了解所用DBMS的內(nèi)部特征，特別是存儲結(jié)構(gòu)和存取方法；充分了解應(yīng)用環(huán)境，特別是應(yīng)用的處理頻率和響應(yīng)時間要求；以及充分了解外存設(shè)備的特性。 數(shù)據(jù)庫的物理設(shè)計通常分為兩步： (1).確定數(shù)據(jù)庫的物理結(jié)構(gòu) (2).對物理結(jié)構(gòu)進(jìn)行評價，評價的重點是時間和空間效率 2. 數(shù)據(jù)庫表的創(chuàng)建打開SQL數(shù)據(jù)庫，單擊“創(chuàng)建數(shù)據(jù)庫表”菜單的“新建數(shù)據(jù)庫表結(jié)構(gòu)”菜單項。在彈出的“創(chuàng)建數(shù)據(jù)庫表結(jié)構(gòu)”界面中，單擊“新建模板”按鈕。在彈出的對話中，輸入數(shù)據(jù)庫表名，然后，單擊確定。部分所建表如下所示：圖4.6實驗室管理員信息圖4.7設(shè)備信息圖

23、4.8實驗室信息圖4.9系統(tǒng)管理員信息第五章 界面設(shè)計一、登陸窗口如下所示：用戶擁有自己的用戶名、密碼和使用權(quán)限。當(dāng)輸入用戶名和密碼以后，點擊“確定”鍵，如果用戶名和密碼都正確就可以順利進(jìn)入主窗體，如果輸入錯誤，那么就有相應(yīng)的提示信息。如圖5.1所示。圖5.1 登錄界面二、主界面輸入正確的用戶名和密碼后會進(jìn)入主界面，如圖5.2所示。圖5.2系統(tǒng)主界面圖三、密碼管理用戶可以修改自己的密碼，選擇菜單“系統(tǒng)管理修改密碼”，如圖5.3所示圖5.3修改密碼界面四、設(shè)備基本信息管理界面設(shè)計此界面可以實現(xiàn)對設(shè)備類型的查詢等功能。有按設(shè)備編號和實驗室名稱查詢兩種方式。每個設(shè)備都有自己的編號，輸入標(biāo)號就可以查詢

24、每個設(shè)備的詳細(xì)信息；如果不知道編號，輸入設(shè)備所在的實驗室名稱也可查詢到要找設(shè)備的詳細(xì)信息。如圖5.4所示。圖5.4設(shè)備基本信息管理界面五、設(shè)備購置管理界面設(shè)計本界面實現(xiàn)新購置設(shè)備的錄入功能，其中包括設(shè)備編號，設(shè)備名稱，設(shè)備類型，生產(chǎn)廠商，購置日期，金額，保修年限，所屬實驗室，等，購入新設(shè)備時，應(yīng)該完成對設(shè)備的完整添加，添加時使用人可不填，也就是將設(shè)備添加到數(shù)據(jù)庫中。如圖5.5所示。圖5.5設(shè)備購置管理界面第六章 代碼與注釋一、登錄代碼Private Sub Command1_Click() Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.R

25、ecordset Dim rs2 As New ADODB.Recordset Dim rs3 As New ADODB.Recordset Dim n, X, M As Integer If txtuser.Text = "" Then MsgBox "請輸入用戶名！" Exit Sub End If If txtid.Text = "" Then MsgBox "請輸入密碼" Exit Sub End If If txtuser.Text = "Admin" Or txtuser.Text

26、= "admin" Then rs3.Open "select * from SysAd_Info where Admin_Name='" & Trim(txtuser.Text) & "' and Admin_SecNum='" & Trim(txtid.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs3.RecordCount > 0 Then frmmain.Show frml

27、og.Hide Else MsgBox "密碼有誤，請重新輸入！" End If Else rs.Open "select * from SysAd_Info where Admin_Name='" & Trim(txtuser.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs.RecordCount <= 0 Then MsgBox "該用戶名不存在！請重新輸入正確信息！" Else If Val(rs.Fiel

28、ds("Times") >= 5 Then MsgBox "該用戶已被鎖定，請與超級管理員聯(lián)系！" Else rs2.Open "select * from SysAd_Info where Admin_SecNum='" & Trim(txtid.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs2.RecordCount > 0 Then rs.Fields("Times") = 0 r

29、s.Update frmmain.Show frmlog.Hide Else rs.Update MsgBox "密碼輸入有誤，請重新輸入！" End If End If End If End If二、主界面代碼Private Sub menu4_Click(Index As Integer) Select Case Index Case 1 frmadmin.Show Case 2 frmser.Show Case 3 frmlim.Show Case 4 For Each Form In Forms If frmmain.Caption = "實驗室設(shè)備管理系

30、統(tǒng)" Then frmmain.Show Else Unload Form End If Next Form frmbf.Show Case 5 frmloginfo.Show End SelectEnd SubPrivate Sub menu5_Click(Index As Integer) Select Case Index Case 1 ShellExecute Me.hwnd, vbNullString, "幫助文件.CHM", vbNullString, "", SW_SHOWNORMAL Case 2 frmabout.Show E

31、nd SelectEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 frmmain.Hide frmlog.Show frmlog.txtuser.Text = "" frmlog.TxtID.Text = "" Case 2 frmser.Show Case 3 frmstuinfo.Show Case 4 Case 5 frmabout.Show Case 6 ShellExecute

32、Me.hwnd, vbNullString, "幫助文件.CHM", vbNullString, "", SW_SHOWNORMAL End SelectEnd SubPrivate Sub TX_Click() X = Shell("C:Program FilesOutlook Expresswab.exe", 1)End SubPrivate Sub 退出_Click() Dim rs As New ADODB.Recordset If MsgBox("確實要退出實驗室設(shè)備管理系統(tǒng)嗎？", vbYesNo +

33、vbQuestion + vbDefaultButton1, "確認(rèn)窗口") = vbYes Then rs.Open "select * from SysAd_Info where Admin_Name='" & Trim(frmlog.txtuser.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic rs.Fields("Times") = 0 rs.Update rs.Close End End IfEnd Sub三、修改密碼

34、代碼Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select * from SysAd_Info where Admin_Name='" & Trim(frmlog.txtuser.Text) & "' and Admin_SecNum='" & Trim(Txtsec.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs

35、.RecordCount < 1 Then MsgBox "密碼有誤，請輸入正確信息！" Exit Sub ElseIf Txtnew.Text <> Txtnewd Then MsgBox "新口令重復(fù)輸入時不正確！" Txtnew.Text = "" Txtnewd.Text = "" Exit Sub Else rs.Fields("Admin_SecNum") = Txtnew.Text MsgBox "密碼修改成功" frmser.Hide rslog.Open "select * from Log_Info where 操作員=''", DBCnn, adOpenStatic, adLockOptimistic rslog.AddNew rslog.Fields("操作員") = frmlog.txtuser.Text rslog.Fields("日期") = Date rslog.