設(shè)備管理信息系統(tǒng)

1、 本科畢業(yè)論文（設(shè)計）論文題目：設(shè)備管理信息系統(tǒng)姓名：學(xué)號：班級：01班年級：2005級專業(yè)：計算機科學(xué)與技術(shù)系部：信息工程系指導(dǎo)教師：完成時間：2009年5月工商學(xué)院畢業(yè)論文（設(shè)計）專用稿紙作者聲明本畢業(yè)論文（設(shè)計）是在導(dǎo)師的指導(dǎo)下由本人獨立撰寫完成的，沒有剽竊、抄襲、造假等違反道德、學(xué)術(shù)規(guī)范和其他侵權(quán)行為。對本論文（設(shè)計）的研究做出重要貢獻的個人和集體，均已在文中以明確方式標明。因本畢業(yè)論文（設(shè)計）引起的法律結(jié)果完全由本人承擔(dān)。畢業(yè)論文（設(shè)計）成果歸工商學(xué)院所有。特此聲明。作者專業(yè)：計算機科學(xué)與技術(shù)作者學(xué)號：作者簽名： 200 年 月 日設(shè)備管理信息系統(tǒng)equipment manageme

2、nt information system 2009年5月 摘要設(shè)備管理信息系統(tǒng)是典型的信息管理系統(tǒng)(mis),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備，易使用等特點。 使用 microsoft公司的 visual basic開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對初始原型系統(tǒng)進行需求迭代，不斷修正和改進，直到形成滿意的可行系統(tǒng)。 整個系統(tǒng)從符合簡便、界面友好、靈活、實用、安全的

3、要求出發(fā)，完成設(shè)備管理信息的全過程，包括每一物品，例如辦公設(shè)備、家具、計算機及其他有價值的設(shè)備分配一個唯一的物品編碼，并根據(jù)此編碼在計算機中建立設(shè)備信息庫，對設(shè)備的新增、領(lǐng)用、折舊等進行管理，使管理人員可對設(shè)備的流向進行跟蹤，隨時掌握設(shè)備的現(xiàn)狀，減少設(shè)備丟失現(xiàn)象，解決查找、盤點困難等問題，提高管理人員的工作效率。因此，開發(fā)這樣一套管理軟件成為很有必要的事情。 企業(yè)開發(fā)設(shè)備管理信息系統(tǒng)的基本任務(wù)，就是要通過將信息技術(shù)和管理技術(shù)結(jié)合，利用計算機輔助設(shè)備管理人員的工作，提高工作效率，達到促進設(shè)備管理現(xiàn)代化，為提高企業(yè)生產(chǎn)技術(shù)水平和產(chǎn)品質(zhì)量、降低消耗、確保安全生產(chǎn)、增加經(jīng)濟效益等服務(wù)的目的。 本管理系

4、統(tǒng)是為適應(yīng)于設(shè)備管理信息而開發(fā)的軟件。從設(shè)備使用的角度管理設(shè)備，協(xié)助學(xué)校建立一套完善的數(shù)據(jù)管理模型，提供全面數(shù)據(jù)的編輯、查詢、系統(tǒng)管理等等功能，達到對設(shè)備科學(xué)管理的目的。關(guān)鍵詞：設(shè)備管理；信息系統(tǒng)；設(shè)備信息abstractequipment management information system is a typical management information system (mis), including the development of the main background of the establishment and maintenance of database a

5、nd application development front-end aspects. for the former requirement to establish data consistency and integrity, and data security of a good library. for applications which require full-featured and easy to use and so on. microsoft companies using visual basic development tools, provided use of

6、 its object-oriented development tools, in particular, the data window can be convenient and simple manipulation of the intelligent object databases, the first in a short period of time to establish a prototype system, and then of the initial prototype system needs iterative, and constantly revised

7、and improved, until the formation of a viable system satisfaction. from the whole system in line with the simple, user-friendly, flexible, practical and safety requirements, the complete equipment of the whole process of management information, including each item, such as office equipment, furnitur

8、e, computers and other equipment, valuable items assigned a unique coding, and in accordance with this code in the computer to create a device information database, the new equipment, the recipients, depreciation, such as management, so managers can track the flow of equipment, the status of equipme

9、nt at any time to reduce the loss of equipment, solution to find, difficult issues such as inventory, improve management efficiency. therefore, the development of management software has become such a necessary thing.companies to develop equipment management information systems basic task is to pass

