精品資料（2021-2022年收藏的）設(shè)備管理系統(tǒng)(1)

1、目 錄第一章 緒論11.1系統(tǒng)開(kāi)發(fā)的背景11.2系統(tǒng)開(kāi)發(fā)的目的、意義11.3課題中涉及的相關(guān)技術(shù)及概念3第二章 系統(tǒng)開(kāi)發(fā)的要求52.1硬件配置及外設(shè)設(shè)備與配置52.2 所用的開(kāi)發(fā)軟件、應(yīng)用軟件平臺(tái)及語(yǔ)言52.3系統(tǒng)的功能特點(diǎn)62.3.1系統(tǒng)的功能62.3.2系統(tǒng)的組成結(jié)構(gòu)及其流程圖62.3.3 本組成員及分工8第三章 數(shù)據(jù)庫(kù)設(shè)計(jì)93.1數(shù)據(jù)庫(kù)設(shè)計(jì)概述93.2系統(tǒng)數(shù)據(jù)庫(kù)結(jié)構(gòu)（E-R表示）10第四章 詳細(xì)設(shè)計(jì)154.1詳細(xì)設(shè)計(jì)概述154.2 系統(tǒng)界面設(shè)計(jì)及代碼編寫154.2.1設(shè)備分配管理模塊設(shè)計(jì)154.2.2設(shè)備維護(hù)管理模塊設(shè)計(jì)234.2.3設(shè)備報(bào)廢管理模塊設(shè)計(jì)25第五章 系統(tǒng)運(yùn)行調(diào)試345.1

2、系統(tǒng)測(cè)試345.2系統(tǒng)的特點(diǎn)34第六章 結(jié)束語(yǔ)35參考文獻(xiàn)36第一章 緒論1.1系統(tǒng)開(kāi)發(fā)的背景目前公司設(shè)備自動(dòng)化管理水平不是很高。大多數(shù)設(shè)備管理辦法是設(shè)備采購(gòu)進(jìn)來(lái)以后，將設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。以后檔案基本就沒(méi)人維護(hù)，如設(shè)備位置變遷、檢修情況、設(shè)備當(dāng)前運(yùn)行狀態(tài)等信息根本不會(huì)體現(xiàn)在設(shè)備臺(tái)帳上，即設(shè)備跟蹤信息不能及時(shí)體現(xiàn)在設(shè)備檔案上。某些使用設(shè)備管理系統(tǒng)，對(duì)設(shè)備的跟蹤信息即使能體現(xiàn)在設(shè)備檔案上，但設(shè)備的缺陷處理及設(shè)備缺陷等功能沒(méi)有實(shí)施，設(shè)備檢修的備品備件情況和檢修成本核算沒(méi)有實(shí)現(xiàn)，整個(gè)設(shè)備管理信息化仍處于較低水平。本信息系統(tǒng)合理的借鑒國(guó)際領(lǐng)先的設(shè)備管理思想并結(jié)合國(guó)內(nèi)設(shè)備管

3、理現(xiàn)狀，可以完全能滿足設(shè)備管理的需要。并通過(guò)對(duì)各行業(yè)設(shè)備管理情況的長(zhǎng)期研究探索，以靈活、通用為主要設(shè)計(jì)思想，開(kāi)發(fā)適合于各行業(yè)設(shè)備管理信息系統(tǒng)。本系統(tǒng)將會(huì)提高的辦公效率和設(shè)備可靠性，減少工作人員的勞動(dòng)強(qiáng)度，減少辦公耗材，提高的現(xiàn)代化管理水平。實(shí)時(shí)報(bào)警功能對(duì)的安全生產(chǎn)更是不可忽視。1.2系統(tǒng)開(kāi)發(fā)的目的、意義目前公司設(shè)備自動(dòng)化管理水平不是很高。大多數(shù)設(shè)備管理辦法是設(shè)備采購(gòu)進(jìn)來(lái)以后，將設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。以后檔案基本就沒(méi)人維護(hù)，如設(shè)備位置變遷、檢修情況、設(shè)備當(dāng)前運(yùn)行狀態(tài)等信息根本不會(huì)體現(xiàn)在設(shè)備臺(tái)帳上，即設(shè)備跟蹤信息不能及時(shí)體現(xiàn)在設(shè)備檔案上。某些使用設(shè)備管理系統(tǒng)的單位，對(duì)設(shè)

4、備的跟蹤信息即使能體現(xiàn)在設(shè)備檔案上，但設(shè)備的缺陷處理及設(shè)備缺陷等功能沒(méi)有實(shí)施，設(shè)備檢修的備品備件情況和檢修成本核算沒(méi)有實(shí)現(xiàn)，整個(gè)公司設(shè)備管理信息化仍處于較低水平。將管理任務(wù)分成小塊，落實(shí)到個(gè)人并能隨時(shí)查詢?cè)O(shè)備當(dāng)前情況和歷史情況，對(duì)設(shè)備的可靠性分析有直接作用，使管理人員從手工計(jì)算、統(tǒng)計(jì)工作中解脫出來(lái)。 現(xiàn)在，科學(xué)技術(shù)的飛速發(fā)展把人類社會(huì)推向了一個(gè)嶄新的時(shí)代信息時(shí)代。這已是無(wú)可爭(zhēng)議的事實(shí)；信息對(duì)社會(huì)經(jīng)濟(jì)發(fā)展的巨大推動(dòng)作用，使其與物質(zhì)能源一起并列為現(xiàn)代社會(huì)的三大支柱，這已在全社會(huì)達(dá)到共識(shí)。隨著對(duì)信息作為一種資源來(lái)管理的需求日益加強(qiáng)，信息研究領(lǐng)域出現(xiàn)了一種新的管理思想和模式信息管理。因此，就誕生了“信

