【正文】 soryList = End If .Engineer = MakeStr(txtEngineer) .Amount = Val(txtAmount) .Comment = MakeStr(txtComment) 39。屬性支行 txtPlace = Trim() 39。讀取指定對(duì)象信息 txtDevNo = Trim() 39。將雙擊選擇的設(shè)備信息放入指定對(duì)象中 If Then MsgBox (請(qǐng)選擇記錄 ) Exit Sub End If (Trim((0))) Unload Me End Sub 設(shè)備維護(hù)信息管理模塊 設(shè)備維護(hù)管理模塊可以實(shí)現(xiàn)添加、修改、刪除和查看設(shè)備維護(hù)信息 。啟動(dòng)編輯窗體 1 GridRefresh 39。開通時(shí)間 = Trim((8)) 39。設(shè)備型號(hào) = Trim((4)) 39。設(shè)備編號(hào) = Trim((0)) 39。刷新 DataGrid 表格的內(nèi)容 GridRefresh End Sub cmd_modi_click 過(guò)程，修改。開通時(shí)間 = 39。設(shè)備編號(hào) = 39。刷新設(shè)備信息 GridRefresh End Sub Cmd_add_click 過(guò)程。選擇支行 Set = Adodc3 39。顯示列名 = InfoId 39。 設(shè)備分類信息 = Conn 39。設(shè)置連接字符串 = SELECT AS 設(shè)備編號(hào) , AS 分類 , _ + As 設(shè)備品牌 , AS 設(shè)備型號(hào) , AS 購(gòu)買價(jià)格 , _ + AS 布放地點(diǎn) , AS 所屬支行 , AS 開通時(shí)間 , _ + AS 管理員 , AS 提交人 , As 狀態(tài) _ + FROM Device d,BaseInfo t1, BaseInfo t2, BaseInfo t3 _ + WHERE = And = And = _ + SchCnd + ORDER BY Set = Adodc1 39。判斷是否有查詢字段 If Len(Trim(txtDevNo)) = 0 Then SchCnd = Else 39。 下面是窗體 FrmDevice 中各個(gè)過(guò)程的代碼。關(guān)閉窗口 Unload Me End Sub 設(shè)備信息管理窗體 設(shè)備信息管理窗體的名稱為 FrmDevice。檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtDevNo)) = 0 Then MsgBox (請(qǐng)輸入設(shè)備編號(hào) ) Exit Sub End If If Len(Trim(txtModel)) = 0 Then MsgBox 請(qǐng)輸入設(shè)備型號(hào) Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇設(shè)備分類 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇設(shè)備品牌 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇所屬支行 Exit Sub End If If Len(Trim(txtPrice)) = 0 Then MsgBox 請(qǐng)輸入設(shè)備單價(jià) Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇布放地點(diǎn) Exit Sub End If 39。綁定數(shù)據(jù)源 = InfoName 39。綁定列值 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=2 39。綁定數(shù)據(jù)源 = InfoName 39。當(dāng)裝入窗體 FrmDeviceEdit 時(shí)觸發(fā) Form_Load 事件，對(duì)應(yīng)的代碼如下： Private Sub DataRefresh() 39。 設(shè)備信息編輯窗體 設(shè)備信息編輯窗體可以用來(lái)添加和修改設(shè)備的基本信息，窗體名稱為FrmDeviceEdit,窗體的布局如圖 44 所示。 刪除分類 (Val()) DataRefresh 39。更新名稱 = Trim(txtName) (OriId) DataRefresh 39。選擇分類名稱，在文本框中對(duì)其修改后，單擊“修改”按鈕觸發(fā) Cmd_Modi_Click 事件，對(duì)應(yīng)的程序代碼如下： Private Sub Cmd_Modi_Click() 39。記錄編號(hào) If (OriId) = True Then 39。判斷數(shù)據(jù)庫(kù)中是否已經(jīng)存在此分類名稱 If (Trim(txtName), 1) = True Then MsgBox (已經(jīng)存在此分類名稱 ) Exit Sub End If 39。設(shè)置列表中顯示字段 = InfoID 39。其中過(guò)程 DataRefresh 對(duì)應(yīng)的代碼如下： Private Sub DataRefresh() 39。 設(shè)備類型信息管理 設(shè)備類型信息管理窗體的名稱為 FrmType，布局如圖 43 所示 。本系統(tǒng)中主窗體名為 FrmMain。 設(shè)計(jì)登錄窗體 登錄窗體的名稱為 FrmLogin,他的界面布局如圖 41 所示。 6) Discard 類用來(lái)管理表 Discard 的數(shù)據(jù)庫(kù)操作，它保存為 。 2) Devicees 類用來(lái)管理表 Device 的數(shù)據(jù)庫(kù)操作 ,它保存為 。 ? Variable 用來(lái)管理工程中的全局變量。 表 27 表 Users 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 UserName Varchar50 用戶名，主鍵 2 UserPwd Varchar50 密碼 在表的結(jié)構(gòu)表中定義了每個(gè)表的主鍵，為了規(guī)定各表之間的關(guān)系，還定義一組外鍵，如表 28所示。 表 22 表 Device 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 DevNo Varchar50 設(shè)備編號(hào)，主鍵 2 TypeID Int 設(shè)備分類編號(hào) 3 EnterpriseID Int 設(shè)備品牌編號(hào) 4 Model Varchar50 設(shè)備型號(hào) 5 Price Int 購(gòu)買價(jià)格 6 Place Varchar50 設(shè)備布放地點(diǎn) 7 BranchID Int 設(shè)備所屬支行編號(hào) 8 StartDate Datetime 設(shè)備開通時(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所示。因?yàn)閿?shù)據(jù)庫(kù)結(jié)構(gòu)的變化會(huì)造成編碼的改動(dòng)，所以必須認(rèn)真設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)后再進(jìn)行編碼，從而避免無(wú)謂的重復(fù)工作。 系統(tǒng)分析的基本方法 在傳統(tǒng)的需求建模方法中有面向數(shù)據(jù)流，面向?qū)ο笠约懊嫦驍?shù)據(jù)等三種常用分析方法， （ 1） .面向數(shù)據(jù)流的分析方法 該方法以信息對(duì)象及其操作為核心進(jìn)行需求分析，可以按順序、選擇、重復(fù)三種結(jié)構(gòu)把復(fù)合信息對(duì)象分解為成員信息對(duì)象。面對(duì)國(guó)外強(qiáng)勢(shì)的沖擊，在銀行業(yè)中有大部分的市場(chǎng)。 開發(fā)工具： Visual Basic 和 SQL Server 2021 都是現(xiàn)在用到的編程和數(shù)據(jù)庫(kù)方面的主要工具 ,對(duì)工具的安裝和使 用方面不會(huì)有所限制。使用計(jì)算機(jī)進(jìn)行的管理、提供的服務(wù)是規(guī)范的、統(tǒng)一的，它在銀行設(shè)備管理當(dāng)中的應(yīng)用不僅可以簡(jiǎn)化、規(guī)范廠銀行的日常操作，而且可以使銀行對(duì)設(shè)備的管理更加簡(jiǎn)單、方便、快捷、清晰、從而減輕工作人員的勞動(dòng)強(qiáng)度、減低銀行的財(cái)政消耗。其中最突出的是要算在銀行計(jì)算機(jī)管理了。 ? 常用 SQL 語(yǔ)句的使用。 與其他開發(fā)工具相比， Visual Basic 具有簡(jiǎn)單易學(xué)、靈活方便和易于擴(kuò)充等特點(diǎn)，越來(lái)越多地被用作客戶 /服務(wù)器應(yīng)用程序的前端開發(fā)工具，與后端的 SQL SERVER 數(shù)據(jù)庫(kù)相結(jié)合，能夠提供一個(gè)高性能的管理信 息系統(tǒng)解決方案。如果 3次輸入的用戶名和密碼都無(wú)法與數(shù)據(jù)庫(kù)中的數(shù)據(jù)匹配，則強(qiáng)制退出系統(tǒng)。設(shè)備報(bào)廢信息包括報(bào)廢申請(qǐng)人、折算金額、報(bào)廢原因等。 在設(shè)備移機(jī)信息管理模塊中，可以對(duì)設(shè)備移機(jī)信息進(jìn)行添加、修改、刪除和查詢等操作。 在設(shè)備巡檢信息管理模塊中，可以對(duì)設(shè)備 巡檢信息進(jìn)行添加、修改、刪除和查詢等操作。在添加自助設(shè)備信息時(shí)，需要選擇設(shè)備分類、設(shè)備品牌和所屬支行等信息。 添加基本信息后，就可以添加自助設(shè)備信息了。 在本系統(tǒng)中，應(yīng)該首先增加基本信息，之后增加自助設(shè)備信息。 如果需要對(duì)普通用戶進(jìn)行管理，則使用 Admin用戶登錄；否則建議使用 Users用戶登錄。 運(yùn)行系統(tǒng)后，首先會(huì)看到登錄窗體，對(duì)用戶的身份進(jìn)行認(rèn)證。它們的 默認(rèn)密碼均為 111111。系統(tǒng)功能模塊如 圖21 所示。 模塊化設(shè)計(jì)原理 模塊化設(shè)計(jì)思想即把程序劃分為若干個(gè)模塊，每個(gè)模塊完成一個(gè)子功能，把這些模塊集總起 來(lái)組成一個(gè)整體，可以完成指定的功能滿足問(wèn)題的要求。 ? 設(shè)備維護(hù)信息的添加、修改、刪除和查詢。 第二章系統(tǒng)分析 系統(tǒng)需求分析 銀行設(shè)備管理系統(tǒng)的用戶是銀行中負(fù)責(zé)自助設(shè)備管理和維護(hù)的技術(shù)人員， 包括設(shè)備類型管理、設(shè)備品牌管理、支行信息管理、設(shè)備維護(hù)信息管理、設(shè)備移機(jī)信息管理、設(shè) 備巡檢信息管理和設(shè)備報(bào)廢信息管理等主要功能，具體功能如下： ? 設(shè)備類型信息的添加、修改、刪除和查詢。 SQL 不要求用戶指定對(duì)數(shù)據(jù)的存放方法， 這種特性使用戶更易集中精力于要得到的結(jié)果；所有 SQL 語(yǔ)句 使用查詢優(yōu)化器，它是 RDBMS 的一部分，由它決定對(duì)指定數(shù)據(jù)存取的最快速度的手段，查詢優(yōu)化器知道存在什么索引，在哪兒使用索引合適，而用戶則從不需要知道表是否有索引、有什么類型的索引。 MS SQL Server 就是用的 Transact SQL。 SQL 語(yǔ)句通常用于完成一些數(shù)據(jù)庫(kù) 的操作任務(wù)，比如在數(shù)據(jù)庫(kù)中更新數(shù)據(jù)，或者從數(shù)據(jù)庫(kù)中檢索數(shù)據(jù)。 本系統(tǒng)采用 SQL 技術(shù)建立數(shù)據(jù)庫(kù)，然后建立數(shù)據(jù)源的鏈接，并且生成醫(yī)院門診管理的數(shù)據(jù)庫(kù)應(yīng)用程序從而實(shí)現(xiàn)數(shù)據(jù)庫(kù)的管理功能。 總之，數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)計(jì)算機(jī)存儲(chǔ)記錄的系統(tǒng)，即，它是一個(gè)計(jì)算機(jī)系統(tǒng)，該系統(tǒng)的目標(biāo)存儲(chǔ)信息 并支持用戶檢索和更新所需要的信息。因此，數(shù)據(jù)庫(kù)的學(xué)習(xí)是非常重要的。數(shù)據(jù)庫(kù)技術(shù)與網(wǎng)絡(luò)通信技術(shù)相結(jié)合，產(chǎn)生了分布式數(shù)據(jù)庫(kù)系統(tǒng)，數(shù)據(jù)庫(kù)技術(shù)與面象對(duì)象技術(shù)相結(jié)合，產(chǎn)生了面向?qū)ο髷?shù)據(jù)庫(kù)系統(tǒng)等各種數(shù)據(jù)庫(kù)系統(tǒng)。 數(shù)據(jù)庫(kù)及其應(yīng)用 自 20 世紀(jì) 70 年代以來(lái)，數(shù)據(jù)庫(kù)技術(shù)得到迅速發(fā)展。 本文的數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)銀行設(shè)備管理系統(tǒng)，包括設(shè)備類型管理、設(shè)備品牌管理、支行信息管理、設(shè)備維護(hù)信息管理、設(shè)備移機(jī)信息管理、設(shè)備巡檢信息管理和設(shè)備報(bào)廢信息管理等功能。摘要 隨著銀行卡的普及，很多地方安裝了大量的存款機(jī)、取款機(jī)和 POS機(jī)等銀行自助設(shè)備。在文章的最后，還根據(jù)數(shù)據(jù)庫(kù)系統(tǒng)的調(diào)試結(jié)果，提出了可以 進(jìn)一步改進(jìn)的部分，以便在投入實(shí)際應(yīng)用后系統(tǒng)可以更加穩(wěn)定可靠的工作。 我國(guó)銀行業(yè)計(jì)算機(jī)系統(tǒng)的引進(jìn)，從早期的脫機(jī)處理系統(tǒng)，到聯(lián)機(jī)處理系統(tǒng)，再到計(jì)算機(jī)網(wǎng)絡(luò)支撐下的綜合銀行處理系統(tǒng)，走過(guò)了二十多年的歷程，銀行計(jì)算機(jī)的普遍應(yīng)用，已從根本上改變了傳統(tǒng)的工作方式，使銀行的經(jīng)營(yíng)、管理發(fā)生了深刻的變革。 現(xiàn)在，數(shù)據(jù)庫(kù)技術(shù)還在不斷發(fā)展，并且不斷的與其它計(jì)算機(jī)技術(shù)相互滲透。對(duì)于一個(gè)國(guó)家，數(shù)據(jù)庫(kù)的建設(shè)規(guī)模，使用水平已成為衡量該國(guó)信息化程度的重要標(biāo)志。系統(tǒng)用戶可以對(duì)這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作。 該數(shù)據(jù)庫(kù)應(yīng)用程序按照用戶權(quán)限和實(shí)現(xiàn)功能的不同分為兩部分：外部用戶對(duì)數(shù)據(jù)庫(kù)的查詢 訪問(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ì)。 ANSI（美國(guó)國(guó)家標(biāo)準(zhǔn)學(xué)會(huì)）聲稱， SQL 是關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言。但是，標(biāo)準(zhǔn)的 SQL 命令，比如 Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫(kù)的操作。SQL 的集合特性允許一條 SQL 語(yǔ)句的結(jié)果作為另一條 SQL 語(yǔ)句的輸入。所有關(guān)系數(shù)據(jù)庫(kù)的公共語(yǔ)言：由于所有主要的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)