設(shè)備管理系統(tǒng)(論文+開題報(bào)告+源碼)

《設(shè)備管理系統(tǒng)(論文+開題報(bào)告+源碼)》由會(huì)員分享，可在線閱讀，更多相關(guān)《設(shè)備管理系統(tǒng)(論文+開題報(bào)告+源碼)（30頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、大學(xué)畢業(yè)設(shè)計(jì)論文 課題 設(shè)備管理信息系統(tǒng) 姓 名 學(xué) 科 專 業(yè) 計(jì)算機(jī)網(wǎng)絡(luò) 指 導(dǎo) 教 師 學(xué) 號(hào) 12 日期: 2009年5月 目 錄 前言――――――――――――――――――――――― 摘要――――――――――――――――――――――― 第一章 系統(tǒng)需求分析 第二章　系統(tǒng)設(shè)計(jì) 2．1系統(tǒng)方案確定 2．2系統(tǒng)功能實(shí)現(xiàn) 第三章 怎樣開發(fā)

2、一個(gè)人事工資管理系統(tǒng)？ 3．1 編程環(huán)境的選擇 3．2 關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn) 3．3 二者的結(jié)合（DBA） 第四章 Visual basic下的控件所實(shí)現(xiàn)的功能 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)具體實(shí)現(xiàn) 6.1 用戶界面的實(shí)現(xiàn) 6.2 數(shù)據(jù)庫的實(shí)現(xiàn) 第七章 結(jié)束語 第八章 主要參考文獻(xiàn) 第九章 程序源代碼、各功能模塊的程序流程圖 --------------前言-------------- 設(shè)備管理信息系統(tǒng)是一個(gè)企事業(yè)單位不可缺少的部分,它的內(nèi)

3、容對(duì)于企事業(yè)單位的決策者和管理者來說都至關(guān)重要,所以設(shè)備管理信息系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理設(shè)備的信息，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。本論文主要介紹的是設(shè)備管理信息系統(tǒng)的整個(gè)設(shè)計(jì)過程。 隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)應(yīng)用于各大領(lǐng)域，并給人們的生活帶來了極大的便利，在固定管理系統(tǒng)亦是如此。以往設(shè)備員由于缺乏適當(dāng)?shù)能浖o其工作帶來了很多不便。本論文所介紹的便是一個(gè)設(shè)備管理信息系統(tǒng)，以方便在設(shè)備安排和設(shè)備管理信息上的工作任務(wù)。 該系統(tǒng)適

4、用于普通設(shè)備的管理，在使用上力求操作容易，界面美觀，另外，本系統(tǒng)具有較高的擴(kuò)展性和可維護(hù)性，可能在以后需要的時(shí)候進(jìn)行軟件升級(jí)。 整個(gè)系統(tǒng)的開發(fā)過程嚴(yán)格遵循軟件工程的要求，做到模塊化分析、模塊化設(shè)計(jì)和代碼編寫的模塊化。 作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)設(shè)備信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高設(shè)備管理信息的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。 --------------摘要-------------- 設(shè)備管理信息系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主

5、要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。 整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成設(shè)備管理信息的全過程，包括每一物品，例如辦公設(shè)備、家具、計(jì)算機(jī)及其他有

6、價(jià)值的設(shè)備分配一個(gè)唯一的物品編碼，并根據(jù)此編碼在計(jì)算機(jī)中建立設(shè)備信息庫，對(duì)設(shè)備的新增、領(lǐng)用、折舊等進(jìn)行管理，使管理人員可對(duì)設(shè)備的流向進(jìn)行跟蹤，隨時(shí)掌握設(shè)備的現(xiàn)狀及公司雇員領(lǐng)用設(shè)備情況，減少設(shè)備丟失現(xiàn)象，解決查找、盤點(diǎn)困難等問題，提高管理人員的工作效率。因此，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開發(fā)一套設(shè)備管理信息系統(tǒng)為例,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。 企業(yè)要想不斷提高設(shè)備的使用效率，并且在預(yù)期的時(shí)間內(nèi)收回所投資金和實(shí)現(xiàn)預(yù)期的投資收益，就要加強(qiáng)設(shè)備管理信息。設(shè)備管理信息的主要內(nèi)容有： ? 設(shè)備日常管理 ? 設(shè)備使用效率管理 ? 設(shè)備投資規(guī)模變動(dòng)的