5、息管理”這樣一個(gè)概念。由于信息是普遍存在的，人類信息管理活動(dòng)的范圍也是十分廣泛的，信息管理不僅是信息工作的一部分，而且已被認(rèn)為是現(xiàn)代管理的重要組成部分。信息管理的概念源于西方，也是在世界信息量迅速增長(zhǎng)、信息技術(shù)日新月異、信息產(chǎn)業(yè)強(qiáng)勁發(fā)展的六七十年代出現(xiàn)的。時(shí)至今日，信息管理已不僅僅是一個(gè)概念，而是信息學(xué)和管理學(xué)中的重要內(nèi)容了。對(duì)信息管理的理解，一種認(rèn)為是，信息管理 就是對(duì)信息的管理。在此，信息管理是指狹義的信息資源管理，實(shí)際上就是對(duì)信息本身的管理；另一種認(rèn)為，信息管理不僅是對(duì)信息的管理，而是對(duì)涉及信息活動(dòng)的各種要素，如信息、技術(shù)、人員、組織進(jìn)行合理的組織和有效的控制，從而滿足社會(huì)的信息需求。在

6、此，信息管理是指廣義的信息資源管理。綜合兩種理解，信息管理是指對(duì)人類信息活動(dòng)所產(chǎn)生的社會(huì)信息進(jìn)行管理，信息管理是管理的一種，既要對(duì)信息進(jìn)行管理，也要對(duì)信息活動(dòng)進(jìn)行管理。信息和信息活動(dòng)都是信息管理的客體。簡(jiǎn)而言之，信息管理就是對(duì)信息和信息活動(dòng)的管理，這就是我們對(duì)信息管理的全面理解。世界經(jīng)濟(jì)發(fā)展已進(jìn)入一個(gè)激烈競(jìng)爭(zhēng)的年代，可以說(shuō)，誰(shuí)先獲得信息，誰(shuí)就有可能抓住發(fā)展經(jīng)濟(jì)的機(jī)遇。同樣，誰(shuí)能很好地管理和利用信息，誰(shuí)就有可能占領(lǐng)市場(chǎng)，獲得效益。國(guó)內(nèi)外大量事實(shí)已說(shuō)明：在目前這個(gè)激烈競(jìng)爭(zhēng)的市場(chǎng)經(jīng)濟(jì)中，誰(shuí)的信息管理現(xiàn)代化水平高，誰(shuí)重視信息資源的開(kāi)發(fā)和利用，誰(shuí)就能抓住機(jī)遇，在競(jìng)爭(zhēng)中取勝。本信息管理系統(tǒng)合理的借鑒國(guó)際領(lǐng)

7、先的設(shè)備管理思想并結(jié)合國(guó)內(nèi)設(shè)備管理現(xiàn)狀，經(jīng)過(guò)長(zhǎng)期的現(xiàn)場(chǎng)調(diào)研，完全能滿足國(guó)內(nèi)一般的設(shè)備管理的需要。并通過(guò)對(duì)各行業(yè)設(shè)備管理情況的長(zhǎng)期研究探索，以靈活、通用為主要設(shè)計(jì)思想，開(kāi)發(fā)適合于設(shè)備管理的信息系統(tǒng)。使用本系統(tǒng)之后，將會(huì)提高的辦公效率和設(shè)備可靠性，減少工作人員的勞動(dòng)強(qiáng)度，減少辦公耗材，提高的現(xiàn)代化管理水平。作這個(gè)課題是為了方便的公司設(shè)備進(jìn)行統(tǒng)計(jì)及管理工作，減少每天需要涉及到的相關(guān)工作量，盡可能的提高工作效率，可以節(jié)省人力物力的浪費(fèi)。1.3課題中涉及的相關(guān)技術(shù)及概念系統(tǒng)采用了先進(jìn)的Access數(shù)據(jù)庫(kù)技術(shù)，面向?qū)ο蟮木幊谭椒▽W(xué)以及軟件工程方法學(xué)Visual Basic 6.0中文版是一種應(yīng)用程序開(kāi)發(fā)工

8、具，它的功能就是用來(lái)編程Windows 下的應(yīng)用程序。Visual Basic 6.0是在原有的Basic語(yǔ)言的基礎(chǔ)上的進(jìn)一步發(fā)展，他包含了數(shù)百條語(yǔ)句。函數(shù)及關(guān)鍵詞，其中很多與Windows GUI有直接的關(guān)系。Visual Basic 語(yǔ)言簡(jiǎn)單易學(xué)，只要稍有語(yǔ)言基礎(chǔ)就可以很快的掌握并進(jìn)而精通。可視化的用戶界面設(shè)計(jì)功能，把程序設(shè)計(jì)人員從繁瑣復(fù)雜的截面設(shè)計(jì)中解脫出來(lái)；可視化編程環(huán)境的“所見(jiàn)即所得（WYSIWYG）”功能，是界面設(shè)計(jì)如積木游戲一般，編程變成了一種享受；強(qiáng)大的多媒體功能可輕而易舉地開(kāi)發(fā)出集聲音，動(dòng)畫，影像和圖片于一體的多媒體應(yīng)用程序；新增的網(wǎng)絡(luò)功能提供了編寫Internet程序的能力

