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

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

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

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

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

5、個企事業(yè)單位不可缺少的部分,它的內容對于企事業(yè)單位的決策者和管理者來說都至關重要,所以設備管理信息系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理設備的信息，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產生大量的文件和數據,這對于查找、更新和維護都帶來了不少的困難。本論文主要介紹的是設備管理信息系統(tǒng)的整個設計過程。</p><p>　　隨著計算機技術的不

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

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

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

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

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

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

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

13、設備管理信息而開發(fā)的軟件。從設備使用的角度管理設備，協(xié)助學校建立一套完善的數據管理模型，提供全面數據的編輯、查詢、系統(tǒng)管理等等功能，達到對設備科學管理的目的。</p><p>　　企業(yè)以前的有關設備管理的工作都是由人工來完成的。隨著企業(yè)的發(fā)展，企業(yè)設備處的設備管理信息工作量大大加重。隨著計算機應用的發(fā)展，很多企業(yè)急切希望能夠將大部分繁瑣的工作交由計算機的處理，已減輕人工的壓力并提高工作效率。而計算機的普及更加快了

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

15、需求的提出也越來越多，越來越頻繁。這就要求系統(tǒng)在可擴展性和標準化的要求更高。而原有的系統(tǒng)由于其與生俱來的缺點而無法在適應現有的需求了。</p><p>　　因此，使用現在的新技術，開發(fā)出適應新的需求的新系統(tǒng)的任務刻不容緩。</p><p><b>　　1.2組織結構</b></p><p>　　和設備管理信息系統(tǒng)由直接關系的主要是后勤管理處：&

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

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

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

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

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

21、/p><p>　　＊通用性：用戶可根據本校的需求靈活設置設備類別及其數據庫結構，可滿足不同層次，不同性質，不同業(yè)務工作的需求。</p><p>　　＊標準化：提供了豐富完善的設備管理信息內容，為各級設備部門之間的數據共享及數據交換奠定了良好的基礎。</p><p>　　＊先進性：采用面向對象技術開發(fā)，適應計算機網絡技術發(fā)展趨勢，運行在windows環(huán)境下，界面友好操作方

22、便。</p><p>　?。獙嵱眯裕壕哂胁僮骱啽恪⒐δ苓m中等特點，運行速度快。</p><p>　　1.6可行性分析與決策</p><p>　　對于新系統(tǒng)設計的幾個關鍵技術的可行性分析如下，</p><p>　　1．新系統(tǒng)目前使用VB6.0自帶的數據庫來作為數據庫，這是一個支持多用戶的新型數據庫，適用于中小規(guī)模的數據量需求。企業(yè)網的建設也為新

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

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

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

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

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

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

29、大量程序代碼。只需要按設計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設置這些圖形對象的屬性。Visual Basic自動產生界面設計代碼，程序設計人員只需要編寫實現程序功能的那部分代碼，從而可以大大提高程序設計的效率。</p><p><b>　　面向對象的程序設計</b></p><p>　　4.0版以后的Visual Basic支持

30、面向對象的程序設計，但它與一般的面向對象的程序設計語言(C++)不完全相同。在一般的面向對象程序設計語言中，對象由程序代碼和數據組成，是抽象的概念；而Visual Basic則是應用面向對象的程序設計方法(OOP)，把程序和數據封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象

31、以圖形方式顯示在界面上，都是可視的。</p><p><b>　　結構化程序設計語言</b></p><p>　　Visual Basic是在BASIC語言的基礎上發(fā)展起來的，具有高級程序設計語言的語句結構，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調試器和編譯器

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

33、驅動編程機制</b></p><p>　　Visual Basic通過事件來執(zhí)行對象的操作。一個對象可能會產生多個事件，每個事件都可以通過一段程序來響應。例如，命令按鈕是一個對象，當用戶單擊該按鈕時，將產生一個“單擊“(CLICK)事件，而在產生該事件時將執(zhí)行一段程序，用來實現指定的操作。</p><p>　　在用Visual Basic設計大型應用軟件時，不必建立具有明顯開始

34、和結束的程序，而是編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅動完成某種特定的功能，或者由事件驅動程序調用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。</p><p><b>　　訪問數據庫</b></p><p>　　Visual Basic具有強大的數據庫管理功能，利用數據控件和數據庫管理窗口，可以直接建立或

35、處理Microsoft Access格式的數據庫，并提供了強大的數據存儲和檢索功能。同時，Visual Basic還能直接編輯和訪問其他外部數據庫，如dBASE，FoxPro，Paradox等，這些數據庫格式都可以用Visual Basic編輯和處理。</p><p>　　Visual Basic提供開放式數據連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網絡數據庫，如SQL Server

