設(shè)備管理信息系統(tǒng)畢業(yè)論文

1、<p><b>　　畢業(yè)設(shè)計(jì)論文</b></p><p>　　課題 設(shè)備管理信息系統(tǒng)</p><p><b>　　目 錄</b></p><p>　　前言―――――――――――――――――――――――</p><p>　　摘要―――――――――――――――――――――――

2、</p><p><b>　　系統(tǒng)需求分析</b></p><p><b>　　第二章　系統(tǒng)設(shè)計(jì)</b></p><p><b>　　2．1系統(tǒng)方案確定</b></p><p><b>　　2．2系統(tǒng)功能實(shí)現(xiàn)</b></p><p>

3、;　　第三章 怎樣開(kāi)發(fā)一個(gè)人事工資管理系統(tǒng)？</p><p>　　3．1 編程環(huán)境的選擇3．2 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)3．3 二者的結(jié)合（DBA）</p><p>　　第四章 Visual basic下的控件所實(shí)現(xiàn)的功能</p><p>　　4．1實(shí)現(xiàn)菜單選項(xiàng)4．2 實(shí)現(xiàn)工具欄4．3 幫助第五章 系統(tǒng)總體規(guī)劃5．1 系統(tǒng)功能5．2 流程圖第六章 系統(tǒng)具體

4、實(shí)現(xiàn)6.1 用戶界面的實(shí)現(xiàn)</p><p>　　6.2 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)第七章 結(jié)束語(yǔ)</p><p>　　第八章 主要參考文獻(xiàn)</p><p>　　第九章 程序源代碼、各功能模塊的程序流程圖</p><p>　　--------------前言--------------</p><p>　　設(shè)備管理信息系統(tǒng)是一

5、個(gè)企事業(yè)單位不可缺少的部分,它的內(nèi)容對(duì)于企事業(yè)單位的決策者和管理者來(lái)說(shuō)都至關(guān)重要,所以設(shè)備管理信息系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵?xún)手段。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理設(shè)備的信息，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。本論文主要介紹的是設(shè)備管理信息系統(tǒng)的整個(gè)設(shè)計(jì)過(guò)程。</p><p>　　隨著計(jì)算機(jī)技術(shù)的不

6、斷發(fā)展，計(jì)算機(jī)應(yīng)用于各大領(lǐng)域，并給人們的生活帶來(lái)了極大的便利，在固定管理系統(tǒng)亦是如此。以往設(shè)備員由于缺乏適當(dāng)?shù)能浖o其工作帶來(lái)了很多不便。本論文所介紹的便是一個(gè)設(shè)備管理信息系統(tǒng)，以方便在設(shè)備安排和設(shè)備管理信息上的工作任務(wù)。</p><p>　　該系統(tǒng)適用于普通設(shè)備的管理，在使用上力求操作容易，界面美觀，另外，本系統(tǒng)具有較高的擴(kuò)展性和可維護(hù)性，可能在以后需要的時(shí)候進(jìn)行軟件升級(jí)。</p><p&

7、gt;　　整個(gè)系統(tǒng)的開(kāi)發(fā)過(guò)程嚴(yán)格遵循軟件工程的要求，做到模塊化分析、模塊化設(shè)計(jì)和代碼編寫(xiě)的模塊化。</p><p>　　作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)設(shè)備信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高設(shè)備管理信息的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。</p><p>

8、　　--------------摘要--------------</p><p>　　設(shè)備管理信息系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 經(jīng)過(guò)分析,我們使用 MICROSOFT公司的 VISUAL BASIC開(kāi)發(fā)工具,利用其提供的各種

9、面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。</p><p>　　整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成設(shè)備管理信息的全過(guò)程，包括每一物品，例如辦公設(shè)備、家具、計(jì)算機(jī)及其他有價(jià)值的設(shè)備分配一個(gè)唯一的物品編碼，并根據(jù)此編碼在計(jì)算機(jī)中建立設(shè)備信息庫(kù)，對(duì)

10、設(shè)備的新增、領(lǐng)用、折舊等進(jìn)行管理，使管理人員可對(duì)設(shè)備的流向進(jìn)行跟蹤，隨時(shí)掌握設(shè)備的現(xiàn)狀及公司雇員領(lǐng)用設(shè)備情況，減少設(shè)備丟失現(xiàn)象，解決查找、盤(pán)點(diǎn)困難等問(wèn)題，提高管理人員的工作效率。因此，開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開(kāi)發(fā)一套設(shè)備管理信息系統(tǒng)為例,談?wù)勂溟_(kāi)發(fā)過(guò)程和所涉及到的問(wèn)題及解決方法。</p><p>　　企業(yè)要想不斷提高設(shè)備的使用效率，并且在預(yù)期的時(shí)間內(nèi)收回所投資金和實(shí)現(xiàn)預(yù)期的投

11、資收益，就要加強(qiáng)設(shè)備管理信息。設(shè)備管理信息的主要內(nèi)容有： ? 設(shè)備日常管理? 設(shè)備使用效率管理? 設(shè)備投資規(guī)模變動(dòng)的邊際收入與邊際成本分析? 設(shè)備折舊管理</p><p>　　論文主要介紹了本課題的開(kāi)發(fā)背景，所要完成的功能和開(kāi)發(fā)的過(guò)程。重點(diǎn)的說(shuō)明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。</p><p>　　關(guān)鍵字：Visual Basic6.0，控件、窗體、數(shù)據(jù)庫(kù)，設(shè)備管理

