【正文】 END AS 是否更換配件 , AS 更換配件的列表 , _ + AS 維護(hù)人員 , AS 維護(hù)費(fèi)用 , AS 備注 _ + FROM Device d, BaseInfo t1, BaseInfo t2, Maintenance m _ + WHERE = AND = AND = _ + SchCnd + ORDER BY 39。設(shè)置數(shù)據(jù)源的屬性 = Conn = SELECT AS 編號(hào) , AS 設(shè)備編號(hào) , _ + AS 設(shè)備品牌 , AS 設(shè) 備型號(hào) , AS 銀行設(shè)備管理系統(tǒng) 35 所屬支行 , _ + AS 布放地點(diǎn) , AS 設(shè)備報(bào)修時(shí)間 , AS 到達(dá)現(xiàn)場(chǎng)時(shí)間 , _ + AS 故障解決時(shí)間 , AS 故障原因 , CASE WHEN 0 _ + THEN 39。 + Format(, yyyymmdd) _ + 39。代碼如下： Private Sub GridRefresh() 39。根據(jù)變量 Modify 的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then .Insert Else .Update (OriId) End If End With 39。布放地點(diǎn) End Sub 銀行設(shè)備管理系統(tǒng) 33 當(dāng)用戶在設(shè)備窗體中選擇了設(shè)備，同時(shí)將設(shè)備信息放入到對(duì)象 MyDeviceSel中，所以當(dāng)用戶退出選擇設(shè)備窗體時(shí)，系統(tǒng)可以從對(duì)象 MyDeviceSel 中讀取選擇的設(shè)備信息。設(shè)備編號(hào) () 39。 設(shè)備維護(hù)信息編輯窗體 設(shè)備維護(hù)信息 編輯窗體的名稱為 FrmMntenanceEdit,窗體的布局如圖 47 所示。刷新 DataGrid 表格的內(nèi)容 End Sub 銀行設(shè)備管理系統(tǒng) 31 設(shè)備信息選擇窗體 為了方便用戶在其他模塊中選擇設(shè)備信息，設(shè)計(jì)一個(gè)選擇設(shè)備的窗體，窗體名為 FrmDeviceSel 中，使用 DATAGRID 和 ADODC 控件來(lái)顯示設(shè)備的數(shù)據(jù)。管理員 = Trim((9)) 39。購(gòu)買價(jià)格 = Trim((5)) 39。設(shè)備編號(hào) = Trim((1)) 39。 Private Sub Cmd_Modi_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If 39。管理員 = 39。設(shè)備型號(hào) = 0 39。 Private Sub Cmd_Add_Click() 39。綁定數(shù)據(jù)源 = InfoName 39。綁定列值 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=1 39。設(shè)置數(shù)據(jù)源 (0).Width = 800 39。設(shè)置查詢條件 SchCnd = AND = 39。 (1)SchCnd 變量。在窗體 FrmDevice 中，使用 DataList控件來(lái)顯示設(shè)備分類和所屬支行等信息查詢條件信息，使用 DataGrid 控件來(lái)顯示設(shè)備數(shù)據(jù)，使用 3 個(gè) ADO Data 控件為它們提供數(shù)據(jù)源。把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫(kù)對(duì)象變量中 With MyDevice .DevNo = MakeStr(txtDevNo) .TypeID = Val() .EnterpriseID = Val() .Model = MakeStr(txtModel) .Price = Val(txtPrice) .Place = MakeStr(txtPlace) .BranchID = Val() .StartDate = Format(, yyyymmdd) .Administrator = MakeStr(txtAdmin) .Poster = MakeStr(txtPoster) .Status = 正常 39。顯示列名 = InfoId 39。 支行信息 = Conn 39。選擇設(shè)備品牌 Set = Adodc2 39。顯示列名 = InfoId 39。 設(shè)備分類信息 = Conn 39。 銀行設(shè)備管理系統(tǒng) 24 圖 44 窗體 FrmDeviceEdit 包含的主 要控件及其屬性如表 44 所示。刷新 DataList1 End Sub 設(shè)備品牌信息管理窗體 設(shè)備品牌信息管理窗體也是 Frmtype，只是公共變量 Type ID 的值為 2。刷新分類列表 End Sub （ 5） Cmd_Del_Click 過(guò)程 。修改分類名稱 If Len(Trim()) = 0 Then MsgBox (請(qǐng)選擇記錄 ) Exit Sub End If 39。判斷是否存在此記錄信息 OriInfoName = Trim() 39。插入新記錄 With MyBase .InfoName = Trim(txtName) .TypeID = TypeID .Insert End With DataRefresh End Sub （ 3） DataList_Click 過(guò)程。設(shè)置列表綁定字段 End Sub （ 2） cmd_add_click 過(guò)程。設(shè)置連接字符串 = Conn 39。 圖 43 窗體中包含的控件及其屬性如表 43 所示。 菜單設(shè)計(jì)器如圖： 42 所示。 圖 41登錄窗體的界面布局 登錄窗體的屬性如表 41 所示 。 7) Users 類用來(lái)管理表 Users 的數(shù)據(jù)庫(kù)操作，它保存為 。 3) Maintenance 類用來(lái)管理表 Maintenance 的數(shù)據(jù)庫(kù)操作，它保存 為。 添加類模塊 在工程中，需要為每一個(gè)創(chuàng)建一個(gè)類模塊，將對(duì)此表的所有數(shù)據(jù)庫(kù)操作封裝在類中。 表 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)管理工程中的常量。 表 23 表 Maintenance 編號(hào) 字段名稱 數(shù)據(jù)類型 說(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所示。 數(shù)據(jù)庫(kù)包含 7 個(gè)表，即基本信息表 BaseInfo、設(shè)備信息表 Device、設(shè)備維護(hù)表 Maintenance、設(shè)備巡檢表 Check、設(shè)備移機(jī)表 Movement、設(shè)備報(bào)廢表 Discard和用戶 信息表 Users。 （ 2） .面向?qū)ο蟮姆治龇椒? 銀行設(shè)備管理系統(tǒng) 12 其核心是利用面向?qū)ο蟮母拍詈头椒檐浖枨蠼ㄔ炷Ｐ停ㄟ^(guò)提供對(duì)象，對(duì)象間消息傳遞等語(yǔ)言機(jī)制，讓分析人員在解空間中直接模擬問(wèn)題空間中的對(duì)象極其行為，從而削減了語(yǔ)義斷層。成本上主要是人力，并無(wú)設(shè)備上的要求，開發(fā)工具也現(xiàn)成有的，所以經(jīng)濟(jì)上可行。 所以說(shuō)技術(shù)上是可行的。 在此，對(duì)本系統(tǒng)的可行性作一分析。如何利用先進(jìn)的管理手段，提高對(duì)銀行設(shè)備的管理水平，是每一家銀行所面臨的重要課題。 ? ADO 數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)。因此，本系統(tǒng)采用 Visual Basic 作為開發(fā)工具， SQL SERVER 作為后臺(tái)數(shù)據(jù)庫(kù)。 銀行設(shè)備管理系統(tǒng) 10 開發(fā)工具的選擇 開發(fā)數(shù)據(jù)庫(kù)管理信息系統(tǒng)需要選擇兩種工具，既前臺(tái)開發(fā)語(yǔ)言和后臺(tái)數(shù)據(jù)庫(kù)。在添加設(shè)備報(bào)廢信息時(shí)，需要首先選擇自助設(shè)備信息。設(shè)備移機(jī)信息包括移機(jī)時(shí)間、移機(jī)原因、設(shè)備新布放地點(diǎn)、設(shè)備新管理員等。設(shè)備巡檢是技術(shù)人員對(duì)自助設(shè)備進(jìn)行的例行檢查，目的在于及時(shí)發(fā)銀行設(shè)備管理系統(tǒng) 9 現(xiàn)和解決自助設(shè)備可能存在的問(wèn)題。 在設(shè)備維護(hù)信息管理模塊中，可以對(duì)設(shè)備維護(hù)信息進(jìn)行添加、修改、刪除和查看等操作。在自助設(shè)備信息管理模塊中可以對(duì)自助設(shè)備信息進(jìn)行添加、修改、刪除和查看等操作?；拘畔ㄔO(shè)備分類信息、設(shè)備品牌信息和支行信息等。如果還有其他用戶使用本系統(tǒng)，可以在用戶管理模塊中創(chuàng)建和管理其他普通用戶。身份認(rèn)證可以分為以下兩個(gè)過(guò)程： ? 確認(rèn)用戶是否是有效的系統(tǒng)用戶。Admin 用戶可以創(chuàng)建用戶、修改用戶信息以及刪除用戶；普通用戶則只能修改自己的用戶名和密碼。 本系統(tǒng)中，用戶管理模塊的功能比較簡(jiǎn)單。而模塊上數(shù)據(jù)說(shuō)明，可執(zhí)行語(yǔ)句等程序?qū)ο蟮募?，它是單?dú)命名的而且可通過(guò)名字來(lái)訪問(wèn)。 ? 設(shè)備巡檢信息的添加、修改、刪除和查詢。 ? 設(shè)備品牌信息的添加、修改、刪除和查詢。 統(tǒng)一的語(yǔ)言： SQL可用于所有用戶的 DB 活動(dòng)模型，包括系統(tǒng)管理員、數(shù)據(jù)庫(kù)管理員、 應(yīng)用程序員、決策支持系統(tǒng)人員及許多其它類型的終端用戶。 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的常見關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)有： Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingres等等。 SQL 語(yǔ)言介紹 SQL(Structured Query Language，結(jié)構(gòu)查詢語(yǔ)言 )是一個(gè)功能強(qiáng)大的數(shù)據(jù)庫(kù)語(yǔ)言。圖 庫(kù)系統(tǒng)的簡(jiǎn)圖。 數(shù)據(jù)庫(kù)系統(tǒng) 數(shù)據(jù)庫(kù)系統(tǒng)本質(zhì)上是一個(gè)用計(jì)算機(jī)存儲(chǔ)記錄的系統(tǒng)。 在人類邁向 21 世紀(jì)知識(shí)經(jīng)濟(jì)的時(shí)候，信息變?yōu)榻?jīng)濟(jì)發(fā)展的戰(zhàn)略資源，信息技術(shù)已成為社會(huì)生 產(chǎn)力重要的組成部分。目前世界上已經(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ì)等。 ABSTRACT Along with the universality of the bankcard, a lot of places installed a great deal of savings machine and withdraw money the machine and POS machine etc. bank selfhelp equipments. The bank equipments management system can record the gearing and the usage circumstance of the bank equipments effectively, management of norm to the selfhelp equipments, thus for the customer provide more stable with superior quality of service. This text introduced the design of the bank equipments management system and development process, elaborating t