固定資產(chǎn)管理設(shè)計說明書.doc

昆侖學(xué)院畢業(yè)設(shè)計說明書題 目：西寧蘭寧汽車修理廠固定資產(chǎn)管理信息系統(tǒng) 學(xué) 生 姓 名： 馬 青 學(xué) 號： 0958105036 指 導(dǎo) 教 師： 李蓓 專 業(yè) 年 級： 信息管理與信息系統(tǒng) 所 在 班 級： 2009級一班 完 成 日 期： 2013年6月8日 答 辯 日 期： 2013年6月13日 23 / 37西寧蘭寧汽車修理廠固定資產(chǎn)管理信息系統(tǒng) 摘 要 西寧蘭寧汽車修理廠固定資產(chǎn)管理信息系統(tǒng)采用結(jié)構(gòu)化的設(shè)計方法，以Access 2000作為后臺支持?jǐn)?shù)據(jù)庫，Visual Basic 6.0作為前臺的開發(fā)工具。對于前者要求建立起數(shù)據(jù)一致性、完整性強、數(shù)據(jù)安全性好的數(shù)據(jù)庫，而對于后者則要求應(yīng)用程序具有功能完備,易使用等特點。系統(tǒng)主要實現(xiàn)的功能有：用戶管理、資產(chǎn)錄入、資產(chǎn)轉(zhuǎn)移、數(shù)據(jù)查詢以及數(shù)據(jù)打印這五個方面。具體有用戶管理：主要實現(xiàn)用戶登錄和密碼修改；資產(chǎn)錄入：主要實現(xiàn)對每一條資產(chǎn)類別信息的型號、制造商、數(shù)量、使用單位以及使用年限等內(nèi)容進行錄入；資產(chǎn)轉(zhuǎn)移：主要對資產(chǎn)的放置地點、轉(zhuǎn)移日期、已使用年限以及轉(zhuǎn)移資產(chǎn)時使用人、審核人等信息進行登記；數(shù)據(jù)查詢: 主要實現(xiàn)各類資產(chǎn)信息使用情況進行查詢，主要的查詢方式有：按編號查詢、按資產(chǎn)名稱查詢以及按使用人查詢；數(shù)據(jù)打印 :對每條固定資產(chǎn)信息進行打印。這五個模塊實現(xiàn)了對西寧蘭寧汽車修理廠固定資產(chǎn)的有效管理。整個系統(tǒng)，操作起來簡單方便，運行穩(wěn)定，可以投入使用。關(guān)鍵字：管理信息系統(tǒng)，固定資產(chǎn)，資產(chǎn)管理XINING LANNING GARAGE FIXED ASSETS MANAGEMENT INFORMATION SYSTEMAbstractXINING LANNING garage fixed assets management information system using a structured design method, in order to Access 2000 as the background support database, Visual Basic 6.0 as development tools at the front desk. Since for the former requirement to establish data consistency and integrality, data security good database, and for the latter request applications fully functional, easy to use, etc. System mainly realize the functions: user management, asset entry, transfer of assets, data query and print these five aspects. A specific user management: mainly realize the user login and password change; Asset entry: the main implementation of each asset class information model, manufacturer, quantity, use the unit and use fixed number of year of entry; Asset transfers: the main place for assets, transfer date, already use fixed number of year and transfer assets, reviewer, etc. When the user information to register; Data query: mainly realize the usage of all kinds of asset information query, main query method: according to number query and name query by assets and according to users query; Data print: print of each fixed asset information. These five module implements the effective management of fixed assets to XINING LANNING garages. The whole system, simple and convenient to operate, stable operation, can be put into use.Key words: management information system, fixed assets, asset management目錄1. 緒論11.1選題背景11.2項目開發(fā)意義11.3應(yīng)用前景22. 系統(tǒng)分析32.1研究的可行性分析32.1.1管理可行性32.1.2技術(shù)可行性32.1.3經(jīng)濟可行性32.2組織結(jié)構(gòu)圖分析42.3業(yè)務(wù)流程圖分析42.4數(shù)據(jù)流程圖分析53. 系統(tǒng)設(shè)計93.1 系統(tǒng)功能設(shè)計93.2 數(shù)據(jù)庫設(shè)計93.2.1概念設(shè)計（E-R圖）103.2.2邏輯設(shè)計123.2.3物理設(shè)計123.3界面設(shè)計133.3.1輸出設(shè)計143.3.2輸入設(shè)計164. 系統(tǒng)實施174.1 登陸模塊的實現(xiàn)174.2 資產(chǎn)登記模塊的實現(xiàn)194.3 資產(chǎn)轉(zhuǎn)移模塊的實現(xiàn)204.4 數(shù)據(jù)查詢模塊的實現(xiàn)204.5 數(shù)據(jù)打印模塊的實現(xiàn)214.6 密碼權(quán)限管理模塊的實現(xiàn)22結(jié)論25致謝27參考文獻291. 緒論1.1選題背景 隨著企業(yè)規(guī)模的逐步擴大，其固定資產(chǎn)的投資規(guī)模相應(yīng)擴大。如何對固定資產(chǎn)進行有效的管理，是企業(yè)非常關(guān)心的事，也是管理部門規(guī)劃和考慮的工作重點。隨著計算機科學(xué)的普及和發(fā)展，把人類社會推向了一個嶄新的時代。信息對社會經(jīng)濟發(fā)展的巨大推動作用，使其與物質(zhì)能源一起并列為現(xiàn)代社會的三大支柱，這已在全社會達到共識。隨著將信息作為一種資源來管理的需求日益加強，信息研究領(lǐng)域出現(xiàn)了一種新的管理思想和模式即信息管理。計算機在生產(chǎn)實踐中的地位逐漸被人們認(rèn)可和接受。然而，目前的固定資產(chǎn)管理很多仍停留在手工管理模式，其運作機制已和企業(yè)的業(yè)務(wù)、計算機技術(shù)應(yīng)用的發(fā)展速度不相適應(yīng)，管理手段已明顯滯后于發(fā)展的需要。在這樣一個技術(shù)背景下，完全可以利用新技術(shù)、采用合理的開發(fā)模型解決固定資產(chǎn)管理問題。因此，建立集中化、規(guī)范化、標(biāo)準(zhǔn)化的管理體系，開發(fā)和使用一套企業(yè)的固定資產(chǎn)管理系統(tǒng)，實現(xiàn)管理的計算機化，對于規(guī)范企業(yè)固定資產(chǎn)的管理，合理配置和利用資源，降低投入成本，增加投入產(chǎn)出效益，提高管理水平和效率有著重大的意義。1.2項目開發(fā)意義 近幾年來，為加強固定資產(chǎn)管理工作，國內(nèi)一些地區(qū)和學(xué)校、企業(yè)進行了有益的探索，開發(fā)管理軟件,開始使用計算機管理各類資產(chǎn)、設(shè)備等,技術(shù)上有了一定的進步。但總的看來，這些軟件實現(xiàn)的往往是對原來手工勞動的簡單替代，完成的僅僅是單一業(yè)務(wù)和專門用途資產(chǎn)的管理，未能從根本上改變固定資產(chǎn)管理被動、滯后的局面。采用固定資產(chǎn)管理信息系統(tǒng)，它極大提高了管理者的工作效率，大大減少了以往管理流程的繁瑣，雜亂，周期長的弊端?；诠潭ㄙY產(chǎn)管理的全面自動化，可以減少設(shè)備購入、使用、出租以及處理時的漏洞，可以節(jié)約不少管理開支，增加企業(yè)收入。通過信息化技術(shù)的利用，企業(yè)可以建立功能更加強大的企業(yè)國定資產(chǎn)管理信息系統(tǒng)，實現(xiàn)固定資產(chǎn)的科學(xué)化、規(guī)范化、制度化和信息化管理，保證企業(yè)固定資產(chǎn)的完好率、利用率的提高以及在企業(yè)運營過程中經(jīng)濟效益的更好發(fā)揮。具體來說，體現(xiàn)在以下幾方面：（1）企業(yè)固定資產(chǎn)管理信息系統(tǒng)的開發(fā)，它是通過企業(yè)實物和財務(wù)系統(tǒng)的整合達到賬實一致的目的，從而實現(xiàn)信息的同步和數(shù)據(jù)的共享；（2）固定資產(chǎn)信息管理系統(tǒng)是以計算機網(wǎng)絡(luò)技術(shù)為媒介，以滿足財務(wù)和實物管理需求作為重點，有效優(yōu)化企業(yè)的業(yè)務(wù)流程，降低數(shù)據(jù)和業(yè)務(wù)的繁冗程度，從而實現(xiàn)高效率、集成化、信息化的企業(yè)管理。（3）為企業(yè)統(tǒng)計數(shù)據(jù)、分析數(shù)據(jù)、即時有效決策、動態(tài)化控制、量化評估提供一套系統(tǒng)化、全方位、先進化的信息管理平臺。（4）實現(xiàn)了企業(yè)固定資產(chǎn)與實物的信息網(wǎng)絡(luò)化和計算機一體化管理，進而使企業(yè)固定資產(chǎn)能夠適應(yīng)現(xiàn)代企業(yè)的運行需求。1.3 應(yīng)用前景隨著互聯(lián)網(wǎng)的普及和固定資產(chǎn)管理信息系統(tǒng)的更趨向于成熟化，會有越來越多的企業(yè)需要固定資產(chǎn)管理信息系統(tǒng)。固定資產(chǎn)管理信息系統(tǒng)是一個企業(yè)管理者在管理過程中不可缺少的一部分，對于企業(yè)的決策者和管理者來說都至關(guān)重要，使用固定資產(chǎn)管理信息系統(tǒng)對各類資產(chǎn)信息進行管理，具有手工管理所無法比擬的優(yōu)點，固定資產(chǎn)管理的操作自動化和信息的電子化，全面提高了固定資產(chǎn)管理水平的可行性。2. 系統(tǒng)分析2.1研究的可行性分析2.1.1管理可行性 固定資產(chǎn)管理信息系統(tǒng)已在大型的汽車修理廠中得到了廣泛的應(yīng)用，固定資產(chǎn)管理需要現(xiàn)代化，只有合理的運用現(xiàn)代化的信息管理手段，才能在市場競爭中立于不敗之地。固定資產(chǎn)管理信息系統(tǒng)不僅能夠提高經(jīng)營者的效率，而且能夠隨時掌握各類資產(chǎn)的狀況，為經(jīng)營者提供必要的資產(chǎn)流動信息，解決經(jīng)營者最需解決的迫切問題，因此從社會可行性來說，開發(fā)本系統(tǒng)是可行的。2.1.2技術(shù)可行性在目前市場上這些眾多的程序開發(fā)工具中，有些強調(diào)程序語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。本設(shè)計我將采用面向?qū)ο蟮姆椒?，綜合運用數(shù)據(jù)庫技術(shù)、程序設(shè)計技術(shù)，結(jié)合企業(yè)管理知識，以Visual Basic6.0作為系統(tǒng)前臺應(yīng)用程序開發(fā)工具，access2003作為后臺數(shù)據(jù)庫，通過Visual Basic 6.0中的ADO技術(shù)使兩者進行連接從而進行系統(tǒng)軟件開發(fā)。2.1.3經(jīng)濟可行性該系統(tǒng)開發(fā)簡單但要耗費一定時間，所用的開發(fā)工具和軟件差不多都是免費的，而且，由于系統(tǒng)能夠在未來較長的一段時期內(nèi)穩(wěn)定地發(fā)揮作用，這對于固定資產(chǎn)的信息管理、節(jié)省人力和物力資源等都有很大的幫主。由此可見，開發(fā)此系統(tǒng)在經(jīng)濟上是完全可行的。固定資產(chǎn)管理系統(tǒng)應(yīng)用的效益是非?？捎^的。其效益主要體現(xiàn)在以下幾個方面。第一是提高固定資產(chǎn)管理的速度和準(zhǔn)確性，使各種固定資產(chǎn)管理能真正落到實處。第二是輕松管理固定資產(chǎn)，在辦公室的方寸之中就能掌控全方位固定資產(chǎn)信息，提高經(jīng)營效率，降低成本支出。第四是為企事業(yè)單位資產(chǎn)評估、決策提供更為可靠的依據(jù)，避免企業(yè)在固定資產(chǎn)管理環(huán)節(jié)上可能造成的隱患。第四是推動企事業(yè)單位固定資產(chǎn)重置、重組、融資，為上市創(chuàng)造良好條件。2.2組織結(jié)構(gòu)圖分析 圖2-1 西寧蘭寧汽車修理廠組織結(jié)構(gòu)如圖2.3業(yè)務(wù)流程圖分析 固定資產(chǎn)管理系統(tǒng)是一個面向固定資產(chǎn)人員，為其提供服務(wù)的綜合信息管理系統(tǒng)。固定資產(chǎn)管理人員通過本系統(tǒng)完成相關(guān)的日常工作，這些工作也是平常較為繁重的工作。由固定資產(chǎn)人員在數(shù)據(jù)編輯中完成對運行固定資產(chǎn)系統(tǒng)所需的基本數(shù)據(jù)的維護。包括這些信息的增加、修改、刪除等，變動都將在這進行操作。系統(tǒng)開始投入使用時，固定資產(chǎn)管理人員應(yīng)先根據(jù)目前企業(yè)和單位的實際情況，建立相關(guān)資產(chǎn)的信息，當(dāng)資產(chǎn)情況發(fā)生變動后，固定資產(chǎn)人員要及時完成對庫中的信息進行維護。因為企業(yè)的資產(chǎn)數(shù)量會不斷增多，因此特別設(shè)立了一個數(shù)據(jù)查詢模塊，可以進行相關(guān)資產(chǎn)的快速查詢。采購員填寫登記單，管理人員根據(jù)登記單進行登記處理，將資產(chǎn)信息、資產(chǎn)狀態(tài)和位置、人員信息進行存儲。用戶根據(jù)資產(chǎn)狀態(tài)文件和資產(chǎn)信息存儲進行查詢，根據(jù)查詢結(jié)果填寫所需的變動單，管理人員員根據(jù)變動單進行變動處理，根據(jù)變動信息相應(yīng)的修改資產(chǎn)狀態(tài)信息文件和資產(chǎn)信息及使用者的人員信息，管理人員根據(jù)資產(chǎn)信息與狀態(tài)適時的編寫盤虧單進行相應(yīng)的盤虧處理。業(yè)務(wù)流程圖符號簡單說明如下：人員 單位，部門 文檔，單據(jù)圖2-2 固定資產(chǎn)管理信息系統(tǒng)的業(yè)務(wù)流程圖2.4數(shù)據(jù)流程圖分析 數(shù)據(jù)流程圖符號簡單說明如下： 外部實體 數(shù)據(jù)存儲 處理 數(shù)據(jù)流 圖2-3 數(shù)據(jù)流圖2.5數(shù)據(jù)字典 數(shù)據(jù)字典是關(guān)于數(shù)據(jù)的信息的集合，也就是對數(shù)據(jù)流圖中包含的所有元素的定義的集合。任何字典最主要的用途都是供人查閱對不了解的條目的解釋。數(shù)據(jù)字典的作用是在軟件分析和設(shè)計的過程中給人提供關(guān)于數(shù)據(jù)的描述信息。數(shù)據(jù)流圖和數(shù)據(jù)字典共同構(gòu)成系統(tǒng)的邏輯模型，沒有數(shù)據(jù)字典，數(shù)據(jù)流圖就不嚴(yán)格，然而沒有數(shù)據(jù)流圖數(shù)據(jù)字典也難于發(fā)揮作用。只有數(shù)據(jù)流圖和對數(shù)據(jù)流圖的精確定義放在一起，才能共同構(gòu)成系統(tǒng)的規(guī)格說明。名稱：資產(chǎn)別名： 描述：資產(chǎn)名稱、資產(chǎn)類別、資產(chǎn)編號、生產(chǎn)廠家、購買日期、單價、規(guī)格等位置：資產(chǎn)信息管理名稱：車間別名： 描述：車間編號、說明位置：出庫管理、入庫管理、出庫查詢、入庫查詢 圖2-4資產(chǎn)信息 圖2-5 車間信息名稱：管理員別名：用戶 描述：權(quán)限、密碼修改位置：用戶管理名稱：單位別名：供應(yīng)商描述：供應(yīng)商聯(lián)系電話、供應(yīng)商名、開戶銀行等位置：資產(chǎn)信息管理 圖2-6 單位信息 圖2-7 管理員信息3. 系統(tǒng)設(shè)計3.1 系統(tǒng)功能設(shè)計 西寧蘭寧汽車修理廠固定資產(chǎn)管理信息系統(tǒng)主要實現(xiàn)的功能有：用戶管理、資產(chǎn)錄入、資產(chǎn)轉(zhuǎn)移、數(shù)據(jù)查詢以及數(shù)據(jù)打印這五個方面。具體實現(xiàn)的功能有用戶管理：主要實現(xiàn)用戶登錄和密碼修改；資產(chǎn)錄入：主要實現(xiàn)對每一條資產(chǎn)類別信息的型號、制造商、數(shù)量、使用單位以及使用年限等內(nèi)容進行錄入；資產(chǎn)轉(zhuǎn)移：主要對資產(chǎn)的放置地點、轉(zhuǎn)移日期、已使用年限以及轉(zhuǎn)移資產(chǎn)時使用人、審核人等信息進行登記；數(shù)據(jù)查詢: 主要實現(xiàn)各類資產(chǎn)信息使用情況進行查詢，主要的查詢方式有：按編號查詢、按資產(chǎn)名稱查詢以及按使用人查詢；數(shù)據(jù)打印 :對每條固定資產(chǎn)信息進行打印。這五個模塊實現(xiàn)了對蘭寧汽車修理廠固定資產(chǎn)的有效管理。整個系統(tǒng)，操作起來簡單方便，運行穩(wěn)定，可以投入使用。圖3-1 固定資產(chǎn)管理信息系統(tǒng)功能結(jié)構(gòu)圖3.2數(shù)據(jù)庫設(shè)計經(jīng)過上面的需求分析可知，用戶的需求具體體現(xiàn)在各種資產(chǎn)信息的提供、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。通過對用戶需求的具體分析及資產(chǎn)變換過程內(nèi)容和數(shù)據(jù)流程的分析，設(shè)計如下所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：3.2.1 概念設(shè)計（E-R圖）資產(chǎn)資產(chǎn)編號資產(chǎn)名稱資產(chǎn)分類國別型號規(guī)格單價生產(chǎn)產(chǎn)家出產(chǎn)編號購置日期分類號圖3-2 資產(chǎn)信息實體圖用戶使用者編號使用者姓名所在部門聯(lián)系方式圖3-3 用戶信息實體圖供應(yīng)商供應(yīng)商編號供應(yīng)商名稱國別聯(lián)系方式 圖3-4 供應(yīng)商信息實體圖根據(jù)上面的數(shù)據(jù)分析及各個實體的E-R分析，可以得出實體與實體之間的E-R圖，各實體之間的E-R圖如下所示：登記信息登記采購員供應(yīng)商號資產(chǎn)隸屬狀態(tài)信息變動變動信息盤虧虧損信息管理員保管放置信息放置用戶對應(yīng)密碼MNMN1NMNMN11N1NM11圖3-5 各實體之間的E-R圖3.2.2邏輯設(shè)計資產(chǎn)（資產(chǎn)編號，分類號，資產(chǎn)名稱，資產(chǎn)分類，型號，規(guī)格，單價，國別，生產(chǎn)產(chǎn)家，出廠編號，購置日期，變動狀態(tài)）采購員（采購員編號，采購員姓名，聯(lián)系方式）管理員（管理員編號，管理員名稱，所在部門，聯(lián)系方式）用戶（使用者編號，使用者姓名，所在部門，聯(lián)系方式）供應(yīng)商（供應(yīng)商編號，供應(yīng)商名稱，國別，聯(lián)系方式）登記（資產(chǎn)編號，登記日期，供應(yīng)商編號，采購員編號）變動（資產(chǎn)編號，領(lǐng)用日期，管理員編號，使用者編號）盤虧（資產(chǎn)編號，虧損日期，管理員編號，虧損原因）放置信息（資產(chǎn)編號，所在部門，所在房間，使用者編號，管理員編號）密碼（用戶名，密碼，權(quán)限）3.2.3 物理設(shè)計資產(chǎn)信息表字段字段名類型寬度小數(shù)位索引排序Nulls1資產(chǎn)編號字符型7升序否2資產(chǎn)名稱字符型20否3型號字符型20否4規(guī)格字符型20否5單價數(shù)值型102否6國別字符型12否7生產(chǎn)廠家字符型20否8出廠編號字符型16否9購置日期日期型8否10變動狀態(tài)邏輯型1否管理員信息表字段字段名類型寬度小數(shù)位索引排序Nulls1管理員編號字符型4升序否2管理員姓名字符型1否3聯(lián)系方式字符型16否登記信息表字段字段名類型寬度小數(shù)位索引排序Nulls1資產(chǎn)編號字符型7否2登記日期日期型8否3采購員編號字符型4否4供應(yīng)商編號字符型4否變動信息表字段字段名類型寬度小數(shù)位索引排序Nulls1資產(chǎn)編號字符型7否2領(lǐng)用日期日期型8否3管理員編號字符型4否4使用者編號字符型4否位置信息表字段字段名類型寬度小數(shù)位索引排序Nulls1資產(chǎn)編號字符型7否2所在部門字符型20否3所在房間字符型5否4使用者編號字符型4否5管理員編號字符型4否密碼權(quán)限信息表字段字段名類型寬度小數(shù)位索引排序Nulls1用戶名字符型4升序PINYIN否2密碼字符型4否3權(quán)限字符型1否3.3界面設(shè)計本系統(tǒng)界面的開發(fā)工具是Visual Basic6.0,屬于圖形化用戶界面（Graphic User Interface, GUI），從用戶的角度來看，GUI更容易使用，并且應(yīng)用程序之間具有相當(dāng)好的一致性，初學(xué)者使用起來比較簡便。從開發(fā)者的角度來看，目前圖形化用戶界面一般都采用可視化的和面向?qū)ο蟮姆绞皆O(shè)計，將屏幕上的一些控件設(shè)計成具有屬性和操作方法的對象，從而使開發(fā)者設(shè)計界面時不必用或少用傳統(tǒng)語言中的語句?；趙indows的GUI界面的設(shè)計一般包括一下幾個部分：窗口（windows），在有的語言中也稱表單（form）；菜單（menu），包括下拉式菜單、彈出式菜單等；圖表（icon），包括各種控件，如命令按鈕（Command Button）、復(fù)選框（Check Box）、對話框（Dialog Box）等。3.3.1輸出設(shè)計信息系統(tǒng)的輸出是信息，而信息的接收者是用戶。作為用戶，最關(guān)心的是信息系統(tǒng)能夠提供什么樣的信息，以多快的速度、以什么方式提供。這正是輸出設(shè)計的內(nèi)容。輸出形式的設(shè)計是輸出設(shè)計的一個重要內(nèi)容，計算機信息系統(tǒng)所產(chǎn)生的輸出一般可分為：報表、圖表、屏幕顯示、其他輸出形式。西寧蘭寧汽車修理廠固定資產(chǎn)管理信息系統(tǒng)主要輸出的方式有報表和屏幕顯示。 圖3-6 資產(chǎn)登記信息輸出界面 圖3-7 固定資產(chǎn)打印輸出界面 圖3-8 數(shù)據(jù)查詢信息輸出界面 圖3-9 資產(chǎn)轉(zhuǎn)移信息輸出界面3.3.2輸入設(shè)計 圖3-10 登陸主界面 圖3-11 用戶登陸輸入界面 圖3-12 管理員登陸輸入界面4. 系統(tǒng)實施4.1登陸模塊的實現(xiàn) 登陸模塊主要實現(xiàn)的功能有：用戶和管理員的登陸以及所有用戶密碼的修改。 圖4-1 登陸管理Private Sub Label1_Click()Form1.ShowUnload MeEnd SubPrivate Sub Label2_Click()Form1.ShowUnload MeEnd SubPrivate Sub Timer1_Timer()If Label1.Left + Label1.Width 0 Then Label1.Move Label1.Left - 20Else Label1.Left = frminof.ScaleWidth End If End Sub 圖4-2 用戶登錄管理 圖4-3 管理員登錄管理Private Sub Command1_Click()If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) ThenMDIForm1.ShowUnload MeElseFor X = 1 To 1If A1.Recordset.EOF = True ThenMsgBox 您輸入的用戶名和密碼有誤，請重新輸入！, 16, 出錯：Text1.Text = Text2.Text = A1.Recordset.AbsolutePosition = 1Else If Trim(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 IfEnd IfNext XEnd IfEnd Sub4.2 資產(chǎn)登記模塊的實現(xiàn)資產(chǎn)登記模塊主要實現(xiàn)的功能有：對于固定資產(chǎn)的編號，資產(chǎn)名稱，資產(chǎn)型號，制造商，國別，購買日期，單價，數(shù)量，使用單位，使用人，管理員，放置地點，已使用年限，資產(chǎn)來源，報年限，聯(lián)系電話等記錄進行錄入，刪除，修改，打印操作。 圖4-4 資產(chǎn)登記管理Private Sub Command3_Click()If A1.Recordset.EOF = True And A1.Recordset.BOF = True ThenMsgBox 您的數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseIf Command3.Caption = 修改記錄 ThenCommand3.Caption = 修改完畢Command1.Enabled = FalseCommand5.Enabled = FalseF1.Visible = TrueF1.Caption = 修改記錄：ElseIf t3(0).Text = ThenMsgBox 資產(chǎn)名稱不能為空！, 16, 出錯：Else For X = 11 To 13 If Len(Trim(t3(X).Text) 200 Then MsgBox 字符不能超過200個！, 16, 出錯： Exit Sub End If Next XCommand3.Caption = 修改記錄Command1.Enabled = TrueCommand5.Enabled = TrueF1.Visible = FalseF1.Caption = 數(shù)據(jù)輸入：End IfEnd IfEnd IfEnd Sub4.3 資產(chǎn)轉(zhuǎn)移模塊的實現(xiàn) 資產(chǎn)轉(zhuǎn)移模塊實現(xiàn)的主要功能是：對資產(chǎn)的放置地點、轉(zhuǎn)移日期、已使用年限以及轉(zhuǎn)移資產(chǎn)時使用人、審核人等信息進行登記。 圖4-5 資產(chǎn)轉(zhuǎn)移管理Private Sub Command1_Click()Command1.Caption = 登記完畢Command1.Caption = 輸入新記錄End Sub4.4 數(shù)據(jù)查詢模塊的實現(xiàn) 數(shù)據(jù)查詢模塊主要實現(xiàn)的功能有：對各類資產(chǎn)信息使用情況進行查詢，主要的查詢方式有：按編號查詢、按資產(chǎn)名稱查詢以及按使用人查詢。 圖4-6 數(shù)據(jù)查詢管理Private Sub Command1_Click()If Adodc1.Recordset.BOF = True ThenMsgBox 這已經(jīng)是第一條信息了！, 16, 出錯：Adodc1.Recordset.MoveNextElseAdodc1.Recordset.MovePreviousEnd IfEnd SubPrivate Sub Command11_Click()If Text11.Text = ThenMsgBox 您沒有輸入要查詢的條件！, 16, 出錯：Text11.SetFocusEnd IfAdodc1.Recordset.MoveFirstDo While Adodc1.Recordset.EOF TrueIf Adodc1.Recordset.Fields(資產(chǎn)名稱).Value = Text11.Text ThenText1.Text = Adodc1.Recordset.Fields(資產(chǎn)名稱).ValueExit DoEnd IfAdodc1.Recordset.MoveNextLoopText11.Text = End Sub4.5 數(shù)據(jù)打印模塊的實現(xiàn) 數(shù)據(jù)打印模塊主要實現(xiàn)的功能有：對每一條固定資產(chǎn)信息進行打印輸出。 圖4-7 數(shù)據(jù)打印管理Private Sub Command2_Click()DataReport1.ShowEnd Sub4.6密碼權(quán)限管理模塊的實現(xiàn) 圖 4-8 密碼權(quán)限管理Private Sub Command1_Click()If A1.Recordset.BOF = True And A1.Recordset.EOF = True ThenMsgBox 您輸入的第一個管理員是系統(tǒng)管理員，是用來設(shè)置用戶的，請不要刪除！, 64, 提示：A1.Tag = 1C1.Visible = FalseC2.Visible = FalseEnd IfIf Command1.Caption = 添加 ThenA1.Recordset.AddNewC1.Value = 0C2.Value = 0F1.Enabled = TrueCommand1.Caption = 添加完畢Command5.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseElse If Text1.Text = And Text2.Text = Then MsgBox 您沒有輸入用戶名或密碼！, 16, 出錯： Text1.Text = 123 A1.Recordset.Delete F1.Enabled = False Command1.Caption = 添加 F1.Caption = 當(dāng)前記錄： Command5.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Else If A1.Tag = 1 Then F1.Enabled = False Command1.Caption = 添加 Command5.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True C1.Visible = True C2.Visible = True A1.Tag = 2 Else If C2.Value = 1 Or C1.Value = 1 Then F1.Enabled = False Command1.Caption = 添加 Command5.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True