12、信息</p><p><b>　　系統(tǒng)需求分析</b></p><p>　　1.1現(xiàn)行業(yè)務(wù)系統(tǒng)描述</p><p>　　設(shè)備管理信息對(duì)每個(gè)企業(yè)單位都是十分重要的工作，設(shè)備管理信息的好，可以使設(shè)備發(fā)揮最大效益，杜絕各種不良設(shè)備，反之則會(huì)造成生產(chǎn)資料利用率低下，甚至造成設(shè)備流失。 </p><p>　　本管理系統(tǒng)是為適應(yīng)于的

13、設(shè)備管理信息而開(kāi)發(fā)的軟件。從設(shè)備使用的角度管理設(shè)備，協(xié)助學(xué)校建立一套完善的數(shù)據(jù)管理模型，提供全面數(shù)據(jù)的編輯、查詢(xún)、系統(tǒng)管理等等功能，達(dá)到對(duì)設(shè)備科學(xué)管理的目的。</p><p>　　企業(yè)以前的有關(guān)設(shè)備管理的工作都是由人工來(lái)完成的。隨著企業(yè)的發(fā)展，企業(yè)設(shè)備處的設(shè)備管理信息工作量大大加重。隨著計(jì)算機(jī)應(yīng)用的發(fā)展，很多企業(yè)急切希望能夠?qū)⒋蟛糠址爆嵉墓ぷ鹘挥捎?jì)算機(jī)的處理，已減輕人工的壓力并提高工作效率。而計(jì)算機(jī)的普及更加快了

14、設(shè)備管理信息系統(tǒng)的產(chǎn)生。</p><p>　　上一代的設(shè)備管理信息系統(tǒng)主要采用Foxbase或FoxPro,系統(tǒng)開(kāi)發(fā)環(huán)境也是數(shù)據(jù)庫(kù)內(nèi)置的開(kāi)發(fā)工具。其特點(diǎn)是單機(jī)單用戶方式，開(kāi)發(fā)簡(jiǎn)單，能充分利用數(shù)據(jù)庫(kù)的特性。其缺點(diǎn)是開(kāi)發(fā)出的系統(tǒng)依賴(lài)性強(qiáng)，運(yùn)行必須依托數(shù)據(jù)庫(kù)環(huán)境；不容易升級(jí)與擴(kuò)展；無(wú)法實(shí)現(xiàn)數(shù)據(jù)的共享與并行操作；代碼重用性差。</p><p>　　原有設(shè)備管理信息系統(tǒng)數(shù)據(jù)共享差的問(wèn)題更加突出，而新

15、需求的提出也越來(lái)越多，越來(lái)越頻繁。這就要求系統(tǒng)在可擴(kuò)展性和標(biāo)準(zhǔn)化的要求更高。而原有的系統(tǒng)由于其與生俱來(lái)的缺點(diǎn)而無(wú)法在適應(yīng)現(xiàn)有的需求了。</p><p>　　因此，使用現(xiàn)在的新技術(shù)，開(kāi)發(fā)出適應(yīng)新的需求的新系統(tǒng)的任務(wù)刻不容緩。</p><p><b>　　1.2組織結(jié)構(gòu)</b></p><p>　　和設(shè)備管理信息系統(tǒng)由直接關(guān)系的主要是后勤管理處：&

16、lt;/p><p>　　是設(shè)備系統(tǒng)管理的主要部門(mén)，　承擔(dān)設(shè)備管理信息的集中管理。</p><p><b>　　1．3業(yè)務(wù)流程分析</b></p><p>　　設(shè)備管理信息系統(tǒng)是一個(gè)面向設(shè)備人員，為其提供服務(wù)的綜合信息管理系統(tǒng)。設(shè)備管理信息人員通過(guò)本系統(tǒng)完成相關(guān)的日常工作，這些工作也是平常較為繁重的工作。</p><p>　　

17、由設(shè)備人員在數(shù)據(jù)編輯中完成對(duì)運(yùn)行設(shè)備系統(tǒng)所需的基本數(shù)據(jù)的維護(hù)。包括這些信息的增加、修改、刪除等，變動(dòng)都將在這進(jìn)行操作。系統(tǒng)開(kāi)始投入使用時(shí)，設(shè)備管理信息人員應(yīng)先根據(jù)目前企業(yè)和單位的實(shí)際情況，建立相關(guān)設(shè)備的信息，當(dāng)設(shè)備情況發(fā)生變動(dòng)后，設(shè)備人員要及時(shí)完成對(duì)庫(kù)中的信息進(jìn)行維護(hù)。因?yàn)槠髽I(yè)的設(shè)備數(shù)量會(huì)不斷增多，因此特別設(shè)立了一個(gè)數(shù)據(jù)查詢(xún)模塊，可以進(jìn)行相關(guān)設(shè)備的快速查詢(xún)。</p><p>　　1.4現(xiàn)行系統(tǒng)存在的主要問(wèn)題分析&

