【正文】 ELSE 39。 + Trim(txtDevNo) + 39。檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtDevNo)) = 0 Then MsgBox (請選擇設備 ) Exit Sub End If If Len(Trim(txtEngineer)) = 0 Then MsgBox 請輸入維護人員 Exit Sub End If 39。設備選擇窗體 39。編輯時設備編號和數(shù)量不能更改 = False 39。設備品牌 = Trim((3)) 39。啟動編輯窗體 1 39。初始化 FrmDeviceEdit 信息 銀行設備管理系統(tǒng) 30 = 39。設置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=3 39。 Private Sub Form_Load() 39。 GridRefresh過程根據(jù)變量 SchCnd的值讀取不同的記錄，對應的代碼如下： Private Sub GridRefresh() 39。判斷此設備編號是否存在 If .In_DB(Trim(txtDevNo)) = True Then MsgBox (已經(jīng)存在此設備編號 ) Exit Sub End If .Insert Else 銀行設備管理系統(tǒng) 27 .Update (OriId) End If End With 39。選擇支行 Set = Adodc3 39。 設備品牌信息 = Conn 39。 （ 1） Form_Load()過程。 確定刪除 If MsgBox(是否確定要刪除 , vbYesNo, 請確認 ) = vbNo Then 銀行設備管理系統(tǒng) 23 Exit Sub End If 39。varchar 框中顯示分類名稱 End If End Sub （ 4） Cmd_Modi_Click 過程。添加設備分類名稱，先判斷域是否為空 If Len(Trim(txtName)) = 0 Then MsgBox (請輸入分類名稱 ) Exit Sub End If 39。刷新 DataList1 中的數(shù)據(jù) DataRefresh End Sub 在此過程中將顯示所有的設備分類名稱。 表 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 銀行設備管理系統(tǒng) 18 If Try_times = 3 Then MsgBox “您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 ” Dbapi_Disconnect End Else Exit Sub End If End If ?判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox “密碼錯誤 ” Try_times = Try_times + 1 If Try_times = 3 Then MsgBox “您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 ” Dbapi_Disconnect End Else Exit Sub End If End If ?登錄成功，將當前用戶的信息保存在 CurUser 中 () ?關閉自己 Unload Me End Sub 設計主界面 主窗體是工程的啟動對象，可以在系統(tǒng)菜單中選擇“工程” /“屬性”，打開屬性窗口設置啟動對象。 5) Movement 類用來管理表 Movement 的數(shù)據(jù)庫操作，它保存為。 ? GeneralFunc 用來管理工程中一些通用的自定義函數(shù)。 表 21 表 BaseInfo 的結構 編號 字段名稱 數(shù)據(jù)類型 說明 1 InfoID Int 編號，主鍵 2 InfoName Varchar50 名稱 3 TypeId Tinyint 分類， 1表示設備分類； 2 表示設備品牌；3表示支行 (2)設備信息表 Device,保存設備的基本信息，結構如表 22 所示。 開發(fā)目標 系統(tǒng)的總目標是為管理者提供迅速、高效的服務，減免手工處 理的繁瑣與誤差。 軟件： 操作系統(tǒng)： Windows 9X 和 Windows NT 是 Microsoft 公司的成熟的產(chǎn)品且也為主流操作系統(tǒng)。在市場經(jīng)濟的大環(huán)境下，越來越多的人士逐漸認識到用計算機技術進行各類管 理，交流的便捷。 例如，開發(fā) C/S（客戶 /服務器）結構的應用程序時 ，前臺開發(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)，第二個過程根據(jù)用戶的類型決定用戶的操作權限。系統(tǒng)管理員用戶為 Admin,普通用戶為 Users。 ? 設備報廢信息的添加、修改、刪除、查詢、提交、審批、同意報銷申請等。所有關系數(shù)據(jù)庫的公共語言：由于所有主要的關系數(shù)據(jù)庫管理系統(tǒng)都支持 SQL 語言，用戶可將使用 SQL 的技能從一個 RDBMS(關系數(shù)據(jù)庫管理系統(tǒng) )轉到另一個，所有用 SQL 編寫的程序都是可以移植的。但是，標準的 SQL 命令，比如 Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫的操作。 該數(shù)據(jù)庫應用程序按照用戶權限和實現(xiàn)功能的不同分為兩部分：外部用戶對數(shù)據(jù)庫的查詢 訪問和內部管理人員對數(shù)據(jù)記錄的管理維護，每一部分中包含各自實現(xiàn)的各項功能，對每一項功能的實現(xiàn)，將按照窗體設計以及運行情況的順序逐一進行設計。對于一個國家，數(shù)據(jù)庫的建設規(guī)模，使用水平已成為衡量該國信息化程度的重要標志。 我國銀行業(yè)計算機系統(tǒng)的引進，從早期的脫機處理系統(tǒng)，到聯(lián)機處理系統(tǒng)，再到計算機網(wǎng)絡支撐下的綜合銀行處理系統(tǒng)，走過了二十多年的歷程，銀行計算機的普遍應用，已從根本上改變了傳統(tǒng)的工作方式，使銀行的經(jīng)營、管理發(fā)生了深刻的變革。銀行設備管理系統(tǒng) 1 摘要 隨著銀行卡的普及，很多地方安裝了大量的存款機、取款機和 POS機等銀行自助設備。 數(shù)據(jù)庫及其應用 自 20 世紀 70 年代以來，數(shù)據(jù)庫技術得到迅速發(fā)展。因此，數(shù)據(jù)庫的學習是非常重要的。 本系統(tǒng)采用 SQL 技術建立數(shù)據(jù)庫，然后建立數(shù)據(jù)源的鏈接，并且生成醫(yī)院門診管理的數(shù)據(jù)庫應用程序從而實現(xiàn)數(shù)據(jù)庫的管理功能。 MS SQL Server 就是用的 Transact SQL。 第二章系統(tǒng)分析 系統(tǒng)需求分析 銀行設備管理系統(tǒng)的用戶是銀行中負責自助設備管理和維護的技術人員， 包括設備類型管理、設備品牌管理、支行信息管理、設備維護信息管理、設備移機信息管理、設 備巡檢信息管理和設備報廢信息管理等主要功能，具體功能如下： ? 設備類型信息的添加、修改、刪除和查詢。 模塊化設計原理 模塊化設計思想即把程序劃分為若干個模塊，每個模塊完成一個子功能，把這些模塊集總起 來組成一個整體，可以完成指定的功能滿足問題的要求。它們的 默認密碼均為 111111。 如果需要對普通用戶進行管理，則使用 Admin用戶登錄；否則建議使用 Users用戶登錄。 添加基本信息后，就可以添加自助設備信息了。 在設備巡檢信息管理模塊中，可以對設備 巡檢信息進行添加、修改、刪除和查詢等操作。設備報廢信息包括報廢申請人、折算金額、報廢原因等。 與其他開發(fā)工具相比， Visual Basic 具有簡單易學、靈活方便和易于擴充等特點，越來越多地被用作客戶 /服務器應用程序的前端開發(fā)工具，與后端的 SQL SERVER 數(shù)據(jù)庫相結合，能夠提供一個高性能的管理信 息系統(tǒng)解決方案。其中最突出的是要算在銀行計算機管理了。 開發(fā)工具： Visual Basic SQL Server 2021 都是現(xiàn)在用到的編程和數(shù)據(jù)庫方面的主要工具 ,對工具的安裝和使 用方面不會有所限制。 系統(tǒng)分析的基本方法 在傳統(tǒng)的需求建模方法中有面向數(shù)據(jù)流，面向對象以及面向數(shù)據(jù)等三種常用分析方法， （ 1） .面向數(shù)據(jù)流的分析方法 該方法以信息對象及其操作為核心進行需求分析，可以按順序、選擇、重復三種結構把復合信息對象分解為成員信息對象。 表 22 表 Device 的結構 編號 字段名稱 數(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,保存設備的維護信息，結構如圖 23所示。 ? Variable 用來管理工程中的全局變量。 銀行設備管理系統(tǒng) 16 6) Discard 類用來管理表 Discard 的數(shù)據(jù)庫操作，它保存為 。本系統(tǒng)中主窗體名為 FrmMain。其中過程 DataRefresh 對應的代碼如下： Private Sub DataRefresh() 39。判斷數(shù)據(jù)庫中是否已經(jīng)存在此分類名稱 If (Trim(txtName), 1) = True Then MsgBox (已經(jīng)存在此分類名稱 ) Exit Sub End If 39。選擇分類名稱，在文本框中對其修改后，單擊“修改”按鈕觸發(fā) Cmd_Modi_Click 事件，對應的程序代碼如下： Private Sub Cmd_Modi_Click() 39。 刪除分類 (Val()) DataRefresh 39。當裝入窗體 FrmDeviceEdit 時觸發(fā) Form_Load 事件，對應的代碼如下： Private Sub DataRefresh() 銀行設備管理系統(tǒng) 25 39。設置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=2 39。綁定數(shù)據(jù)源 = InfoName 39。關閉窗口 Unload Me End Sub 設備信息管理窗體 設備信息管理窗體的名稱為 FrmDevice。判斷是否有查詢字段 If Len(Trim(txtDevNo)) = 0 Then SchCnd = Else 39。 設備分類信息