10、 the information technology and management technology, the use of computer-aided facilities management staff to increase work efficiency and to promote the modernization of facilities management, to increase the level of production technology and product quality, reduce consumption, to ensure safety

11、 in production, enhance economic efficiency and other services.the management system is adapted to the development of device management information software. from the perspective of equipment used in the management of equipment, to assist schools to establish a data management model, provide a compr

12、ehensive data editing, query, the system management functions, the equipment to achieve the purpose of scientific management.key words: equipment management; information management; equipment information - 0 -目 錄引 論1一、課題背景及現(xiàn)狀1（一）課題背景1（二）課題現(xiàn)狀2二、系統(tǒng)開發(fā)平臺介紹2（一）visual basic介紹3（二）access 2003 介紹4三、 需求分析5（一）

13、需求背景 5 （二）用戶及功能需求5四、系統(tǒng)概要設(shè)計6（一） 設(shè)備管理信息系統(tǒng)功能結(jié)構(gòu)圖6（二） 設(shè)備管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計7五、設(shè)備管理信息系統(tǒng)的詳細設(shè)計與實現(xiàn)9（一）系統(tǒng)功能概述8（二）系統(tǒng)構(gòu)架設(shè)計9（三）系統(tǒng)登陸界面的設(shè)計9（四）主窗體的設(shè)計11結(jié) 語23主要參考文獻25 后 記26引 論隨著企業(yè)設(shè)備水平的日益提高，規(guī)模的不斷擴大，各種設(shè)備、系統(tǒng)和設(shè)施正朝著大型化、連續(xù)化、復(fù)雜化、精密化和柔性化方向發(fā)展，并力求滿足特殊環(huán)境下的苛刻要求，這為企業(yè)設(shè)備管理與維修提出了許多問題與挑戰(zhàn)。如由于設(shè)備突發(fā)故障，或因更換工裝和模具等造成停機損失，由此打亂了生產(chǎn)計劃，不能按期交貨、造成機會損失；設(shè)備空閑

14、或速度下降，導(dǎo)致設(shè)備性能損失；因設(shè)備精度降低，生產(chǎn)出不合格品；設(shè)備嚴重磨損、腐蝕，使維修量和費用提高；設(shè)備本身設(shè)計、制造的缺陷，或因維修、操作者的差錯而造成事故和公害。這些問題都會給企業(yè)本身或社會帶來嚴重的損失。這種損失可能會讓企業(yè)每天付出巨大代價，遠遠超過故障設(shè)備的價值。為滿足現(xiàn)代化工業(yè)生產(chǎn)的無故障、無缺陷、無傷亡、無公害的要求，各工業(yè)發(fā)達國家先后提出了設(shè)備管理的新理論。設(shè)備管理信息系統(tǒng)（pmis）就是以系統(tǒng)思想的方法，利用現(xiàn)代信息通訊技術(shù)和設(shè)備管理理論的最新發(fā)展成果，并結(jié)合國家有關(guān)設(shè)備管理的法律、法規(guī)，對企業(yè)設(shè)備管理活動中的信息進行收集、提取、加工、輸出，從而形成支持組織決策的信息系統(tǒng)。對

15、于性能和速度的要求本系統(tǒng)前臺采用了visual basic作為開發(fā)工具，后臺的數(shù)據(jù)庫則用了microsoft access。為了提高速度采用了ado技術(shù)鏈接數(shù)據(jù)庫。對于本系統(tǒng)的管理，系統(tǒng)設(shè)置了權(quán)限。分數(shù)據(jù)管理員、普通用戶、系統(tǒng)管理員。在驗證期身份是，主要通過ado 空間中記錄對象結(jié)合if語句來判斷身份。本系統(tǒng)有安裝便捷，占用內(nèi)存少等特點，此外該系統(tǒng)在功能上還有很大的擴展性，各個用戶可以根據(jù)自身需求，進一步開發(fā)完善。一、課題背景及現(xiàn)狀（一）課題背景企業(yè)以前的有關(guān)設(shè)備管理的工作都是由人工來完成的。隨著企業(yè)的發(fā)展，企業(yè)設(shè)備處的設(shè)備管理信息工作量大大加重。隨著計算機應(yīng)用的發(fā)展，很多企業(yè)急切希望能夠?qū)⒋?/p>