18、lt;/p><p>　　現(xiàn)行系統(tǒng)的主要問(wèn)題歸納起來(lái)主要有，</p><p>　　1. 單機(jī)單用戶系統(tǒng)，隨著網(wǎng)絡(luò)的發(fā)展，原有的單機(jī)單用戶系統(tǒng)已遠(yuǎn)遠(yuǎn)不能滿足需要。同時(shí)，原有的數(shù)據(jù)庫(kù)也不支持多用戶的網(wǎng)絡(luò)運(yùn)行環(huán)境。</p><p>　　2．系統(tǒng)獨(dú)立性差，原有系統(tǒng)一般都是使用數(shù)據(jù)庫(kù)提供的開(kāi)發(fā)工具編寫(xiě)的程序，因此收數(shù)據(jù)庫(kù)的制約比較大，編寫(xiě)出來(lái)的程序性能也不好。特別是無(wú)法支持如Acc

19、ess, MS SQL Server等新的數(shù)據(jù)庫(kù)。</p><p>　　3．模塊性差，由于不是一個(gè)完整的編程語(yǔ)言，故無(wú)法做到代碼的模塊化，給功能的擴(kuò)展帶來(lái)了巨大的不便。</p><p>　　1.5提出可能的解決方案</p><p>　　鑒于目前企業(yè)對(duì)設(shè)備管理信息系統(tǒng)的需求與實(shí)際情況，新系統(tǒng)方案的重點(diǎn)放在系統(tǒng)的可擴(kuò)展性上，為了實(shí)現(xiàn)這一設(shè)計(jì)，新系統(tǒng)應(yīng)具備以下幾方面的要求

20、：</p><p>　　1．新系統(tǒng)采用Visual Basic 6.0開(kāi)發(fā)成功，充分利用該開(kāi)發(fā)程序的優(yōu)勢(shì)，提高了工作效率。</p><p>　　2．新系統(tǒng)從設(shè)計(jì)到實(shí)現(xiàn)都應(yīng)遵循模塊化，是用一致的接口進(jìn)行信息的傳遞與模塊調(diào)用。模塊的劃分應(yīng)盡量符合實(shí)際業(yè)務(wù)的劃分，以保證以后新模塊的加入盡可能少的影響現(xiàn)有功能模塊的運(yùn)行。</p><p>　　3、新系統(tǒng)所具有的特性：<

21、/p><p>　?。ㄓ眯裕河脩艨筛鶕?jù)本校的需求靈活設(shè)置設(shè)備類(lèi)別及其數(shù)據(jù)庫(kù)結(jié)構(gòu)，可滿足不同層次，不同性質(zhì)，不同業(yè)務(wù)工作的需求。</p><p>　?。獦?biāo)準(zhǔn)化：提供了豐富完善的設(shè)備管理信息內(nèi)容，為各級(jí)設(shè)備部門(mén)之間的數(shù)據(jù)共享及數(shù)據(jù)交換奠定了良好的基礎(chǔ)。</p><p>　?。冗M(jìn)性：采用面向?qū)ο蠹夹g(shù)開(kāi)發(fā)，適應(yīng)計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)發(fā)展趨勢(shì)，運(yùn)行在windows環(huán)境下，界面友好操作方

22、便。</p><p>　　＊實(shí)用性：具有操作簡(jiǎn)便、功能適中等特點(diǎn)，運(yùn)行速度快。</p><p>　　1.6可行性分析與決策</p><p>　　對(duì)于新系統(tǒng)設(shè)計(jì)的幾個(gè)關(guān)鍵技術(shù)的可行性分析如下，</p><p>　　1．新系統(tǒng)目前使用VB6.0自帶的數(shù)據(jù)庫(kù)來(lái)作為數(shù)據(jù)庫(kù)，這是一個(gè)支持多用戶的新型數(shù)據(jù)庫(kù)，適用于中小規(guī)模的數(shù)據(jù)量需求。企業(yè)網(wǎng)的建設(shè)也為新

23、系統(tǒng)服務(wù)器/客戶端的結(jié)構(gòu)提供了硬件的支持。</p><p>　　2．現(xiàn)在，市場(chǎng)上可以選購(gòu)的應(yīng)用開(kāi)發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國(guó)市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開(kāi)發(fā)工具的產(chǎn)品有：</p><p>　　Microsoft公司的Visual Basic，Microsoft公司的Visual C，</p><p>　　Borland公司的Delph

24、i ，Powersoft公司的PowerBulider</p><p>　　在目前市場(chǎng)上這些眾多的程序開(kāi)發(fā)工具中，有些強(qiáng)調(diào)程語(yǔ)言的彈性與執(zhí)行效率；有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語(yǔ)言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒(méi)有彈性的語(yǔ)言作支持，許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來(lái)處理，使得原來(lái)所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了

25、作用；相反，如果只強(qiáng)調(diào)程語(yǔ)言的彈性，卻沒(méi)有便利的工具作配合，會(huì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。</p><p>　　作為數(shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)，Visual Basic是一個(gè)非常理想選擇。數(shù)據(jù)庫(kù)是MIS中的重要支持技術(shù)，在MIS開(kāi)發(fā)過(guò)程中，如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問(wèn)題，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫(kù)時(shí)，應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)及適用