9、。Visual Basic 6.0 還支持用戶自己開(kāi)發(fā)ActiveX控件和制作ActiveX文檔。”Visual”一詞在計(jì)算機(jī)程序設(shè)計(jì)領(lǐng)域中意為:”可視化的”，Microsoft公司的其冠以Visual的產(chǎn)品都含有這個(gè)意思。VB就是可視化程序設(shè)計(jì)語(yǔ)言?？梢暬绦蛟O(shè)計(jì)指的是一種開(kāi)發(fā)圖形用戶界面的方法，使用這種方法，程序員不須編寫大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立的界面元素用鼠標(biāo)拖放到屏幕上適當(dāng)?shù)奈恢眉纯?。Visual Basic在原有BASIC語(yǔ)言的基礎(chǔ)上進(jìn)一步發(fā)那，至今包含了數(shù)百條語(yǔ)句、函數(shù)及關(guān)鍵詞，其中很多和Windows GUIe直接關(guān)系。專業(yè)人員可以用Visual Bas

10、ic實(shí)現(xiàn)其他任何Windows編程語(yǔ)言的功能，而初學(xué)者只要掌握 幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。Visual Basic的基本特點(diǎn)VB的基本特點(diǎn)有兩個(gè)：VB提供可視化的編程工具VB向程序員提供圖形對(duì)象（窗體，控件，菜單等）進(jìn)行應(yīng)用程序的界面設(shè)計(jì)，應(yīng)用程序的界面相當(dāng)于用工具畫出來(lái)的，大大簡(jiǎn)化了程序員的編程工作。程序采取“事件驅(qū)動(dòng)”方式VB改變了程序的機(jī)制，沒(méi)有傳統(tǒng)意義上的主程序，使程序執(zhí)行的基本方法是有“事件”來(lái)驅(qū)動(dòng)子程序（或過(guò)程）的運(yùn)行，如用鼠標(biāo)點(diǎn)擊命令按扭，就產(chǎn)生了一個(gè)命令按扭的“單擊事件”，響應(yīng)的執(zhí)行一段程序（事件過(guò)程：Command1_Click()）。為什么要選擇VB6.0 ？微軟

11、公司的Visual Basic 6.0是Windows應(yīng)用程序開(kāi)發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。第二章 系統(tǒng)開(kāi)發(fā)的要求2.1硬件配置及外設(shè)設(shè)備與配置工硬件環(huán)境：硬件平臺(tái)是指開(kāi)發(fā)與運(yùn)行所需要的硬件環(huán)境，主要包括計(jì)算機(jī)機(jī)型及硬件配置。由于本系統(tǒng)是一個(gè)小型的管理系統(tǒng)，因此對(duì)計(jì)算機(jī)硬件的要求不高，比較經(jīng)濟(jì)，只要配備如下表所示的就可以。內(nèi)容 最低配置 建議配置主機(jī) P/2

12、00 PII/266以上內(nèi)存 64MB 128MB以上硬盤 10GB 20GB以上顯示器 VGA以上 2.2 所用的開(kāi)發(fā)軟件、應(yīng)用軟件平臺(tái)及語(yǔ)言  軟件平臺(tái)是指系統(tǒng)開(kāi)發(fā)與運(yùn)行的軟件環(huán)境。本系統(tǒng)在開(kāi)發(fā)時(shí)選用了穩(wěn)定性較強(qiáng)的Windows XP中文專業(yè)版和Visual Basic6.0作為開(kāi)發(fā)語(yǔ)言，由于這些軟件產(chǎn)品都是Microsoft公司的產(chǎn)品，因此彼此之間的兼容性較好，開(kāi)發(fā)出的應(yīng)用系統(tǒng)穩(wěn)定性較高。VB6.0中文版，它是運(yùn)行于Windows95和Windows NT平臺(tái)的32位數(shù)據(jù)庫(kù)系統(tǒng)，充分發(fā)揮了32位微處理器強(qiáng)大的32位數(shù)據(jù)處理性能。它功能強(qiáng)大，直觀易用，支持客戶/服務(wù)器結(jié)構(gòu)和面向?qū)?/p>

13、象編程，提供多種可視化編程工具，支持最新Internet技術(shù)， WWW數(shù)據(jù)庫(kù)的設(shè)計(jì)，最新流行的ActiveX等。應(yīng)用程序開(kāi)發(fā)：Visual basic 6.0 與其它access 工具可以很好的配合，例如，運(yùn)用Visual InterDev 創(chuàng)建Web應(yīng)用程序的開(kāi)發(fā)人員可以很容易地使用Visual Basic 來(lái)創(chuàng)建組件。用Visual Basic創(chuàng)建的 ActiveX 控件可以在Visual Basic 應(yīng)用程序中使用，以實(shí)現(xiàn)一些附加功能。2.3系統(tǒng)的功能特點(diǎn)2.3.1系統(tǒng)的功能本系統(tǒng)主要完成新增設(shè)備的入庫(kù)記錄、新增設(shè)備的維護(hù)、設(shè)備領(lǐng)用登記和維護(hù)、設(shè)備使用與維修登記和維護(hù)、信息檢索、系統(tǒng)管理

14、功能。2.3.2系統(tǒng)的組成結(jié)構(gòu)及其流程圖本系統(tǒng)主要有以下模塊：新增設(shè)備的入庫(kù)記錄、新增設(shè)備的維護(hù)、設(shè)備領(lǐng)用登記和維護(hù)、設(shè)備使用與維修登記和維護(hù)、信息檢索、系統(tǒng)管理。為了美化系統(tǒng)界面，本系統(tǒng)加上一個(gè)圖片在主界面上，用戶在使用要系統(tǒng)時(shí)，為了增加本系統(tǒng)的安全時(shí)，首先需要驗(yàn)證，只有在登錄界面上輸入正確的用戶名和密碼才能登陸本系統(tǒng)使用，系統(tǒng)默認(rèn)的用戶為：syp/123系統(tǒng)的整體結(jié)構(gòu)如下圖2-1：基本信息管理設(shè)備臺(tái)帳管理設(shè)備配件管理設(shè)備維護(hù)管理設(shè)備報(bào)廢管理系統(tǒng)用戶管理設(shè)備分配管理設(shè)備管理系統(tǒng)圖2-1 設(shè)備管理系統(tǒng)的整體結(jié)構(gòu)圖系統(tǒng)流程分析圖：開(kāi) 始用戶登錄擁有管理的權(quán)用戶審批權(quán)限 重試 失敗 成功下面分別論