16、部分繁瑣的工作交由計算機的處理，已減輕人工的壓力并提高工作效率。而計算機的普及更加快了設(shè)備管理信息系統(tǒng)的產(chǎn)生。設(shè)備管理信息系統(tǒng)（pmis）實現(xiàn)了設(shè)備管理的自動化，為企業(yè)實現(xiàn)優(yōu)化管理提供了有效的工具，使設(shè)備管理工作規(guī)范化，減少了隨意性，提高了設(shè)備資源的利用率和工作效率，使作業(yè)計劃的準確性和科學(xué)性得以保障，有助于企業(yè)經(jīng)營目標的實現(xiàn)。作為整個企業(yè)管理信息系統(tǒng)的一個子系統(tǒng)，設(shè)備管理信息系統(tǒng)具有良好的數(shù)據(jù)共享性，能夠和其它管理系統(tǒng)進行聯(lián)接，實現(xiàn)信息共享，提高管理的高效性和準確性。原有設(shè)備管理信息系統(tǒng)數(shù)據(jù)共享差的問題更加突出，而新需求的提出也越來越多，越來越頻繁。這就要求系統(tǒng)在可擴展性和標準化的要求更高。

17、而原有的系統(tǒng)由于其與生俱來的缺點而無法在適應(yīng)現(xiàn)有的需求了。因此，使用現(xiàn)在的新技術(shù)，開發(fā)出適應(yīng)新的需求的新系統(tǒng)的任務(wù)刻不容緩。通過此說明書，可以明確系統(tǒng)中各個模塊的功能，能夠更好的將用戶的需求更好的體現(xiàn)在程序中來，從而使程序在功能方面更加全面，這樣就可以更好滿足用戶的需求。該說明書主要是針對程序開發(fā)者的，這樣可以更好的與用戶進行溝通。（二）課題現(xiàn)狀21 世紀以信息技術(shù)為特征的制造業(yè)革命正在全球范圍內(nèi)展開，信息技術(shù)正以前所未有的速度快速地滲透到制造業(yè)的各個領(lǐng)域中，使制造業(yè)的產(chǎn)品、研發(fā)方式、生產(chǎn)模式和精英管理的理念都發(fā)生了深刻地變化。中小企業(yè)信息化對整個制造業(yè)的發(fā)展乃至國民經(jīng)濟的發(fā)展有著舉足輕重的作

18、用。管理信息系統(tǒng)從 20 世紀 50 年代中期計算機用于管理領(lǐng)域以來，經(jīng)歷了從簡單到復(fù)雜，從單機到網(wǎng)絡(luò)，從功能單一到功能集成、從傳統(tǒng)到現(xiàn)代的演化。根據(jù) mis 發(fā)展的時序和特點，可將 mis 的發(fā)展歷程大致分為電子數(shù)據(jù)處理系統(tǒng)（ edps ）、管理信息系統(tǒng)（ mis ）、決策支持系統(tǒng)（ dss ）三個階段。20 世紀 50 年代中期，計算機作為強有力的數(shù)據(jù)處理工具與手段，開始在中小企業(yè)管理中應(yīng)用。 50 多年來，中小企業(yè)應(yīng)用管理信息系統(tǒng)經(jīng)歷了從簡單、局部應(yīng)用到高級、全面解決管理問題的發(fā)展過程。任何一個中小企業(yè) mis 都蘊含著管理體制和管理模式，由于系統(tǒng)中信息的處理和輸出方式都與管理方法、管理

19、體制密切相關(guān)，因此，任何一個 mis 都是其具體管理思想的縮影。二、系統(tǒng)開發(fā)平臺介紹隨著計算機技術(shù)的不斷發(fā)展，計算機應(yīng)用于各大領(lǐng)域，并給人們的生活帶來了極大的便利，在固定管理系統(tǒng)亦是如此。以往設(shè)備員由于缺乏適當(dāng)?shù)能浖o其工作帶來了很多不便。本論文所介紹的便是一個設(shè)備管理信息系統(tǒng)，以方便在設(shè)備安排和設(shè)備管理信息上的工作任務(wù)。設(shè)備管理是重點工作，利用先進的技術(shù)手段和指導(dǎo)思想提高對企業(yè)及時有效的管理、考查，對提高企業(yè)競爭力有著廣泛深遠的意義。該系統(tǒng)包括：設(shè)備管理、設(shè)備查詢、用戶管理、系統(tǒng)管理。設(shè)備管理系統(tǒng)的功能，能夠很好的服務(wù)于企業(yè)設(shè)備的數(shù)字化管理，可以讓管理人員很輕松地了解到當(dāng)前每件設(shè)備的當(dāng)前情