7、邊際收入與邊際成本分析 ? 設(shè)備折舊管理 論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。重點(diǎn)的說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。 關(guān)鍵字：Visual Basic6.0，控件、窗體、數(shù)據(jù)庫，設(shè)備管理信息 第一章. 系統(tǒng)需求分析 1.1現(xiàn)行業(yè)務(wù)系統(tǒng)描述 設(shè)備管理信息對(duì)每個(gè)企業(yè)單位都是十分重要的工作，設(shè)備管理信息的好，可以使設(shè)備發(fā)揮最大效益，杜絕各種不良設(shè)備，反之則會(huì)造成生產(chǎn)資料利用率低下，甚至造成設(shè)備流失。 本管理系統(tǒng)是為適應(yīng)于的設(shè)備管理信息而開發(fā)的軟件。從設(shè)備使用的角度管理設(shè)備，協(xié)助學(xué)校建立一套完善的數(shù)據(jù)管理模型，提供全面數(shù)據(jù)的編輯、查詢、系統(tǒng)管

8、理等等功能，達(dá)到對(duì)設(shè)備科學(xué)管理的目的。 企業(yè)以前的有關(guān)設(shè)備管理的工作都是由人工來完成的。隨著企業(yè)的發(fā)展，企業(yè)設(shè)備處的設(shè)備管理信息工作量大大加重。隨著計(jì)算機(jī)應(yīng)用的發(fā)展，很多企業(yè)急切希望能夠?qū)⒋蟛糠址爆嵉墓ぷ鹘挥捎?jì)算機(jī)的處理，已減輕人工的壓力并提高工作效率。而計(jì)算機(jī)的普及更加快了設(shè)備管理信息系統(tǒng)的產(chǎn)生。 上一代的設(shè)備管理信息系統(tǒng)主要采用Foxbase或FoxPro,系統(tǒng)開發(fā)環(huán)境也是數(shù)據(jù)庫內(nèi)置的開發(fā)工具。其特點(diǎn)是單機(jī)單用戶方式，開發(fā)簡(jiǎn)單，能充分利用數(shù)據(jù)庫的特性。其缺點(diǎn)是開發(fā)出的系統(tǒng)依賴性強(qiáng)，運(yùn)行必須依托數(shù)據(jù)庫環(huán)境；不容易升級(jí)與擴(kuò)展；無法實(shí)現(xiàn)數(shù)據(jù)的共享與并行操作；代碼重用性差。 原有設(shè)備管理信息

9、系統(tǒng)數(shù)據(jù)共享差的問題更加突出，而新需求的提出也越來越多，越來越頻繁。這就要求系統(tǒng)在可擴(kuò)展性和標(biāo)準(zhǔn)化的要求更高。而原有的系統(tǒng)由于其與生俱來的缺點(diǎn)而無法在適應(yīng)現(xiàn)有的需求了。 因此，使用現(xiàn)在的新技術(shù)，開發(fā)出適應(yīng)新的需求的新系統(tǒng)的任務(wù)刻不容緩。 1.2組織結(jié)構(gòu) 和設(shè)備管理信息系統(tǒng)由直接關(guān)系的主要是后勤管理處： 是設(shè)備系統(tǒng)管理的主要部門，　承擔(dān)設(shè)備管理信息的集中管理。 1．3業(yè)務(wù)流程分析 設(shè)備管理信息系統(tǒng)是一個(gè)面向設(shè)備人員，為其提供服務(wù)的綜合信息管理系統(tǒng)。設(shè)備管理信息人員通過本系統(tǒng)完成相關(guān)的日常工作，這些工作也是平常較為繁重的工作。 由設(shè)備人員在數(shù)據(jù)編輯中完成對(duì)運(yùn)行設(shè)備系統(tǒng)所需的基本數(shù)據(jù)的

