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