15、述本系統(tǒng)的各個(gè)功能模塊的作用：（）系統(tǒng)登陸：點(diǎn)擊可執(zhí)行文件設(shè)備管理系統(tǒng).exe之后，就進(jìn)入本登陸界面，用戶需要如上所述的正確的用戶名和密碼之后才能使用本系統(tǒng)。（）設(shè)備采購(gòu)入庫(kù)：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)設(shè)備的入庫(kù)管理工作，包括記錄添加、編輯、刪除等操作。（）設(shè)備臺(tái)賬：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)設(shè)備的出庫(kù)管理工作，包括記錄添加、編輯、刪除等操作。（）設(shè)備維修和使用：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)教學(xué)的還庫(kù)管理工作，包括記錄添加、編輯、刪除等操作。（5）信息查詢：本應(yīng)用模塊集成了本系統(tǒng)的所有數(shù)據(jù)庫(kù)文件，可以跟據(jù)設(shè)備的編號(hào)，名稱等進(jìn)行查詢。 （6）退出系統(tǒng)：退出本系統(tǒng)，恢復(fù)系統(tǒng)的實(shí)始狀態(tài)。2.3.

16、3 本組成員及分工張琴：基本信息管理、設(shè)備臺(tái)帳管理、設(shè)備配件管理、數(shù)據(jù)庫(kù)操作、系統(tǒng)用戶管理許映麗：設(shè)備分配管理、設(shè)備維護(hù)管理、設(shè)備報(bào)廢管理第三章 數(shù)據(jù)庫(kù)設(shè)計(jì)3.1數(shù)據(jù)庫(kù)設(shè)計(jì)概述Visual Basic具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如DBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。 數(shù)據(jù)庫(kù)是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地

17、位。數(shù)據(jù)庫(kù)設(shè)計(jì)的好與壞，直接影響到這個(gè)系統(tǒng)的運(yùn)行效率。良好的數(shù)據(jù)庫(kù)設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，保證數(shù)據(jù)信息的完整性和一直性。同時(shí)，一個(gè)合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)有利于程序的實(shí)現(xiàn)。這里選用Access 2000作為后臺(tái)數(shù)據(jù)庫(kù)。 數(shù)據(jù)庫(kù)是某個(gè)企業(yè)、組織或部門所設(shè)計(jì)的數(shù)據(jù)的一個(gè)綜合，它不僅要反映數(shù)據(jù)本身的內(nèi)容，而且要反映數(shù)據(jù)之間的聯(lián)系。在數(shù)據(jù)庫(kù)中用數(shù)據(jù)模型這個(gè)工具來(lái)抽象、表示和處理現(xiàn)實(shí)世界中的數(shù)據(jù)和信息。簡(jiǎn)單地說(shuō)，數(shù)據(jù)模型是現(xiàn)實(shí)世界的模擬。 3.2系統(tǒng)數(shù)據(jù)庫(kù)結(jié)構(gòu)（E-R表示） 為了使E-R圖表示得更加清晰，現(xiàn)將E-R圖分成實(shí)體及其屬性圖和實(shí)體及其聯(lián)系圖。分別如下幾個(gè)圖所示：設(shè)備采購(gòu)設(shè)備名稱設(shè)備編號(hào)采購(gòu)人

18、采購(gòu)日期生產(chǎn)廠家生產(chǎn)日期購(gòu)入數(shù)量金額 設(shè)備入庫(kù)：圖3.1 設(shè)備入庫(kù)臺(tái)賬的管理：臺(tái)賬管理設(shè)備編號(hào)設(shè)備名稱領(lǐng)取人領(lǐng)取時(shí)間領(lǐng)取單位領(lǐng)取數(shù)量圖3.2 臺(tái)帳管理使用與維護(hù)：使用與維護(hù)設(shè)備名稱設(shè)備編號(hào)維修次數(shù)使用情況（良/差）維修費(fèi)用維修記錄圖3.3 使用與維護(hù)3.3設(shè)計(jì)表結(jié)構(gòu) 1類型表如表3-1：編號(hào)字段名稱 數(shù)據(jù)類型 說(shuō)明 1 Id自動(dòng)編號(hào)，長(zhǎng)整型類型編號(hào)，主鍵 2TypeName文本，長(zhǎng)度為50類型名稱，必填字段（是），允許空字符串（否） 3TypeId數(shù)字，字節(jié)類型分析，1表示設(shè)備分類；2表示部門信息表3-1 類型表2設(shè)備臺(tái)帳如表3-2：編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1Id文本，長(zhǎng)度為50設(shè)備

