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