【正文】 = 0 Then MsgBox 密碼修改不成功! Exit Sub Else newPass2 = InputBox(請再次輸入新密碼確認(rèn):, 密碼修改) If Len(newPass2) = 0 Then MsgBox 密碼修改不成功! Exit Sub ElseIf newPass1 = newPass2 Then If (newPass1) = False Then MsgBox 數(shù)據(jù)操作錯誤,密碼修改不成功! Else MsgBox 密碼成功修改!請保存好你的密碼! End If Exit Sub Else MsgBox 兩次輸入的新密碼不一樣,修改失敗! Exit Sub End If End If Else MsgBox 密碼修改不成功! Exit Sub End IfEnd SubPrivate Sub cmdQuery_Click() Dim DeptNo As String Dim DeviceName As String Dim DeviceModel As String Dim TypeNo As String Dim Pricefrom As String Dim Priceto As String Dim PurchaseDatefrom As String Dim PurchaseDateto As String Dim RejectDatefrom As String Dim RejectDateto As String Dim strSQL As String If 0 Then DeptNo = getDeptNo() strSQL = =39。將代碼放在這里傳遞 39。39。不提示失敗的登錄 LoginSucceeded = False End SubPrivate Sub cmdOK_Click() Dim strPwd As String Dim rsPwd As Dim strLogin As String strLogin = Trim() strPwd = Trim() If Len(strLogin) = 0 Then MsgBox 用戶名不能為空,請輸入用戶名 Exit Sub End If If Len(strPwd) = 0 Then MsgBox 密碼不能為空,請輸入正確的密碼 Exit Sub End If Set rsPwd = (SELECT pwd FROM tblUser WHERE login=39。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都是一種巨大的幫助除此之外，我還要致謝我的幾位同學(xué)的得力相助，我希望我能向他們學(xué)習(xí)，發(fā)揚那種百折不撓、孜孜不倦的對知識求索精神，那種至高無上的敬業(yè)精神。在這次設(shè)計中，我發(fā)現(xiàn)了自己在很多方面的不足，認(rèn)為此系統(tǒng)的難點在以下幾個方面，首先是系統(tǒng)中功能模塊的連接問題，對具體的模塊設(shè)置還存在很大程度上的不足；其次是在系統(tǒng)與數(shù)據(jù)庫的連接上，一些控件中屬性的修改和連接，還值得我好好去學(xué)習(xí)；最后是數(shù)據(jù)庫建表中，表和表之間的關(guān)聯(lián)性，以及表中關(guān)鍵字的唯一性還有待我進一步的研究。本系統(tǒng)中使用了SSTab控件，使系統(tǒng)界面顯得美觀、簡潔、大方。圖51 進行項目的屬性設(shè)置6 小結(jié) 通過這次對企業(yè)資產(chǎn)管理系統(tǒng)的制作，我學(xué)會了用VB和Access做一個簡單的應(yīng)用軟件。編譯完畢后，即生成了相應(yīng)的可執(zhí)行文件。這涉及到工程項目屬性的設(shè)置、可執(zhí)行應(yīng)用程序的生成。圖427 新增用戶界面和圖428 用戶修改界面共用一個窗體，它們都是由用戶管理界面設(shè)計而成。圖427 新增用戶界面輸入用戶名及用戶密碼，選擇用戶級別，點擊“保存并退出”按鈕，即可完成。用戶管理模塊主要實現(xiàn)如下功能：l 添加新用戶。如果是以系統(tǒng)管理員身份進入本系統(tǒng)，還可以進行數(shù)據(jù)總清操作，此操作相當(dāng)如作系統(tǒng)初始化。圖424 折舊統(tǒng)計表 系統(tǒng)管理模塊用戶以數(shù)據(jù)操作員、普通用戶或系統(tǒng)管理員的身份進入系統(tǒng)時，都可以進入系統(tǒng)管理模塊。圖420部門統(tǒng)計表（3）報廢統(tǒng)計報表的設(shè)計如圖421所示。圖416報表管理界面（1）資產(chǎn)登記報表的設(shè)計如圖417所示。報表管理模塊主要實現(xiàn)如下功能：l 資產(chǎn)登記信息打印。如圖415所示。（6）如果要修改資產(chǎn)信息，可直接在資產(chǎn)列表中雙擊資產(chǎn)，將出現(xiàn)如圖414所示。（4）選定要操作的資產(chǎn)后，點擊“資產(chǎn)報廢”按鈕，將會出現(xiàn)對話框，如圖412所示。圖49 資產(chǎn)借出借入記錄界面如果選定的是筆記本電腦，在窗體標(biāo)題欄上將顯示“資產(chǎn)[筆記本電腦]借出借入記錄” ，如果此資產(chǎn)的狀態(tài)是在庫，那么在窗體下面的按鈕上顯示的文字是“借出資產(chǎn)” ，而且此次操作進行的是資產(chǎn)的借出操作；如果此資產(chǎn)的狀態(tài)是借出，那么在窗體下面的按鈕上顯示的文字是“歸還資產(chǎn)” ，而且此次進行的是資產(chǎn)歸還操作?！斑x擇日期窗體”的代碼見附錄五?！百Y產(chǎn)管理”窗體的代碼見附錄四。l 資產(chǎn)的注銷。l 資產(chǎn)的修改。在功能描述過程中，也會介紹其他窗體的創(chuàng)建。設(shè)置好控件及其屬性后，創(chuàng)建好的窗體如圖441——445所示。如果必要，設(shè)置Caption, Picture,TabHeight和TabMaxWidth屬性來安排選項卡的上部。 要使用該控件，必須先確定打算如何在選項卡中放置其他控件。S]EnabledTrueHeight7365Style1—ssStyleProPertyPageTop720Width10635Tab01234TabHeight400TabIndex0Tabs5TabsPerRow5TabStopTrueWidth10455SSTab控件提供了一組選項卡，每個都充當(dāng)一個容器，包含了其他的控件。M]資產(chǎn)查詢[amp。用戶登錄成功后，將顯示標(biāo)志窗體，如圖43圖43 標(biāo)志窗體點擊“確定”按鈕，將進入系統(tǒng)主窗體。另外窗口界面要多用按鈕和快捷鍵，少用菜單，窗口的各個控件布局要合理，美觀。用戶登錄必須進行密碼校驗，保證信息的準(zhǔn)確性。用戶管理類模塊代碼見附錄八。 在本次設(shè)計中，由于企業(yè)資產(chǎn)管理系統(tǒng)啟動后，需要對用戶進行判斷。用類模塊創(chuàng)建對象，這些對象可被應(yīng)用程序內(nèi)的過程調(diào)用。代碼見附錄十。 創(chuàng)建公用模塊在Visual Basic中可以用公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量等。（2）過程：每個模塊可有多個過程，過程是劃分VB代碼的最小單元，每個過程是一個可執(zhí)行的代碼片段。該獨立模塊即是公共模塊。表31　tblDepartment 部門基本信息表表32 tblDevice 資產(chǎn)基本信息表表33 tblLend 資產(chǎn)借還信息表表34　 tblTypeInfo資產(chǎn)分類信息表表35 tblUser用戶信息表4 系統(tǒng)具體程序?qū)崿F(xiàn) 系統(tǒng)公共模塊和類模塊的創(chuàng)建VB的代碼存儲在模塊中。啟動Access 2007,創(chuàng)建一個新的數(shù)據(jù)庫，,保存在要存放這個系統(tǒng)的所有工程文件夾中。資產(chǎn)借還信息實體資產(chǎn)編號借還信息使用部門借還時間圖34 資產(chǎn)借還信息實體ER圖資產(chǎn)分類信息實體ER圖如圖35所示。各個實體具體的描述ER圖如下。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項和數(shù)據(jù)流程，我們就能進行下面的數(shù)據(jù)庫設(shè)計。l 資產(chǎn)分類信息：包括資產(chǎn)分類號、資產(chǎn)分類名。l 資產(chǎn)基本信息：包括資產(chǎn)編號、名稱、型號、類型、所屬部門、購買價格、折舊價、購買日期、狀態(tài)（借出或在庫）、報廢時間、注銷時間、購買日期。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟：l 數(shù)據(jù)庫需求分析。4. 報表打印模塊該模塊的功能是提供資產(chǎn)登記表、部門統(tǒng)計表、報廢統(tǒng)計表和統(tǒng)計表的瀏覽及打印。 系統(tǒng)功能模塊設(shè)計對上述各項功能進行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計的要求，得到如圖21所示的系統(tǒng)功能模塊圖。l 系統(tǒng)多用戶分級管理：系統(tǒng)共設(shè)3種級別的用戶。l 資產(chǎn)的借出與還入：將在庫資產(chǎn)借出，或?qū)⒔璩龅馁Y產(chǎn)還入庫中。 l 資產(chǎn)數(shù)據(jù)的增加：增加新入庫資產(chǎn)。其語法為Select（字段名表）Into (新表名) From (源表名) 2 系統(tǒng)設(shè)計 系統(tǒng)功能分析本系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。其語法為Delete From （表名）Where(條件)（4）Insert 語句的語法。（2）Update 語句的語法。（表名）指出所查詢的表。例如：Select * From tblUserSQL 語句不應(yīng)和一般的VB語句混淆。通常，都是由用戶用SQL來“發(fā)問”，數(shù)據(jù)庫則以符合發(fā)問條件的記錄來“回答” 。 結(jié)構(gòu)化查詢語言SQLSQL (Structure Query Language 結(jié)構(gòu)化查詢語言)是一種用于數(shù)據(jù)查詢的編程語言。從簡單意義上講，一個表是許多記錄的集合。根據(jù)一個表中記錄與另一個表中記錄之間的數(shù)量對應(yīng)關(guān)系，分為一對一、一對多（或多對一）、多對多關(guān)系，常用的是一對多關(guān)系。對于數(shù)據(jù)表中的每個記錄來說，主關(guān)鍵字必須具有一個唯一的值，即主關(guān)鍵字不能為空值。記錄中的數(shù)據(jù)隨著每一行記錄的不同而變化。2．記錄與字段數(shù)據(jù)表都是多行或多列構(gòu)成的集合，每列稱為一個字段（Field），它對應(yīng)表格中的數(shù)據(jù)項，每個數(shù)據(jù)項的名稱稱為字段名，如“編號”、“姓名”等都是字段名。其中關(guān)系數(shù)據(jù)庫是應(yīng)用最多的一種數(shù)據(jù)庫。 數(shù)據(jù)庫的基本概念數(shù)據(jù)庫系統(tǒng)是計算機系統(tǒng)的重要組成部分。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。Davg Function（求平均值）Dcount Function（計算滿足條件的記錄數(shù)）Dfirst Function（返回記錄集的第一個記錄的某個域值）Dlast Function（返回記錄集的最后一個記錄的某個域值）Dlookup Function（返回記錄集中滿足待定條件的記錄的域值）Dsum Function（求和計算）Dmax Function（求最大值）Dmin Function（求最小值） 數(shù)據(jù)庫平臺介紹 Access 2007數(shù)據(jù)庫簡介 Access 2007 是關(guān)系數(shù)據(jù)庫開發(fā)工具，1992年，Microsoft Access作為第一個面向Windows操作平臺的桌面數(shù)據(jù)庫管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向?qū)ο蟮乃枷耄峁┛梢暬木幊淌侄?，而且充分利用了Windows操作平臺的優(yōu)越性，采用與Windows完全一致的界面風(fēng)格，使界面非常友好。（5）MSChart控件MSChart控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。（4）DataGrid控件在許多情況下，需要使用表格形式來顯示數(shù)據(jù)庫中的數(shù)據(jù)。（2）ADO Data控件ADO Data控件與內(nèi)部Data控件以及Remote Data控件（RDC）相似。當(dāng)Data控件中當(dāng)前記錄發(fā)生變化時，數(shù)據(jù)覺察控件的內(nèi)容也會隨之發(fā)生變化。Data控件可以執(zhí)行大部分?jǐn)?shù)據(jù)庫訪問操作，但是它并不能顯示數(shù)據(jù)庫中數(shù)據(jù)的內(nèi)容。（1）Data控件Data控件是Visual Basic中最基本的數(shù)據(jù)庫操作控件。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在各個相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達(dá)到當(dāng)在幾個按鈕上出現(xiàn)單擊（Click）事件后，相應(yīng)按鈕實現(xiàn)添加、刪除、返回的功能的。這樣，設(shè)計一個Windows應(yīng)用程序簡化為用鼠標(biāo)在屏幕上點擊、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設(shè)計的要求，提高了應(yīng)用程序的開發(fā)效率。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計菜單和對話框，VB會自動生成相應(yīng)的代碼。VC++在界面設(shè)計上不如VB方便，所以本次課題用VB開發(fā)。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點失去了作用；相反，如果只強調(diào)程序語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴(yán)重地浪費程序設(shè)計師的寶貴時間。同時，Windows XP操作系統(tǒng)占據(jù)很大的市場地位，而且其使用趨向于傻瓜化，操作簡單、靈活。無論是在資產(chǎn)管理，還是報表管理等