10、維護(hù)。包括這些信息的增加、修改、刪除等，變動(dòng)都將在這進(jìn)行操作。系統(tǒng)開始投入使用時(shí)，設(shè)備管理信息人員應(yīng)先根據(jù)目前企業(yè)和單位的實(shí)際情況，建立相關(guān)設(shè)備的信息，當(dāng)設(shè)備情況發(fā)生變動(dòng)后，設(shè)備人員要及時(shí)完成對(duì)庫中的信息進(jìn)行維護(hù)。因?yàn)槠髽I(yè)的設(shè)備數(shù)量會(huì)不斷增多，因此特別設(shè)立了一個(gè)數(shù)據(jù)查詢模塊，可以進(jìn)行相關(guān)設(shè)備的快速查詢。 1.4現(xiàn)行系統(tǒng)存在的主要問題分析 現(xiàn)行系統(tǒng)的主要問題歸納起來主要有， 1. 單機(jī)單用戶系統(tǒng)，隨著網(wǎng)絡(luò)的發(fā)展，原有的單機(jī)單用戶系統(tǒng)已遠(yuǎn)遠(yuǎn)不能滿足需要。同時(shí)，原有的數(shù)據(jù)庫也不支持多用戶的網(wǎng)絡(luò)運(yùn)行環(huán)境。 2．系統(tǒng)獨(dú)立性差，原有系統(tǒng)一般都是使用數(shù)據(jù)庫提供的開發(fā)工具編寫的程序，因此收數(shù)據(jù)庫的制約

11、比較大，編寫出來的程序性能也不好。特別是無法支持如Access, MS SQL Server等新的數(shù)據(jù)庫。 3．模塊性差，由于不是一個(gè)完整的編程語言，故無法做到代碼的模塊化，給功能的擴(kuò)展帶來了巨大的不便。 1.5提出可能的解決方案 鑒于目前企業(yè)對(duì)設(shè)備管理信息系統(tǒng)的需求與實(shí)際情況，新系統(tǒng)方案的重點(diǎn)放在系統(tǒng)的可擴(kuò)展性上，為了實(shí)現(xiàn)這一設(shè)計(jì)，新系統(tǒng)應(yīng)具備以下幾方面的要求： 1．新系統(tǒng)采用Visual Basic 6.0開發(fā)成功，充分利用該開發(fā)程序的優(yōu)勢(shì)，提高了工作效率。 2．新系統(tǒng)從設(shè)計(jì)到實(shí)現(xiàn)都應(yīng)遵循模塊化，是用一致的接口進(jìn)行信息的傳遞與模塊調(diào)用。模塊的劃分應(yīng)盡量符合實(shí)際業(yè)務(wù)的劃分，以保證以

12、后新模塊的加入盡可能少的影響現(xiàn)有功能模塊的運(yùn)行。 3、新系統(tǒng)所具有的特性： ＊通用性：用戶可根據(jù)本校的需求靈活設(shè)置設(shè)備類別及其數(shù)據(jù)庫結(jié)構(gòu)，可滿足不同層次，不同性質(zhì)，不同業(yè)務(wù)工作的需求。 ＊標(biāo)準(zhǔn)化：提供了豐富完善的設(shè)備管理信息內(nèi)容，為各級(jí)設(shè)備部門之間的數(shù)據(jù)共享及數(shù)據(jù)交換奠定了良好的基礎(chǔ)。 ＊先進(jìn)性：采用面向?qū)ο蠹夹g(shù)開發(fā)，適應(yīng)計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)發(fā)展趨勢(shì)，運(yùn)行在windows環(huán)境下，界面友好操作方便。 ＊實(shí)用性：具有操作簡(jiǎn)便、功能適中等特點(diǎn)，運(yùn)行速度快。 1.6可行性分析與決策 對(duì)于新系統(tǒng)設(shè)計(jì)的幾個(gè)關(guān)鍵技術(shù)的可行性分析如下， 1．新系統(tǒng)目前使用VB6.0自帶的數(shù)據(jù)庫來作為數(shù)據(jù)庫，這是一個(gè)

13、支持多用戶的新型數(shù)據(jù)庫，適用于中小規(guī)模的數(shù)據(jù)量需求。企業(yè)網(wǎng)的建設(shè)也為新系統(tǒng)服務(wù)器/客戶端的結(jié)構(gòu)提供了硬件的支持。 2．現(xiàn)在，市場(chǎng)上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開發(fā)工具的產(chǎn)品有： Microsoft公司的Visual Basic，Microsoft公司的Visual C， Borland公司的Delphi ，Powersoft公司的PowerBulider 在目前市場(chǎng)上這些眾多的程序開發(fā)工具中，有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不