26、范圍，本系統(tǒng)選用的數(shù)據(jù)庫(kù)語(yǔ)言Visual Basic語(yǔ)言，該開(kāi)發(fā)工具具有很多長(zhǎng)處：</p><p>　　Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā)Windows環(huán)境下的種類(lèi)應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專(zhuān)業(yè)開(kāi)發(fā)工具SDK相媲美，而且程序開(kāi)發(fā)人員不必具有C/C++編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)

27、制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn)(ODBC)等技術(shù)，可以高效、快速地開(kāi)發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>　　總的來(lái)說(shuō)，Visual Basic具有以下特點(diǎn)：</p><p><b>　　可視化編

28、程：</b></p><p>　　用傳統(tǒng)程序設(shè)計(jì)語(yǔ)言設(shè)計(jì)程序時(shí)，都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來(lái)，開(kāi)發(fā)人員不必為界面設(shè)計(jì)而編寫(xiě)

29、大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫(huà)出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。</p><p><b>　　面向?qū)ο蟮某绦蛟O(shè)計(jì)</b></p><p>　　4.0版以后的Visual Basic支持

30、面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。每個(gè)對(duì)象

31、以圖形方式顯示在界面上，都是可視的。</p><p><b>　　結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言</b></p><p>　　Visual Basic是在BASIC語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，接近于自然語(yǔ)言和人類(lèi)的邏輯思維方式。Visual Basic語(yǔ)句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語(yǔ)法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器

32、。</p><p>　　Visual Basic是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。</p><p><b>　　事件

33、驅(qū)動(dòng)編程機(jī)制</b></p><p>　　Visual Basic通過(guò)事件來(lái)執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊“(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。</p><p>　　在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始

34、和結(jié)束的程序，而是編寫(xiě)若干個(gè)微小的子程序，即過(guò)程。這些過(guò)程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。</p><p><b>　　訪問(wèn)數(shù)據(jù)庫(kù)</b></p><p>　　Visual Basic具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或

35、處理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編輯和處理。</p><p>　　Visual Basic提供開(kāi)放式數(shù)據(jù)連接，即ODBC功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server

36、，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢(xún)語(yǔ)言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。</p><p>　　動(dòng)態(tài)數(shù)據(jù)交換(DDE)</p><p>　　利用動(dòng)態(tài)數(shù)據(jù)

37、交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。</p><p>　　對(duì)象的鏈接與嵌入(OLE)</p>

38、<p>　　對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compo

39、und document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。</p><p>　　動(dòng)態(tài)鏈接庫(kù)(DLL)</p><p>　　Visual Basic是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C++或匯編語(yǔ)言編寫(xiě)的程序加入到Visua

40、l Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。此外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。</p><p>　　綜上所述，新系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，新系統(tǒng)的開(kāi)發(fā)是可行的。</p><p><b>　　第二章　系統(tǒng)設(shè)計(jì)</b></p><p&

41、gt;　　------系統(tǒng)方案設(shè)定</p><p>　　企業(yè)在充分認(rèn)識(shí)到設(shè)備管理信息的重要性下，即使在管理系統(tǒng)的支持下，設(shè)備標(biāo)簽的制定、填寫(xiě)或打印、粘貼、設(shè)備狀態(tài)的跟蹤，盤(pán)點(diǎn)等工作的性質(zhì)和工作量并沒(méi)有得到良好的改變和改進(jìn)。設(shè)備管理信息還是手工和計(jì)算機(jī)管理相結(jié)合。 設(shè)備投資是社會(huì)維持簡(jiǎn)單再生產(chǎn)和擴(kuò)大再生產(chǎn)的主要手段，適度的投資規(guī)模和合理的投資結(jié)構(gòu)對(duì)于實(shí)現(xiàn)國(guó)家經(jīng)濟(jì)發(fā)展戰(zhàn)略具有重大意義。及時(shí)、準(zhǔn)確、完整地獲得全社

42、會(huì)投資規(guī)模、結(jié)構(gòu)和效益以及前景預(yù)測(cè)的有關(guān)信息，是國(guó)家建立宏觀調(diào)控機(jī)制、制定產(chǎn)業(yè)政策、提高決策水平、實(shí)現(xiàn)全社會(huì)總供給與總需求的積極平衡和社會(huì)資源合理分配的重要條件?！　?目前企業(yè)對(duì)設(shè)備投資的管理主要是采用書(shū)面文字記錄為主、電腦 EXECL 表格統(tǒng)計(jì)為輔的方法，隨著工作的發(fā)展，這種管理的局限性日益突出出來(lái)。主要表現(xiàn)在記錄、檢索和統(tǒng)計(jì)時(shí)十分不便。　　 為全面加強(qiáng)對(duì)設(shè)備投資的宏觀管理和指導(dǎo)，企業(yè)建立設(shè)備管理信息信息系統(tǒng)，對(duì)企業(yè)宏觀經(jīng)濟(jì)進(jìn)行快

43、速檢索和統(tǒng)計(jì)是必需的?！　?本系統(tǒng)是一個(gè)由多項(xiàng)數(shù)據(jù)組成的相互緊密關(guān)聯(lián)的開(kāi)放性系統(tǒng)，既有項(xiàng)目數(shù)據(jù)、又有文檔數(shù)據(jù)。建設(shè)這一系統(tǒng)應(yīng)當(dāng)系統(tǒng)地規(guī)劃設(shè)備投資管理體系，健全設(shè)備投資管理數(shù)據(jù)標(biāo)準(zhǔn)，如行業(yè)分類(lèi)標(biāo)準(zhǔn)、分</p><p>　　――――――系統(tǒng)實(shí)現(xiàn)功能</p><p>　　《設(shè)備管理信息系統(tǒng)》是一套對(duì)設(shè)備檔案、增加、折舊、維修、盤(pán)存、清理、轉(zhuǎn)讓等進(jìn)行全面管理的系統(tǒng)。  &#

44、160; 該系統(tǒng)通過(guò)采集設(shè)備日常工作中所產(chǎn)生的各種原始數(shù)據(jù)，根據(jù)設(shè)備管理的要求，對(duì)數(shù)據(jù)進(jìn)行分類(lèi)、統(tǒng)計(jì)、匯總、分析，建立程序化、制度化、規(guī)范化的設(shè)備計(jì)算機(jī)軟件管理系統(tǒng)，包括了設(shè)備的一般特性、設(shè)備狀態(tài)數(shù)據(jù)和設(shè)備能力數(shù)據(jù)，及時(shí)準(zhǔn)確地報(bào)出各種報(bào)表，為設(shè)備管理信息提供了一個(gè)現(xiàn)代化的管理手段，這一手段可以強(qiáng)化和規(guī)范對(duì)設(shè)備的管理。便于計(jì)劃、財(cái)務(wù)、審計(jì)等管理部門(mén)的介入，形成嚴(yán)格的監(jiān)督、約束機(jī)制。    

45、;該系統(tǒng)集信息采集、分類(lèi)、匯總、分析、查詢(xún)、統(tǒng)計(jì)等各種處理為一體，各種操作既可以通過(guò)菜單進(jìn)行，又可以通過(guò)系統(tǒng)的管理樹(shù)導(dǎo)航進(jìn)行。信息分類(lèi)全面，樹(shù)形管理方便，操作快捷簡(jiǎn)單，性能強(qiáng)大高效。全中文操作界面，無(wú)需計(jì)算機(jī)專(zhuān)業(yè)知識(shí)，使用易懂、易會(huì)。別具一格的查詢(xún)統(tǒng)計(jì)為您提供了更多的方便！系統(tǒng)支持用戶任意修改設(shè)計(jì)，也可讓我們幫您完成。</p><p><b>　　設(shè)備管理信息 </b></p>

46、<p>　　第三章.Visual basic下的控件所實(shí)現(xiàn)的功能</p><p>　　Windows下的Visual Basic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。開(kāi)發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說(shuō)擴(kuò)展性和強(qiáng)有力的功能。</p><p>　　Visual Basic應(yīng)用由一系列對(duì)象組成

47、，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。</p><p><b>　　_實(shí)現(xiàn)菜單選項(xiàng)</b></p><p>　　菜單是程序最重要的特性之一，大多數(shù)程序都依賴(lài)一個(gè)定義良好的菜單使程序易于使用和維護(hù)，Visual Basic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)