20、況。譬如設(shè)備當(dāng)前在哪個部門之下、什么時候借出去的、由誰借出去的等信息，而且可以很方便的查詢設(shè)備的信息。（一）visual basic介紹1991年，微軟公司推出了visual basic 1.0版。這在當(dāng)時引起了很大的轟動。這個連接編程語言和用戶界面的進步被稱為tripod（有些時候叫做ruby），最初的設(shè)計是由阿蘭庫珀（alan cooper）完成的。許多專家把vb的出現(xiàn)當(dāng)做是軟件開發(fā)史上的一個具有劃時代意義的事件。其實，以我們現(xiàn)在的目光來看，vb1.0的功能實在是太弱了；（不過最近vb6.0, vb.net的功能相當(dāng)大）。但在當(dāng)時，它是第一個“可視”的編程軟件。這使得程序員欣喜之極，都嘗試

21、在vb的平臺上進行軟件創(chuàng)作。微軟也不失時機地在四年內(nèi)接連推出vb2.0，vb3.0，4.0三個版本。并且從vb3開始，微軟將access的數(shù)據(jù)庫驅(qū)動集成到了vb中，這使得vb的數(shù)據(jù)庫編程能力大大提高。從vb4開始，vb也引入了面向?qū)ο蟮某绦蛟O(shè)計思想。vb功能強大，學(xué)習(xí)簡單。而且，vb還引入了“控件”的概念，使得大量已經(jīng)編好的vb程序可以被我們直接拿來使用。vb1.0的dos版本vb1.0于1991年發(fā)布。這個連接編程語言和用戶界面的進步被稱為tripod（有些時候叫做ruby），最初的設(shè)計是由阿蘭庫珀（alan cooper）完成的 2002年visual basic .net 2002 (v

22、7.0)問世，2003年visual basic .net 2003 (v7.1)問世，2005年11月7日visual basic 2005 (v8.0)問世，同時間推出visual basic 2005的免費簡化版本visual basic 2005 express edition給visual basic初學(xué)者及學(xué)生使用。 vb 2005的“顯著”優(yōu)點是，可以直接編寫出xp風(fēng)格的按鈕，以及其他的控件。但是其編寫的小程序占用近10mb的內(nèi)存。 通過幾年的發(fā)展，它已成為一種專業(yè)化的開發(fā)語言和環(huán)境。用戶可用visual basic快速創(chuàng)建windows程序，現(xiàn)在還可以編寫企業(yè)水平的客戶端/服務(wù)

23、器程序及強大的數(shù)據(jù)庫應(yīng)用程序。 vb會吸引更多的贊譽和批評，也會繼續(xù)為廣大的用戶和程序員使用。它非常適合用來開發(fā)擁有友好界面的程序（比如針對終端的數(shù)據(jù)），但是不適合開發(fā)其它程序（比如聯(lián)合計算程序）。一個典型的vb進程vb的中心思想就是要便于程序員使用，無論是新手或者專家。vb使用了可以簡單建立應(yīng)用程序的gui系統(tǒng)，但是又可以開發(fā)相當(dāng)復(fù)雜的程序。vb的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來指定組建的屬性和方法。因為默認的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫多少代碼就可以完成一個簡單的程序。過去的版本里面vb程序的性能問題一直被放在了桌面上，但是隨著計算機速度的

24、飛速增加，關(guān)于性能的爭論已經(jīng)越來越少。窗體控件的增加和改變可以用拖放技術(shù)實現(xiàn)。一個排列滿控件的工具箱用來顯示可用控件（比如文本框或者按鈕）。每個控件都有自己的屬性和事件。默認的屬性值會在控件創(chuàng)建的時候提供，但是程序員也可以進行更改。很多的屬性值可以在運行時候隨著用戶的動作和修改進行改動，這樣就形成了一個動態(tài)的程序。舉個例子來說：窗體的大小改變事件中加入了可以改變控件位置的代碼，在運行時候每當(dāng)用戶更改窗口大小，控件也會隨之改變位置。在文本框中的文字改變事件中加入相應(yīng)的代碼，程序就能夠在文字輸入的時候自動翻譯或者阻止某些字符的輸入。 vb的程序可以包含一個或多個窗體，或者是一個主窗體和多個子窗體，