14、同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程語言的彈性，卻沒有便利的工具作配合，會(huì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。 作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic是一個(gè)非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時(shí)，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)

15、據(jù)庫語言Visual Basic語言，該開發(fā)工具具有很多長(zhǎng)處： Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Win

16、dows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 總的來說，Visual Basic具有以下特點(diǎn)： 可視化編程： 用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對(duì)象，并設(shè)置這

17、些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。 面向?qū)ο蟮某绦蛟O(shè)計(jì) 4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，Visual

18、Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。 結(jié)構(gòu)化程序設(shè)計(jì)語言 Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。 Visual Basic是解釋型語言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可

19、以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。 事件驅(qū)動(dòng)編程機(jī)制 Visual Basic通過事件來執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊“(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。 在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過程

20、來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。 訪問數(shù)據(jù)庫 Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。 Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用

21、結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡(jiǎn)單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。 動(dòng)態(tài)數(shù)據(jù)交換(DDE) 利用動(dòng)態(tài)數(shù)據(jù)交換(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)用程序中與其他Win

22、dows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。 對(duì)象的鏈接與嵌入(OLE) 對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都

23、與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。 動(dòng)態(tài)鏈接庫(DLL) Visual Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動(dòng)態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。 綜上所述，新系統(tǒng)的設(shè)計(jì)與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，新系統(tǒng)的開發(fā)是可行的。 第二章　系統(tǒng)設(shè)計(jì) ------系統(tǒng)方案設(shè)定 企業(yè)在充分認(rèn)識(shí)到設(shè)

24、備管理信息的重要性下，即使在管理系統(tǒng)的支持下，設(shè)備標(biāo)簽的制定、填寫或打印、粘貼、設(shè)備狀態(tài)的跟蹤，盤點(diǎn)等工作的性質(zhì)和工作量并沒有得到良好的改變和改進(jìn)。設(shè)備管理信息還是手工和計(jì)算機(jī)管理相結(jié)合。 設(shè)備投資是社會(huì)維持簡(jiǎn)單再生產(chǎn)和擴(kuò)大再生產(chǎn)的主要手段，適度的投資規(guī)模和合理的投資結(jié)構(gòu)對(duì)于實(shí)現(xiàn)國家經(jīng)濟(jì)發(fā)展戰(zhàn)略具有重大意義。及時(shí)、準(zhǔn)確、完整地獲得全社會(huì)投資規(guī)模、結(jié)構(gòu)和效益以及前景預(yù)測(cè)的有關(guān)信息，是國家建立宏觀調(diào)控機(jī)制、制定產(chǎn)業(yè)政策、提高決策水平、實(shí)現(xiàn)全社會(huì)總供給與總需求的積極平衡和社會(huì)資源合理分配的重要條件。 　　 目前企業(yè)對(duì)設(shè)備投資的管理主要是采用書面文字記錄為主、電腦 EXECL 表格統(tǒng)計(jì)為輔的

25、方法，隨著工作的發(fā)展，這種管理的局限性日益突出出來。主要表現(xiàn)在記錄、檢索和統(tǒng)計(jì)時(shí)十分不便。 　　 為全面加強(qiáng)對(duì)設(shè)備投資的宏觀管理和指導(dǎo)，企業(yè)建立設(shè)備管理信息信息系統(tǒng)，對(duì)企業(yè)宏觀經(jīng)濟(jì)進(jìn)行快速檢索和統(tǒng)計(jì)是必需的。 　　 本系統(tǒng)是一個(gè)由多項(xiàng)數(shù)據(jù)組成的相互緊密關(guān)聯(lián)的開放性系統(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è)分類標(biāo)準(zhǔn)、分類總投資標(biāo)準(zhǔn)、項(xiàng)目文檔分類標(biāo)準(zhǔn)，以及建設(shè)性質(zhì)劃分、項(xiàng)目編號(hào)標(biāo)準(zhǔn) ――――――系統(tǒng)實(shí)現(xiàn)功能 《設(shè)備管理信息系統(tǒng)》是一套對(duì)設(shè)備檔案、增加、折舊、維修、盤存、清理、轉(zhuǎn)讓等進(jìn)行全面管理的系統(tǒng)。 該系統(tǒng)通過采集設(shè)備

26、日常工作中所產(chǎn)生的各種原始數(shù)據(jù)，根據(jù)設(shè)備管理的要求，對(duì)數(shù)據(jù)進(jìn)行分類、統(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ì)等管理部門的介入，形成嚴(yán)格的監(jiān)督、約束機(jī)制。 該系統(tǒng)集信息采集、分類、匯總、分析、查詢、統(tǒng)計(jì)等各種處理為一體，各種操作既可以通過菜單進(jìn)行，又可以通過系統(tǒng)的管理樹導(dǎo)航進(jìn)行。信息分類全面，樹形管理方便，操作快捷簡(jiǎn)單，性能強(qiáng)大高效。全中文操作界面，無需計(jì)算機(jī)專業(yè)知識(shí)，使用易懂、易會(huì)。別具一格的

27、查詢統(tǒng)計(jì)為您提供了更多的方便！系統(tǒng)支持用戶任意修改設(shè)計(jì)，也可讓我們幫您完成。 設(shè)備管理信息 第三章.Visual basic下的控件所實(shí)現(xiàn)的功能 Windows下的Visual Basic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。 Visual Basic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。 _實(shí)現(xiàn)菜單選項(xiàng)

28、 菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，Visual Basic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。 您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。 _ 實(shí)現(xiàn)工具欄 CoolBar控件與Office97種看到的CoolBar是類似的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。 Toolbar 是工具條控件，是實(shí)現(xiàn)工

29、具條的主體。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。Toolbar也是一個(gè)控件容器且具有Style屬性，并可以為其增加下拉按鈕和平滑按鈕等。 選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其屬性及對(duì)象如下： 1． Align屬性定義工具條在窗體中的位置 2． ToolTipText屬性是字符串類型，定義控件的提示字符 3． Style屬性定義按鈕外觀。 4． ImageList屬性定義與

30、數(shù)據(jù)條對(duì)應(yīng)的ImageList控件名，該控件定義工具條按鈕顯示的圖像。 5． HotImangeList屬性設(shè)置一個(gè)ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。 6． DisabledImageList屬性定義工具條按鈕無效時(shí)顯示的圖像。 創(chuàng)建工具條包括ImageList和Toolbar控件 ImageList用于為其他控件提供圖像庫，將ImageList控件加入到工具箱的操作于前述Toolbar控件相同。 _ 幫助 專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于

31、理解的聯(lián)機(jī)幫助文檔。微軟的Help Workshop4.0 是一套獨(dú)立于Visual Basic 的用來協(xié)助我們創(chuàng)建、運(yùn)行于32位Windows 操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。 _ 關(guān)于版本 為了是程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信息。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。Visual Basic允許你使用APP對(duì)象來保存這些信息，APP對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在

32、項(xiàng)目屬性框中可以設(shè)置它的屬性。 第四章.使用Access2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫 數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。 _ 新建一個(gè)數(shù)據(jù)庫 創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 1． 標(biāo)識(shí)需要的數(shù)據(jù)； 2． 收集被標(biāo)識(shí)的字段

33、到表中； 3． 標(biāo)識(shí)主關(guān)鍵字字段； 4． 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識(shí)指定字段的信息； 7． 創(chuàng)建物理表。 _ 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 _ 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自

34、己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。 第五章.系統(tǒng)總體規(guī)劃 _ 系統(tǒng)功能 1． 可以進(jìn)行文本操作； 2． 添加一個(gè)數(shù)據(jù)庫項(xiàng)目； 3． 刪除一個(gè)數(shù)據(jù)庫項(xiàng)目； 4． 修改一個(gè)數(shù)據(jù)庫項(xiàng)目； 5． 查詢信息 6 系統(tǒng)維護(hù) 6.1系統(tǒng)數(shù)據(jù)轉(zhuǎn)出 6.2系統(tǒng)數(shù)據(jù)轉(zhuǎn)入 6.3修改系統(tǒng)密碼 6.4數(shù)據(jù)初始化 7幫助 8 退出 數(shù)據(jù)查詢 設(shè)備管理信息系統(tǒng) 數(shù)據(jù)編輯 系統(tǒng)維護(hù) 幫助

35、 退出 第一個(gè) 前一個(gè) 系統(tǒng)登錄 下一個(gè) 最后一個(gè) 添加 編輯 刪除 退出 搜索 全部 取消 系統(tǒng)數(shù)據(jù)轉(zhuǎn)出 系統(tǒng)數(shù)據(jù)轉(zhuǎn)入 修改系統(tǒng)密碼 數(shù)據(jù)初始化 第六章 系統(tǒng)具體實(shí)現(xiàn) 主界面實(shí)現(xiàn)： 功能：對(duì)所有設(shè)備進(jìn)行添加，查詢，修改，刪除操作，對(duì)用戶密碼進(jìn)行修改，對(duì)每條設(shè)備信息進(jìn)行打印。 數(shù)據(jù)編緝界面實(shí)現(xiàn)功能： 對(duì)于設(shè)備的編號(hào)，設(shè)備名稱，設(shè)備型號(hào)，制造商，國

36、別，購買日期，單價(jià)，數(shù)量，使用單位，使用人，管理員，放置地點(diǎn)，已使用年限，設(shè)備來源，報(bào)年限，聯(lián)系電話等記錄進(jìn)行錄入，刪除，修改，打印操作！ 數(shù)據(jù)查詢界面與功能簡(jiǎn)介 實(shí)現(xiàn)對(duì)在所有的設(shè)備記錄中查找某一個(gè)設(shè)備的說細(xì)信息，也可在查詢完一個(gè)后點(diǎn) 擊 下一個(gè)按鈕對(duì)下一條記錄進(jìn)行查詢。 第七章．結(jié)束語 經(jīng)過一個(gè)多月的設(shè)計(jì)和開發(fā)，設(shè)備管理信息系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠?qū)崿F(xiàn)固設(shè)備的基本信息的錄入、更新、刪除、打印等基本功能，從而實(shí)現(xiàn)設(shè)備的管理。對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，