36、，Oracle等。在應用程序中，可以使用結構化查詢語言SQL數據標準，直接訪問服務器上的數據庫，并提供了簡單的面向對象的庫操作指令和多用戶數據庫訪問的加鎖機制和網絡數據庫的SQL的編程技術，為單機上運行的數據庫提供了SQL網絡接口，以便在分布式環(huán)境中快速而有效地實現客戶/服務器(client/server)方案。</p><p>　　動態(tài)數據交換(DDE)</p><p>　　利用動態(tài)數據

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

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

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

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

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

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

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

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

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

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

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

48、準。</p><p>　　您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜單編輯器建立菜單或者修改已經存在的菜單。 </p><p><b>　　_ 實現工具欄</b></p><p>　　CoolBar控件與Office97種看到的CoolBar是類似的。CoolBar就是一個可

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

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

51、t;<p>　　3． Style屬性定義按鈕外觀。</p><p>　　4． ImageList屬性定義與數據條對應的ImageList控件名，該控件定義工具條按鈕顯示的圖像。</p><p>　　5． HotImangeList屬性設置一個ImageList控件名，該控件定義按鈕獲得熱點時顯示的圖像。</p><p>　　6． DisabledIma

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

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

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

55、框中可以設置它的屬性。</p><p>　　第四章.使用Access2000 實現關系型數據庫</p><p><b>　　數據庫的概念</b></p><p>　　數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息的集合。計算機的數據庫可以分為兩類：非關系數據庫（flat-file）和關系數據

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

57、數據；</p><p>　　2． 收集被標識的字段到表中；</p><p>　　3． 標識主關鍵字字段；</p><p>　　4． 繪制一個簡單的數據圖表；</p><p><b>　　5． 規(guī)范數據；</b></p><p>　　6． 標識指定字段的信息；</p><p>

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

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

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

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

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

63、t;　　功能：對所有設備進行添加，查詢，修改，刪除操作，對用戶密碼進行修改，對每條設備信息進行打印。</p><p>　　數據編緝界面實現功能：</p><p>　　對于設備的編號，設備名稱，設備型號，制造商，國別，購買日期，單價，數量，使用單位，使用人，管理員，放置地點，已使用年限，設備來源，報年限，聯系電話等記錄進行錄入，刪除，修改，打印操作！</p><p>

64、　　數據查詢界面與功能簡介</p><p>　　實現對在所有的設備記錄中查找某一個設備的說細信息，也可在查詢完一個后點 擊</p><p>　　下一個按鈕對下一條記錄進行查詢。</p><p><b>　　第七章．結束語</b></p><p>　　經過一個多月的設計和開發(fā)，設備管理信息系統(tǒng)基本開發(fā)完畢。其功能基本符合用

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

66、我從指導老師身上學到了很多東西。老師認真負責的工作態(tài)度，嚴謹的治學精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。</p><p>　　另外，在系統(tǒng)開發(fā)過程中助手同學也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給與我不少幫助，這里一并表示感謝。 </p&

67、gt;<p>　　第八章．主要參考文獻</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 自學通</p><p>　　作者：Ned Snell</p><p>　　出版社：機械工業(yè)出版社</p><p>　　[3] Visual Basic 6.0 中文版控件大全</p><p>　　作者：Microsoft</p><p>　　出版社；電子工業(yè)出版社</p>&l

69、t;p>　　[4] 中文Access 2000 24學時教程 </p><p>　　作者：Craig Eddy ，Timothy Buchanan</p><p>　　出版社：機械工業(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 "您輸入的用戶名和密碼有誤，請重新輸入！", 16, "出錯："<

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 "您是第一次使用本程序，請設置超級用戶！", 32, "設置："</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、―――設備信息代碼</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 "設備不能為空！", 16, "出錯："

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 "字符不能超過200個！", 16, "出錯："</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 "您沒有

99、這個權限！", 16, "出錯："</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 "您已經位于最后一條記錄", 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 "您的數據

104、庫中沒有記錄！", 16, "出錯："</p><p><b>　　Else</b></p><p>　　If Command2.Caption = "查詢" Then</p><p>　　Command8.Caption = "顯示信息"</p><p&

105、gt;　　Form3.Top = 700</p><p>　　Form3.Height = 5670</p><p>　　Command2.Caption = "結束查詢"</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、查詢"</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 "您沒有這個權限！", 16, "出錯："</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 "您的數據庫中沒有記錄！", 16, "出錯："</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 "設備不能為空！", 16, "出錯："</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 "字符不能超過200個！", 16, "出錯："</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 = "數據輸入："</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 "您沒有這個權限！", 16, "出錯："</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 "您的數據庫中沒有記錄可以刪除！", 16, "出錯："</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</