【正文】 添加設備分類名稱，先判斷域是否為空 If Len(Trim(txtName)) = 0 Then MsgBox (請輸入分類名稱 ) Exit Sub End If 39。設置列表綁定字段 End Sub （ 2） cmd_add_click 過程。設置數(shù)據(jù)源 Set = Adodc1 = InfoName 39。設置連接字符串 = Conn 39。刷新 DataList1 中的數(shù)據(jù) DataRefresh End Sub 在此過程中將顯示所有的設備分類名稱。 圖 48 設備 分類 管理 窗口 程序實現(xiàn)如圖 49 所示： 進 入 子 模 塊設 備 分 類 管 理顯 示 已 有 設 備 類 型輸 入 新 設 備 類 型新 增 記 錄選 擇 需 要修 改 的 設 備 類 型輸 入 修 改 內 容新 增設 備 類 型數(shù) 據(jù) 校 驗是 否 為 空是 否 已 存 在修 改 記 錄數(shù) 據(jù) 校 驗是 否 未 選 中是 否 未 修 改是 否 已 存 在選 擇 需 要刪 除 的 設 備 類 型刪 除 記 錄數(shù) 據(jù) 校 驗是 否 未 選 中通 過點 擊 刪 除通 過點 擊 修 改點 擊 退 出退 至 主 界 面點 擊 新 增返 回 并 刷 新 顯 示 內 容 返 回 并 刷 新 顯 示 內 容刪 除 確 認通 過是否 圖 49 設備分類管理 程序實現(xiàn) 流程圖 25 窗體中包含的控件及其屬性如表 43 所示。如果當前用戶為 Admin，則打開用戶管理窗體 If Format(， ) = admin Then 1 Else MsgBox 沒有權限 End If End Sub 基本信息管理模 塊設計 基本信息管理模塊包括設備分類管理、設備品牌管理和支行 管理。報廢審批管理 1 End Sub Private Sub mn_ChangePwd_Click() 39。設備移機 管理 1 End Sub Private Sub mn_Discard_Click() 23 39。設備維護管理 1 End Sub Private Sub mn_Check_Click() 39。退出系統(tǒng) DBapi_Disconnect End End Sub Private Sub mn_Device_Click() 39。登錄界面 1 End Sub Private Sub mn_BaseInfo_Click() 39。 菜單編輯器如圖： 45 所示。 表 42 登錄窗體包含的控件及其屬性 對象名 屬性 屬性值 Label1 Caption 用戶名 Label2 Caption 密碼 TxtUser Text 空 TxtPwd Text 空 PasswordChar * Cmd_Ok Caption 確定 Cmd_Cancel Caption 取消 如果輸入的用戶名或者 密碼不匹配則彈出提示信息（圖 43） ： 圖 43 用戶名或密碼錯誤 如果輸入用戶名和密碼不匹配次數(shù)達到 3 次則彈出提示信息（圖 44） 18 圖 44 三次嘗試進入系統(tǒng)失敗 代碼如下： Private Sub Cmd_OK_Click() Dim j As Single ?數(shù)據(jù)有效性檢查 If txtUser = “” Then MsgBox “請輸入用戶名 ” Exit Sub End If If txtPwd = “” Then MsgBox “請輸入密碼 ” Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) ?判斷用戶是否存在 If (NameKey) = False Then MsgBox “用戶名不存在 ” Try_times = Try_times + 1 If Try_times = 3 Then MsgBox “您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 ” Dbapi_Disconnect End Else 19 Exit Sub End If End If ?判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox “密碼錯誤 ” Try_times = Try_times + 1 If Try_times = 3 Then MsgBox “您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 ” Dbapi_Disconnect End Else Exit Sub End If End If ?登錄成功，將當前用戶的信息保存在 CurUser 中 () ?關閉自己 Unload Me End Sub 設計主界面 主窗體是系統(tǒng)的啟動對象，可以 在系統(tǒng)菜單中選擇“工程” /“屬性”，打開屬性窗口設置啟動對象。 圖 42 登錄窗體的界面布局 登錄窗體的屬性如表 41 所示。登錄成功后，將顯示系統(tǒng)主界面，程序實現(xiàn)流程如圖 41 所示。 7. Users 類用來管理表 Users 的數(shù)據(jù)庫操作，它保存為 。 5. Movement 類用來管理表 Movement 的數(shù)據(jù)庫操作，它保存為 。 3. Maintenance 類用來管理表 Maintenance 的 數(shù) 據(jù) 庫 操 作 ， 它 保 存 為。 1. BaseInfo 類用來管理表 BaseInfo 的數(shù)據(jù)庫操作，它保存為 。 類模塊 的設計 在系統(tǒng) 中，需要為每一個 數(shù)據(jù)表 創(chuàng)建一個類模塊，將對此表的所有數(shù)據(jù)庫操作封裝在類中。 ? GeneralFunc 用來管理工程中一些通用的自定義函數(shù)。 15 標準模塊的設計 在系統(tǒng)中設計了如下的模塊： ? Const 用來管理工程中的常量。這種情況最好創(chuàng)建一個共享的子過程，使大家都可以調用它。典型應用程序包括若干個模塊 ：應用程序中每個窗體的窗體模塊、共享代碼的標準模塊和類模塊。構造應用程序的方法不同，可能會造成應用程序的性能以及代碼的可維護性、可使用性不同。首先需要為應用程序設計一個用戶界面，這個界面的設計比較容易確定。 表 31 表 BaseInfo 的結構 編號 字段名稱 數(shù)據(jù)類型 說明 1 InfoID Int 編號，主鍵 2 InfoName Varchar50 名稱 3 TypeId Tinyint 分類， 1 表示設備分類； 2 表示設備品牌；3 表示支行 設備信息表 Device， 保存設備的基本信息，結構如表 32 所示。 數(shù)據(jù)庫包含 7 個表，即基本信息表 BaseInfo、設備信息表 Device、設備維護表Maintenance、設備 巡檢表 Check、設備移機表 Movement、設備報廢表 Discard 和用戶信息表 Users。 數(shù)據(jù)庫結構設計 數(shù)據(jù)庫結構設計是總體設計階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫結構可以簡化開發(fā)過程，使系統(tǒng)功能更加清晰明確。 管 理 自 己 的 用 戶 信 息普 通 用 戶設 備 分 類 管 理設 備 品 牌 管 理支 行 管 理設 備 信 息 管 理設 備 維 護 管 理設 備 巡 檢 管 理設 備 移 機 管 理報 廢 申 請 管 理報 廢 申 批 管 理基本信息管理設備運行管理 圖 33 系統(tǒng)流程 分析 圖 在系統(tǒng)流程分析圖中可以看到，每個用戶有 3 次機會進 行身份認證。 管 理 自 己 的 用 戶 信 息 本系統(tǒng)的流程分析如圖 33 所示。設備報廢信息包括報廢申請 人、報廢審批人、折算金額、報廢原因等。在 12 添加設備移機 信息時，需要首先選擇 設備信息。 在設備移機信息管理模塊中，可以對設備移機信 息進行添加、修改、 刪除和查詢等操作。設備巡檢信息包括設備巡檢時間、設備巡檢內容、是否 發(fā)現(xiàn)故障、故障原因等信息。 在設備巡檢信息管理模塊中，可 以對設備巡檢信息進行添加、修改、刪除和查詢等操作。設備維護信息包括報修時間、維護人員到達現(xiàn)場時間、故障解決時間、故障原 因等信息。在添加 設備信息時，需要選擇設備分類、設備品牌和所屬支行等信息。設備信息包括設備序列號、設備分類、設備品牌、設備型號、放置地點、管理員等信息。 添加基本信息后，就可以添加 設備信息了?；拘畔⒐芾砟K可以 進行 添加、修改、刪除和查看等操作。 在本系統(tǒng)中，應該首先增加基本信息，之后 才能增加 設備信息。在創(chuàng)建用戶時，需要輸入用戶名和密碼。 如果需要對普通用戶進行管理，則使用 Admin 用戶登錄；否則 使用 Users 用戶登錄。 ? 確定用戶的類型。 運行系統(tǒng)后，首先會看到登錄 窗體，對用戶的身份進行認證。 用戶管理功能模塊的關系如圖 32 所示。系統(tǒng)管理員用戶為 Admin， 普通用戶為 Users。 10 計 算 機 設 備 信 息 管 理 系 統(tǒng)基本信息管理設備運行管理系統(tǒng)用戶管理設備分類管理設備品牌管理支行管理設備信息管理設備維護管理設備巡檢管理設備移機管理報廢申請管理報廢審批管理用戶管理修改密碼 圖 31 系統(tǒng)功能模塊 本 系統(tǒng)中， 系統(tǒng) 用戶管理模塊的功能比較簡單 包括用戶管理和修改密碼兩個子模塊 。 ? 設備報廢信息的添加、修改、刪除、查詢、提交、審批、同意報廢 申請等。 ? 設備巡檢信息的添加、修改、刪除和查詢。 ? 設備信息的添加、修改、刪除和查詢。 ? 設 備品牌信息的添加、修改、刪除和查詢。過去的版本里面 VB 程序的性能問題一直被放在 了桌面上，但是隨著計算機速度的飛速增加，關于性能的爭論已經(jīng)越來越少。 VB 的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來指定組件的屬性和方法。 VB 的中心思想就是要便于程序員使用，無論是新手或者專家。 VB 擁有圖形用戶界面（ GUI）和快速應用程序開 發(fā)（ RAD）系統(tǒng)，可以輕易的使用 DAO、 RDO、 ADO 連接數(shù)據(jù)庫，或者輕松的創(chuàng)建 ActiveX 控件。從任何標準來說， VB 都是世界上使用人數(shù)最多的語言 —— 不僅是盛贊VB 的開發(fā)者還是抱怨 VB 的開發(fā)者的數(shù)量。 SQL 不要求用戶指定對數(shù)據(jù)的存放方法， 這種特性使用戶更易集中精力于要得到的結果 ；所有 SQL 語句使用查詢優(yōu)化器，它是 RDBMS 的一部分，由它決定對指定數(shù)據(jù)存取的最快速度的手段，查詢優(yōu)化器知道存在什么索引，在哪兒使用索引合適，而用戶則從不需要知道表是否有索引、有什么類型的索引。 SQL 允許用戶在高層的數(shù)據(jù)結構上工作，而不對單個記錄進行操作，可操作記錄集，所有 SQL 語句接受集合作為輸入，返回集合作為輸出。 MS SQL Server 就是用的 Transact SQL。雖然絕大多數(shù)的數(shù)據(jù)庫系統(tǒng)使用 SQL，但是它們同樣有它們自立另外的專有擴展功能用于它們的系統(tǒng)。 SQL 語句通常 用于完成一些數(shù)據(jù)庫的操作任務，比如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)。SQL 通常使用于數(shù)據(jù)庫的通訊。 本系統(tǒng)采用 SQL 技術建立數(shù)據(jù)庫，然后建立數(shù)據(jù)源的鏈接，并且生成醫(yī)院門診管理的數(shù)據(jù)庫應用程序從而實現(xiàn)數(shù)據(jù)庫的管理功能。 7 圖 21 數(shù)據(jù)庫系統(tǒng)簡圖 本文是要設計一個關于計算機 設備管理的數(shù)據(jù)庫系統(tǒng) ， 通過這個系統(tǒng)管理員可以簡捷、方便的對計算機 設備的記錄查閱、增加、刪除等功能。 總之，數(shù)據(jù)庫系統(tǒng)是一個計算機存儲記錄的系統(tǒng)，即，它是一個計算機 系統(tǒng)，該系統(tǒng)的目標存儲信息并支持用戶檢索和更新所需要的信息。數(shù)據(jù)庫本身可被看作為一種電子文件柜：也就是說，它是收集計算機數(shù)據(jù)文件的倉庫或容器。 由于只有一層交互，因此響應速度較快。 C/S 架構 具有一定的優(yōu)勢 ： C/S 架構的界面和操作可以很豐富。因為客戶端需要實現(xiàn)絕大多數(shù)的業(yè)務邏輯和界面展示。 6 2 相關 技術基礎 C/S 架構