37、用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。 致謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在系統(tǒng)開發(fā)過程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 第八章．主要參考文獻(xiàn) [1] Visual Basic 6.0 使用指南 作者：Bob Rese

38、lman , Richard Peasley , Wayne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文版Microsoft Office 97 自學(xué)通 作者：Ned Snell 出版社：機(jī)械工業(yè)出版社 [3] Visual Basic 6.0 中文版控件大全 作者：Microsoft 出版社；電子工業(yè)出版社 [4] 中文Access 2000 24學(xué)時(shí)教程 作者：Craig Eddy ，Timothy Buchanan 出版社：機(jī)械工業(yè)出版社 九． 程序源代碼、各功能模塊的程序流程圖 ――――登錄界面源代碼： Private Sub Comma

39、nd1_Click() If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then Form2.Show Unload Me Else For X = 1 To 1 If A1.Recordset.EOF = True Then MsgBox "您輸入的用戶名和密碼有誤，請(qǐng)重新輸入！", 16, "出錯(cuò)：" Text1.Text = "" Text2.Text = "" A1.Recordset.AbsolutePosition = 1 Else If T

40、rim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then MDIForm1.Show MDIForm1.Print Command1.Tag MDIForm1.Tag = Text1.Text Unload Me Else X = X - 1 A1.Recordset.MoveNext End If End If Next X End If End Sub Private Sub Comm