19、編號(hào)，主鍵2Name文本，長(zhǎng)度為50設(shè)備名稱，必填字段（是），允許空字符串（否）3Model文本，長(zhǎng)度為50設(shè)備名稱，必填字段（否），允許空字符串（是）4TypeId數(shù)字，長(zhǎng)整型分類編號(hào)，必填字段（是）5Price數(shù)字，整型價(jià)格，必填字段（否）6DCount數(shù)字，整型數(shù)量，必填字段（否）7Unit文本，長(zhǎng)度為10計(jì)量單位，必填字段（否），允許空字符串（是）8CreateDate日期/時(shí)間創(chuàng)建日期，必填字段（否）9Poster文本，長(zhǎng)度為50創(chuàng)建人，必填字段（否），允許空字符串（是）10Flag數(shù)字，字節(jié)設(shè)備類型，1-設(shè)備；2-配件11Status文本，長(zhǎng)度為20設(shè)備狀態(tài)（正常、分配、報(bào)廢）表3

20、-2 設(shè)備臺(tái)帳表3設(shè)備分配表如表3-3：編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1Id自動(dòng)編號(hào)，長(zhǎng)整型分配編號(hào)，主鍵2DeptId數(shù)字，長(zhǎng)整型部門編號(hào)，必填字段（是）3EmpName文本，長(zhǎng)度為50負(fù)責(zé)人，必填字段（是），允許空字符串（否）4DevId文本，長(zhǎng)度為50設(shè)備編號(hào)，必填字段（是），允許空字符串（否）5CreateDate數(shù)字，整型創(chuàng)建日期，必填字段（是）6Flag數(shù)字，字節(jié)分配標(biāo)記，1-分配；2-分配確認(rèn)，必填字段（是）表3-3 設(shè)備分配表4分配配件表如表3-4：編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1Id數(shù)字，長(zhǎng)整型自動(dòng)編號(hào)，主鍵2DisId數(shù)字，長(zhǎng)整型分配編號(hào)，必填字段（是）3DevId文本，長(zhǎng)度為50配件

21、編號(hào)，必填字段（是），允許空字符串（否）4ACount數(shù)字，整型數(shù)量，必填字段（是）表3-4 分配配件表5設(shè)備維護(hù)表如表3-5：編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1Id數(shù)字，長(zhǎng)整型分配編號(hào)，主鍵2DevId文本，長(zhǎng)度為50設(shè)備編號(hào)，必填字段（是），允許空字符串（否）3MnName文本，長(zhǎng)度為50維護(hù)人姓名，必填字段（否），允許空字符串（是）4MnDate日期/時(shí)間維護(hù)日期，必填字段（否）5MnSum數(shù)字，長(zhǎng)整型維護(hù)費(fèi)用，必填字段（否）6Comment備注備注，必填字段（否），允許空字符串（是）表3-5 設(shè)備維護(hù)表6設(shè)備報(bào)廢表如表3-6：編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1Id數(shù)字，長(zhǎng)整型自動(dòng)編號(hào)，主鍵2DevId

22、文本，長(zhǎng)度為50設(shè)備編號(hào)，必填字段（是），允許空字符串（否）3DCount數(shù)字，整型報(bào)廢數(shù)量，必填字段（是）4DSum數(shù)字，長(zhǎng)整型折算金額，必填字段（否）5Reason文本，長(zhǎng)度為200報(bào)廢原因，必填字段（是），允許空字符串（否）6CreateDate日期/時(shí)間申請(qǐng)時(shí)間，必填字段（是）7UserName文本，長(zhǎng)度為40申請(qǐng)人，必填字段（是），允許空字符串（否）8Checker文本，長(zhǎng)度為40審批人，必填字段（否），允許空字符串（是）9CheckDate日期/時(shí)間審批日期，必填字段（否）10Result文本，長(zhǎng)度為200審批意見(jiàn)，必填字段（否），允許空字符串（是）11Status文本，長(zhǎng)度為10

23、狀態(tài)（申請(qǐng)、提交、同意、不同意、報(bào)廢）表3-6 設(shè)備報(bào)廢表7用戶信息表如表3-7：編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1UserName文本，長(zhǎng)度為40用戶名，主鍵，必填字段（是），允許空字符串（否）2UserPwd文本，長(zhǎng)度為40密碼，必填字段（是），允許空字符串（否）3UserType數(shù)字，字節(jié)用戶類型，1-系統(tǒng)管理員；2-審批經(jīng)理4Email文本，長(zhǎng)度為50電子郵件，必填字段（是），允許空字符串（否）表3-7 用戶信息表第四章 詳細(xì)設(shè)計(jì)4.1詳細(xì)設(shè)計(jì)概述詳細(xì)設(shè)計(jì)的任務(wù)：詳細(xì)設(shè)計(jì)就是要在概要設(shè)計(jì)的結(jié)果的基礎(chǔ)上，考慮“怎樣實(shí)現(xiàn)”這個(gè)件統(tǒng)，直到對(duì)系統(tǒng)中的每個(gè)模塊給出足夠詳細(xì)的過(guò)程性描述。主要任務(wù)如下： 為

24、每個(gè)模塊確定采用的算法，選擇某種適當(dāng)?shù)墓ぞ弑磉_(dá)算法的過(guò)程，寫出模塊的詳細(xì)過(guò)程性描述； 確定每一模塊使用的數(shù)據(jù)結(jié)構(gòu)； 確定模塊接口的細(xì)節(jié)，包括對(duì)系統(tǒng)外部的接口和用戶界面，對(duì)系統(tǒng)內(nèi)部其它模塊的接口，以及模塊輸入數(shù)據(jù)、輸出數(shù)據(jù)及局部數(shù)據(jù)的全部細(xì)節(jié)。 要為每一個(gè)模塊設(shè)計(jì)出一組測(cè)試用例，以便在編碼階段對(duì)模塊代碼（即程序）進(jìn)行預(yù)定的測(cè)試，模塊的測(cè)試用例是軟件測(cè)試計(jì)劃的重要組成部分，通常應(yīng)包括輸入數(shù)據(jù)，期望輸出等內(nèi)容。4.2 系統(tǒng)界面設(shè)計(jì)及代碼編寫4.2.1設(shè)備分配管理模塊設(shè)計(jì)設(shè)備分配管理模塊的功能是將指定的設(shè)備以及配件分配給相關(guān)的部門，主要內(nèi)容包括：添加設(shè)備分配信息，包括編號(hào)、分配部門、負(fù)責(zé)人等信息。1.