48、準(zhǔn)。</p><p>　　您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。 </p><p><b>　　_ 實(shí)現(xiàn)工具欄</b></p><p>　　CoolBar控件與Office97種看到的CoolBar是類(lèi)似的。CoolBar就是一個(gè)可

49、以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過(guò)在CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。</p><p>　　Toolbar 是工具條控件，是實(shí)現(xiàn)工具條的主體。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。Toolbar也是一個(gè)控件容器且具有Style屬性，并可以為其增加下拉按鈕和平滑按鈕等。</p>&

50、lt;p>　　選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其屬性及對(duì)象如下： </p><p>　　1． Align屬性定義工具條在窗體中的位置</p><p>　　2． ToolTipText屬性是字符串類(lèi)型，定義控件的提示字符</p&g

51、t;<p>　　3． Style屬性定義按鈕外觀。</p><p>　　4． ImageList屬性定義與數(shù)據(jù)條對(duì)應(yīng)的ImageList控件名，該控件定義工具條按鈕顯示的圖像。</p><p>　　5． HotImangeList屬性設(shè)置一個(gè)ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。</p><p>　　6． DisabledIma

52、geList屬性定義工具條按鈕無(wú)效時(shí)顯示的圖像。</p><p>　　創(chuàng)建工具條包括ImageList和Toolbar控件</p><p>　　ImageList用于為其他控件提供圖像庫(kù)，將ImageList控件加入到工具箱的操作于前述Toolbar控件相同。</p><p><b>　　_ 幫助</b></p><p>

53、;　　專(zhuān)業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無(wú)論寫(xiě)出來(lái)的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助文檔。微軟的Help Workshop4.0 是一套獨(dú)立于Visual Basic 的用來(lái)協(xié)助我們創(chuàng)建、運(yùn)行于32位Windows 操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫(xiě)的應(yīng)用程序生成一組幫助文件。</p><p><b>　　