25、類似于操作系統(tǒng)的樣子。有很少功能的對話框窗口（比如沒有最大化和最小化按鈕的窗體）可以用來提供彈出功能。 vb的組件既可以擁有用戶界面，也可以沒有。這樣一來服務(wù)器端程序就可以處理增加的模塊。 vb使用參數(shù)計算的方法來進行垃圾收集，這個方法中包含有大量的對象，提供基本的面向?qū)ο笾С?。因為越來越多組建的出現(xiàn)，程序員可以選用自己需要的擴展庫。和有些語言不一樣，vb對大小寫不敏感，但是能自動轉(zhuǎn)換關(guān)鍵詞到標準的大小寫狀態(tài)，以及強制使得符號表入口的實體的變量名稱遵循書寫規(guī)則。默認情況下字符串的比較是對大小寫敏感的，但是可以關(guān)閉這個功能。 vb使得大量的外界控件有了自己的生存空間。大量的第三方控件針對vb提供

26、。vb也提供了建立、使用和重用這些控件的方法，但是由于語言問題，從一個應(yīng)用程序創(chuàng)建另外一個并不簡單。（二）access 2003介紹access2003 office自帶的數(shù)據(jù)庫access 是office2000里面的一個組件。是用來制作簡單的數(shù)據(jù)庫。還有的意思就是訪問、還有接入的意思。如access list 訪問列表 access point 接入點在辦公軟件office套件中，最為廣大用戶熟悉的是word和excel，因為它們功能強大且方便易用，更因為它們不僅可用于辦公，還可用于個人寫作和家庭記帳理財?shù)?。同為office套件中一部分的access，雖然有著同樣強大的功能，但使用的人卻相

27、對少些，不像word和excel那樣廣泛。事實上，真正用過access的用戶，對其強大功能和靈活應(yīng)用均稱贊有加。 access 數(shù)據(jù)庫管理系統(tǒng)是microsoft office 套件的重要組成部分，適用于小型商務(wù)活動，用以存貯和管理商務(wù)活動所需要的數(shù)據(jù)。access不僅是一個數(shù)據(jù)庫，而且它具有強大的數(shù)據(jù)管理功能，它可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報表和應(yīng)用程序等。 數(shù)據(jù)庫是有結(jié)構(gòu)的數(shù)據(jù)集合,它與一般的數(shù)據(jù)文件不同，(其中的數(shù)據(jù)是無結(jié)構(gòu)的)是一串文字或數(shù)字流。數(shù)據(jù)庫中的數(shù)據(jù)可以是文字、圖象、聲音等。 microsoft access是一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成

28、，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個字段名，字段名在一個表中不能重復(fù)。圖1是一個“產(chǎn)品”表的例子。“產(chǎn)品”表由10個記錄組成，一個記錄占一行，每一個記錄由產(chǎn)品id、產(chǎn)品名稱、庫存量、訂貨量、單價和折扣率6個字段組成。“產(chǎn)品id”是字段名，其下面的1，2等是字段的值。表與表之間可以建立關(guān)系（或稱關(guān)聯(lián)，連接），以便查詢相關(guān)聯(lián)的信息。access數(shù)據(jù)庫以文件形式保存，文件的擴展名是mdb。access 數(shù)據(jù)庫由六種對象組成，它們是表、查詢、窗體、報表、宏和模塊。表(table) 表是數(shù)據(jù)庫的基本對象，是創(chuàng)建其他5種對象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用

29、來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。查詢(query)查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。窗體(form) 窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。報表(report) 報表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。宏(macro) 宏相當(dāng)于dos中的批處理，用來自動執(zhí)行一系列操作。access列出了一些常用的操作供用戶選擇，使用起來十分方便。 模塊(module) 模塊的功能與宏類似，但它定義的操作比宏更精細和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。模塊使用visual ba

30、sic編程。三、需求分析（一）需求背景在設(shè)備管理系統(tǒng)中，需要從大量的設(shè)備信息中，提取相關(guān)信息，以反映設(shè)備的當(dāng)前的情況。傳統(tǒng)的手工操作方式，易發(fā)生數(shù)據(jù)丟失，統(tǒng)計錯誤，勞動強度高，且速度慢。使用計算機可以高速，快捷地完成以上工作。在計算機聯(lián)網(wǎng)后，數(shù)據(jù)在網(wǎng)上傳遞，可以實現(xiàn)數(shù)據(jù)共享，避免重復(fù)勞動，規(guī)范設(shè)備管理行為，從而提高了管理效率和水平。（二）用戶及功能需求1設(shè)備用戶的主要功能和權(quán)限設(shè)備管理：可查看設(shè)備的編號、名稱、型號、購買日期、購買價格、折舊價格等。設(shè)備查詢：可查詢設(shè)備的價格、注銷日期等基本信息。用戶管理：可以查詢和修改用戶的基本信息。系統(tǒng)管理：可以進行密碼的修改、數(shù)據(jù)備份、數(shù)據(jù)整理、數(shù)據(jù)清理和

