【正文】 方面都可以幫助企業(yè)迅速、準確的完成所需的工作。因此，有必要設計一個應用軟件系統(tǒng)來管理。這些優(yōu)點能夠極大地提高信息管理的效率，是真正意義上的合理利用資源，也是企事業(yè)管理科學化、正規(guī)化,與世界接軌的重要條件武漢科技大學本科畢業(yè)設計企業(yè)資產(chǎn)管理系統(tǒng)VBAccess畢業(yè)設計目 錄1 緒論 1 課題背景 1 目的及意義 1 開發(fā)和運行環(huán)境選擇 1 編程環(huán)境的選擇 2 Visual Basic簡介及實現(xiàn)原理 2 數(shù)據(jù)庫組件介紹 3 SQL語言在VB中的應用 4 數(shù)據(jù)庫平臺介紹 4 Access 2007 數(shù)據(jù)庫簡介 4 數(shù)據(jù)庫的基本概念 5 結(jié)構(gòu)化查詢語言SQL 6 SQL語句簡介 6 2 系統(tǒng)設計 7 系統(tǒng)功能分析 7 系統(tǒng)功能模塊設計 8 3 數(shù)據(jù)庫設計 9 數(shù)據(jù)庫需求分析 9 數(shù)據(jù)庫概念結(jié)構(gòu)設計 10 數(shù)據(jù)庫邏輯結(jié)構(gòu)設計及實現(xiàn) 12 4 系統(tǒng)具體程序?qū)崿F(xiàn) 14 系統(tǒng)公共模塊和類模塊的創(chuàng)建 14 創(chuàng)建工程項目——PrjDevice 15 創(chuàng)建公用模塊 15 創(chuàng)建類模塊 15 系統(tǒng)用戶登錄窗體的創(chuàng)建 15 企業(yè)資產(chǎn)管理系統(tǒng)主窗體的創(chuàng)建 17 資產(chǎn)管理模塊 22 資產(chǎn)查詢模塊 25 報表管理模塊 26 系統(tǒng)管理模塊 29 用戶管理模塊 30 5 系統(tǒng)的編譯和發(fā)行 32 6 小結(jié) 33 致 謝 34 主要參考文獻 35 附 錄 37 75 1 緒論 課題背景隨著信息技術(shù)廣泛、深入地應用到人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。如：查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。由于資產(chǎn)的種類太多，涉及面太廣，而且被經(jīng)常的借出借入，必然會引起管理上的困難，而資產(chǎn)管理不好就會引起混亂，導致公司資產(chǎn)的流失。這一系統(tǒng)的開發(fā)成功，將會解決手寫速度慢、容易出錯的現(xiàn)狀。這種平臺的體系結(jié)構(gòu)可以更有效地處理海量數(shù)據(jù)，使應用程序運行地更快、更高效。 編程環(huán)境的選擇目前，在市場上這些眾多的程序開發(fā)工具中，有些強調(diào)程序語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的提高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。故而，實現(xiàn)本系統(tǒng)，VB是一個相對較好的選擇。系統(tǒng)引進了窗體和控件的機制，用于設計應用程序界面。程序員不必擔心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機在事件發(fā)生以后應該做什么工作就可以了。利用VB的事件驅(qū)動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當在相應的窗體或控件上發(fā)生某一事件時，它們在事件發(fā)生后應該做什么工作的目的。下面將分別對這些控件的主要功能及使用方法進行介紹。許多其他的數(shù)據(jù)庫操作控件都需要Data控件或類似的數(shù)據(jù)源控件（比如ADO Data控件）。因為程序員無需編寫任何代碼，就可以在這些控件中顯示當前記錄的數(shù)據(jù)。內(nèi)部的Picture、Label、TextBox、CheckBox、Image、OLE、ListBox和ComboBox控件也是數(shù)據(jù)覺察的，能和由Data控件管理的Recordset對象的某個字段相連接。DataCombo控件的功能與DataList控件完全相同，只不過DataCombo控件是一個組合框。這個DataGrid控件實際上是一個固定的列集合，每一列的行數(shù)都是不確定的。 SQL語言在VB中的應用（1）SQL提供的實用函數(shù)為實現(xiàn)使用VB程序調(diào)用SQL語言訪問Access 2007數(shù)據(jù)庫多個記錄的目的，我們利用SQL提供的函數(shù)。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。它不但增強了可靠性和靈活性，而且降低了擁有強大、靈活管理服務的計算系統(tǒng)的成本，并為運行企業(yè)應用程序提供了最好的基礎(chǔ)。數(shù)據(jù)庫按其結(jié)構(gòu)可分為層次數(shù)據(jù)庫、網(wǎng)狀數(shù)據(jù)庫和關(guān)系數(shù)據(jù)庫。每個數(shù)據(jù)表均有一個表名，一個數(shù)據(jù)庫由一個或多個數(shù)據(jù)表組成，各個數(shù)據(jù)表之間可以存在某種關(guān)系。記錄中的每個字段的取值，稱為字段值或分量。如員工“編號”是唯一的，“姓名”和“年齡”存在相同情況，可將其組合起來，作為組合關(guān)鍵字。用來聯(lián)系兩個數(shù)據(jù)表的字段稱為關(guān)鍵字段。這與一本書的目錄索引相似，通過目錄索引就能很快找到自己需要的內(nèi)容。對一個記錄集進行的修改會自動更新相應的表中的內(nèi)容，同樣，對表所做修改會自動更新以該表為基礎(chǔ)建立的所有記錄集。對于VB中的關(guān)系數(shù)據(jù)庫，一旦數(shù)據(jù)存入數(shù)據(jù)庫以后，就可以用SQL同數(shù)據(jù)庫“對話”。SQL中以關(guān)鍵字打頭，完整描述一個操作完整的短語。當要查詢的是表中所有列時，可用“*”代表，而不要一一列出。（條件）和（字段名表）中用到的字段名前要加上表名，中間用小數(shù)點分隔。Delete 語句可以創(chuàng)建一個刪除查詢，用來按照指定條件刪除表中的記錄。Select Into語句用來為表做備份或?qū)⒈磔敵龅狡渌麛?shù)據(jù)庫中。l 資產(chǎn)數(shù)據(jù)的修改：對資產(chǎn)的數(shù)據(jù)進行修改。l 資產(chǎn)的刪除：刪除某一特定的資產(chǎn)記錄。l 系統(tǒng)密碼的更改：系統(tǒng)的正式用戶都可以更改自己的密碼。（3）系統(tǒng)管理員：能對系統(tǒng)用戶進行管理。3. 資產(chǎn)管理模塊該模塊的功能是提供資產(chǎn)的添加、刪除、修改、借出還入、報廢、注銷以及資產(chǎn)的全部顯示和分條顯示。設計數(shù)據(jù)庫系統(tǒng)時應該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。 數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。操作：輸入、刪除、查詢、修改。操作：借出、還入。操作：輸入、刪除、修改。本實例根據(jù)上面的設計規(guī)劃出的實體有：部門基本信息實體、資產(chǎn)基本信息實體、資產(chǎn)借還信息實體、資產(chǎn)分類信息實體、用戶信息實體。資產(chǎn)基本信息實體資產(chǎn)編號資產(chǎn)名稱報廢時間購買日期………..……….............圖33 資產(chǎn)基本信息實體ER圖資產(chǎn)借還信息實體ER圖如圖34所示。資產(chǎn)分類信息資產(chǎn)類型資產(chǎn)基本信息借出或在庫借還信息資產(chǎn)所屬部門部門信息借還操作人用戶信息圖37實體之間關(guān)系的ER圖 數(shù)據(jù)庫邏輯結(jié)構(gòu)設計及實現(xiàn)經(jīng)過上面的需求分析和概念設計，再根據(jù)關(guān)系數(shù)據(jù)庫理論及其設計方法與技術(shù)，就可以將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為Access 2007數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。每個表格表示在數(shù)據(jù)庫中的一個表。最終可能有幾個窗體中有一些共同都要執(zhí)行的代碼，為了在兩個窗體中不產(chǎn)生重復代碼，可創(chuàng)建一個獨立的模塊，用它實現(xiàn)代碼公用。每個模塊只有一個聲明部分 。并且選擇要保存這個工程的目錄，單擊“保存”按鈕，保存工程。下面就可以開始編輯需要的代碼了。這些新對象可以包含自定義的屬性和方法。類實例中的數(shù)據(jù)只存在于對象的存活期，它隨對象的創(chuàng)建而創(chuàng)建，隨對象的撤消而消失。類模塊的創(chuàng)建過程為：點擊“工程—添加類模塊” ，在出現(xiàn)的“添加類模塊”框中單擊“打開” ，此時生成一個類模塊，同時出現(xiàn)該類模塊的代碼編輯框。 系統(tǒng)用戶登錄窗體的創(chuàng)建本程序考慮到系統(tǒng)的安全性，主要設置了用戶登錄論證。一個友好完善的界面不僅能夠方便系統(tǒng)的使用者，而且能夠使各個模塊間的劃分更加明確，使系統(tǒng)結(jié)構(gòu)更趨于完善。 用戶登錄窗體界面設計如圖42：圖42 用戶登錄窗體窗體代碼見附錄一。表41 主窗體屬性設置控 件屬 性屬性取值frmMain(Form)名稱frmMainCaptionBorderStyle2—SizableHeight7950Left1215Top720Width10635 表42 主窗體中控件—SSTab屬性設置控 件屬 性屬性取值SSTab名稱tabMainCaption資產(chǎn)管理[amp。U]系統(tǒng)管理[amp。 對于每個選項卡，繪制每個你想顯示的控件。 在運行時，用戶可以使用CTRL+TAB或使用選項卡上定義的快捷鍵瀏覽每個選項卡。表43 主窗體中控件—MSFlexGrid屬性設置控 件屬 性屬性取值MSFlexGrid名稱grdDeviceBorderStyle1—flexBorderSingleCols2GridLines1—flexGridFlatGridLinesFixed2—flexGridInsetLeft195Rows2ScrollBars3—flexScrollBarBoth其他控件屬性設置在這里就不一一描述了，在窗體設計中可以查看。主窗體完成后，下面將一一進行其功能的描述。圖45 資產(chǎn)管理模塊資產(chǎn)管理模塊主要實現(xiàn)以下功能：l 資產(chǎn)的添加。l 資產(chǎn)的報廢。如果想放棄此次操作，點擊“放棄并退出”按鈕即可。圖47 選擇日期窗體在“選擇日期窗體”中可以直接點擊所需日期，即可完成選擇并退出此窗體。（3）要進行資產(chǎn)的借出借入操作時，先選定要操作的資產(chǎn)，再點擊“借出借入”按鈕，將出現(xiàn)以下窗體，如圖49所示。圖411資產(chǎn)借出借入記錄窗體窗體代碼見附錄六。圖413點擊“確定” ，進行資產(chǎn)注銷操作。 資產(chǎn)查詢模塊當用戶以數(shù)據(jù)操作員或普通用戶的身份進入系統(tǒng)時，可以進入資產(chǎn)查詢模塊。如圖416所示。l 資產(chǎn)折舊信息打印。圖419部門統(tǒng)計表設計設計好的報表運行后如圖420所示。圖423折舊統(tǒng)計表的設計設計好的報表運行后如圖424所示。l 系統(tǒng)的退出。如圖426所示。圖426 用戶管理模塊界面（1） 如果要添加新用戶，點擊“新增用戶”按鈕，將出現(xiàn)以下界面，如圖427所示。圖428 用戶修改界面在此界面中即可進行用戶信息的修改。5 系統(tǒng)的編譯和發(fā)行完成了企業(yè)資產(chǎn)管理信息系統(tǒng)的編程和調(diào)試工作，最后一步就是該系統(tǒng)的編譯和發(fā)行。最后選擇“文件 —”菜單，編譯開始。通過測試的可執(zhí)行文件，就可以進行發(fā)布了。首先，在這個設計中，我學會了VB中很多控件的使用。雖然數(shù)據(jù)庫創(chuàng)建非常簡單，但用SQL語言對其進行訪問、添加、修改，讓我學到了更多相關(guān)知識。老師那熱心、耐心和認真的工作態(tài)度使我很感動，我非常感激他。設置全局變量為 false 39。, 39。) If Then MsgBox 用戶名不正確,請重新輸入! ElseIf strPwd = rsPwd(pwd).value Then 39。執(zhí)行資產(chǎn)顯示列表操作Private Sub doDevice(iid As String) Dim frm As New frmDevice If Len(iid) 0 Then iid End If vbModal If = True Then = Call fillDeviceGrid(grdDevice) End If Unload frm Set frm = NothingEnd Sub39。 39。 39。 39。) DeviceModel = Replace(Trim(), 39。 Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL amp。 Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL amp。 txtDate(0).SetFocus Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL amp。 PurchaseDatefrom amp。 PurchaseDateto amp。 txtDate(2).SetFocus Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL amp。 RejectDatefrom amp。 RejectDateto amp。 AND DeviceName LIKE 39。 Else strSQL = DeviceName LIKE 39。 End If End If If Len(DeviceModel) 0 Then If Len(strSQL) 0 Then strSQL = strSQL amp。 %39。 %39。admi