41、and2_Click() Unload Me End Sub Private Sub Form_Load() If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then MsgBox "您是第一次使用本程序，請(qǐng)?jiān)O(shè)置超級(jí)用戶！", 32, "設(shè)置：" Form2.Show Unload Me End If End Sub ――――系統(tǒng)主界面代碼： Private Sub gycx_Click() frmAbout.Show End Sub Private Sub sjbj_Click() For

42、m3.Show End Sub Private Sub sjcx_Click() Form5.Show End Sub Private Sub sjdy_Click() Form4.Show End Sub Private Sub tc_Click() Unload Me End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Form3.Show Case

43、 2 Form5.Show Case 3 Form2.Show Case 4 Form4.Show Case 5 frmAbout.Show Case 6 Unload Me End Select End Sub ――――設(shè)備信息代碼 Private Sub Command1_Click() If Command1.Tag = "True" Then If Command1.Caption = "輸入新記錄" Then r

44、 = 1 If A1.Recordset.BOF = True And A1.Recordset.EOF = True Then Else A1.Recordset.MoveFirst End If For X = 1 To 1 If A1.Recordset.EOF = True Then A1.Tag = Y Exit For Else A1.Recordset.MoveNext End If X = X - 1 r = r + 1 Next X A

45、1.Recordset.AddNew Label3.Caption = r Command1.Caption = "輸入完畢" Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Form3.Height = 8220 Form3.Top = 300 F1.Visible = True Else If t3(0).Text = "" Then MsgBox "設(shè)備不能為空！", 16, "出錯(cuò)："

