【文章內(nèi)容簡介】 本系統(tǒng)可使那些銀行對設(shè)備 管理工作更高效、方便，也 節(jié)省了管理成本。較之以前的傳統(tǒng)的手工管理方法有了較大的飛躍。面對國外強勢的沖擊，在銀行業(yè)中有大部分的市場。成本上主要是人力，并無設(shè)備上的要求，開發(fā)工具也現(xiàn)成有的，所以經(jīng)濟上可行。 法律的可行性 此系統(tǒng)是由老師帶領(lǐng)及學(xué)生自主進(jìn)行設(shè)計及實施完成的，并無侵權(quán)和責(zé)任問題，法律上不存在任何問題。 開發(fā)目標(biāo) 系統(tǒng)的總目標(biāo)是為管理者提供迅速、高效的服務(wù)，減免手工處 理的繁瑣與誤差。 系統(tǒng)分析的基本方法 在傳統(tǒng)的需求建模方法中有面向數(shù)據(jù)流，面向?qū)ο笠约懊嫦驍?shù)據(jù)等三種常用分析方法， （ 1） .面向數(shù)據(jù)流的分析方法 該方法以信息對象及其操作為核心進(jìn)行需求分析，可以按順序、選擇、重復(fù)三種結(jié)構(gòu)把復(fù)合信息對象分解為成員信息對象。 （ 2） .面向?qū)ο蟮姆治龇椒? 其核心是利用面向?qū)ο蟮母拍詈头椒檐浖枨蠼ㄔ炷Ｐ停ㄟ^提供對象，對象間消息傳遞等語言機制，讓分析人員在解空間中直接模擬問題空間中的對象極其行為，從而削減了語義斷層。 （ 3） .面向數(shù)據(jù)的分 析方法 描述問題域中的信息項及其相關(guān)行為，然后根據(jù)信息項具有的層次結(jié)構(gòu)需求模型。 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計是總體設(shè)計階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫結(jié)構(gòu)可以簡化開發(fā)過程，使系統(tǒng)功能更加清晰明確。因為數(shù)據(jù)庫結(jié)構(gòu)的變化會造成編碼的改動，所以必須認(rèn)真設(shè)計數(shù)據(jù)庫結(jié)構(gòu)后再進(jìn)行編碼，從而避免無謂的重復(fù)工作。 數(shù)據(jù)庫包含 7 個表，即基本信息表 BaseInfo、設(shè)備信息表 Device、設(shè)備維護表 Maintenance、設(shè)備巡檢表 Check、設(shè)備移機表 Movement、設(shè)備報廢表 Discard和用戶 信息表 Users。 (1)基本信息表 BaseInfo,保存設(shè)備分類、設(shè)備品牌和支行名稱的信息，結(jié)構(gòu)如表 21所示。 表 21 表 BaseInfo 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 InfoID Int 編號，主鍵 2 InfoName Varchar50 名稱 3 TypeId Tinyint 分類， 1 表示設(shè)備分類； 2表示設(shè)備品牌；3 表示支行 (2)設(shè)備信息表 Device,保存設(shè)備的基本信息，結(jié)構(gòu)如表 22所示。 表 22 表 Device 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 DevNo Varchar50 設(shè)備編號，主鍵 2 TypeID Int 設(shè)備分類編號 3 EnterpriseID Int 設(shè)備品牌編號 4 Model Varchar50 設(shè)備型號 5 Price Int 購買價格 6 Place Varchar50 設(shè)備布放地點 7 BranchID Int 設(shè)備所屬支行編號 8 StartDate Datetime 設(shè)備開通時間 9 Administrator Varchar50 設(shè)備管理員 10 Poster Varchar50 提交人 11 Status Varchar50 設(shè)備狀態(tài)（正常，報廢） (3)設(shè)備維護表 Maintenance,保存設(shè)備的維護信息，結(jié)構(gòu)如圖 23所示。 表 23 表 Maintenance 編號 字段名稱 數(shù)據(jù)類型 說明 1 MnID Int 記錄編號，主鍵 2 DevNo Varchar50 設(shè)備編號 3 ReportDate Datetime 設(shè)備報修時間 4 ArriveDate Datetime 到達(dá)現(xiàn)場時間 5 SolveDate Datetime 故障解決時間 6 Reason Varchar200 故障原因 7 ChangeAccessory Bit 是否更換配件 8 AccessoryList Varchar200 更換配件的列表 9 Engineer Varchar50 維護人姓名 10 Amount Float 維護費用 11 Comment Varchar500 備注 (4)設(shè)備巡檢表 Check,保存設(shè)備巡檢的信息，結(jié)構(gòu)如表 24 所示。 表 24 表 Check 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 CheckID Int 記錄編號，主鍵 2 DevNo Varchar50 設(shè)備編號 3 CheckDate Datetime 設(shè)備巡檢時間 4 Comment Varchar500 設(shè)備巡檢內(nèi)容 5 FindError Bit 是否發(fā)現(xiàn)故障 6 Reason Varchar200 故障原因 7 ChangeAccessory Bit 是否更換配件 8 AccessoryList Varchar200 更換配件的列表 9 Amount Float 維修費用 10 CheckPerson Varchar50 巡檢人員 (5)設(shè)備移機表 Movement,保存設(shè)備移機信息，結(jié)構(gòu)如表 25所示 表 25 表 Movement 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 MoveID Int 記錄編號，主鍵 2 DevNo Varchar50 設(shè)備編號 3 MoveDate Datetime 移機時間 4 Reason Varchar200 移機原因 5 NewPlace Varchar50 新 布放地點 6 NewAdmin Varchar50 新管理員 (6)設(shè)備報廢表 Discard,保存設(shè)備的報廢信息，結(jié)構(gòu)如表 26 所示。 表 26 表 Discard 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 DisID Int 記錄編號，主鍵 2 DevNo Varchar50 設(shè)備編號 3 DisSum Int 折算金額 4 Reason Varchar200 報廢原因 5 CreateDate Datetime 申請時間 6 Username Varchar40 申請人 7 Checker Varchar40 審批人 8 CheckDate Datetime 審批日期 9 Result Varchar200 審批意見 10 Status Varchar10 狀態(tài)（申請、提交、同意、不同意、報廢） (7)用戶信息表 Users,保存系統(tǒng)用戶星系，結(jié)構(gòu)如表 27所示。 表 27 表 Users 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 UserName Varchar50 用戶名，主鍵 2 UserPwd Varchar50 密碼 在表的結(jié)構(gòu)表中定義了每個表的主鍵，為了規(guī)定各表之間的關(guān)系，還定義一組外鍵，如表 28所示。 表 28 外鍵定義 關(guān)系名 主鍵表 主鍵字段 外鍵表 外鍵字段 FK_Device_BaseInfo BaseInfo InfoID Device TypeID FK_Device_BaseInfo1 BaseInfo InfoID Device EnterpriseID FK_Device_BaseInfo2 BaseInfo InfoID Device BranchID FK_Maintenance_Device Device DevNo Maintenance DevNo FK_ Device DevNo Check DevNo FK_ Device DevNo Movement DevNo FK_ Device DevNo Discard DevNo 第三章設(shè)計工程框架 工程中的模塊 本工程包含如下幾個模塊： ? Const 用來管理工程中的常量。 ? DbFunc 用來管理工程中與數(shù)據(jù)庫操作相關(guān)的聲明、變量和函 數(shù)。 ? GeneralFunc 用來管理工程中一些通用的自定義函數(shù)。 ? Variable 用來管理工程中的全局變量。 添加類模塊 在工程中，需要為每一個創(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ù)庫操作，它保存為 。 第四章系統(tǒng)設(shè)計 當(dāng)系統(tǒng)運行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進(jìn)入系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面。 設(shè)計登錄窗體 登錄窗體的名稱為 FrmLogin,他的界面布局如圖 41 所示。 圖 41 登錄窗體的界面布局 登錄窗體的屬性如表 41 所示 。 表 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 取消 代碼如下： 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 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)菜單中選擇“工程” /“屬性”，打開屬性窗口設(shè)置啟動對象。本系統(tǒng)中主窗體名為 FrmMain。 菜單設(shè)計器如圖： 42 所示。 圖 42 主窗體 FrmMain 代碼如下： Private Sub Form_Load() 39。登錄界面 1 End Sub 基本信息管理模塊設(shè)計 基本信息管理模塊包括設(shè)備類型信息管理、設(shè)備品牌信息管理和支行信息管理。 設(shè)備類型信息管理 設(shè)備類型信息管理窗體的名稱為 FrmType，布局如圖 43 所示 。 圖 43