【正文】 變量。綁定列值 39。管理員 = 39。管理員 = Trim((9)) 39。布放地點(diǎn) End Sub 銀行設(shè)備管理系統(tǒng) 33 當(dāng)用戶(hù)在設(shè)備窗體中選擇了設(shè)備，同時(shí)將設(shè)備信息放入到對(duì)象 MyDeviceSel中，所以當(dāng)用戶(hù)退出選擇設(shè)備窗體時(shí)，系統(tǒng)可以從對(duì)象 MyDeviceSel 中讀取選擇的設(shè)備信息。設(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。設(shè)備編號(hào) () 39。購(gòu)買(mǎi)價(jià)格 = Trim((5)) 39。設(shè)備型號(hào) = 0 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=1 39。在窗體 FrmDevice 中，使用 DataList控件來(lái)顯示設(shè)備分類(lèi)和所屬支行等信息查詢(xún)條件信息，使用 DataGrid 控件來(lái)顯示設(shè)備數(shù)據(jù)，使用 3 個(gè) ADO Data 控件為它們提供數(shù)據(jù)源。選擇設(shè)備品牌 Set = Adodc2 39。刷新 DataList1 End Sub 設(shè)備品牌信息管理窗體 設(shè)備品牌信息管理窗體也是 Frmtype，只是公共變量 Type ID 的值為 2。插入新記錄 With MyBase .InfoName = Trim(txtName) .TypeID = TypeID .Insert End With DataRefresh End Sub （ 3） DataList_Click 過(guò)程。 菜單設(shè)計(jì)器如圖： 42 所示。 添加類(lèi)模塊 在工程中，需要為每一個(gè)創(chuàng)建一個(gè)類(lèi)模塊，將對(duì)此表的所有數(shù)據(jù)庫(kù)操作封裝在類(lèi)中。 （ 2） .面向?qū)ο蟮姆治龇椒? 銀行設(shè)備管理系統(tǒng) 12 其核心是利用面向?qū)ο蟮母拍詈头椒檐浖枨蠼ㄔ炷Ｐ?，它通過(guò)提供對(duì)象，對(duì)象間消息傳遞等語(yǔ)言機(jī)制，讓分析人員在解空間中直接模擬問(wèn)題空間中的對(duì)象極其行為，從而削減了語(yǔ)義斷層。如何利用先進(jìn)的管理手段，提高對(duì)銀行設(shè)備的管理水平，是每一家銀行所面臨的重要課題。在添加設(shè)備報(bào)廢信息時(shí)，需要首先選擇自助設(shè)備信息。在自助設(shè)備信息管理模塊中可以對(duì)自助設(shè)備信息進(jìn)行添加、修改、刪除和查看等操作。Admin 用戶(hù)可以創(chuàng)建用戶(hù)、修改用戶(hù)信息以及刪除用戶(hù)；普通用戶(hù)則只能修改自己的用戶(hù)名和密碼。 ? 設(shè)備品牌信息的添加、修改、刪除和查詢(xún)。 SQL 語(yǔ)言介紹 SQL(Structured Query Language，結(jié)構(gòu)查詢(xún)語(yǔ)言 )是一個(gè)功能強(qiáng)大的數(shù)據(jù)庫(kù)語(yǔ)言。目前世界上已經(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ì)等。正 因?yàn)槿绱?，許多發(fā)達(dá)國(guó)家把金融信息化建設(shè)作為一項(xiàng)關(guān)系到國(guó)民經(jīng)濟(jì)全局的基礎(chǔ)性建設(shè)，都使用最新科學(xué)技術(shù)成就來(lái)裝備自己的金融業(yè)。 銀行設(shè)備管理系統(tǒng) 5 圖 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)圖 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介 本人設(shè)計(jì)的是一個(gè)關(guān)于銀行設(shè)備管理的數(shù)據(jù)庫(kù)系統(tǒng) ,通過(guò)這個(gè)系統(tǒng)管理員可以簡(jiǎn)捷、方便的對(duì)銀行設(shè)備的記錄查閱、增加、刪除等功能。 SQL 為許多任務(wù)提供了命令，其中包括： 查詢(xún)數(shù)據(jù) 在表中插入、修改和刪除記錄 建立、修改和刪除數(shù)據(jù)對(duì)象 控制對(duì)數(shù)據(jù)和數(shù)據(jù)對(duì)象的存取 保證數(shù)據(jù)庫(kù)一致性和完整性 以前的 數(shù)據(jù)庫(kù)管理系統(tǒng)為上述各類(lèi)操作提供單獨(dú)的語(yǔ)言，而 SQL 將全部任務(wù)統(tǒng)一在一種語(yǔ)言中。在系統(tǒng)初始化時(shí)，有兩個(gè)默認(rèn)的用戶(hù)。基本信息管理模塊可以添加、修改、刪除和查看等操作。在添加設(shè)備移機(jī)信息時(shí)，需要首先選擇自助設(shè)備信息。 可行性分析 時(shí)間行進(jìn)到 21 世紀(jì)，以計(jì)算機(jī)技術(shù)為主體的高新技術(shù)群體已經(jīng)將觸角深入到國(guó)發(fā)經(jīng)濟(jì)的方方面面。 法律的可行性 此系統(tǒng)是由老師帶領(lǐng)及學(xué)生自主進(jìn)行設(shè)計(jì)及實(shí)施完成的，并無(wú)侵權(quán)和責(zé)任問(wèn)題，法律上不存在任何問(wèn)題。 ? DbFunc 用來(lái)管理工程中與數(shù)據(jù)庫(kù)操作相關(guān)的聲明、變量和函 數(shù)。 銀行設(shè)備管理系統(tǒng) 17 表 41 設(shè)置登錄窗體的屬性 窗體屬性 設(shè)置值 具體說(shuō)明 名稱(chēng) FrmLogin 設(shè)置窗體名稱(chēng) BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗(yàn)證 窗體的標(biāo)題條文本 ControlBox False 取消控制按鈕，防止用戶(hù)通過(guò)控制按鈕關(guān) 閉對(duì)話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時(shí)，位置在屏幕中心 登錄窗體中控件的屬性如表 42 所示。在文本框中輸入新的分類(lèi)名稱(chēng)，單擊“添加”按鈕時(shí)觸發(fā) cmd_add_click 事件，代碼如下： Private Sub Cmd_Add_Click() 39。選擇要?jiǎng)h除的分類(lèi)名稱(chēng)，用戶(hù)單擊“刪除”按鈕觸發(fā) Cmd_Del_Click 事件，對(duì)應(yīng)的代碼如下： Private Sub Cmd_Del_Click() If Len(Trim()) = 0 Then MsgBox (請(qǐng)選擇記錄 ) Exit Sub End If 39。綁定列值 39。根據(jù)變量 Modify 的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then 39。設(shè)置列寬度 (1).Width = 1200 (2).Width = 1200 (3).Width = 1200 (4).Width = 1200 (5).Width = 1000 (6).Width = 1200 (7).Width = 800 (8).Width = 1200 (9).Width = 1200 (10).Width = 1200 End Sub Form_Load 過(guò)程。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = False 39。分類(lèi)編號(hào) = Trim((2)) 39。 銀行設(shè)備管理系統(tǒng) 32 圖 47 當(dāng)用戶(hù)單擊“選擇”按鈕時(shí)，將顯示所有的設(shè)備信息觸發(fā) Cmd_DeviceSel_click事件，對(duì)應(yīng)的代碼如下： Private Sub Cmd_DeviceSel_Click() 1 39。設(shè)置查詢(xún)條件 If Len(Trim(txtDevNo)) = 0 Then SchCnd = And Else SchCnd = AND =39。是 39。把用戶(hù)錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫(kù)對(duì)象變量中 With MyMaintenance .DevNo = MakeStr(txtDevNo) .ReportDate = Format(, yyyymmdd) .ArriveDate = Format(, yyyymmdd) .SolveDate = Format(, yyyymmdd) .Reason = MakeStr(txtReason) .ChangeAccessory = If = 1 Then .AccessoryList = MakeStr(txtAccessoryList) Else .AccessoryList = End If .Engineer = MakeStr(txtEngineer) .Amount = Val(txtAmount) .Comment = MakeStr(txtComment) 39。啟動(dòng)編輯窗體 1 GridRefresh 39。刷新 DataGrid 表格的內(nèi)容 GridRefresh End Sub cmd_modi_click 過(guò)程，修改。選擇支行 Set = Adodc3 39。判斷是否有查詢(xún)字段 If Len(Trim(txtDevNo)) = 0 Then SchCnd = Else 39。綁定數(shù)據(jù)源 = InfoName 39。當(dāng)裝入窗體 FrmDeviceEdit 時(shí)觸發(fā) Form_Load 事件，對(duì)應(yīng)的代碼如下： Private Sub DataRefresh() 銀行設(shè)備管理系統(tǒng) 25 39。選擇分類(lèi)名稱(chēng)，在文本框中對(duì)其修改后，單擊“修改”按鈕觸發(fā) Cmd_Modi_Click 事件，對(duì)應(yīng)的程序代碼如下： Private Sub Cmd_Modi_Click() 39。其中過(guò)程 DataRefresh 對(duì)應(yīng)的代碼如下： Private Sub DataRefresh() 39。 銀行設(shè)備管理系統(tǒng) 16 6) Discard 類(lèi)用來(lái)管理表 Discard 的數(shù)據(jù)庫(kù)操作，它保存為 。 表 22 表 Device 的結(jié)構(gòu) 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 1 DevNo Varchar50 設(shè)備編號(hào)，主鍵 2 TypeID Int 設(shè)備分類(lèi)編號(hào) 3 EnterpriseID Int 設(shè)備品牌編號(hào) 4 Model Varchar50 設(shè)備型號(hào) 5 Price Int 購(gòu)買(mǎi)價(jià)格 6 Place Varchar50 設(shè)備布放地點(diǎn) 7 BranchID Int 設(shè)備所屬支行編號(hào) 8 StartDate Datetime 設(shè)備開(kāi)通時(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所示。 開(kāi)發(fā)工具： Visual Basic SQL Server 2021 都是現(xiàn)在用到的編程和數(shù)據(jù)庫(kù)方面的主要工具 ,對(duì)工具的安裝和使 用方面不會(huì)有所限制。 與其他開(kāi)發(fā)工具相比， Visual Basic 具有簡(jiǎn)單易學(xué)、靈活方便和易于擴(kuò)充等特點(diǎn)，越來(lái)越多地被用作客戶(hù) /服務(wù)器應(yīng)用程序的前端開(kāi)發(fā)工具，與后端的 SQL SERVER 數(shù)據(jù)庫(kù)相結(jié)合，能夠提供一個(gè)高性能的管理信 息系統(tǒng)解決方案。 在設(shè)備巡檢信息管理模塊中，可以對(duì)設(shè)備 巡檢信息進(jìn)行添加、修改、刪除和查詢(xún)等操作。 如果需要對(duì)普通用戶(hù)進(jìn)行管理，則使用 Admin用戶(hù)登錄；否則建議使用 Users用戶(hù)登錄。 模塊化設(shè)計(jì)原理 模塊化設(shè)計(jì)思想即把程序劃分為若干個(gè)模塊，每個(gè)模塊完成一個(gè)子功能，把這些模塊集總起 來(lái)組成一個(gè)整體，可以完成指定的功能滿(mǎn)足問(wèn)題的要求。 MS SQL Server 就是用的 Transact SQL。因此，數(shù)據(jù)庫(kù)的學(xué)習(xí)是非常重要的。銀行設(shè)備管理系統(tǒng) 1 摘要 隨著銀行卡的普及，很多地方安裝了大量的存款機(jī)、取款機(jī)和 POS機(jī)等銀行自助設(shè)備。對(duì)于一個(gè)國(guó)家，數(shù)據(jù)庫(kù)的建設(shè)規(guī)模，使用水平已成為衡量該國(guó)信息化程度的重要標(biāo)志。但是，標(biāo)準(zhǔn)的 SQL 命令，比如 Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫(kù)的操作。 ? 設(shè)備報(bào)廢信息的添加、修改、刪除、查詢(xún)、提交、審批、同意報(bào)銷(xiāo)申請(qǐng)等。 第一個(gè)過(guò)程決定用戶(hù)能否進(jìn)入系統(tǒng)，第二個(gè)過(guò)程根據(jù)用戶(hù)的類(lèi)型決定用戶(hù)的操作權(quán)限。在添加設(shè)備維護(hù)信息時(shí)，需要首先選擇自助設(shè)備信息。 例如，開(kāi)發(fā) C/S（客戶(hù) /服務(wù)器）結(jié)構(gòu)的應(yīng)用程序時(shí) ，前臺(tái)開(kāi)發(fā)語(yǔ)言通常可以選擇 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)： Windows 9X 和 Windows NT 是 Microsoft 公司的成熟的產(chǎn)品且也為主流操作系統(tǒng)。 表 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 所示。 5)