1、Wuhan Polytechnic University Industrial&Commercial College 本科畢業論文（設計）論文題目：設備管理信息系統姓名：陳 玲學號：053003010005班級：01班年級：2005級專業：計算機科學與技術系部：信息工程系指導教師：張青寧（高級工程師） 張 樊（碩士）完成時間：2009年5月作者聲明本畢業論文（設計）是在導師的指導下由本人獨立撰寫完成的，沒有剽竊、抄襲、造假等違反道德、學術規范和其他侵權行為。對本論文（設計）的研究做出重要貢獻的個人和集體，均已在文中以明確方式標明。因本畢業論文（設計）引起的法律結果完全由本人承擔。畢業論

2、文（設計）成果歸武漢工業學院工商學院所有。特此聲明。作者專業：計算機科學與技術作者學號：053003010005作者簽名： 200 年 月 日設備管理信息系統陳玲Equipment Management Information System Chen ,Ling2009年5月 摘要設備管理信息系統是典型的信息管理系統(MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點。 使用 MICROSOFT公司的 VISUAL BASIC開發工具，利用其提供的各種面向對象的開

3、發工具，尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象，首先在短時間內建立系統應用原型，然后，對初始原型系統進行需求迭代，不斷修正和改進，直到形成滿意的可行系統。 整個系統從符合簡便、界面友好、靈活、實用、安全的要求出發，完成設備管理信息的全過程，包括每一物品，例如辦公設備、家具、計算機及其他有價值的設備分配一個唯一的物品編碼，并根據此編碼在計算機中建立設備信息庫，對設備的新增、領用、折舊等進行管理，使管理人員可對設備的流向進行跟蹤，隨時掌握設備的現狀，減少設備丟失現象，解決查找、盤點困難等問題，提高管理人員的工作效率。因此，開發這樣一套管理軟件成為很有必要的事情。 企業開發設備管理信息

4、系統的基本任務，就是要通過將信息技術和管理技術結合，利用計算機輔助設備管理人員的工作，提高工作效率，達到促進設備管理現代化，為提高企業生產技術水平和產品質量、降低消耗、確保安全生產、增加經濟效益等服務的目的。 本管理系統是為適應于設備管理信息而開發的軟件。從設備使用的角度管理設備，協助學校建立一套完善的數據管理模型，提供全面數據的編輯、查詢、系統管理等等功能，達到對設備科學管理的目的。關鍵詞：設備管理；信息系統；設備信息AbstractEquipment Management Information System is a typical management information syst

5、em (MIS), including the development of the main background of the establishment and maintenance of database and 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-

6、featured and easy to use and so on. Microsoft companies using VISUAL BASIC development tools, provided use of 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 es

7、tablish a prototype system, and then of the initial prototype system needs iterative, and constantly revised 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 equi

8、pment of the whole process of management information, including each item, such as office equipment, furniture, 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 rec

9、ipients, depreciation, such as management, so managers can track the flow of equipment, the status of equipment 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 beco

10、me such a necessary thing.Companies to develop equipment management information system's basic task is to pass 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 ma

11、nagement, to increase the level of production technology and product quality, reduce consumption, to ensure safety 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 equi

12、pment used in the management of equipment, to assist schools to establish a data management model, provide a comprehensive data editing, query, the system management functions, the equipment to achieve the purpose of scientific management.Key words: Equipment management; information management; equi

13、pment information 目 錄引 論1一、課題背景及現狀1（一）課題背景1（二）課題現狀2二、系統開發平臺介紹2（一）Visual Basic介紹3（二）Access 2003 介紹4三、 需求分析5（一）需求背景 5 （二）用戶及功能需求5四、系統概要設計6（一） 設備管理信息系統功能結構圖6（二） 設備管理信息系統數據庫設計7五、設備管理信息系統的詳細設計與實現9（一）系統功能概述8（二）系統構架設計9（三）系統登陸界面的設計9（四）主窗體的設計11結 語23主要參考文獻25 后 記26引 論隨著企業設備水平的日益提高，規模的不斷擴大，各種設備、系統和設施正朝著大型化、連續化、

14、復雜化、精密化和柔性化方向發展，并力求滿足特殊環境下的苛刻要求，這為企業設備管理與維修提出了許多問題與挑戰。如由于設備突發故障，或因更換工裝和模具等造成停機損失，由此打亂了生產計劃，不能按期交貨、造成機會損失；設備空閑或速度下降，導致設備性能損失；因設備精度降低，生產出不合格品；設備嚴重磨損、腐蝕，使維修量和費用提高；設備本身設計、制造的缺陷，或因維修、操作者的差錯而造成事故和公害。這些問題都會給企業本身或社會帶來嚴重的損失。這種損失可能會讓企業每天付出巨大代價，遠遠超過故障設備的價值。為滿足現代化工業生產的無故障、無缺陷、無傷亡、無公害的要求，各工業發達國家先后提出了設備管理的新理論。設備管

15、理信息系統（PMIS）就是以系統思想的方法，利用現代信息通訊技術和設備管理理論的最新發展成果，并結合國家有關設備管理的法律、法規，對企業設備管理活動中的信息進行收集、提取、加工、輸出，從而形成支持組織決策的信息系統。對于性能和速度的要求本系統前臺采用了Visual Basic作為開發工具，后臺的數據庫則用了Microsoft Access。為了提高速度采用了ADO技術鏈接數據庫。對于本系統的管理，系統設置了權限。分數據管理員、普通用戶、系統管理員。在驗證期身份是，主要通過ADO 空間中記錄對象結合if語句來判斷身份。本系統有安裝便捷，占用內存少等特點，此外該系統在功能上還有很大的擴展性，各個用

16、戶可以根據自身需求，進一步開發完善。一、課題背景及現狀（一）課題背景企業以前的有關設備管理的工作都是由人工來完成的。隨著企業的發展，企業設備處的設備管理信息工作量大大加重。隨著計算機應用的發展，很多企業急切希望能夠將大部分繁瑣的工作交由計算機的處理，已減輕人工的壓力并提高工作效率。而計算機的普及更加快了設備管理信息系統的產生。設備管理信息系統（PMIS）實現了設備管理的自動化，為企業實現優化管理提供了有效的工具，使設備管理工作規范化，減少了隨意性，提高了設備資源的利用率和工作效率，使作業計劃的準確性和科學性得以保障，有助于企業經營目標的實現。作為整個企業管理信息系統的一個子系統，設備管理信息系

17、統具有良好的數據共享性，能夠和其它管理系統進行聯接，實現信息共享，提高管理的高效性和準確性。原有設備管理信息系統數據共享差的問題更加突出，而新需求的提出也越來越多，越來越頻繁。這就要求系統在可擴展性和標準化的要求更高。而原有的系統由于其與生俱來的缺點而無法在適應現有的需求了。因此，使用現在的新技術，開發出適應新的需求的新系統的任務刻不容緩。通過此說明書，可以明確系統中各個模塊的功能，能夠更好的將用戶的需求更好的體現在程序中來，從而使程序在功能方面更加全面，這樣就可以更好滿足用戶的需求。該說明書主要是針對程序開發者的，這樣可以更好的與用戶進行溝通。（二）課題現狀21 世紀以信息技術為特征的制造業

18、革命正在全球范圍內展開，信息技術正以前所未有的速度快速地滲透到制造業的各個領域中，使制造業的產品、研發方式、生產模式和精英管理的理念都發生了深刻地變化。中小企業信息化對整個制造業的發展乃至國民經濟的發展有著舉足輕重的作用。管理信息系統從 20 世紀 50 年代中期計算機用于管理領域以來，經歷了從簡單到復雜，從單機到網絡，從功能單一到功能集成、從傳統到現代的演化。根據 MIS 發展的時序和特點，可將 MIS 的發展歷程大致分為電子數據處理系統（ EDPS ）、管理信息系統（ MIS ）、決策支持系統（ DSS ）三個階段。20 世紀 50 年代中期，計算機作為強有力的數據處理工具與手段，開始在中

19、小企業管理中應用。 50 多年來，中小企業應用管理信息系統經歷了從簡單、局部應用到高級、全面解決管理問題的發展過程。任何一個中小企業 MIS 都蘊含著管理體制和管理模式，由于系統中信息的處理和輸出方式都與管理方法、管理體制密切相關，因此，任何一個 MIS 都是其具體管理思想的縮影。二、系統開發平臺介紹隨著計算機技術的不斷發展，計算機應用于各大領域，并給人們的生活帶來了極大的便利，在固定管理系統亦是如此。以往設備員由于缺乏適當的軟件而給其工作帶來了很多不便。本論文所介紹的便是一個設備管理信息系統，以方便在設備安排和設備管理信息上的工作任務。設備管理是重點工作，利用先進的技術手段和指導思想提高對企

20、業及時有效的管理、考查，對提高企業競爭力有著廣泛深遠的意義。該系統包括：設備管理、設備查詢、用戶管理、系統管理。設備管理系統的功能，能夠很好的服務于企業設備的數字化管理，可以讓管理人員很輕松地了解到當前每件設備的當前情況。譬如設備當前在哪個部門之下、什么時候借出去的、由誰借出去的等信息，而且可以很方便的查詢設備的信息。（一）Visual Basic介紹1991年，微軟公司推出了Visual Basic 1.0版。這在當時引起了很大的轟動。這個連接編程語言和用戶界面的進步被稱為Tripod（有些時候叫做Ruby），最初的設計是由阿蘭·庫珀（Alan Cooper）完成的。許多專家把VB

21、的出現當做是軟件開發史上的一個具有劃時代意義的事件。其實，以我們現在的目光來看，VB1.0的功能實在是太弱了；（不過最近VB6.0, VB.NET的功能相當大）。但在當時，它是第一個“可視”的編程軟件。這使得程序員欣喜之極，都嘗試在VB的平臺上進行軟件創作。微軟也不失時機地在四年內接連推出VB2.0，VB3.0，4.0三個版本。并且從VB3開始，微軟將ACCESS的數據庫驅動集成到了VB中，這使得VB的數據庫編程能力大大提高。從VB4開始，VB也引入了面向對象的程序設計思想。VB功能強大，學習簡單。而且，VB還引入了“控件”的概念，使得大量已經編好的VB程序可以被我們直接拿來使用。VB1.0的

22、DOS版本VB1.0于1991年發布。這個連接編程語言和用戶界面的進步被稱為Tripod（有些時候叫做Ruby），最初的設計是由阿蘭·庫珀（Alan Cooper）完成的 2002年Visual Basic .NET 2002 (v7.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初學者及學生使用。 VB 2005的“顯著”優

23、點是，可以直接編寫出XP風格的按鈕，以及其他的控件。但是其編寫的小程序占用近10MB的內存。 通過幾年的發展，它已成為一種專業化的開發語言和環境。用戶可用Visual Basic快速創建Windows程序，現在還可以編寫企業水平的客戶端/服務器程序及強大的數據庫應用程序。 VB會吸引更多的贊譽和批評，也會繼續為廣大的用戶和程序員使用。它非常適合用來開發擁有友好界面的程序（比如針對終端的數據），但是不適合開發其它程序（比如聯合計算程序）。一個典型的VB進程VB的中心思想就是要便于程序員使用，無論是新手或者專家。VB使用了可以簡單建立應用程序的GUI系統，但是又可以開發相當復雜的程序。VB的程序是

24、一種基于窗體的可視化組件安排的聯合，并且增加代碼來指定組建的屬性和方法。因為默認的屬性和方法已經有一部分定義在了組件內，所以程序員不用寫多少代碼就可以完成一個簡單的程序。過去的版本里面VB程序的性能問題一直被放在了桌面上，但是隨著計算機速度的飛速增加，關于性能的爭論已經越來越少。窗體控件的增加和改變可以用拖放技術實現。一個排列滿控件的工具箱用來顯示可用控件（比如文本框或者按鈕）。每個控件都有自己的屬性和事件。默認的屬性值會在控件創建的時候提供，但是程序員也可以進行更改。很多的屬性值可以在運行時候隨著用戶的動作和修改進行改動，這樣就形成了一個動態的程序。舉個例子來說：窗體的大小改變事件中加入了可

25、以改變控件位置的代碼，在運行時候每當用戶更改窗口大小，控件也會隨之改變位置。在文本框中的文字改變事件中加入相應的代碼，程序就能夠在文字輸入的時候自動翻譯或者阻止某些字符的輸入。 VB的程序可以包含一個或多個窗體，或者是一個主窗體和多個子窗體，類似于操作系統的樣子。有很少功能的對話框窗口（比如沒有最大化和最小化按鈕的窗體）可以用來提供彈出功能。 VB的組件既可以擁有用戶界面，也可以沒有。這樣一來服務器端程序就可以處理增加的模塊。 VB使用參數計算的方法來進行垃圾收集，這個方法中包含有大量的對象，提供基本的面向對象支持。因為越來越多組建的出現，程序員可以選用自己需要的擴展庫。和有些語言不一樣，VB

26、對大小寫不敏感，但是能自動轉換關鍵詞到標準的大小寫狀態，以及強制使得符號表入口的實體的變量名稱遵循書寫規則。默認情況下字符串的比較是對大小寫敏感的，但是可以關閉這個功能。 VB使得大量的外界控件有了自己的生存空間。大量的第三方控件針對VB提供。VB也提供了建立、使用和重用這些控件的方法，但是由于語言問題，從一個應用程序創建另外一個并不簡單。（二）ACCESS 2003介紹ACCESS2003 office自帶的數據庫Access 是Office2000里面的一個組件。是用來制作簡單的數據庫。還有的意思就是訪問、還有接入的意思。如Access list 訪問列表 Access point 接入點

27、在辦公軟件Office套件中，最為廣大用戶熟悉的是Word和Excel，因為它們功能強大且方便易用，更因為它們不僅可用于辦公，還可用于個人寫作和家庭記帳理財等。同為Office套件中一部分的Access，雖然有著同樣強大的功能，但使用的人卻相對少些，不像Word和Excel那樣廣泛。事實上，真正用過Access的用戶，對其強大功能和靈活應用均稱贊有加。 Access 數據庫管理系統是Microsoft Office 套件的重要組成部分，適用于小型商務活動，用以存貯和管理商務活動所需要的數據。Access不僅是一個數據庫，而且它具有強大的數據管理功能，它可以方便地利用各種數據源，生成窗體（表單）

28、，查詢，報表和應用程序等。 數據庫是有結構的數據集合,它與一般的數據文件不同，(其中的數據是無結構的)是一串文字或數字流。數據庫中的數據可以是文字、圖象、聲音等。 Microsoft Access是一種關系式數據庫，關系式數據庫由一系列表組成，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個字段名，字段名在一個表中不能重復。圖1是一個“產品”表的例子?！爱a品”表由10個記錄組成，一個記錄占一行，每一個記錄由產品ID、產品名稱、庫存量、訂貨量、單價和折扣率6個字段組成。“產品ID”是字段名，其下面的1，2等是字段的值。表與表之間可以建立關系（或稱關聯，連接），以便查詢相

29、關聯的信息。Access數據庫以文件形式保存，文件的擴展名是MDB。Access 數據庫由六種對象組成，它們是表、查詢、窗體、報表、宏和模塊。表(Table) 表是數據庫的基本對象，是創建其他5種對象的基礎。表由記錄組成，記錄由字段組成，表用來存貯數據庫的數據，故又稱數據表。查詢(Query)查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。窗體(Form) 窗體提供了一種方便的瀏覽、輸入及更改數據的窗口。還可以創建子窗體顯示相關聯的表的內容。窗體也稱表單。報表(Report) 報表的功能是將數據庫中的數據分類匯總，然后打印出來，以便分析。宏(Macro) 宏相

30、當于DOS中的批處理，用來自動執行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來十分方便。 模塊(Module) 模塊的功能與宏類似，但它定義的操作比宏更精細和復雜，用戶可以根據自己的需要編寫程序。模塊使用Visual Basic編程。三、需求分析（一）需求背景在設備管理系統中，需要從大量的設備信息中，提取相關信息，以反映設備的當前的情況。傳統的手工操作方式，易發生數據丟失，統計錯誤，勞動強度高，且速度慢。使用計算機可以高速，快捷地完成以上工作。在計算機聯網后，數據在網上傳遞，可以實現數據共享，避免重復勞動，規范設備管理行為，從而提高了管理效率和水平。（二）用戶及功能需求1設

31、備用戶的主要功能和權限設備管理：可查看設備的編號、名稱、型號、購買日期、購買價格、折舊價格等。設備查詢：可查詢設備的價格、注銷日期等基本信息。用戶管理：可以查詢和修改用戶的基本信息。系統管理：可以進行密碼的修改、數據備份、數據整理、數據清理和退出系統。2設備管理員的主要功能和權限基本信息 ：可查詢設備的基本信息。用戶管理：可以新增和刪除設備的基本信息。級別管理：可以進行用戶級別所有的相關信息。四、系統概要設計（一）設備管理信息系統功能結構圖分析設備管理信息系統，其大致的模式主要有：設備管理、用戶管理、系統管理等功能模塊，其總體功能如圖1所示。同時，結合設備管理信息化軟件，對設備管理信息系統的應

32、用作進一步的闡述。設備管理系統設備管理用戶管理部門管理設備編號用戶級別用戶名設備類型設備名稱部門部門編號類型編號系統管理密碼類型名稱圖1 設備管理系統功能結構圖根據系統分析的結果，按照結構化的系統設計方法，設備管理系統需要實現的具體功能模塊主要可以分為設備管理、用戶管理、系統管理等三個模塊。設備管理系統的數據流程圖如圖2所示。圖2 設備管理系統數據流程圖（二）設備管理信息系統數據庫設計數據庫設計是整個程序設計的最關鍵部分，數據庫的設計是否合理，將對數據庫的大小、代碼的優化起到至關重要的作用，因此在設計程序前必需對數據庫進行設計，而在設計數據庫前必需對所要完成的功能進行認真的研究分析，下面介紹我

33、們的數據庫設計:在本系統的設計中總共設計了5個表，其中有關于用戶信息管理的，還有部門信息的，設備臺帳的，設備借入借出的和設備類型的表。其相應情況如下圖3至圖7：圖3用戶表圖4部門表圖5設備借入借出表圖6 設備類型表圖7 設備臺帳表 五、設備管理信息系統的詳細設計與實現（一）系統功能概述該系統的主要功能是為設備管理員對設備流動管理而開發，主要是對日常設備情況進行添加、刪除、借入借出、設備報廢和注銷的功能。根據系統的開發目標、原則和項目需求。對數據庫、操作系統平臺以及服務器等關鍵部分進行了認真討論和詳盡對比分析，并做出以下選擇：Microsoft公司的Windows XP作為操作系統平臺， Mic

34、rosoft ACCESS 2003標準版作為后端數據庫服務器軟件：以Windows作為前端工作站的主要操作系統；VB 6.0作為前臺工作站應用程序開發工具。（二）系統架構設計設備管理系統的架構分為窗體，模塊和類模塊三個部分。在窗體的部分有以下幾個窗體，他們的作用分別是： “frmDevice.frm”是設備窗口，可以對設備信息進行添加，刪除的操作；“frmGetDate.frm”是設置日期窗體，對日期進行設置；“frmLend.frm” 是設備借入借出，管理員可以在此修改設備的借入借出狀態；“frmLogin.frm”是用戶的登陸窗口，啟動系統時就會出現這個窗口； “frmmain.frm”

35、是系統主界面，用戶可以選擇要執行的任務；“frmUser.frm” 是用戶管理窗口，對用戶進行添加和刪除；系統架構說明見圖8所示：圖8 系統架構圖（三）系統登陸界面的設計登陸界面在VB 6.0中，在新建窗體后，然后加上相應的控件按鈕。當輸入用戶名和密碼時，點擊“確定”按鈕，此時CmdOK事件被激活，它將執行相應的事件。圖9 登陸界面其后臺代碼為：Dim strPwd As String Dim rsPwd As ADODB.Recordset Dim strLogin As String strLogin = Trim(txtUserName.Text) strPwd = Trim(txtPa

36、ssword.Text) If Len(strLogin) = 0 Then MsgBox "用戶名不能為空,請輸入用戶名" txtUserName.SetFocus Exit Sub End If If Len(strPwd) = 0 Then MsgBox "密碼不能為空,請輸入正確的密碼" txtPassword.SetFocus Exit Sub End If Set rsPwd = gConn.Execute("SELECT pwd FROM tblUser WHERE login='" & Replace(

37、strLogin, "'", "''") & "'") If rsPwd.EOF Then MsgBox "用戶名不正確,請重新輸入!" ElseIf strPwd = rsPwd("pwd").value Then '將代碼放在這里傳遞 '成功到 calling 函數 '設置全局變量時最容易的 LoginSucceeded = True Me.Hide Else MsgBox "無效的密碼，請重試!", , &

38、quot;登錄" txtPassword.SetFocus SendKeys "Home+End" End If rsPwd.Close Set rsPwd = NothingEnd Sub（四）主窗體的設計主窗體界面是顯示系統主要操作功能的面板，在系統主窗體中，可以顯示設備管理、設備查詢、用戶管理和系統管理信息，還可以通過點擊這四組按鈕來查看設備的信息。設備管理信息系統的主界面如圖10所示。圖10 設備管理信息系統的主界面1.系統主窗體的功能成功登錄后，進入的系統的主窗體，在主窗體中有四組按鈕，第一組是設備管理選擇按鈕，通過點擊相應的按鈕可以在主窗體中顯示不同設

39、備的表單，這些表單分別是設備信息表，這組按鈕和Access數據庫中各表相聯系。第二組按鈕是對設備的查詢操作，通過設備名、型號、價格、購置日期和注銷日期對設備進行查詢。第三組按鈕是用戶管理，對用戶的權限進行設置。第四組按鈕是系統管理按鈕，分為用戶操作和系統管理員操作，用戶操作執行密碼的修改和退出系統的功能，系統管理員操作執行數據備份、數據整理和數據清理的功能。用戶成功進入系統主窗體運行結果見圖11所示：圖11 系統主窗體的運行結果2.系統主窗體的主要代碼設計其后臺代碼為：Private Sub tabMain_Click(PreviousTab As Integer) Dim strSQL As

40、 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 En

41、d Select End 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.DeptN

42、O=b.DeptNO) INNER JOIN 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 =

43、"設備編號" .Col = 3 .Text = "設備名稱" .Col = 4 .Text = "設備型號" .Col = 5 .Text = "設備分類" .Col = 6 .Text = "所屬部門" .Col = 7 .Text = "購買價格" .Col = 8 .Text = "折舊成本" .Col = 9 .Text = "購買日期" .Col = 10 .Text = "狀態" .Col = 11 .T

44、ext = "報廢日期" .Col = 12 .Text = "注銷日期" Do Until rs.EOF strRowData = rowindex & vbTab strRowData = strRowData & rs("IID").value & vbTab strRowData = strRowData & rs("DeviceNO").value & vbTab strRowData = strRowData & rs("DeviceName&q

45、uot;).value & vbTab strRowData = strRowData & rs("DeviceModel").value & vbTab strRowData = strRowData & rs("TypeName").value & vbTab strRowData = strRowData & rs("Department").value & vbTab strRowData = strRowData & rs("ProductPrice&

46、quot;).value & vbTab strRowData = strRowData & rs("Productcost").value & vbTab strRowData = strRowData & FormatDateTime(rs("PurchaseDate").value, vbLongDate) & vbTab If rs("Status").value = 0 Then strRowData = strRowData & "在庫" & vb

47、Tab Else strRowData = strRowData & "借出" & vbTab End If strRowData = strRowData & rs("RejectDate").value & vbTab strRowData = strRowData & rs("DisCardDate").value & vbTab .AddItem strRowData rs.MoveNext rowindex = rowindex + 1 Loop rs.Close Set rs

48、 = Nothing .Tag = 1 End IfEnd WithEnd Sub3.系統管理窗體的功能把系統管理表作為主窗體的默認表，所示主窗體的運行結果也是設備管理表的運行結果。在系統管理表中可以對密碼進行修改，對數據進行整理。（1）用戶操作是對用戶的密碼進行修改。系統管理密碼修改窗體運行結果見圖12所示：圖12 系統密碼修改其后臺代碼為：Dim oldPass As String Dim newPass1 As StringDim newPass2 As StringoldPass = InputBox("請輸入舊密碼:", "密碼修改") If

49、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("請再次輸入新密碼確認:", "密碼修改") I

50、f Len(newPass2) = 0 Then MsgBox "密碼修改不成功!" Exit Sub ElseIf newPass1 = newPass2 Then If gUser.resetPassword(newPass1) = False Then MsgBox "數據操作錯誤,密碼修改不成功!" Else MsgBox "密碼成功修改!請保存好你的密碼!" End If Exit Sub Else MsgBox "兩次輸入的新密碼不一樣,修改失敗!" Exit Sub End If End If Els

51、e MsgBox "密碼修改不成功!" Exit SubEnd If（2）系統管理員操作是對數據執行備份、整理和清理操作。界面如圖13至圖15所示：圖13 數據備份圖14 數據整理圖15 數據清理4.設備管理窗體的功能對設備的信息進行添加、刪除、借入借出、設備報廢和設備注銷。設備管理的窗體的界面如下圖16所示： 圖16 設備管理界面其后臺代碼為：Dim strSQL As String Select Case tabMain.Tab Case 0 strSQL = "SELECT a.*,b.department,c.TypeName FROM (tblDevic

52、e 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 fillUserGridEnd Select（1）添加設備信息的界面如圖17所示：圖17 添加設備界面（2）刪除設備信息的界面如圖18所示：圖18 刪除設備界面刪除設備其后臺代碼為：Dim iid As String With grdDevice If .Row = 0 Then MsgBox "請選擇要刪除的設備!" Else If MsgBox("你是否真的要刪除當前選擇的設備嗎?刪除后將不能恢復!", vbOKCancel) = vbOK Then .Col = 1 iid = .Text Dim device As New classDevice device.deleteData iid gr