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

..大學(xué)畢業(yè)設(shè)計(jì)論文課題設(shè)備管理信息系統(tǒng)姓名學(xué)科專業(yè)計(jì)算機(jī)網(wǎng)絡(luò)指導(dǎo)教師學(xué)號(hào)12日期:20XX5月目錄前言―――――――――――――――――――――――摘要―――――――――――――――――――――――系統(tǒng)需求分析第二章系統(tǒng)設(shè)計(jì)2．1系統(tǒng)方案確定2．2系統(tǒng)功能實(shí)現(xiàn)第三章怎樣開發(fā)一個(gè)人事工資管理系統(tǒng)？3．1編程環(huán)境的選擇3．2關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)3．3二者的結(jié)合〔DBA第四章Visualbasic下的控件所實(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)容對(duì)于企事業(yè)單位的決策者和管理者來說都至關(guān)重要,所以設(shè)備管理信息系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理設(shè)備的信息,這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長,將產(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)適用于普通設(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ǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高設(shè)備管理信息的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。--------------摘要--------------設(shè)備管理信息系統(tǒng)是典型的信息管理系統(tǒng)<MIS>,其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過分析,我們使用MICROSOFT公司的VISUALBASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。整個(gè)系統(tǒng)從符合操作簡便、界面友好、靈活、實(shí)用、安全的要求出發(fā),完成設(shè)備管理信息的全過程,包括每一物品,例如辦公設(shè)備、家具、計(jì)算機(jī)及其他有價(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)的邊際收入與邊際成本分析?設(shè)備折舊管理論文主要介紹了本課題的開發(fā)背景,所要完成的功能和開發(fā)的過程。重點(diǎn)的說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。關(guān)鍵字：VisualBasic6.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)管理等等功能,達(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ā)簡單,能充分利用數(shù)據(jù)庫的特性。其缺點(diǎn)是開發(fā)出的系統(tǒng)依賴性強(qiáng),運(yùn)行必須依托數(shù)據(jù)庫環(huán)境；不容易升級(jí)與擴(kuò)展；無法實(shí)現(xiàn)數(shù)據(jù)的共享與并行操作；代碼重用性差。原有設(shè)備管理信息系統(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ù)的維護(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ù)庫的制約比較大,編寫出來的程序性能也不好。特別是無法支持如Access,MSSQLServer等新的數(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)采用VisualBasic6.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ù)的劃分,以保證以后新模塊的加入盡可能少的影響現(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í)用性：具有操作簡便、功能適中等特點(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è)支持多用戶的新型數(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公司的VisualBasic,Microsoft公司的VisualC,Borland公司的Delphi,Powersoft公司的PowerBulider在目前市場(chǎng)上這些眾多的程序開發(fā)工具中,有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高,各有各的優(yōu)點(diǎn)和特色,也滿足了不同用戶的需求。然而,語言的彈性和工具的便利性是密不可分的,只有便利的工具,卻沒有彈性的語言作支持,許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來處理,使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反,如果只強(qiáng)調(diào)程語言的彈性,卻沒有便利的工具作配合,會(huì)使一些即使非常簡單的界面處理動(dòng)作,也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。作為數(shù)據(jù)庫系統(tǒng)的開發(fā),VisualBasic是一個(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ù)據(jù)庫語言VisualBasic語言,該開發(fā)工具具有很多長處：VisualBasic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì),可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高,且功能強(qiáng)大,可以與Windows的專業(yè)開發(fā)工具SDK相媲美,而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(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ā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f,VisualBasic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí),都是通過編寫程序代碼來設(shè)計(jì)用戶界面,在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果,必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意,還要回到程序中修改。有時(shí)候,這種編程-編譯-修改的操作可能要反復(fù)多次,大大影響了軟件開發(fā)效率。VisualBasic提供了可視化設(shè)計(jì)工具,把Windows界面設(shè)計(jì)的復(fù)雜性"封裝"起來,開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局,用系統(tǒng)提供的工具,在屏幕上畫出各種"部件",即圖形對(duì)象,并設(shè)置這些圖形對(duì)象的屬性。VisualBasic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼,程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼,從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的VisualBasic支持面向?qū)ο蟮某绦蛟O(shè)計(jì),但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言<C++>不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中,對(duì)象由程序代碼和數(shù)據(jù)組成,是抽象的概念；而VisualBasic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法<OOP>,把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象,并為每個(gè)對(duì)象賦予應(yīng)有的屬性,使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí),不必編寫建立和描述每個(gè)對(duì)象的程序代碼,而是用工具畫在界面上,VisualBasic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上,都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語言VisualBasic是在BASIC語言的基礎(chǔ)上發(fā)展起來的,具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu),接近于自然語言和人類的邏輯思維方式。VisualBasic語句簡單易懂,其編輯器支持彩色代碼,可自動(dòng)進(jìn)行語法錯(cuò)誤檢查,同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。VisualBasic是解釋型語言,在輸入代碼的同時(shí),解釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令,并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)VisualBasic程序的過程中,隨時(shí)可以運(yùn)行程序,而在整個(gè)程序設(shè)計(jì)好之后,可以編譯生成可執(zhí)行文件<.EXE>,脫離VisualBasic環(huán)境,直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動(dòng)編程機(jī)制VisualBasic通過事件來執(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)指定的操作。在用VisualBasic設(shè)計(jì)大型應(yīng)用軟件時(shí),不必建立具有明顯開始和結(jié)束的程序,而是編寫若干個(gè)微小的子程序,即過程。這些過程分別面向不同的對(duì)象,由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能,或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作,這樣可以方便編程人員,提高效率。訪問數(shù)據(jù)庫VisualBasic具有強(qiáng)大的數(shù)據(jù)庫管理功能,利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口,可以直接建立或處理MicrosoftAccess格式的數(shù)據(jù)庫,并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí),VisualBasic還能直接編輯和訪問其他外部數(shù)據(jù)庫,如dBASE,FoxPro,Paradox等,這些數(shù)據(jù)庫格式都可以用VisualBasic編輯和處理。VisualBasic提供開放式數(shù)據(jù)連接,即ODBC功能,可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫,如SQLServer,Oracle等。在應(yīng)用程序中,可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn),直接訪問服務(wù)器上的數(shù)據(jù)庫,并提供了簡單的面向?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ù)交換<DynamicDataExchange>技術(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ù)。VisualBasic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù),可以在應(yīng)用程序中與其他Windows應(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ù)合式文檔<compounddocument>,這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成,文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系,并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動(dòng)態(tài)鏈接庫<DLL>VisualBasic是一種高級(jí)程序設(shè)計(jì)語言,不具備低級(jí)語言的功能,對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到VisualBasic應(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è)備管理信息的重要性下,即使在管理系統(tǒng)的支持下,設(shè)備標(biāo)簽的制定、填寫或打印、粘貼、設(shè)備狀態(tài)的跟蹤,盤點(diǎn)等工作的性質(zhì)和工作量并沒有得到良好的改變和改進(jìn)。設(shè)備管理信息還是手工和計(jì)算機(jī)管理相結(jié)合。設(shè)備投資是社會(huì)維持簡單再生產(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ì)為輔的方法,隨著工作的發(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è)備日常工作中所產(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)行。信息分類全面,樹形管理方便,操作快捷簡單,性能強(qiáng)大高效。全中文操作界面,無需計(jì)算機(jī)專業(yè)知識(shí),使用易懂、易會(huì)。別具一格的查詢統(tǒng)計(jì)為您提供了更多的方便！系統(tǒng)支持用戶任意修改設(shè)計(jì),也可讓我們幫您完成。設(shè)備管理信息第三章.Visualbasic下的控件所實(shí)現(xiàn)的功能Windows下的VisualBasic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象,每一個(gè)對(duì)象都具有一些特性和行為〔屬性、事件和方法。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。VisualBasic應(yīng)用由一系列對(duì)象組成,包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等,對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。_實(shí)現(xiàn)菜單選項(xiàng)菜單是程序最重要的特性之一,大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù),VisualBasic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。您可以使用VisualBasic的ApplicationWizard也可以使用VisualBasic的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。_實(shí)現(xiàn)工具欄CoolBar控件與Office97種看到的CoolBar是類似的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具,同時(shí)也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。Toolbar是工具條控件,是實(shí)現(xiàn)工具條的主體。其中的按鈕可以顯示圖像和標(biāo)題,并按功能分組或加入分隔符,還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。Toolbar也是一個(gè)控件容器且具有Style屬性,并可以為其增加下拉按鈕和平滑按鈕等。選擇"工程"下拉菜單中的"部件"選項(xiàng),顯示"部件"對(duì)話框。在"控件"選項(xiàng)卡列表中選擇"MicrosoftWindowsCommonControls6.0"后工具相中增加改控件。其屬性及對(duì)象如下：1．Align屬性定義工具條在窗體中的位置2．ToolTipText屬性是字符串類型,定義控件的提示字符3．Style屬性定義按鈕外觀。4．ImageList屬性定義與數(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ì)的、易于理解的聯(lián)機(jī)幫助文檔。微軟的HelpWorkshop4.0是一套獨(dú)立于VisualBasic的用來協(xié)助我們創(chuàng)建、運(yùn)行于32位Windows操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。_關(guān)于版本為了是程序顯得更具有專業(yè)風(fēng)格,首先可以在其中加入通常的應(yīng)用程序信息。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。VisualBasic允許你使用APP對(duì)象來保存這些信息,APP對(duì)象是一個(gè)預(yù)定義對(duì)象,不需要在程序中創(chuàng)建它。APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息,通過使用這些APP提供的屬性,可以在應(yīng)用程序和用戶之間交流重要信息,在項(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á)信息,簡而言之,數(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í)的字段到表中；3．標(biāo)識(shí)主關(guān)鍵字字段；4．繪制一個(gè)簡單的數(shù)據(jù)圖表；5．規(guī)范數(shù)據(jù)；6．標(biāo)識(shí)指定字段的信息；7．創(chuàng)建物理表。_修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由VisualBasic創(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è)表被連接到它自己的一個(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ù)據(jù)查詢?cè)O(shè)備管理信息系統(tǒng)數(shù)據(jù)編輯系統(tǒng)維護(hù)幫助退出第一個(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),制造商,國別,購買日期,單價(jià),數(shù)量,使用單位,使用人,管理員,放置地點(diǎn),已使用年限,設(shè)備來源,報(bào)年限,等記錄進(jìn)行錄入,刪除,修改,打印操作！數(shù)據(jù)查詢界面與功能簡介實(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ī)文檔比較少,用戶界面不夠美觀,出錯(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]VisualBasic6.0使用指南作者：BobReselman,RichardPeasley,WaynePruchniak.出版社：電子工業(yè)出版社[2]中文版MicrosoftOffice97自學(xué)通作者：NedSnell出版社：機(jī)械工業(yè)出版社[3]VisualBasic6.0中文版控件大全作者：Microsoft出版社；電子工業(yè)出版社[4]中文Access200024學(xué)時(shí)教程作者：CraigEddy,TimothyBuchanan出版社：機(jī)械工業(yè)出版社程序源代碼、各功能模塊的程序流程圖――――登錄界面源代碼：PrivateSubCommand1_Click<>IfTrim<Text1.Text>=Trim<Text3.Text>AndTrim<Text2.Text>=Trim<Text4.Text>ThenForm2.ShowUnloadMeElseForX=1To1IfA1.Recordset.EOF=TrueThenMsgBox"您輸入的用戶名和密碼有誤,請(qǐng)重新輸入！",16,"出錯(cuò)："Text1.Text=""Text2.Text=""A1.Recordset.AbsolutePosition=1ElseIfTrim<Text1.Text>=Trim<Text3.Text>AndTrim<Text2.Text>=Trim<Text4.Text>ThenMDIForm1.ShowMDIForm1.PrintCommand1.TagMDIForm1.Tag=Text1.TextUnloadMeElseX=X-1EndIfEndIfNextXEndIfEndSubPrivateSubCommand2_Click<>UnloadMeEndSubPrivateSubForm_Load<>IfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThenMsgBox"您是第一次使用本程序,請(qǐng)?jiān)O(shè)置超級(jí)用戶！",32,"設(shè)置："Form2.ShowUnloadMeEndIfEndSub――――系統(tǒng)主界面代碼：PrivateSubgycx_Click<>frmAbout.ShowEndSubPrivateSubsjbj_Click<>Form3.ShowEndSubPrivateSubsjcx_Click<>Form5.ShowEndSubPrivateSubsjdy_Click<>Form4.ShowEndSubPrivateSubtc_Click<>UnloadMeEndSubPrivateSubToolbar1_ButtonClick<ByValButtonAsMSComctlLib.Button>SelectCaseButton.IndexCase1Form3.ShowCase2Form5.ShowCase3Form2.ShowCase4Form4.ShowCase5frmAbout.ShowCase6UnloadMeEndSelectEndSub――――設(shè)備信息代碼PrivateSubCommand1_Click<>IfCommand1.Tag="True"ThenIfCommand1.Caption="輸入新記錄"Thenr=1IfA1.Recordset.BOF=TrueAndA1.Recordset.EOF=TrueThenElseEndIfForX=1To1IfA1.Recordset.EOF=TrueThenA1.Tag=YExitForElseEndIfX=X-1r=r+1NextXLabel3.Caption=rCommand1.Caption="輸入完畢"Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseForm3.Height=8220Form3.Top=300F1.Visible=TrueElseIft3<0>.Text=""ThenMsgBox"設(shè)備不能為空！",16,"出錯(cuò)："t3<0>.Text="123"Command1.Caption="輸入新記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueForm3.Height=5728Form3.Left=600Form3.Top=1500F1.Visible=FalseElseForX=11To13IfLen<Trim<t3<X>.Text>>>200ThenMsgBox"字符不能超過200個(gè)！",16,"出錯(cuò)："ExitSubEndIfNextXCommand1.Caption="輸入新記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueForm3.Height=5728F1.Visible=FalseForm3.Left=600Form3.Top=1500EndIfEndIfElseMsgBox"您沒有這個(gè)權(quán)限！",16,"出錯(cuò)："EndIfEndSubPrivateSubCommand10_Click<>ForX=0To6IfA1.Recordset.EOF=TrueThenMsgBox"您已經(jīng)位于最后一條記錄",32,"提示："ExitSubElseEndIfNextXEndSubPrivateSubCommand11_Click<>Form10.ShowUnloadMeEndSubPrivateSubCommand2_Click<>IfCommand2.Tag="True"ThenIfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThenMsgBox"您的數(shù)據(jù)庫中沒有記錄！",16,"出錯(cuò)："ElseIfCommand2.Caption="查詢"ThenCommand8.Caption="顯示信息"Form3.Top=700Form3.Height=5670Command2.Caption="結(jié)束查詢"F3.Visible=TrueCommand1.Enabled=FalseCommand4.Enabled=FalseCommand3.Enabled=FalseElseCommand2.Caption="查詢"Command8.Caption="打印"Form3.Top=1500Form3.Height=5728Form3.Left=600Command1.Enabled=TrueCommand4.Enabled=TrueCommand3.Enabled=TrueF3.Visible=FalseEndIfEndIfElseMsgBox"您沒有這個(gè)權(quán)限！",16,"出錯(cuò)："EndIfEndSubPrivateSubCommand3_Click<>IfCommand1.Tag="True"ThenIfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThenMsgBox"您的數(shù)據(jù)庫中沒有記錄！",16,"出錯(cuò)："ElseIfCommand3.Caption="修改記錄"ThenCommand3.Caption="修改完畢"Command2.Enabled=FalseCommand1.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseForm3.Height=8220Form3.Top=300F1.Visible=TrueF1.Caption="修改記錄："ElseIft3<0>.Text=""ThenMsgBox"設(shè)備不能為空！",16,"出錯(cuò)："ElseForX=11To13IfLen<Trim<t3<X>.Text>>>200ThenMsgBox"字符不能超過200個(gè)！",16,"出錯(cuò)："ExitSubEndIfNextXCommand3.Caption="修改記錄"Command2.Enabled=TrueCommand1.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueForm3.Height=5728Form3.Left=600Form3.Top=1500F1.Visible=FalseF1.Caption="數(shù)據(jù)輸入："EndIfEndIfEndIfElseMsgBox"您沒有這個(gè)權(quán)限！",16,"出錯(cuò)："EndIfEndSubPrivateSubCommand4_Click<>UnloadMeEndSubPrivateSubCommand5_Click<>IfCommand1.Tag="True"ThenIfA1.Recordset.EOF=TrueOrA1.Recordset.BOF=TrueThenMsgBox"您的數(shù)據(jù)庫中沒有記錄可以刪除！",16,"出錯(cuò)："ElseY=1ForX=1To1IfA1.Recordset.EOF=TrueThenIfA1.Recordset.BOF=TrueThenElseEndIfExitForElseLabel3.Caption=YY=Y+1X=X-1EndIfNextXEndIfElseMsgBox"您沒有這個(gè)權(quán)限！",16,"出錯(cuò)："EndIfEndSubPrivateSubCommand6_Click<>ForX=0To7Ift17<X>.Text=""ThenElseCommand6.Tag=t17<X>.TextCommand7.Tag=XCallcxExitSubEndIfNextXMsgBox"您沒有輸入要查詢的值！",16,"出錯(cuò)："EndSubSubcx<>ForX=1To1IfTrim<Command6.Tag>=Trim<t3<Val<Command7.Tag>>.Text>ThenExitSubElseIfA1.Recordset.EOF=TrueThenElseEndIfIfA1.Recordset.EOF=TrueThenMsgBox"沒有找你到要查詢的記錄！",32,"提示："ExitSubElseX=X-1EndIfEndIfNextXEndSubPrivateSubCommand7_Click<>ForX=0To7Ift17<X>.Text=""ThenElseCommand6.Tag=t17<X>.TextCommand7.Tag=XIfA1.Recordset.EOF=TrueThenElseEndIfCallcxExitSubEndIfNextXMsgBox"您沒有輸入要查詢的值！",16,"出錯(cuò)："End