54、_ 關(guān)于版本</b></p><p>　　為了是程序顯得更具有專(zhuān)業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信息。這些信息包括公司名稱(chēng)、版本號(hào)、修訂號(hào)以及其他類(lèi)似信息。Visual Basic允許你使用APP對(duì)象來(lái)保存這些信息，APP對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來(lái)提供常規(guī)的信息，通過(guò)使用這些APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)目屬性

55、框中可以設(shè)置它的屬性。</p><p>　　第四章.使用Access2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)</p><p><b>　　數(shù)據(jù)庫(kù)的概念</b></p><p>　　數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類(lèi)：非關(guān)系數(shù)據(jù)庫(kù)（flat-file）和關(guān)系數(shù)據(jù)

56、庫(kù)（relational）。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。 </p><p><b>　　_ 新建一個(gè)數(shù)據(jù)庫(kù)</b></p><p>　　創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。</p><p>　　1． 標(biāo)識(shí)需要的

57、數(shù)據(jù)；</p><p>　　2． 收集被標(biāo)識(shí)的字段到表中；</p><p>　　3． 標(biāo)識(shí)主關(guān)鍵字字段；</p><p>　　4． 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；</p><p><b>　　5． 規(guī)范數(shù)據(jù)；</b></p><p>　　6． 標(biāo)識(shí)指定字段的信息；</p><p>

58、;<b>　　7． 創(chuàng)建物理表。</b></p><p>　　_ 修改已建的數(shù)據(jù)庫(kù)</p><p>　　數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。</p><p>　　_ 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系</p><p>　　數(shù)據(jù)庫(kù)之間的關(guān)

59、系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱(chēng)為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類(lèi)型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類(lèi)型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。<

60、;/p><p>　　第五章.系統(tǒng)總體規(guī)劃</p><p><b>　　_ 系統(tǒng)功能</b></p><p>　　1． 可以進(jìn)行文本操作；</p><p>　　2． 添加一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；</p><p>　　3． 刪除一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；</p><p>　　4． 修改一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目

61、；</p><p><b>　　5． 查詢(xún)信息</b></p><p><b>　　6 系統(tǒng)維護(hù)</b></p><p>　　6.1系統(tǒng)數(shù)據(jù)轉(zhuǎn)出 </p><p>　　6.2系統(tǒng)數(shù)據(jù)轉(zhuǎn)入 </p><p>　　6.3修改系統(tǒng)密碼 </p><p>

62、<b>　　6.4數(shù)據(jù)初始化</b></p><p><b>　　7幫助</b></p><p><b>　　8 退出</b></p><p>　　第六章 系統(tǒng)具體實(shí)現(xiàn)</p><p><b>　　主界面實(shí)現(xiàn)：</b></p><p&g

63、t;　　功能：對(duì)所有設(shè)備進(jìn)行添加，查詢(xún)，修改，刪除操作，對(duì)用戶密碼進(jìn)行修改，對(duì)每條設(shè)備信息進(jìn)行打印。</p><p>　　數(shù)據(jù)編緝界面實(shí)現(xiàn)功能：</p><p>　　對(duì)于設(shè)備的編號(hào)，設(shè)備名稱(chēng)，設(shè)備型號(hào)，制造商，國(guó)別，購(gòu)買(mǎi)日期，單價(jià)，數(shù)量，使用單位，使用人，管理員，放置地點(diǎn)，已使用年限，設(shè)備來(lái)源，報(bào)年限，聯(lián)系電話等記錄進(jìn)行錄入，刪除，修改，打印操作！</p><p>

64、　　數(shù)據(jù)查詢(xún)界面與功能簡(jiǎn)介</p><p>　　實(shí)現(xiàn)對(duì)在所有的設(shè)備記錄中查找某一個(gè)設(shè)備的說(shuō)細(xì)信息，也可在查詢(xún)完一個(gè)后點(diǎn) 擊</p><p>　　下一個(gè)按鈕對(duì)下一條記錄進(jìn)行查詢(xún)。</p><p><b>　　第七章．結(jié)束語(yǔ)</b></p><p>　　經(jīng)過(guò)一個(gè)多月的設(shè)計(jì)和開(kāi)發(fā)，設(shè)備管理信息系統(tǒng)基本開(kāi)發(fā)完畢。其功能基本符合用

65、戶需求，能夠?qū)崿F(xiàn)固設(shè)備的基本信息的錄入、更新、刪除、打印等基本功能，從而實(shí)現(xiàn)設(shè)備的管理。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問(wèn)題。這些都有待進(jìn)一步改善。 </p><p><b>　　致謝</b></p><p>　　在本次畢業(yè)設(shè)計(jì)中，

66、我從指導(dǎo)老師身上學(xué)到了很多東西。老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。</p><p>　　另外，在系統(tǒng)開(kāi)發(fā)過(guò)程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 </p&

67、gt;<p>　　第八章．主要參考文獻(xiàn)</p><p>　　[1] Visual Basic 6.0 使用指南 </p><p>　　作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.</p><p>　　出版社：電子工業(yè)出版社</p><p>　　[2] 中文版Micros

68、oft Office 97 自學(xué)通</p><p>　　作者：Ned Snell</p><p>　　出版社：機(jī)械工業(yè)出版社</p><p>　　[3] Visual Basic 6.0 中文版控件大全</p><p>　　作者：Microsoft</p><p>　　出版社；電子工業(yè)出版社</p>&l

