【正文】 錯誤,密碼修改不成功! Else MsgBox 密碼成功修改!請保存好你的密碼! End If Exit Sub Else MsgBox 兩次輸入的新密碼不一樣,修改失敗! Exit Sub End If End If Else MsgBox 密碼修改不成功! Exit SubEnd If（2）系統(tǒng)管理員操作是對數(shù)據(jù)執(zhí)行備份、整理和清理操作。在系統(tǒng)管理表中可以對密碼進行修改，對數(shù)據(jù)進行整理。 rs(DisCardDate).value amp。 rs(RejectDate).value amp。 借出 amp。 在庫 amp。 FormatDateTime(rs(PurchaseDate).value, vbLongDate) amp。 rs(Productcost).value amp。 rs(ProductPrice).value amp。 rs(Department).value amp。 rs(TypeName).value amp。 rs(DeviceModel).value amp。 rs(DeviceName).value amp。 rs(DeviceNO).value amp。 rs(IID).value amp。用戶成功進入系統(tǒng)主窗體運行結(jié)果見圖11所示：圖11 系統(tǒng)主窗體的運行結(jié)果其后臺代碼為：Private Sub tabMain_Click(PreviousTab As Integer) Dim strSQL As String Select Case Case 0 strSQL = SELECT a.*, FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON =) INNER JOIN tblTypeInfo C ON = ORDER BY DESC Call fillDeviceGrid(grdDevice, strSQL) Case 3 Call fillUserGrid End Select End SubPrivate Sub fillDeviceGrid(grid As MSFlexGrid, Optional strSQL As String) Dim rs As Dim strRowData As String Dim rowindex As Integer If Len(strSQL) = 0 Then strSQL = SELECT a.*, FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON =) INNER JOIN tblTypeInfo C ON = ORDER BY DESC End If rowindex = 1With grid If .Tag = Then Set rs = (strSQL) .Rows = 1 .Cols = 13 .Row = 0 .Col = 0 .Text = 序號 .Col = 1 .Text = ID .ColWidth(1) = 0 .Col = 2 .Text = 設(shè)備編號 .Col = 3 .Text = 設(shè)備名稱 .Col = 4 .Text = 設(shè)備型號 .Col = 5 .Text = 設(shè)備分類 .Col = 6 .Text = 所屬部門 .Col = 7 .Text = 購買價格 .Col = 8 .Text = 折舊成本 .Col = 9 .Text = 購買日期 .Col = 10 .Text = 狀態(tài) .Col = 11 .Text = 報廢日期 .Col = 12 .Text = 注銷日期 Do Until strRowData = rowindex amp。第三組按鈕是用戶管理，對用戶的權(quán)限進行設(shè)置。圖10 設(shè)備管理信息系統(tǒng)的主界面成功登錄后，進入的系統(tǒng)的主窗體，在主窗體中有四組按鈕，第一組是設(shè)備管理選擇按鈕，通過點擊相應(yīng)的按鈕可以在主窗體中顯示不同設(shè)備的表單，這些表單分別是設(shè)備信息表，這組按鈕和Access數(shù)據(jù)庫中各表相聯(lián)系。設(shè)置全局變量時最容易的 LoginSucceeded = True Else MsgBox 無效的密碼，請重試!, , 登錄 SendKeys {Home}+{End} End If Set rsPwd = NothingEnd Sub（四）主窗體的設(shè)計主窗體界面是顯示系統(tǒng)主要操作功能的面板，在系統(tǒng)主窗體中，可以顯示設(shè)備管理、設(shè)備查詢、用戶管理和系統(tǒng)管理信息，還可以通過點擊這四組按鈕來查看設(shè)備的信息。將代碼放在這里傳遞 39。 39。39。 Replace(strLogin, 39。圖9 登陸界面其后臺代碼為：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。在窗體的部分有以下幾個窗體，他們的作用分別是： “”是設(shè)備窗口，可以對設(shè)備信息進行添加，刪除的操作；“”是設(shè)置日期窗體，對日期進行設(shè)置；“” 是設(shè)備借入借出，管理員可以在此修改設(shè)備的借入借出狀態(tài)；“”是用戶的登陸窗口，啟動系統(tǒng)時就會出現(xiàn)這個窗口； “”是系統(tǒng)主界面，用戶可以選擇要執(zhí)行的任務(wù)；“” 是用戶管理窗口，對用戶進行添加和刪除；系統(tǒng)架構(gòu)說明見圖8所示： 圖8 系統(tǒng)架構(gòu)圖（三）系統(tǒng)登陸界面的設(shè)計登陸界面在VB ，在新建窗體后，然后加上相應(yīng)的控件按鈕。對數(shù)據(jù)庫、操作系統(tǒng)平臺以及服務(wù)器等關(guān)鍵部分進行了認真討論和詳盡對比分析，并做出以下選擇：Microsoft公司的Windows XP作為操作系統(tǒng)平臺， Microsoft ACCESS 2003標準版作為后端數(shù)據(jù)庫服務(wù)器軟件：以Windows作為前端工作站的主要操作系統(tǒng)；VB 。其相應(yīng)情況如下圖3至圖7：圖3　用戶表圖4　部門表圖5　設(shè)備借入借出表圖6 設(shè)備類型表圖7 設(shè)備臺帳表 五、設(shè)備管理信息系統(tǒng)的詳細設(shè)計與實現(xiàn)（一）系統(tǒng)功能概述該系統(tǒng)的主要功能是為設(shè)備管理員對設(shè)備流動管理而開發(fā)，主要是對日常設(shè)備情況進行添加、刪除、借入借出、設(shè)備報廢和注銷的功能。設(shè)備管理系統(tǒng)的數(shù)據(jù)流程圖如圖2所示。同時，結(jié)合設(shè)備管理信息化軟件，對設(shè)備管理信息系統(tǒng)的應(yīng)用作進一步的闡述。級別管理：可以進行用戶級別所有的相關(guān)信息。2．設(shè)備管理員的主要功能和權(quán)限基本信息 ：可查詢設(shè)備的基本信息。用戶管理：可以查詢和修改用戶的基本信息。（二）用戶及功能需求1．設(shè)備用戶的主要功能和權(quán)限設(shè)備管理：可查看設(shè)備的編號、名稱、型號、購買日期、購買價格、折舊價格等。使用計算機可以高速，快捷地完成以上工作。三、需求分析（一）需求背景在設(shè)備管理系統(tǒng)中，需要從大量的設(shè)備信息中，提取相關(guān)信息，以反映設(shè)備的當前的情況。 　　模塊(Module) 模塊的功能與宏類似，但它定義的操作比宏更精細和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。宏(Macro) 宏相當于DOS中的批處理，用來自動執(zhí)行一系列操作。窗體也稱表單。窗體(Form) 窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。Access 數(shù)據(jù)庫由六種對象組成，它們是表、查詢、窗體、報表、宏和模塊。表與表之間可以建立關(guān)系（或稱關(guān)聯(lián)，連接），以便查詢相關(guān)聯(lián)的信息?！爱a(chǎn)品”表由10個記錄組成，一個記錄占一行，每一個記錄由產(chǎn)品ID、產(chǎn)品名稱、庫存量、訂貨量、單價和折扣率6個字段組成。 Microsoft Access是一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一