25、 修改設(shè)備分配信息。2. 刪除設(shè)備分配信息。3. 設(shè)備分配信息確認(rèn)。4. 查看設(shè)備分配信息。設(shè)計(jì)批量選擇設(shè)備配件窗體批量選擇設(shè)備配件窗體的名稱為FrmAccessorySel。批量選擇設(shè)備配件窗體的布局如圖4-1。圖 4-1 批量選擇設(shè)備配件窗體的布局當(dāng)單擊“選擇配件”按鈕，觸發(fā)Cmd_DeviceSel_Click事件，代碼如下：Private Sub Cmd_DeviceSel_Click() '選擇配件 FrmDeviceSel.nFlag = 2 FrmDeviceSel.Caption = "選擇設(shè)備配件" FrmDeviceSel.Show

26、 1 '讀取指定對(duì)象信息 sDevId = Trim(MyDeviceSel.Id) AccessoryRefreshEnd Sub程序?qū)⒋蜷_(kāi)FrmDeviceSel窗體，并將nFlag設(shè)置為2，表示選擇設(shè)備配件。函數(shù)AccessoryRefresh的功能是根據(jù)選擇的配件編號(hào)sDevID從表Device和Type中讀取配件信息，并將其顯示在表格控件db_Accessory中Private Sub AccessoryRefresh() AdoAccessory.ConnectionString = Conn AdoAccessory.RecordSource = "SELECT

27、 d.Id AS 編號(hào),d.Name AS 配件名稱," _ + "d.Model AS 配件型號(hào),t.TypeName AS 分類," _ + "d.Unit AS 單位,d.DCount AS 數(shù)量 " _ + " FROM Device d,Types t WHERE d.TypeId=t.Id " _ + " AND d.Id='" + sDevId + "'" AdoAccessory.Refresh Set db_Accessory.DataSource =

28、 AdoAccessory db_Accessory.Columns(0).Width = 800 db_Accessory.Columns(1).Width = 1400 db_Accessory.Columns(2).Width = 1400 db_Accessory.Columns(3).Width = 1200 db_Accessory.Columns(4).Width = 800 db_Accessory.Columns(5).Width = 800End Sub在txtCount文本框中輸入配件數(shù)量，然后單擊“確定”按鈕，代碼如下：Private Sub Cmd_OK_Click(

29、) '檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(sDevId) = 0 Then MsgBox "請(qǐng)選擇設(shè)備" Cmd_DeviceSel.SetFocus Exit Sub End If If Len(Trim(txtCount) = 0 Or Val(txtCount) <= 0 Then MsgBox ("請(qǐng)輸入分配數(shù)量，分配數(shù)量大于0") txtCount.SetFocus Exit Sub End If '把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫(kù)對(duì)象變量中 With MyAList .DevId = sDevId .ACoun

30、t = Val(txtCount) .DisId = DId .Insert End With '關(guān)閉窗口 Unload MeEnd Sub程序?qū)⑦x擇的設(shè)備配件數(shù)據(jù)保存到AccessoryList表中，DisID字段值為當(dāng)前選擇的設(shè)備分配單編號(hào)。設(shè)計(jì)設(shè)備分配編輯窗體設(shè)備分配編輯窗體的名稱為FrmDistributeEdit，窗體布局如圖4-2。圖4-2 設(shè)備分配編輯窗體的布局下面分析窗體FrmDistributeEdit各個(gè)過(guò)程的代碼。1、 全局變量定義窗體中定義了3個(gè)變量，對(duì)應(yīng)的代碼如下：Public Modify As Boolean '插入=false,修改

31、=truePublic OriId As Long '分配編號(hào)Public sDevId As String '設(shè)備編號(hào)2、 連接數(shù)據(jù)源窗體中使用了三個(gè)數(shù)據(jù)源，分別取得表Types中的部門信息、表Device中設(shè)備信息和配件信息.3、 Form_Load過(guò)程Private Sub Form_Load() DeptRefresh '刷新部門信息列表 DeviceRefresh '刷新設(shè)備信息列表 AccessoryRefresh '刷新配件信息列表End Sub4、 Cmd_DeviceSel_Click過(guò)程當(dāng)單擊選擇設(shè)備按鈕，從設(shè)備列表中選擇要分配的設(shè)備

32、，代碼如下：Private Sub Cmd_DeviceSel_Click() FrmDeviceSel.nFlag = 1 '選擇設(shè)備 FrmDeviceSel.Show 1 '設(shè)備列表 '讀取指定設(shè)備對(duì)象信息中設(shè)備編號(hào) sDevId = Trim(MyDeviceSel.Id) DeviceRefresh '刷新設(shè)備列表 Cmd_Save.Enabled = True '保存按鈕可用End Sub5、 Cmd_Add_Click過(guò)程Private Sub Cmd_Add_Click() '添加分配的配件信息 FrmAccessoryEdit.