69、t;p>　　[4] 中文Access 2000 24學(xué)時(shí)教程 </p><p>　　作者：Craig Eddy ，Timothy Buchanan</p><p>　　出版社：機(jī)械工業(yè)出版社</p><p>　　程序源代碼、各功能模塊的程序流程圖</p><p>　　――――登錄界面源代碼：</p><p>　　

70、Private Sub Command1_Click()</p><p>　　If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then</p><p>　　Form2.Show</p><p><b>　　Unload Me</b>&l

71、t;/p><p><b>　　Else</b></p><p>　　For X = 1 To 1</p><p>　　If A1.Recordset.EOF = True Then</p><p>　　MsgBox "您輸入的用戶名和密碼有誤，請(qǐng)重新輸入！", 16, "出錯(cuò)："<

72、;/p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　A1.Recordset.AbsolutePosition = 1</p><p><b>　　Else</b></p><p>　　If

73、 Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then</p><p>　　MDIForm1.Show</p><p>　　MDIForm1.Print Command1.Tag</p><p>　　MDIForm1.Tag = Text1.Text</

74、p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p><b>　　X = X - 1</b></p><p>　　A1.Recordset.MoveNext</p><p><b>　　E

75、nd If</b></p><p><b>　　End If</b></p><p><b>　　Next X</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

76、<p>　　Private Sub Command2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　If A1.Record

77、set.EOF = True And A1.Recordset.BOF = True Then</p><p>　　MsgBox "您是第一次使用本程序，請(qǐng)?jiān)O(shè)置超級(jí)用戶！", 32, "設(shè)置："</p><p>　　Form2.Show</p><p><b>　　Unload Me</b></p&

78、gt;<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　――――系統(tǒng)主界面代碼：</p><p>　　Private Sub gycx_Click()</p><p>　　frmAbout.Show</p>

79、<p><b>　　End Sub</b></p><p>　　Private Sub sjbj_Click()</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub sjcx_Click()</p&

80、gt;<p>　　Form5.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub sjdy_Click()</p><p>　　Form4.Show</p><p><b>　　End Sub</b></p><

81、p>　　Private Sub tc_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

82、</p><p>　　Select Case Button.Index</p><p><b>　　Case 1</b></p><p>　　Form3.Show</p><p><b>　　Case 2</b></p><p>　　Form5.Show</p>

83、<p><b>　　Case 3</b></p><p>　　Form2.Show</p><p><b>　　Case 4</b></p><p>　　Form4.Show</p><p><b>　　Case 5</b></p><p>

84、　　frmAbout.Show</p><p><b>　　Case 6</b></p><p><b>　　Unload Me</b></p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　―

85、―――設(shè)備信息代碼</p><p>　　Private Sub Command1_Click()</p><p>　　If Command1.Tag = "True" Then</p><p>　　If Command1.Caption = "輸入新記錄" Then</p><p><b>　

86、　r = 1</b></p><p>　　If A1.Recordset.BOF = True And A1.Recordset.EOF = True Then</p><p><b>　　Else</b></p><p>　　A1.Recordset.MoveFirst</p><p><b>　

87、　End If</b></p><p>　　For X = 1 To 1</p><p>　　If A1.Recordset.EOF = True Then</p><p>　　A1.Tag = Y</p><p><b>　　Exit For</b></p><p><b>

88、;　　Else</b></p><p>　　A1.Recordset.MoveNext</p><p><b>　　End If</b></p><p><b>　　X = X - 1</b></p><p><b>　　r = r + 1</b></p>

89、;<p><b>　　Next X</b></p><p>　　A1.Recordset.AddNew</p><p>　　Label3.Caption = r</p><p>　　Command1.Caption = "輸入完畢"</p><p>　　Command2.Enabled

90、= False</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p>　　Command5.Enabled = False</p><p>　　Form3.Height = 8220</p><p>　　Form3.T

91、op = 300</p><p>　　F1.Visible = True</p><p><b>　　Else</b></p><p>　　If t3(0).Text = "" Then</p><p>　　MsgBox "設(shè)備不能為空！", 16, "出錯(cuò)："

92、</p><p>　　t3(0).Text = "123"</p><p>　　A1.Recordset.Delete</p><p>　　Command1.Caption = "輸入新記錄"</p><p>　　Command2.Enabled = True</p><p>　

93、　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Form3.Height = 5728</p><p>　　Form3.Left = 600</p><p>　　

94、Form3.Top = 1500</p><p>　　F1.Visible = False</p><p><b>　　Else</b></p><p>　　For X = 11 To 13</p><p>　　If Len(Trim(t3(X).Text)) > 200 Then</p><p

95、>　　MsgBox "字符不能超過(guò)200個(gè)！", 16, "出錯(cuò)："</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　Next X</b></p><p

96、>　　A1.Recordset.MovePrevious</p><p>　　A1.Recordset.MoveNext</p><p>　　Command1.Caption = "輸入新記錄"</p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled

97、= True</p><p>　　Command4.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Form3.Height = 5728</p><p>　　F1.Visible = False</p><p>　　Form3.Left = 600

98、</p><p>　　Form3.Top = 1500</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "您沒(méi)有

