【文章內(nèi)容簡介】 統(tǒng)： Windows 9X 和 Windows NT 是 Microsoft 公司的成熟的產(chǎn)品且也為主流操作系統(tǒng)。 開發(fā)工具： Visual Basic SQL Server 2021 都是現(xiàn)在用到的編程和數(shù)據(jù)庫方面的主要工具 ,對工具的安裝和使 用方面不會(huì)有所限制。 所以說技術(shù)上是可行的。 經(jīng)濟(jì)的可行性 本系統(tǒng)可使那些銀行對設(shè)備 管理工作更高效、方便，也 節(jié)省了管理成本。較之以前的傳統(tǒng)的手工管理方法有了較大的飛躍。面對國外強(qiáng)勢的沖擊，在銀行業(yè)中有大部分的市場。成本上主要是人力，并無設(shè)備上的要求，開發(fā)工具也現(xiàn)成有的，所以經(jīng)濟(jì)上可行。 法律的可行性 此系統(tǒng)是由老師帶領(lǐng)及學(xué)生自主進(jìn)行設(shè)計(jì)及實(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ū)ο蟮姆治龇椒? 銀行設(shè)備管理系統(tǒng) 12 其核心是利用面向?qū)ο蟮母拍詈头椒檐浖枨蠼ㄔ炷Ｐ?，它通過提供對象，對象間消息傳遞等語言機(jī)制，讓分析人員在解空間中直接模擬問題空間中的對象極其行為，從而削減了語義斷層。 （ 3） .面向數(shù)據(jù)的分 析方法 描述問題域中的信息項(xiàng)及其相關(guān)行為，然后根據(jù)信息項(xiàng)具有的層次結(jié)構(gòu)需求模型。 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫結(jié)構(gòu)可以簡化開發(fā)過程，使系統(tǒng)功能更加清晰明確。因?yàn)閿?shù)據(jù)庫結(jié)構(gòu)的變化會(huì)造成編碼的改動(dòng)，所以必須認(rèn)真設(shè)計(jì)數(shù)據(jù)庫結(jié)構(gòu)后再進(jìn)行編碼，從而避免無謂的重復(fù)工作。 數(shù)據(jù)庫包含 7 個(gè)表，即基本信息表 BaseInfo、設(shè)備信息表 Device、設(shè)備維護(hù)表 Maintenance、設(shè)備巡檢表 Check、設(shè)備移機(jī)表 Movement、設(shè)備報(bào)廢表 Discard和用戶 信息表 Users。 (1)基本信息表 BaseInfo,保存設(shè)備分類、設(shè)備品牌和支行名稱的信息，結(jié)構(gòu)如表 21所示。 表 21 表 BaseInfo 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 1 InfoID Int 編號(hào)，主鍵 2 InfoName Varchar50 名稱 3 TypeId Tinyint 分類， 1表示設(shè)備分類； 2 表示設(shè)備品牌；3表示支行 (2)設(shè)備信息表 Device,保存設(shè)備的基本信息，結(jié)構(gòu)如表 22 所示。 表 22 表 Device 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 1 DevNo Varchar50 設(shè)備編號(hào)，主鍵 2 TypeID Int 設(shè)備分類編號(hào) 3 EnterpriseID Int 設(shè)備品牌編號(hào) 4 Model Varchar50 設(shè)備型號(hào) 5 Price Int 購買價(jià)格 6 Place Varchar50 設(shè)備布放地點(diǎn) 7 BranchID Int 設(shè)備所屬支行編號(hào) 8 StartDate Datetime 設(shè)備開通時(shí)間 9 Administrator Varchar50 設(shè)備管理員 10 Poster Varchar50 提交人 11 Status Varchar50 設(shè)備狀態(tài)（正常，報(bào)廢） (3)設(shè)備維護(hù)表 Maintenance,保存設(shè)備的維護(hù)信息，結(jié)構(gòu)如圖 23所示。 表 23 表 Maintenance 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 銀行設(shè)備管理系統(tǒng) 13 1 MnID Int 記錄編號(hào)，主鍵 2 DevNo Varchar50 設(shè)備編號(hào) 3 ReportDate Datetime 設(shè)備報(bào)修時(shí)間 4 ArriveDate Datetime 到達(dá)現(xiàn)場時(shí)間 5 SolveDate Datetime 故障解決時(shí)間 6 Reason Varchar200 故障原因 7 ChangeAccessory Bit 是否更換配件 8 AccessoryList Varchar200 更換配件的列表 9 Engineer Varchar50 維護(hù)人姓名 10 Amount Float 維護(hù)費(fèi)用 11 Comment Varchar500 備注 (4)設(shè)備巡檢表 Check,保存設(shè)備巡檢的信息，結(jié)構(gòu)如表 24所示。 表 24 表 Check 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 1 CheckID Int 記錄編號(hào)，主鍵 2 DevNo Varchar50 設(shè)備編號(hào) 3 CheckDate Datetime 設(shè)備巡檢時(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 維修費(fèi)用 10 CheckPerson Varchar50 巡檢人員 (5)設(shè)備移機(jī)表 Movement,保存設(shè)備移機(jī)信息，結(jié)構(gòu)如表 25 所示 表 25 表 Movement 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 1 MoveID Int 記錄編號(hào)，主鍵 2 DevNo Varchar50 設(shè)備編號(hào) 3 MoveDate Datetime 移機(jī)時(shí)間 4 Reason Varchar200 移機(jī)原因 5 NewPlace Varchar50 新 布放地點(diǎn) 6 NewAdmin Varchar50 新管理員 (6)設(shè)備報(bào)廢表 Discard,保存設(shè)備的報(bào)廢信息，結(jié)構(gòu)如表 26所示。 表 26 表 Discard 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 1 DisID Int 記錄編號(hào)，主鍵 2 DevNo Varchar50 設(shè)備編號(hào) 3 DisSum Int 折算金額 4 Reason Varchar200 報(bào)廢原因 5 CreateDate Datetime 申請時(shí)間 6 Username Varchar40 申請人 7 Checker Varchar40 審批人 銀行設(shè)備管理系統(tǒng) 14 8 CheckDate Datetime 審批日期 9 Result Varchar200 審批意見 10 Status Varchar10 狀態(tài)（申請、提交、同意、不同意、報(bào)廢） (7)用戶信息表 Users,保存系統(tǒng)用戶星系，結(jié)構(gòu)如表 27所示。 表 27 表 Users 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 1 UserName Varchar50 用戶名，主鍵 2 UserPwd Varchar50 密碼 在表的結(jié)構(gòu)表中定義了每個(gè)表的主鍵，為了規(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è)備管理系統(tǒng) 15 第三章設(shè)計(jì)工程框架 工程中的模塊 本工程包含如下幾個(gè)模塊： ? Const 用來管理工程中的常量。 ? DbFunc 用來管理工程中與數(shù)據(jù)庫操作相關(guān)的聲明、變量和函 數(shù)。 ? GeneralFunc 用來管理工程中一些通用的自定義函數(shù)。 ? Variable 用來管理工程中的全局變量。 添加類模塊 在工程中，需要為每一個(gè)創(chuàng)建一個(gè)類模塊，將對此表的所有數(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ù)庫操作，它保存為。 銀行設(shè)備管理系統(tǒng) 16 6) Discard 類用來管理表 Discard 的數(shù)據(jù)庫操作，它保存為 。 7) Users 類用來管理表 Users 的數(shù)據(jù)庫操作，它保存為 。 第四章系統(tǒng)設(shè)計(jì) 當(dāng)系統(tǒng)運(yùn)行時(shí)，首先打開登錄窗體，只有有權(quán)限的用戶才能進(jìn)入系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面。 設(shè)計(jì)登錄窗體 登錄窗體的名稱為 FrmLogin,他的界面布局如圖 41 所示。 圖 41登錄窗體的界面布局 登錄窗體的屬性如表 41 所示 。 銀行設(shè)備管理系統(tǒng) 17 表 41 設(shè)置登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 FrmLogin 設(shè)置窗體名稱 BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗(yàn)證 窗體的標(biāo)題條文本 ControlBox False 取消控制按鈕，防止用戶通過控制按鈕關(guān) 閉對話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時(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 銀行設(shè)備管理系統(tǒng) 18 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 “密碼錯(cuò)誤 ” 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è)計(jì)