46、t3(0).Text = "123" A1.Recordset.Delete Command1.Caption = "輸入新記錄" Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Form3.Height = 5728 Form3.Left = 600 Form3.Top = 1500 F1.Visible = False Else

47、For X = 11 To 13 If Len(Trim(t3(X).Text)) > 200 Then MsgBox "字符不能超過200個(gè)！", 16, "出錯(cuò)：" Exit Sub End If Next X A1.Recordset.MovePrevious A1.Recordset.MoveNext Command1.Caption = "輸入新記錄" Command2.Enabled = True Command3.Enabled = True Command4.Enabl

48、ed = True Command5.Enabled = True Form3.Height = 5728 F1.Visible = False Form3.Left = 600 Form3.Top = 1500 End If End If Else MsgBox "您沒有這個(gè)權(quán)限！", 16, "出錯(cuò)：" End If End Sub Private Sub Command10_Click() For X = 0 To 6 If A1.Recordset.EOF = True Then MsgBox "您已經(jīng)位

49、于最后一條記錄", 32, "提示：" A1.Recordset.MovePrevious Exit Sub Else A1.Recordset.MoveNext End If Next X End Sub Private Sub Command11_Click() Form10.Show Unload Me End Sub Private Sub Command2_Click() If Command2.Tag = "True" Then If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then

50、 MsgBox "您的數(shù)據(jù)庫中沒有記錄！", 16, "出錯(cuò)：" Else If Command2.Caption = "查詢" Then Command8.Caption = "顯示信息" Form3.Top = 700 Form3.Height = 5670 Command2.Caption = "結(jié)束查詢" F3.Visible = True Command1.Enabled = False Command4.Enabled = False Command3.Enabled = False Else A1.Recordset.MoveFirst C

51、ommand2.Caption = "查詢" Command8.Caption = "打印" Form3.Top = 1500 Form3.Height = 5728 Form3.Left = 600 Command1.Enabled = True Command4.Enabled = True Command3.Enabled = True F3.Visible = False End If End If Else MsgBox "您沒有這個(gè)權(quán)限！", 16, "出錯(cuò)：" End If End Sub Private Sub Command3_Click()

52、 If Command1.Tag = "True" Then If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then MsgBox "您的數(shù)據(jù)庫中沒有記錄！", 16, "出錯(cuò)：" Else If Command3.Caption = "修改記錄" Then Command3.Caption = "修改完畢" Command2.Enabled = False Command1.Enabled = False Command4.Enabled = False Command5.Enabled = False F

53、orm3.Height = 8220 Form3.Top = 300 F1.Visible = True F1.Caption = "修改記錄：" Else If t3(0).Text = "" Then MsgBox "設(shè)備不能為空！", 16, "出錯(cuò)：" Else For X = 11 To 13 If Len(Trim(t3(X).Text)) > 200 Then MsgBox "字符不能超過200個(gè)！", 16, "出錯(cuò)：" Exit Sub End If Next X Command3.Caption =

54、 "修改記錄" Command2.Enabled = True Command1.Enabled = True Command4.Enabled = True Command5.Enabled = True Form3.Height = 5728 Form3.Left = 600 Form3.Top = 1500 F1.Visible = False F1.Caption = "數(shù)據(jù)輸入：" End If End If End If Else MsgBox "您沒有這個(gè)權(quán)限！", 16, "出錯(cuò)：" End If End Sub Private Sub C

55、ommand4_Click() Unload Me End Sub Private Sub Command5_Click() If Command1.Tag = "True" Then If A1.Recordset.EOF = True Or A1.Recordset.BOF = True Then MsgBox "您的數(shù)據(jù)庫中沒有記錄可以刪除！", 16, "出錯(cuò)：" Else A1.Recordset.Delete Y = 1 A1.Recordset.MoveFirst For X = 1 To 1 If A1.Recordset.EOF = Tru