31、退出系統(tǒng)。2設(shè)備管理員的主要功能和權(quán)限基本信息 ：可查詢設(shè)備的基本信息。用戶管理：可以新增和刪除設(shè)備的基本信息。級別管理：可以進行用戶級別所有的相關(guān)信息。四、系統(tǒng)概要設(shè)計（一）設(shè)備管理信息系統(tǒng)功能結(jié)構(gòu)圖分析設(shè)備管理信息系統(tǒng)，其大致的模式主要有：設(shè)備管理、用戶管理、系統(tǒng)管理等功能模塊，其總體功能如圖1所示。同時，結(jié)合設(shè)備管理信息化軟件，對設(shè)備管理信息系統(tǒng)的應(yīng)用作進一步的闡述。設(shè)備管理系統(tǒng)設(shè)備管理用戶管理部門管理設(shè)備編號用戶級別用戶名設(shè)備類型設(shè)備名稱部門部門編號類型編號系統(tǒng)管理密碼類型名稱圖1 設(shè)備管理系統(tǒng)功能結(jié)構(gòu)圖根據(jù)系統(tǒng)分析的結(jié)果，按照結(jié)構(gòu)化的系統(tǒng)設(shè)計方法，設(shè)備管理系統(tǒng)需要實現(xiàn)的具體功能模塊主

32、要可以分為設(shè)備管理、用戶管理、系統(tǒng)管理等三個模塊。設(shè)備管理系統(tǒng)的數(shù)據(jù)流程圖如圖2所示。圖2 設(shè)備管理系統(tǒng)數(shù)據(jù)流程圖（二）設(shè)備管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計是整個程序設(shè)計的最關(guān)鍵部分，數(shù)據(jù)庫的設(shè)計是否合理，將對數(shù)據(jù)庫的大小、代碼的優(yōu)化起到至關(guān)重要的作用，因此在設(shè)計程序前必需對數(shù)據(jù)庫進行設(shè)計，而在設(shè)計數(shù)據(jù)庫前必需對所要完成的功能進行認真的研究分析，下面介紹我們的數(shù)據(jù)庫設(shè)計:在本系統(tǒng)的設(shè)計中總共設(shè)計了5個表，其中有關(guān)于用戶信息管理的，還有部門信息的，設(shè)備臺帳的，設(shè)備借入借出的和設(shè)備類型的表。其相應(yīng)情況如下圖3至圖7：圖3用戶表圖4部門表圖5設(shè)備借入借出表圖6 設(shè)備類型表圖7 設(shè)備臺帳表 五、設(shè)備管

33、理信息系統(tǒng)的詳細設(shè)計與實現(xiàn)（一）系統(tǒng)功能概述該系統(tǒng)的主要功能是為設(shè)備管理員對設(shè)備流動管理而開發(fā)，主要是對日常設(shè)備情況進行添加、刪除、借入借出、設(shè)備報廢和注銷的功能。根據(jù)系統(tǒng)的開發(fā)目標、原則和項目需求。對數(shù)據(jù)庫、操作系統(tǒng)平臺以及服務(wù)器等關(guān)鍵部分進行了認真討論和詳盡對比分析，并做出以下選擇：microsoft公司的windows xp作為操作系統(tǒng)平臺， microsoft access 2003標準版作為后端數(shù)據(jù)庫服務(wù)器軟件：以windows作為前端工作站的主要操作系統(tǒng)；vb 6.0作為前臺工作站應(yīng)用程序開發(fā)工具。（二）系統(tǒng)架構(gòu)設(shè)計設(shè)備管理系統(tǒng)的架構(gòu)分為窗體，模塊和類模塊三個部分。在窗體的部分有以

