【正文】 admin39。 %39。 Else strSQL = DeviceName LIKE 39。 RejectDateto amp。 txtDate(2).SetFocus Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL amp。 PurchaseDatefrom amp。 Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL amp。) DeviceModel = Replace(Trim(), 39。 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。老師那熱心、耐心和認真的工作態(tài)度使我很感動，我非常感激他。首先，在這個設計中，我學會了VB中很多控件的使用。最后選擇“文件 —”菜單，編譯開始。圖428 用戶修改界面在此界面中即可進行用戶信息的修改。如圖426所示。圖423折舊統(tǒng)計表的設計設計好的報表運行后如圖424所示。l 資產(chǎn)折舊信息打印。 資產(chǎn)查詢模塊當用戶以數(shù)據(jù)操作員或普通用戶的身份進入系統(tǒng)時，可以進入資產(chǎn)查詢模塊。圖411資產(chǎn)借出借入記錄窗體窗體代碼見附錄六。圖47 選擇日期窗體在“選擇日期窗體”中可以直接點擊所需日期，即可完成選擇并退出此窗體。l 資產(chǎn)的報廢。主窗體完成后，下面將一一進行其功能的描述。 在運行時，用戶可以使用CTRL+TAB或使用選項卡上定義的快捷鍵瀏覽每個選項卡。 表41 主窗體屬性設置控 件屬 性屬性取值frmMain(Form)名稱frmMainCaptionBorderStyle2—SizableHeight7950Left1215Top720Width10635 表42 主窗體中控件—SSTab屬性設置控 件屬 性屬性取值SSTab名稱tabMainCaption資產(chǎn)管理[amp。一個友好完善的界面不僅能夠方便系統(tǒng)的使用者，而且能夠使各個模塊間的劃分更加明確，使系統(tǒng)結(jié)構(gòu)更趨于完善。類模塊的創(chuàng)建過程為：點擊“工程—添加類模塊” ，在出現(xiàn)的“添加類模塊”框中單擊“打開” ，此時生成一個類模塊，同時出現(xiàn)該類模塊的代碼編輯框。這些新對象可以包含自定義的屬性和方法。并且選擇要保存這個工程的目錄，單擊“保存”按鈕，保存工程。最終可能有幾個窗體中有一些共同都要執(zhí)行的代碼，為了在兩個窗體中不產(chǎn)生重復代碼，可創(chuàng)建一個獨立的模塊，用它實現(xiàn)代碼公用。資產(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)。本實例根據(jù)上面的設計規(guī)劃出的實體有：部門基本信息實體、資產(chǎn)基本信息實體、資產(chǎn)借還信息實體、資產(chǎn)分類信息實體、用戶信息實體。操作：借出、還入。 數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。3. 資產(chǎn)管理模塊該模塊的功能是提供資產(chǎn)的添加、刪除、修改、借出還入、報廢、注銷以及資產(chǎn)的全部顯示和分條顯示。l 系統(tǒng)密碼的更改：系統(tǒng)的正式用戶都可以更改自己的密碼。l 資產(chǎn)數(shù)據(jù)的修改：對資產(chǎn)的數(shù)據(jù)進行修改。Delete 語句可以創(chuàng)建一個刪除查詢，用來按照指定條件刪除表中的記錄。當要查詢的是表中所有列時，可用“*”代表，而不要一一列出。對于VB中的關(guān)系數(shù)據(jù)庫，一旦數(shù)據(jù)存入數(shù)據(jù)庫以后，就可以用SQL同數(shù)據(jù)庫“對話”。這與一本書的目錄索引相似，通過目錄索引就能很快找到自己需要的內(nèi)容。如員工“編號”是唯一的，“姓名”和“年齡”存在相同情況，可將其組合起來，作為組合關(guān)鍵字。每個數(shù)據(jù)表均有一個表名，一個數(shù)據(jù)庫由一個或多個數(shù)據(jù)表組成，各個數(shù)據(jù)表之間可以存在某種關(guān)系。它不但增強了可靠性和靈活性，而且降低了擁有強大、靈活管理服務的計算系統(tǒng)的成本，并為運行企業(yè)應用程序提供了最好的基礎。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。這個DataGrid控件實際上是一個固定的列集合，每一列的行數(shù)都是不確定的。內(nèi)部的Picture、Label、TextBox、CheckBox、Image、OLE、ListBox和ComboBox控件也是數(shù)據(jù)覺察的，能和由Data控件管理的Recordset對象的某個字段相連接。許多其他的數(shù)據(jù)庫操作控件都需要Data控件或類似的數(shù)據(jù)源控件（比如ADO Data控件）。利用VB的事件驅(qū)動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當在相應的窗體或控件上發(fā)生某一事件時，它們在事件發(fā)生后應該做什么工作的目的。系統(tǒng)引進了窗體和控件的機制，用于設計應用程序界面。 編程環(huán)境的選擇目前，在市場上這些眾多的程序開發(fā)工具中，有些強調(diào)程序語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的提高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。這一系統(tǒng)的開發(fā)成功，將會解決手寫速度慢、容易出錯的現(xiàn)狀。如：查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高信息管理的效率，是真正意義上的合理利用資源，也是企事業(yè)管理科學化、正規(guī)化,與世界接軌的重要條件無論是在資產(chǎn)管理，還是報表管理等方面都可以幫助企業(yè)迅速、準確的完成所需的工作。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標榜的效率提高的優(yōu)點失去了作用；相反，如果只強調(diào)程序語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設計師的寶貴時間。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設計菜單和對話框，VB會自動生成相應的代碼。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在各個相應按鈕的代碼窗口中輸入相應的代碼，來達到當在幾個按鈕上出現(xiàn)單擊（Click）事件后，相應按鈕實現(xiàn)添加、刪除、返回的功能的。Data控件可以執(zhí)行大部分數(shù)據(jù)庫訪問操作，但是它并不能顯示數(shù)據(jù)庫中數(shù)據(jù)的內(nèi)容。（2）ADO Data控件ADO Data控件與內(nèi)部Data控件以及Remote Data控件（RDC）相似。（5）MSChart控件MSChart控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 數(shù)據(jù)庫的基本概念數(shù)據(jù)庫系統(tǒng)是計算機系統(tǒng)的重要組成部分。2．記錄與字段數(shù)據(jù)表都是多行或多列構(gòu)成的集合，每列稱為一個字段（Field），它對應表格中的數(shù)據(jù)項，每個數(shù)據(jù)項的名稱稱為字段名，如“編號”、“姓名”等都是字段名。對于數(shù)據(jù)表中的每個記錄來說，主關(guān)鍵字必須具有一個唯一的值，即主關(guān)鍵字不能為空值。從簡單意義上講，一個表是許多記錄的集合。通常，都是由用戶用SQL來“發(fā)問”，數(shù)據(jù)庫則以符合發(fā)問條件的記錄來“回答” 。（表名）指出所查詢的表。其語法為Delete From （表名）Where(條件)（4）Insert 語句的語法。 l 資產(chǎn)數(shù)據(jù)的增加：增加新入庫資產(chǎn)。l 系統(tǒng)多用戶分級管理：系統(tǒng)共設3種級別的用戶。4. 報表打印模塊該模塊的功能是提供資產(chǎn)登記表、部門統(tǒng)計表、報廢統(tǒng)計表和統(tǒng)計表的瀏覽及打印。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設計打下基礎。l 資產(chǎn)分類信息：包括資產(chǎn)分類號、資產(chǎn)分類名。各個實體具體的描述ER圖如下。啟動Access 2007,創(chuàng)建一個新的數(shù)據(jù)庫，,保存在要存放這個系統(tǒng)的所有工程文件夾中。該獨立模塊即是公共模塊。 創(chuàng)建公用模塊在Visual Basic中可以用公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量等。用類模塊創(chuàng)建對象，這些對象可被應用程序內(nèi)的過程調(diào)用。用戶管理類模塊代碼見附錄八。另外窗口界面要多用按鈕和快捷鍵，少用菜單，窗口的各個控件布局要合理，美觀。M]資產(chǎn)查詢[amp。 要使用該控件，必須先確定打算如何在選項卡中放置其他控件。在功能描述過程中，也會介紹其他窗體的創(chuàng)建。l 資產(chǎn)的注銷?！斑x擇日期窗體”的代碼見附錄五。（4）選定要操作的資產(chǎn)后，點擊“資產(chǎn)報廢”按鈕，將會出現(xiàn)對話框，如圖412所示。如圖415所示。圖416報表管理界面（1）資產(chǎn)登記報表的設計如圖417所示。圖424 折舊統(tǒng)計表 系統(tǒng)管理模塊用戶以數(shù)據(jù)操作員、普通用戶或系統(tǒng)管理員的身份進入系統(tǒng)時，都可以進入系統(tǒng)管理模塊。用戶管理模塊主要實現(xiàn)如下功能：l 添加新用戶。圖427 新增用戶界面和圖428 用戶修改界面共用一個窗體，它們都是由用戶管理界面設計而成。編譯完畢后，即生成了相應的可執(zhí)行文件。本系統(tǒng)中使用了SSTab控件，使系統(tǒng)界面顯得美觀、簡潔、大方。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學習都是一種巨大的幫助除此之外，我還要致謝我的幾位同學的得力相助，我希望我能向他們學習，發(fā)揚那種百折不撓、孜孜不倦的對知識求索精神，那種至高無上的敬業(yè)精神。39。執(zhí)行用戶顯示列表操作Private Sub doUser(uid As String) Dim frm As New frmUser If Len(uid) 0 Then uid End If vbModal If = True Then = Call fillUserGrid End If Unload frm Set frm = NothingEnd SubPrivate Sub cmdAdd_Click() Call doDevice()End SubPrivate Sub cmdAll_Click() = fillDeviceGrid grdQueryEnd SubPrivate Sub cmdDelete_Click() Dim iid As String With grdDevice If .Row = 0 Then MsgBox 請選擇要刪除的資產(chǎn)! Else If MsgBox(你是否真的要刪除當前選擇的資產(chǎn)嗎?刪除后將不能恢復!, vbOKCancel) = vbOK Then .Col = 1 iid = .Text Dim device As New classDevice iid = Call fillDeviceGrid(grdDevice) End If End If End WithEnd SubPrivate Sub cmdDisCard_Click()Dim iid As String Dim strDate As String With grdDevice If .Row = 0 Then MsgBox 請選擇要報廢的資產(chǎn)! Else If MsgBox(你是否真的要報廢當前選擇的資產(chǎn)嗎?報廢后將不能恢復!, vbOKCancel) = vbOK Then .Col = 1 iid = .Text strDate = getDate() If Len(strDate) 0 Then Dim device As New classDevice If (iid, strDate) = True Then .Tag = fillDeviceGrid grdDevic