【正文】 I n f o 1F K _ D e v i c e _ B a s e I n f o 2F K _ M o v e m e n t _ D e v i c eF K _ C h e c k _ D e v i c e 圖 34 數(shù)據(jù)庫表關(guān)系圖 應(yīng)用程序的模塊設(shè)計 在 VB 中創(chuàng)建應(yīng)用程序的最重要的部分是設(shè)計階段。首先需要為應(yīng)用程序設(shè)計一個用戶界面，這個界面的設(shè)計比較容易確定。但設(shè)計代碼的結(jié)構(gòu)就是一項較復(fù)雜的工作。構(gòu)造應(yīng)用程序的方法不同，可能會造成應(yīng)用程序的性能以及代碼的可維護(hù)性、可使用性不同。 VB 應(yīng)用程序呈層次結(jié)構(gòu)。典型應(yīng)用程序包括若干個模塊 ：應(yīng)用程序中每個窗體的窗體模塊、共享代碼的標(biāo)準(zhǔn)模塊和類模塊。 在很多情況中都存在著多個對象共享的重復(fù)過程。這種情況最好創(chuàng)建一個共享的子過程，使大家都可以調(diào)用它。即使將來修改這些子程序，則只在一個地方修改就可進(jìn)行全部修改，這將大大 提高程序的可讀性和可維護(hù)性。 15 標(biāo)準(zhǔn)模塊的設(shè)計 在系統(tǒng)中設(shè)計了如下的模塊： ? Const 用來管理工程中的常量。 ? DbFunc 用來管理工程中與數(shù)據(jù)庫操作相關(guān)的聲明、變量和函數(shù)。 ? GeneralFunc 用來管理工程中一些通用的自定義函數(shù)。 ? Variable 用來管理工程中的全局變 量。 類模塊 的設(shè)計 在系統(tǒng) 中，需要為每一個 數(shù)據(jù)表 創(chuàng)建一個類模塊，將對此表的所有數(shù)據(jù)庫操作封裝在類中。在通常情況下，類的成員變量與對應(yīng)的表中的字段名相同。 1. BaseInfo 類用來管理表 BaseInfo 的數(shù)據(jù)庫操作，它保存為 。 2. Devicees 類用來管理表 Device 的數(shù)據(jù)庫操作 ， 它保存為 。 3. Maintenance 類用來管理表 Maintenance 的 數(shù) 據(jù) 庫 操 作 ， 它 保 存 為。 4. Check 類用來管理表 Check 的數(shù)據(jù)庫操作，它保存 為 。 5. Movement 類用來管理表 Movement 的數(shù)據(jù)庫操作，它保存為 。 6. Discard 類用來管理表 Discard 的數(shù)據(jù)庫操作，它保存為 。 7. Users 類用來管理表 Users 的數(shù)據(jù)庫操作，它保存為 。 16 4 系統(tǒng) 詳細(xì) 設(shè)計 設(shè)計登錄窗體 當(dāng)系統(tǒng)運行時，首先打開登錄窗 體，只有有權(quán)限的用戶才能進(jìn)入系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面，程序?qū)崿F(xiàn)流程如圖 41 所示。 登 錄用 戶 名 或 密 碼為 空是 ， 重 新 登 錄用 戶 名 校 驗否記 錄 身 份進(jìn) 入 系 統(tǒng)正 確登 錄 嘗 試達(dá) 到 3 次錯 誤退 出是否 ， 重 新 登 錄密 碼 校 驗 正 確錯 誤 圖 41 登錄程序?qū)崿F(xiàn)流程圖 登錄窗體的名稱為 FrmLogin， 他的界面布局如圖 42 所示。 圖 42 登錄窗體的界面布局 登錄窗體的屬性如表 41 所示。 17 表 41 設(shè)置登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 FrmLogin 設(shè)置窗體名稱 BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗證 窗體的標(biāo)題條文本 ControlBox False 取消控制按鈕 ，防止用戶通過控制按鈕關(guān)閉對話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時，位置在屏幕中心 登錄窗體中控件的屬性如表 42 所示。 表 42 登錄窗體包含的控件及其屬性 對象名 屬性 屬性值 Label1 Caption 用戶名 Label2 Caption 密碼 TxtUser Text 空 TxtPwd Text 空 PasswordChar * Cmd_Ok Caption 確定 Cmd_Cancel Caption 取消 如果輸入的用戶名或者 密碼不匹配則彈出提示信息（圖 43） ： 圖 43 用戶名或密碼錯誤 如果輸入用戶名和密碼不匹配次數(shù)達(dá)到 3 次則彈出提示信息（圖 44） 18 圖 44 三次嘗試進(jìn)入系統(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)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 ” 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)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 ” Dbapi_Disconnect End Else Exit Sub End If End If ?登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 () ?關(guān)閉自己 Unload Me End Sub 設(shè)計主界面 主窗體是系統(tǒng)的啟動對象，可以 在系統(tǒng)菜單中選擇“工程” /“屬性”，打開屬性窗口設(shè)置啟動對象。本系統(tǒng)中主窗體名為 FrmMain。 菜單編輯器如圖： 45 所示。 20 圖 45 窗體菜單編輯 程序?qū)崿F(xiàn)流程如圖 46 所示： 進(jìn) 入 系 統(tǒng)進(jìn) 入 各 級 菜 單進(jìn) 入 系 統(tǒng) 用 戶 管 理進(jìn) 入 基 本 信 息 管 理設(shè) 備 運 行 管 理進(jìn) 入 各 子 窗 口管 理 員 權(quán) 限退 出 系 統(tǒng)點 擊退 出 系 統(tǒng)修 改 自 身 口 令 否用 戶 管 理是提 示“ 沒 有 權(quán) 限 ” 圖 46 主界面 程序 實現(xiàn)流程圖 系統(tǒng)主界面 如圖 47 所示： 21 圖 47 系統(tǒng)主界面 主窗體 FrmMain 代碼如下： Private Sub Form_Load() 39。登錄界面 1 End Sub Private Sub mn_BaseInfo_Click() 39?；拘畔?管理 1 End Sub Private Sub mn_Types_Click() = 1 = 設(shè)備類型管理 1 End Sub Private Sub mn_Interprise_Click() = 2 22 = 設(shè)備品牌管理 1 End Sub Private Sub mn_Branch_Click() = 3 = 支行管理 1 End Sub Private Sub mn_Exit_Click() 39。退出系統(tǒng) DBapi_Disconnect End End Sub Private Sub mn_Device_Click() 39。設(shè)備信息 管理 1 End Sub Private Sub mn_Mntenance_Click() 39。設(shè)備維護(hù)管理 1 End Sub Private Sub mn_Check_Click() 39。設(shè)備 巡檢 管理 1 End Sub Private Sub mn_Move_Click() 39。設(shè)備移機(jī) 管理 1 End Sub Private Sub mn_Discard_Click() 23 39。報廢申請管理 1 End Sub Private Sub mn_Approve_Click() 39。報廢審批管理 1 End Sub Private Sub mn_ChangePwd_Click() 39。如果當(dāng)前用戶是普通用戶，則打開用戶編輯窗體，編輯自己的用戶信息 With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = .Modify = True .Show 1 End With End Sub Private Sub mn_Users_Click() 39。如果當(dāng)前用戶為 Admin，則打開用戶管理窗體 If Format(， ) = admin Then 1 Else MsgBox 沒有權(quán)限 End If End Sub 基本信息管理模 塊設(shè)計 基本信息管理模塊包括設(shè)備分類管理、設(shè)備品牌管理和支行 管理。 24 設(shè)備分類 管理 設(shè)備 分類 管理窗體的名稱為 FrmType，布局如圖 48 所示。 圖 48 設(shè)備 分類 管理 窗口 程序?qū)崿F(xiàn)如圖 49 所示： 進(jìn) 入 子 模 塊設(shè) 備 分 類 管 理顯 示 已 有 設(shè) 備 類 型輸 入 新 設(shè) 備 類 型新 增 記 錄選 擇 需 要修 改 的 設(shè) 備 類 型輸 入 修 改 內(nèi) 容新 增設(shè) 備 類 型數(shù) 據(jù) 校 驗是 否 為 空是 否 已 存 在修 改 記 錄數(shù) 據(jù) 校 驗是 否 未 選 中是 否 未 修 改是 否 已 存 在選 擇 需 要刪 除 的 設(shè) 備 類 型刪 除 記 錄數(shù) 據(jù) 校 驗是 否 未 選 中通 過點 擊 刪 除通 過點 擊 修 改點 擊 退 出退 至 主 界 面點 擊 新 增返 回 并 刷 新 顯 示 內(nèi) 容 返 回 并 刷 新 顯 示 內(nèi) 容刪 除 確 認(rèn)通 過是否 圖 49 設(shè)備分類管理 程序?qū)崿F(xiàn) 流程圖 25 窗體中包含的控件及其屬性如表 43 所示。 表 43 設(shè)備分類 管理窗體控件及其屬性表 對象名 屬性 屬性值 DataList1 Name DataList1(用來顯示設(shè)備分類名稱 ) Adodcl Visible False(用來提供數(shù)據(jù)源 ) TxtName Name Txtname（用來編輯分類名稱） Cmd_Add caption 添加 Cmd_Modi caption 修改 Cmd_del Caption 刪除 Cmd_exit Caption 退出 窗體代碼如下： （ 1） Form_Load 過程，對應(yīng)代碼： Private Sub Form_Load() 39。刷新 DataList1 中的數(shù)據(jù) DataRefresh End Sub 在此過程中將顯示所有的設(shè)備分類名稱。其中過程 DataRefresh 對應(yīng)的代碼如下： Private Sub DataRefresh() 39。設(shè)置連接字符串 = Conn 39。設(shè)置 SQL 語句 = SELECT * FROM BaseInfo WHERE TypeId= + Trim(TypeID) 39。設(shè)置數(shù)據(jù)源 Set = Adodc1 = InfoName 39。設(shè)置列表中顯示字段 = InfoID 39。設(shè)置列表綁定字段 End Sub （ 2） cmd_add_click 過程。在文本框中輸入新的分類名稱，單擊“添加”按鈕時觸發(fā) cmd_add_click 事件，代碼如下： Private Sub Cmd_Add_Click() 26 39。添加設(shè)備分類名稱，先判斷域是否為空 If Len(Trim(txtName)) = 0 Then MsgBox (請輸入分類名稱 ) Exit Sub End If 39。判斷數(shù)據(jù)庫中是否已經(jīng)存在此分類名稱 If (Trim(txtName)， 1) = Tru