【正文】 ，已從根本上改變了傳統(tǒng)的工作方式，使銀行的經(jīng)營(yíng)、管理發(fā)生了深刻的變革。目前世界上已經(jīng)有數(shù)百萬(wàn)個(gè)數(shù)據(jù)庫(kù)系統(tǒng)在運(yùn)行，其應(yīng)用已經(jīng)深入到社會(huì)生活的各個(gè)領(lǐng)域，從企業(yè)管理，銀行管 理，資源管理，經(jīng)濟(jì)預(yù)測(cè)一直到信息檢索，檔案管理，普查統(tǒng)計(jì)等。 現(xiàn)在，數(shù)據(jù)庫(kù)技術(shù)還在不斷發(fā)展，并且不斷的與其它計(jì)算機(jī)技術(shù)相互滲透。 在人類(lèi)邁向 21 世紀(jì)知識(shí)經(jīng)濟(jì)的時(shí)候，信息變?yōu)榻?jīng)濟(jì)發(fā)展的戰(zhàn)略資源，信息技術(shù)已成為社會(huì)生 產(chǎn)力重要的組成部分。對(duì)于一個(gè)國(guó)家，數(shù)據(jù)庫(kù)的建設(shè)規(guī)模，使用水平已成為衡量該國(guó)信息化程度的重要標(biāo)志。 數(shù)據(jù)庫(kù)系統(tǒng) 數(shù)據(jù)庫(kù)系統(tǒng)本質(zhì)上是一個(gè)用計(jì)算機(jī)存儲(chǔ)記錄的系統(tǒng)。系統(tǒng)用戶(hù)可以對(duì)這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作。圖 庫(kù)系統(tǒng)的簡(jiǎn)圖。 該數(shù)據(jù)庫(kù)應(yīng)用程序按照用戶(hù)權(quán)限和實(shí)現(xiàn)功能的不同分為兩部分：外部用戶(hù)對(duì)數(shù)據(jù)庫(kù)的查詢(xún) 訪問(wèn)和內(nèi)部管理人員對(duì)數(shù)據(jù)記錄的管理維護(hù)，每一部分中包含各自實(shí)現(xiàn)的各項(xiàng)功能，對(duì)每一項(xiàng)功能的實(shí)現(xiàn)，將按照窗體設(shè)計(jì)以及運(yùn)行情況的順序逐一進(jìn)行設(shè)計(jì)。 SQL 語(yǔ)言介紹 SQL(Structured Query Language，結(jié)構(gòu)查詢(xún)語(yǔ)言 )是一個(gè)功能強(qiáng)大的數(shù)據(jù)庫(kù)語(yǔ)言。 ANSI（美國(guó)國(guó)家標(biāo)準(zhǔn)學(xué)會(huì)）聲稱(chēng)， SQL 是關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言。使用 SQL的常見(jiàn)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)有： Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingres等等。但是，標(biāo)準(zhǔn)的 SQL 命令，比如 Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫(kù)的操作。 SQL 語(yǔ)言有著非常突出的優(yōu)點(diǎn)，主要是： 非過(guò)程化語(yǔ)言 統(tǒng)一的語(yǔ)言 是所有關(guān)系數(shù)據(jù)庫(kù)的公共語(yǔ)言 非過(guò)程化語(yǔ)言： SQL 是一個(gè)非過(guò)程化的語(yǔ)言，因?yàn)樗淮翁幚硪粋€(gè)記錄，對(duì)數(shù)據(jù)提供自動(dòng)導(dǎo)航。SQL 的集合特性允許一條 SQL 語(yǔ)句的結(jié)果作為另一條 SQL 語(yǔ)句的輸入。 統(tǒng)一的語(yǔ)言： SQL可用于所有用戶(hù)的 DB 活動(dòng)模型，包括系統(tǒng)管理員、數(shù)據(jù)庫(kù)管理員、 應(yīng)用程序員、決策支持系統(tǒng)人員及許多其它類(lèi)型的終端用戶(hù)。所有關(guān)系數(shù)據(jù)庫(kù)的公共語(yǔ)言：由于所有主要的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)都支持 SQL 語(yǔ)言，用戶(hù)可將使用 SQL 的技能從一個(gè) RDBMS(關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng) )轉(zhuǎn)到另一個(gè)，所有用 SQL 編寫(xiě)的程序都是可以移植的。 ? 設(shè)備品牌信息的添加、修改、刪除和查詢(xún)。 ? 設(shè)備信息的添加、修改、刪除和查詢(xún)。 ? 設(shè)備巡檢信息的添加、修改、刪除和查詢(xún)。 ? 設(shè)備報(bào)廢信息的添加、修改、刪除、查詢(xún)、提交、審批、同意報(bào)銷(xiāo)申請(qǐng)等。而模塊上數(shù)據(jù)說(shuō)明，可執(zhí)行語(yǔ)句等程序?qū)ο蟮募?，它是單?dú)命名的而且可通過(guò)名字來(lái)訪問(wèn)。 錯(cuò)誤 ! 銀行設(shè)備管理系統(tǒng) 7 系統(tǒng)體系結(jié)構(gòu)設(shè)計(jì) 根據(jù)需求分析中總結(jié)的用戶(hù)需求設(shè)計(jì)系統(tǒng)的體系結(jié)構(gòu)。 本系統(tǒng)中，用戶(hù)管理模塊的功能比較簡(jiǎn)單。系統(tǒng)管理員用戶(hù)為 Admin,普通用戶(hù)為 Users。Admin 用戶(hù)可以創(chuàng)建用戶(hù)、修改用戶(hù)信息以及刪除用戶(hù)；普通用戶(hù)則只能修改自己的用戶(hù)名和密碼。 圖 21 銀行設(shè)備管理系統(tǒng) 8 下面進(jìn)行系統(tǒng)流程分析，所謂系統(tǒng)流程就是用戶(hù)在使用系統(tǒng)時(shí)的工作過(guò)程。身份認(rèn)證可以分為以下兩個(gè)過(guò)程： ? 確認(rèn)用戶(hù)是否是有效的系統(tǒng)用戶(hù)。 第一個(gè)過(guò)程決定用戶(hù)能否進(jìn)入系統(tǒng)，第二個(gè)過(guò)程根據(jù)用戶(hù)的類(lèi)型決定用戶(hù)的操作權(quán)限。如果還有其他用戶(hù)使用本系統(tǒng)，可以在用戶(hù)管理模塊中創(chuàng)建和管理其他普通用戶(hù)。 Admin 用戶(hù)還可以修改和刪除其他普通用戶(hù)數(shù)據(jù)?；拘畔ㄔO(shè)備分類(lèi)信息、設(shè)備品牌信息和支行信息等。基本信息都比較簡(jiǎn)單，只包含名稱(chēng)信息。在自助設(shè)備信息管理模塊中可以對(duì)自助設(shè)備信息進(jìn)行添加、修改、刪除和查看等操作。自助設(shè)備信息是本系統(tǒng)管理的核心數(shù)據(jù)，它為設(shè)備維護(hù)信息管理模塊、設(shè)備巡檢信息管理模塊、設(shè)備移機(jī)信息管理模塊和設(shè)備報(bào)廢信息管理模塊提供設(shè)備數(shù)據(jù)。 在設(shè)備維護(hù)信息管理模塊中，可以對(duì)設(shè)備維護(hù)信息進(jìn)行添加、修改、刪除和查看等操作。在添加設(shè)備維護(hù)信息時(shí)，需要首先選擇自助設(shè)備信息。設(shè)備巡檢是技術(shù)人員對(duì)自助設(shè)備進(jìn)行的例行檢查，目的在于及時(shí)發(fā)銀行設(shè)備管理系統(tǒng) 9 現(xiàn)和解決自助設(shè)備可能存在的問(wèn)題。在添加設(shè)備巡檢信息時(shí)，需要首先選擇自助設(shè)備信息。設(shè)備移機(jī)信息包括移機(jī)時(shí)間、移機(jī)原因、設(shè)備新布放地點(diǎn)、設(shè)備新管理員等。 在設(shè)備報(bào)廢信息管理模塊中，可以對(duì)設(shè)備報(bào)廢信息進(jìn)行添加、修改、 刪除和查詢(xún)等操作。在添加設(shè)備報(bào)廢信息時(shí)，需要首先選擇自助設(shè)備信息。 圖 23 在系統(tǒng)流程分析圖中可以看到，每個(gè)用戶(hù)有 3 次機(jī)會(huì)進(jìn)行身份認(rèn)證。 銀行設(shè)備管理系統(tǒng) 10 開(kāi)發(fā)工具的選擇 開(kāi)發(fā)數(shù)據(jù)庫(kù)管理信息系統(tǒng)需要選擇兩種工具，既前臺(tái)開(kāi)發(fā)語(yǔ)言和后臺(tái)數(shù)據(jù)庫(kù)。 例如，開(kāi)發(fā) C/S（客戶(hù) /服務(wù)器）結(jié)構(gòu)的應(yīng)用程序時(shí) ，前臺(tái)開(kāi)發(fā)語(yǔ)言通?？梢赃x擇 Visual Basic、 Visual C++、 Delphi 和 Power Builder 等；如果開(kāi)發(fā)網(wǎng)絡(luò)應(yīng)用程序，則需要選擇一個(gè)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)系統(tǒng)，例如 SQL SERVER、 ORACLE 和 IBM DB2 等；如果開(kāi)發(fā)單機(jī)應(yīng)用程序，則只要選擇一個(gè)小型數(shù)據(jù)庫(kù)系統(tǒng)就可以了，例如 ACCESS。因此，本系統(tǒng)采用 Visual Basic 作為開(kāi)發(fā)工具， SQL SERVER 作為后臺(tái)數(shù)據(jù)庫(kù)。 ? 基本的后臺(tái)數(shù)據(jù)庫(kù)管理方法，例如創(chuàng)建數(shù)據(jù)庫(kù)、表、視圖以及備份和還原數(shù)據(jù)庫(kù)等。 ? ADO 數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)。在市場(chǎng)經(jīng)濟(jì)的大環(huán)境下，越來(lái)越多的人士逐漸認(rèn)識(shí)到用計(jì)算機(jī)技術(shù)進(jìn)行各類(lèi)管 理，交流的便捷。如何利用先進(jìn)的管理手段，提高對(duì)銀行設(shè)備的管理水平，是每一家銀行所面臨的重要課題。采用現(xiàn)代計(jì)算機(jī)管理系統(tǒng)是實(shí)現(xiàn)此目標(biāo)的主要途徑。 在此，對(duì)本系統(tǒng)的可行性作一分析。 軟件： 操作系統(tǒng)： Windows 9X 和 Windows NT 是 Microsoft 公司的成熟的產(chǎn)品且也為主流操作系統(tǒng)。 所以說(shuō)技術(shù)上是可行的。較之以前的傳統(tǒng)的手工管理方法有了較大的飛躍。成本上主要是人力，并無(wú)設(shè)備上的要求，開(kāi)發(fā)工具也現(xiàn)成有的，所以經(jīng)濟(jì)上可行。 開(kāi)發(fā)目標(biāo) 系統(tǒng)的總目標(biāo)是為管理者提供迅速、高效的服務(wù)，減免手工處 理的繁瑣與誤差。 （ 2） .面向?qū)ο蟮姆治龇椒? 銀行設(shè)備管理系統(tǒng) 12 其核心是利用面向?qū)ο蟮母拍詈头椒檐浖枨蠼ㄔ炷Ｐ?，它通過(guò)提供對(duì)象，對(duì)象間消息傳遞等語(yǔ)言機(jī)制，讓分析人員在解空間中直接模擬問(wèn)題空間中的對(duì)象極其行為，從而削減了語(yǔ)義斷層。 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫(kù)結(jié)構(gòu)可以簡(jiǎn)化開(kāi)發(fā)過(guò)程，使系統(tǒng)功能更加清晰明確。 數(shù)據(jù)庫(kù)包含 7 個(gè)表，即基本信息表 BaseInfo、設(shè)備信息表 Device、設(shè)備維護(hù)表 Maintenance、設(shè)備巡檢表 Check、設(shè)備移機(jī)表 Movement、設(shè)備報(bào)廢表 Discard和用戶(hù) 信息表 Users。 表 21 表 BaseInfo 的結(jié)構(gòu) 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 1 InfoID Int 編號(hào)，主鍵 2 InfoName Varchar50 名稱(chēng) 3 TypeId Tinyint 分類(lèi)， 1表示設(shè)備分類(lèi)； 2 表示設(shè)備品牌；3表示支行 (2)設(shè)備信息表 Device,保存設(shè)備的基本信息，結(jié)構(gòu)如表 22 所示。 表 23 表 Maintenance 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 銀行設(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)場(chǎng)時(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所示。 表 26 表 Discard 的結(jié)構(gòu) 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 1 DisID Int 記錄編號(hào)，主鍵 2 DevNo Varchar50 設(shè)備編號(hào) 3 DisSum Int 折算金額 4 Reason Varchar200 報(bào)廢原因 5 CreateDate Datetime 申請(qǐng)時(shí)間 6 Username Varchar40 申請(qǐng)人 7 Checker Varchar40 審批人 銀行設(shè)備管理系統(tǒng) 14 8 CheckDate Datetime 審批日期 9 Result Varchar200 審批意見(jiàn) 10 Status Varchar10 狀態(tài)（申請(qǐng)、提交、同意、不同意、報(bào)廢） (7)用戶(hù)信息表 Users,保存系統(tǒng)用戶(hù)星系，結(jié)構(gòu)如表 27所示。 表 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 用來(lái)管理工程中的常量。 ? GeneralFunc 用來(lái)管理工程中一些通用的自定義函數(shù)。 添加類(lèi)模塊 在工程中，需要為每一個(gè)創(chuàng)建一個(gè)類(lèi)模塊，將對(duì)此表的所有數(shù)據(jù)庫(kù)操作封裝在類(lèi)中。 1) BaseInfo 類(lèi)用來(lái)管理表 BaseInfo 的數(shù)據(jù)庫(kù)操作，它保存為。 3) Maintenance 類(lèi)用來(lái)管理表 Maintenance 的數(shù)據(jù)庫(kù)操作，它保存 為。 5) Movement 類(lèi)用來(lái)管理表 Movement 的數(shù)據(jù)庫(kù)操作，它保存為。 7) Users 類(lèi)用來(lái)管理表 Users 的數(shù)據(jù)庫(kù)操作，它保存為 。登錄成功后，將顯示系統(tǒng)主界面。 圖 41登錄窗體的界面布局 登錄窗體的屬性如表 41 所示 。 表 42 登錄窗體包含的控件及其屬性 對(duì)象名 屬性 屬性值 Label1 Caption 用戶(hù)名 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 “請(qǐng)輸入用戶(hù)名 ” Exit Sub End If If txtPwd = “” Then MsgBox “請(qǐng)輸入密碼 ” Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) ?判斷用戶(hù)是否存在 If (NameKey) = False Then MsgBox “用戶(hù)名不存在 ” 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)入本