99、這個(gè)權(quán)限！", 16, "出錯(cuò)："</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p><p>　　For X = 0 To 6&l

100、t;/p><p>　　If A1.Recordset.EOF = True Then</p><p>　　MsgBox "您已經(jīng)位于最后一條記錄", 32, "提示："</p><p>　　A1.Recordset.MovePrevious</p><p><b>　　Exit Sub</b

101、></p><p><b>　　Else</b></p><p>　　A1.Recordset.MoveNext</p><p><b>　　End If</b></p><p><b>　　Next X</b></p><p><b>

102、　　End Sub</b></p><p>　　Private Sub Command11_Click()</p><p>　　Form10.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><

103、;p>　　Private Sub Command2_Click()</p><p>　　If Command2.Tag = "True" Then</p><p>　　If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then</p><p>　　MsgBox "您的數(shù)據(jù)

104、庫(kù)中沒(méi)有記錄！", 16, "出錯(cuò)："</p><p><b>　　Else</b></p><p>　　If Command2.Caption = "查詢(xún)" Then</p><p>　　Command8.Caption = "顯示信息"</p><p&

105、gt;　　Form3.Top = 700</p><p>　　Form3.Height = 5670</p><p>　　Command2.Caption = "結(jié)束查詢(xún)"</p><p>　　F3.Visible = True</p><p>　　Command1.Enabled = False</p>&

106、lt;p>　　Command4.Enabled = False</p><p>　　Command3.Enabled = False</p><p><b>　　Else</b></p><p>　　A1.Recordset.MoveFirst</p><p>　　Command2.Caption = "

107、查詢(xún)"</p><p>　　Command8.Caption = "打印"</p><p>　　Form3.Top = 1500</p><p>　　Form3.Height = 5728</p><p>　　Form3.Left = 600</p><p>　　Command1.Enab

108、led = True</p><p>　　Command4.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　F3.Visible = False</p><p><b>　　End If</b></p><p><b>

109、;　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "您沒(méi)有這個(gè)權(quán)限！", 16, "出錯(cuò)："</p><p><b>　　End If</b></p><p><b>　　End

110、Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　If Command1.Tag = "True" Then</p><p>　　If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then</p>

111、<p>　　MsgBox "您的數(shù)據(jù)庫(kù)中沒(méi)有記錄！", 16, "出錯(cuò)："</p><p><b>　　Else</b></p><p>　　If Command3.Caption = "修改記錄" Then</p><p>　　Command3.Caption = &quo

112、t;修改完畢"</p><p>　　Command2.Enabled = False</p><p>　　Command1.Enabled = False</p><p>　　Command4.Enabled = False</p><p>　　Command5.Enabled = False</p><p>

113、;　　Form3.Height = 8220</p><p>　　Form3.Top = 300</p><p>　　F1.Visible = True</p><p>　　F1.Caption = "修改記錄："</p><p><b>　　Else</b></p><p>

114、　　If t3(0).Text = "" Then</p><p>　　MsgBox "設(shè)備不能為空！", 16, "出錯(cuò)："</p><p><b>　　Else</b></p><p>　　For X = 11 To 13</p><p>　　If Len(

115、Trim(t3(X).Text)) > 200 Then</p><p>　　MsgBox "字符不能超過(guò)200個(gè)！", 16, "出錯(cuò)："</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p

116、><b>　　Next X</b></p><p>　　Command3.Caption = "修改記錄"</p><p>　　Command2.Enabled = True</p><p>　　Command1.Enabled = True</p><p>　　Command4.Enabled

117、 = True</p><p>　　Command5.Enabled = True</p><p>　　Form3.Height = 5728</p><p>　　Form3.Left = 600</p><p>　　Form3.Top = 1500</p><p>　　F1.Visible = False</p

118、><p>　　F1.Caption = "數(shù)據(jù)輸入："</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>

119、;　　Else</b></p><p>　　MsgBox "您沒(méi)有這個(gè)權(quán)限！", 16, "出錯(cuò)："</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub

120、Command4_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　If Command1.Tag = "True&q

121、uot; Then</p><p>　　If A1.Recordset.EOF = True Or A1.Recordset.BOF = True Then</p><p>　　MsgBox "您的數(shù)據(jù)庫(kù)中沒(méi)有記錄可以刪除！", 16, "出錯(cuò)："</p><p><b>　　Else</b></p

122、><p>　　A1.Recordset.Delete</p><p><b>　　Y = 1</b></p><p>　　A1.Recordset.MoveFirst</p><p>　　For X = 1 To 1</p><p>　　If A1.Recordset.EOF = True Then&

123、lt;/p><p>　　If A1.Recordset.BOF = True Then</p><p><b>　　Else</b></p><p>　　A1.Recordset.MoveFirst</p><p><b>　　End If</b></p><p><b&g

124、t;　　Exit For</b></p><p><b>　　Else</b></p><p>　　Label3.Caption = Y</p><p>　　A1.Recordset.MoveNext</p><p><b>　　Y = Y + 1</b></p><

125、p><b>　　X = X - 1</b></p><p><b>　　End If</b></p><p><b>　　Next X</b></p><p><b>　　End If</b></p><p><b>　　Else</