34、下幾個窗體，他們的作用分別是： “frmdevice.frm”是設(shè)備窗口，可以對設(shè)備信息進行添加，刪除的操作；“frmgetdate.frm”是設(shè)置日期窗體，對日期進行設(shè)置；“frmlend.frm” 是設(shè)備借入借出，管理員可以在此修改設(shè)備的借入借出狀態(tài)；“frmlogin.frm”是用戶的登陸窗口，啟動系統(tǒng)時就會出現(xiàn)這個窗口； “frmmain.frm”是系統(tǒng)主界面，用戶可以選擇要執(zhí)行的任務(wù)；“frmuser.frm” 是用戶管理窗口，對用戶進行添加和刪除；系統(tǒng)架構(gòu)說明見圖8所示：圖8 系統(tǒng)架構(gòu)圖（三）系統(tǒng)登陸界面的設(shè)計登陸界面在vb 6.0中，在新建窗體后，然后加上相應(yīng)的控件按鈕。當(dāng)輸入用

35、戶名和密碼時，點擊“確定”按鈕，此時cmdok事件被激活，它將執(zhí)行相應(yīng)的事件。圖9 登陸界面其后臺代碼為：dim strpwd as string dim rspwd as adodb.recordset dim strlogin as string strlogin = trim(txtusername.text) strpwd = trim(txtpassword.text) if len(strlogin) = 0 then msgbox 用戶名不能為空,請輸入用戶名 txtusername.setfocus exit sub end if if len(strpwd) = 0 then

36、 msgbox 密碼不能為空,請輸入正確的密碼 txtpassword.setfocus exit sub end if set rspwd = gconn.execute(select pwd from tbluser where login= & replace(strlogin, , ) & ) if rspwd.eof then msgbox 用戶名不正確,請重新輸入! elseif strpwd = rspwd(pwd).value then 將代碼放在這里傳遞 成功到 calling 函數(shù) 設(shè)置全局變量時最容易的 loginsucceeded = true me.hide else

37、 msgbox 無效的密碼，請重試!, , 登錄 txtpassword.setfocus sendkeys home+end end if rspwd.close set rspwd = nothingend sub（四）主窗體的設(shè)計主窗體界面是顯示系統(tǒng)主要操作功能的面板，在系統(tǒng)主窗體中，可以顯示設(shè)備管理、設(shè)備查詢、用戶管理和系統(tǒng)管理信息，還可以通過點擊這四組按鈕來查看設(shè)備的信息。設(shè)備管理信息系統(tǒng)的主界面如圖10所示。圖10 設(shè)備管理信息系統(tǒng)的主界面1.系統(tǒng)主窗體的功能成功登錄后，進入的系統(tǒng)的主窗體，在主窗體中有四組按鈕，第一組是設(shè)備管理選擇按鈕，通過點擊相應(yīng)的按鈕可以在主窗體中顯示不同設(shè)備

38、的表單，這些表單分別是設(shè)備信息表，這組按鈕和access數(shù)據(jù)庫中各表相聯(lián)系。第二組按鈕是對設(shè)備的查詢操作，通過設(shè)備名、型號、價格、購置日期和注銷日期對設(shè)備進行查詢。第三組按鈕是用戶管理，對用戶的權(quán)限進行設(shè)置。第四組按鈕是系統(tǒng)管理按鈕，分為用戶操作和系統(tǒng)管理員操作，用戶操作執(zhí)行密碼的修改和退出系統(tǒng)的功能，系統(tǒng)管理員操作執(zhí)行數(shù)據(jù)備份、數(shù)據(jù)整理和數(shù)據(jù)清理的功能。用戶成功進入系統(tǒng)主窗體運行結(jié)果見圖11所示：圖11 系統(tǒng)主窗體的運行結(jié)果2.系統(tǒng)主窗體的主要代碼設(shè)計其后臺代碼為：private sub tabmain_click(previoustab as integer) dim strsql as

39、string select case tabmain.tab case 0 strsql = select a.*,b.department,c.typename from (tbldevice as a inner join tbldepartment as b on a.deptno=b.deptno) inner join tbltypeinfo c on a.typeno=c.typeno order by a.iid desc call filldevicegrid(grddevice, strsql) case 3 call fillusergrid end select end

40、subprivate sub filldevicegrid(grid as msflexgrid, optional strsql as string) dim rs as adodb.recordset dim strrowdata as string dim rowindex as integer if len(strsql) = 0 then strsql = select a.*,b.department,c.typename from (tbldevice as a inner join tbldepartment as b on a.deptno=b.deptno) inner j

41、oin tbltypeinfo c on a.typeno=c.typeno order by a.iid desc end if rowindex = 1with grid if .tag = then set rs = gconn.execute(strsql) .rows = 1 .cols = 13 .row = 0 .col = 0 .text = 序號 .col = 1 .text = id .colwidth(1) = 0 .col = 2 .text = 設(shè)備編號 .col = 3 .text = 設(shè)備名稱 .col = 4 .text = 設(shè)備型號 .col = 5 .tex