33、DId = OriId '設(shè)置分配編號(hào) FrmAccessoryEdit.Show 1 '顯示添加配件窗體 AccessoryRefresh '刷新配件數(shù)據(jù)End Sub6、 Cmd_Del_Click過(guò)程Private Sub Cmd_Del_Click() If AdoAccessory.Recordset.EOF = True Then MsgBox "請(qǐng)選擇記錄" Exit Sub End If If MsgBox("是否確定要?jiǎng)h除 ", vbYesNo, "請(qǐng)確認(rèn)") = vbNo Then Exit

34、 Sub End If '刪除分配的配件記錄 MyAList.Delete (AdoAccessory.Recordset.Fields(0) AccessoryRefresh '刷新配件列表End Sub7、 Cmd_Save_Click過(guò)程Private Sub Cmd_Save_Click() '檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtDate) = 0 Then MsgBox ("請(qǐng)輸入分配日期") txtDate.SetFocus Exit Sub End If If Len(Trim(dco_DeptId.Text) =

35、0 Then MsgBox "請(qǐng)選擇設(shè)備使用部門" dco_DeptId.SetFocus Exit Sub End If If Len(Trim(txtName) = 0 Then MsgBox "請(qǐng)輸入設(shè)備負(fù)責(zé)人" txtName.SetFocus Exit Sub End If If Len(Trim(sDevId) = 0 Then MsgBox "請(qǐng)選擇設(shè)備" Cmd_DeviceSel.SetFocus Exit Sub End If '把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫(kù)對(duì)象變量中 With MyDistribute .

36、DevId = Trim(sDevId) .EmpName = MakeStr(txtName) .DeptId = Val(dco_DeptId.BoundText) .CreateDate = MakeStr(txtDate) .Flag = 1 '根據(jù)變量Modify的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then .Insert '插入新記錄后取得其編號(hào) OriId = .MaxId '保存后可以編輯配件信息 Cmd_Add.Enabled = True Cmd_Del.Enabled = True Frame2.Enab

37、led = True Else .Update (OriId) End If End WithEnd Sub設(shè)計(jì)設(shè)備分配管理窗體設(shè)備分配管理窗體FrmDistribute布局如圖4-3。圖 4-3 設(shè)備分配管理窗體布局部分代碼介紹：1、 GridRefresh過(guò)程Private Sub GridRefresh() '設(shè)置查詢條件 If Len(Trim(txtName) = 0 Then SchCnd = "" Else SchCnd = " AND d.Name Like '%" + Trim(txtName) + &qu

38、ot;%'" End If '設(shè)置連接數(shù)據(jù)源 Adodc1.ConnectionString = Conn '設(shè)置SELECT語(yǔ)句 Adodc1.RecordSource = "SELECT s.Id AS 編號(hào),s.DevId AS 設(shè)備編號(hào)," _ + "d.Name AS 設(shè)備名稱,d.Model AS 設(shè)備型號(hào)," _ + "t.TypeName AS 分配部門,s.EmpName AS 負(fù)責(zé)人," _ + "s.CreateDate AS 申請(qǐng)日期," _ + "

39、;IIF(s.Flag=1,'分配','分配確認(rèn)') AS 狀態(tài) " _ + " FROM Distribute s,Device d ,Types t " _ + " WHERE s.DevId=d.Id AND s.DeptId=t.Id " _ + SchCnd + " ORDER BY s.Id" Adodc1.Refresh '設(shè)置列寬度 Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 800 Da

40、taGrid1.Columns(1).Width = 1200 DataGrid1.Columns(2).Width = 1000 DataGrid1.Columns(3).Width = 1000 DataGrid1.Columns(4).Width = 1000 DataGrid1.Columns(5).Width = 1000 DataGrid1.Columns(6).Width = 1200 DataGrid1.Columns(7).Width = 800End Sub2、 Cmd_Add_Click過(guò)程Private Sub Cmd_Add_Click() '將Modify變

41、量設(shè)置為False，表示當(dāng)前狀態(tài)為插入新記錄 FrmDistributeEdit.Modify = False '初始化FrmDistributeEdit信息 FrmDistributeEdit.sDevId = "" FrmDistributeEdit.txtDate = Date FrmDistributeEdit.txtName = "" FrmDistributeEdit.dco_DeptId.Text = "" '配件操作和保存操作為不可用 FrmDistributeEdit.Cmd_Add.Enabled

42、= False FrmDistributeEdit.Cmd_Del.Enabled = False FrmDistributeEdit.Cmd_Save.Enabled = False FrmDistributeEdit.Frame2.Enabled = False '啟動(dòng)編輯窗體 FrmDistributeEdit.Show 1 '刷新DataGrid表格的內(nèi)容 GridRefreshEnd Sub3、 Cmd_Modi_Click過(guò)程Private Sub Cmd_Modi_Click() '修改 If Adodc1.Recordset.EOF = True The

43、n MsgBox "請(qǐng)選擇記錄" Exit Sub End If '將Modify變量設(shè)置為False，表示當(dāng)前狀態(tài)為插入新記錄 FrmDistributeEdit.Modify = True '初始化FrmDistributeEdit信息 FrmDistributeEdit.OriId = Adodc1.Recordset.Fields(0) FrmDistributeEdit.sDevId = Trim(Adodc1.Recordset.Fields(1) FrmDistributeEdit.txtDate = Trim(Adodc1.Recordset

44、.Fields(6) FrmDistributeEdit.txtName = Trim(Adodc1.Recordset.Fields(5) FrmDistributeEdit.dco_DeptId.Text = Trim(Adodc1.Recordset.Fields(4) '啟動(dòng)編輯窗體 FrmDistributeEdit.Show 1 '刷新DataGrid表格的內(nèi)容 GridRefreshEnd Sub4、 Cmd_Del_Click過(guò)程Private Sub Cmd_Del_Click() If Adodc1.Recordset.EOF = True Then Msg

45、Box "請(qǐng)選擇記錄" Exit Sub End If If MsgBox("是否確定要?jiǎng)h除 ", vbYesNo, "請(qǐng)確認(rèn)") = vbNo Then Exit Sub End If '刪除分配記錄 MyDistribute.Delete (Adodc1.Recordset.Fields(0) '根據(jù)分配編號(hào)刪除配件信息 MyAList.DeleteByDisId (Adodc1.Recordset.Fields(0) GridRefreshEnd Sub5、 Cmd_Dis_Click過(guò)程Private Sub

46、Cmd_Dis_Click() If Adodc1.Recordset.EOF = True Then MsgBox "請(qǐng)選擇記錄" Exit Sub End If If MsgBox("是否確定要確認(rèn)分配信息，確認(rèn)后將不能更改記錄信息", vbYesNo, "請(qǐng)確認(rèn)") = vbNo Then Exit Sub End If '更改分配表狀態(tài) MyDistribute.UpdateFlag (Adodc1.Recordset.Fields(0) '更改設(shè)備狀態(tài) MyDevice.UpdateStatus (Trim(

47、Adodc1.Recordset.Fields(1) '更改配件數(shù)量 MyAList.UpdateCount (Adodc1.Recordset.Fields(0) GridRefresh '刷新記錄End Sub6、 DataGrid1_RowColChange過(guò)程Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) '根據(jù)記錄的狀態(tài)判斷按鈕是否可用 If Trim(Adodc1.Recordset.Fields(7) = "分配確認(rèn)" Th

48、en Cmd_Modi.Enabled = False '修改按鈕不可用 Cmd_Del.Enabled = False '刪除按鈕不可用 Cmd_Dis.Enabled = False '分配確認(rèn)按鈕不可用 Else Cmd_Modi.Enabled = True '修改按鈕可用 Cmd_Del.Enabled = True '刪除按鈕可用 Cmd_Dis.Enabled = True '分配確認(rèn)按鈕可用 End IfEnd Sub4.2.2設(shè)備維護(hù)管理模塊設(shè)計(jì)設(shè)備維護(hù)管理模塊可以實(shí)現(xiàn)添加、修改和刪除設(shè)備維護(hù)信息。設(shè)計(jì)設(shè)備維護(hù)編輯

49、窗體設(shè)備維護(hù)編輯窗體FrmMntenanceEdit窗體布局如圖4-4。圖 4-4 窗體FrmMntenanceEdit窗體布局選擇按鈕代碼：Private Sub Cmd_DeviceSel_Click() FrmDeviceSel.nFlag = 1 '設(shè)置選擇設(shè)備 FrmDeviceSel.Show 1 '設(shè)備選擇窗體 '讀取指定對(duì)象信息 txtId = Trim(MyDeviceSel.Id) '設(shè)備編號(hào) txtName = Trim(MyDeviceSel.Name) '設(shè)備名稱 txtModel = Trim(MyDeviceSel.Mode

50、l) '設(shè)備型號(hào) '取得分類名稱 If MyType.GetInfo(MyDeviceSel.TypeId) = True Then txtTypeName = Trim(MyType.TypeName) Else txtTypeName = "" End If txtUnit = Trim(MyDeviceSel.Unit) '計(jì)量單位End Sub確定按鈕代碼：Private Sub Cmd_OK_Click() '檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtId) = 0 Then MsgBox ("請(qǐng)選擇設(shè)備&q

51、uot;) Cmd_DeviceSel.SetFocus Exit Sub End If If Len(Trim(txtMnName) = 0 Then MsgBox "請(qǐng)輸入維護(hù)人員" txtMnName.SetFocus Exit Sub End If If Len(Trim(txtMnDate) = 0 Then MsgBox "請(qǐng)輸入維護(hù)日期" txtMnDate.SetFocus Exit Sub End If '把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫(kù)對(duì)象變量中 With MyMaintenance .DevId = MakeStr(txtId)

52、 .MnName = MakeStr(txtMnName) .MnDate = MakeStr(txtMnDate) .MnSum = Val(txtMnSum) '根據(jù)變量Modify的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then .Insert Else .Update (OriId) End If End With '關(guān)閉窗口 Unload MeEnd Sub設(shè)計(jì)設(shè)備維護(hù)管理窗體設(shè)備維護(hù)管理窗體為FrmMntenance，窗體布局如圖4-5。圖4-5 FrmMntenance窗體布局GridRefresh過(guò)程Priv

53、ate Sub GridRefresh() If Len(Trim(txtName) = 0 Then SchCnd = "" Else SchCnd = " AND d.Name Like '%" + Trim(txtName) + "%'" End If Adodc1.ConnectionString = Conn Adodc1.RecordSource = "SELECT m.Id AS 編號(hào),m.DevId AS 設(shè)備編號(hào)," _ + "d.Name AS 設(shè)備名稱,d.Model

54、 AS 設(shè)備型號(hào),t.TypeName AS 分類," _ + "d.Unit AS 單位,m.MnSum AS 維護(hù)費(fèi)用," _ + "m.MnName AS 維護(hù)人員,m.MnDate AS 維護(hù)日期 " _ + " FROM Device d,Types t,Maintenance m " _ + " WHERE d.TypeId=t.Id AND m.DevId=d.Id " _ + SchCnd + " ORDER BY m.Id" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 800 DataGrid1.Columns(1).Width = 1200 DataGrid1.Columns(2).Width = 1200 DataGrid1.Columns(3).Width = 1200 Data