56、e Then If A1.Recordset.BOF = True Then Else A1.Recordset.MoveFirst End If Exit For Else Label3.Caption = Y A1.Recordset.MoveNext Y = Y + 1 X = X - 1 End If Next X End If Else MsgBox "您沒有這個(gè)權(quán)限！", 16, "出錯(cuò)：" End If End Sub P

57、rivate Sub Command6_Click() For X = 0 To 7 If t17(X).Text = "" Then Else Command6.Tag = t17(X).Text Command7.Tag = X A1.Recordset.MoveFirst Call cx Exit Sub End If Next X MsgBox "您沒有輸入要查詢的值！", 16, "出錯(cuò)：" End Sub Sub cx() For X = 1 To 1 If Trim(Comma

58、nd6.Tag) = Trim(t3(Val(Command7.Tag)).Text) Then Exit Sub Else If A1.Recordset.EOF = True Then Else A1.Recordset.MoveNext End If If A1.Recordset.EOF = True Then MsgBox "沒有找你到要查詢的記錄！", 32, "提示：" Exit Sub Else X = X - 1 End If

59、 End If Next X End Sub Private Sub Command7_Click() For X = 0 To 7 If t17(X).Text = "" Then Else Command6.Tag = t17(X).Text Command7.Tag = X If A1.Recordset.EOF = True Then Else A1.Recordset.MoveNext End If Call cx Exit Sub End If Next X

60、 MsgBox "您沒有輸入要查詢的值！", 16, "出錯(cuò)：" End Sub Private Sub Command8_Click() Form4.Show End Sub Private Sub Command9_Click() For X = 0 To 6 If A1.Recordset.BOF = True Then MsgBox "您已經(jīng)位于第一條記錄", 32, "提示：" A1.Recordset.MoveNext Exit Sub Else A1.Recordset.MovePrevious End If Next X End Su

61、b Private Sub F3_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Form_Unload(Cancel As Integer) If Command4.Enabled = True Then Cancel = 0 Else MsgBox "請(qǐng)編輯完這條記錄再退出！", 64, "提示：" Cancel = 1 End If End Sub ―――－設(shè)備查詢?cè)创a： Private Sub Command2_Click() If A1

62、.Recordset.EOF = True And A1.Recordset.BOF = True Then MsgBox "您的數(shù)據(jù)庫中沒有記錄！", 16, "出錯(cuò)：" Else If Command2.Caption = "查詢" Then Command8.Caption = "顯示信息" Form3.Top = 700 Form3.Height = 5670 Command2.Caption = "結(jié)束查詢" F3.Visible = True Command4.Enabled = False Else A1.Recordset.MoveFi

63、rst Command2.Caption = "查詢" Command8.Caption = "打印" Form3.Top = 1500 Form3.Height = 5728 Form3.Left = 600 Command4.Enabled = True F3.Visible = False End If End If End Sub Private Sub Command4_Click() Unload Me End Sub Sub cx() For X = 1 To 1 If Trim(Command6.

64、Tag) = Trim(t3(Val(Command7.Tag)).Text) Then Exit Sub Else If A1.Recordset.EOF = True Then Else A1.Recordset.MoveNext End If If A1.Recordset.EOF = True Then MsgBox "沒有找你到要查詢的記錄！", 32, "提示：" Exit Sub Else X = X - 1 End If En

65、d If Next X End Sub Private Sub Command6_Click() For X = 0 To 7 If t17(X).Text = "" Then Else Command6.Tag = t17(X).Text Command7.Tag = X A1.Recordset.MoveFirst Call cx Exit Sub End If Next X MsgBox "您沒有輸入要查詢的值！", 16, "出錯(cuò)：" End Sub Private

66、Sub Command8_Click() Form4.Show End Sub Private Sub Command9_Click() For X = 0 To 6 If A1.Recordset.BOF = True Then MsgBox "您已經(jīng)位于第一條記錄", 32, "提示：" A1.Recordset.MoveNext Exit Sub Else A1.Recordset.MovePrevious End If Next X End Sub Private Sub D1_Click() End Sub Private Sub Form_Unload(Cancel As Integer) If Command4.Enabled = True Then Cancel = 0 Else MsgBox "請(qǐng)編輯完這條記錄再退出！", 64, "提示：" Cancel = 1 End If End Sub