42、t = 設(shè)備分類 .col = 6 .text = 所屬部門 .col = 7 .text = 購買價格 .col = 8 .text = 折舊成本 .col = 9 .text = 購買日期 .col = 10 .text = 狀態(tài) .col = 11 .text = 報廢日期 .col = 12 .text = 注銷日期 do until rs.eof strrowdata = rowindex & vbtab strrowdata = strrowdata & rs(iid).value & vbtab strrowdata = strrowdata & rs(deviceno).val

43、ue & vbtab strrowdata = strrowdata & rs(devicename).value & vbtab strrowdata = strrowdata & rs(devicemodel).value & vbtab strrowdata = strrowdata & rs(typename).value & vbtab strrowdata = strrowdata & rs(department).value & vbtab strrowdata = strrowdata & rs(productprice).value & vbtab strrowdata =

44、strrowdata & rs(productcost).value & vbtab strrowdata = strrowdata & formatdatetime(rs(purchasedate).value, vblongdate) & vbtab if rs(status).value = 0 then strrowdata = strrowdata & 在庫 & vbtab else strrowdata = strrowdata & 借出 & vbtab end if strrowdata = strrowdata & rs(rejectdate).value & vbtab st

45、rrowdata = strrowdata & rs(discarddate).value & vbtab .additem strrowdata rs.movenext rowindex = rowindex + 1 loop rs.close set rs = nothing .tag = 1 end ifend withend sub3.系統(tǒng)管理窗體的功能把系統(tǒng)管理表作為主窗體的默認表，所示主窗體的運行結(jié)果也是設(shè)備管理表的運行結(jié)果。在系統(tǒng)管理表中可以對密碼進行修改，對數(shù)據(jù)進行整理。（1）用戶操作是對用戶的密碼進行修改。系統(tǒng)管理密碼修改窗體運行結(jié)果見圖12所示：圖12 系統(tǒng)密碼修改其后臺代

46、碼為：dim oldpass as string dim newpass1 as stringdim newpass2 as stringoldpass = inputbox(請輸入舊密碼:, 密碼修改) if len(oldpass) 0 then if oldpass guser.password then msgbox 輸入密碼不正確! exit sub end if newpass1 = inputbox(請輸入新密碼:, 密碼修改) if len(newpass1) = 0 then msgbox 密碼修改不成功! exit sub else newpass2 = inputbox(

47、請再次輸入新密碼確認:, 密碼修改) if len(newpass2) = 0 then msgbox 密碼修改不成功! exit sub elseif newpass1 = newpass2 then if guser.resetpassword(newpass1) = false then msgbox 數(shù)據(jù)操作錯誤,密碼修改不成功! else msgbox 密碼成功修改!請保存好你的密碼! end if exit sub else msgbox 兩次輸入的新密碼不一樣,修改失敗! exit sub end if end if else msgbox 密碼修改不成功! exit suben

48、d if（2）系統(tǒng)管理員操作是對數(shù)據(jù)執(zhí)行備份、整理和清理操作。界面如圖13至圖15所示：圖13 數(shù)據(jù)備份圖14 數(shù)據(jù)整理圖15 數(shù)據(jù)清理4.設(shè)備管理窗體的功能對設(shè)備的信息進行添加、刪除、借入借出、設(shè)備報廢和設(shè)備注銷。設(shè)備管理的窗體的界面如下圖16所示： 圖16 設(shè)備管理界面其后臺代碼為：dim strsql as string select case tabmain.tab case 0 strsql = select a.*,b.department,c.typename from (tbldevice as a inner join tbldepartment as b on a.dept

49、no=b.deptno) inner join tbltypeinfo c on a.typeno=c.typeno order by a.iid desc call filldevicegrid(grddevice, strsql) case 3 call fillusergridend select（1）添加設(shè)備信息的界面如圖17所示：圖17 添加設(shè)備界面（2）刪除設(shè)備信息的界面如圖18所示：圖18 刪除設(shè)備界面刪除設(shè)備其后臺代碼為：dim iid as string with grddevice if .row = 0 then msgbox 請選擇要刪除的設(shè)備! else if msgbox(你是否真的要刪除當(dāng)前選擇的設(shè)備嗎?刪除后將不能恢復(fù)!, vbokcancel) = vbok then .col = 1 iid = .text dim device as new class