【正文】 護管理窗體為 FrmMntenance,窗體的布局如圖 48 所示。 And 39。 MsgBox Set = Adodc1 (0).Width = 0 (1).Width = 1000 。 39。然后調(diào)用 GridRefresh 過程，刷新表格中的設(shè)備維護數(shù)據(jù)。屬性支行 txtPlace = Trim() 39。將雙擊選擇的設(shè)備信息放入指定對象中 If Then MsgBox (請選擇記錄 ) Exit Sub End If (Trim((0))) Unload Me End Sub 設(shè)備維護信息管理模塊 設(shè)備維護管理模塊可以實現(xiàn)添加、修改、刪除和查看設(shè)備維護信息 。開通時間 = Trim((8)) 39。設(shè)備編號 = Trim((0)) 39。開通時間 = 39。刷新設(shè)備信息 GridRefresh End Sub Cmd_add_click 過程。顯示列名 = InfoId 39。設(shè)置連接字符串 = SELECT AS 設(shè)備編號 , AS 分類 , _ + As 設(shè)備品牌 , AS 設(shè)備型號 , AS 購買價格 , _ + AS 布放地點 , AS 所屬支行 , AS 開通時間 , _ + AS 管理員 , AS 提交人 , As 狀態(tài) _ 銀行設(shè)備管理系統(tǒng) 29 + FROM Device d,BaseInfo t1, BaseInfo t2, BaseInfo t3 _ + WHERE = And = And = _ + SchCnd + ORDER BY Set = Adodc1 39。 銀行設(shè)備管理系統(tǒng) 28 下面是窗體 FrmDevice 中各個過程的代碼。檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtDevNo)) = 0 Then MsgBox (請輸入設(shè)備編號 ) Exit Sub End If If Len(Trim(txtModel)) = 0 Then MsgBox 請輸入設(shè)備型號 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請選擇設(shè)備分類 Exit Sub End If 銀行設(shè)備管理系統(tǒng) 26 If Len(Trim()) = 0 Then MsgBox 請選擇設(shè)備品牌 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請選擇所屬支行 Exit Sub End If If Len(Trim(txtPrice)) = 0 Then MsgBox 請輸入設(shè)備單價 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請選擇布放地點 Exit Sub End If 39。綁定列值 39。綁定數(shù)據(jù)源 = InfoName 39。 設(shè)備信息編輯窗體 設(shè)備信息編輯窗體可以用來添加和修改設(shè)備的基本信息，窗體名稱為FrmDeviceEdit,窗體的布局如圖 44 所示。更新名稱 = Trim(txtName) (OriId) DataRefresh 39。記錄編號 If (OriId) = True Then 39。設(shè)置列表中顯示字段 = InfoID 39。 設(shè)備類型信息管理 設(shè)備類型信息管理窗體的名稱為 FrmType，布局如圖 43 所示 。 設(shè)計登錄窗體 登錄窗體的名稱為 FrmLogin,他的界面布局如圖 41 所示。 2) Devicees 類用來管理表 Device 的數(shù)據(jù)庫操作 ,它保存為 。 表 27 表 Users 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 UserName Varchar50 用戶名，主鍵 2 UserPwd Varchar50 密碼 在表的結(jié)構(gòu)表中定義了每個表的主鍵，為了規(guī)定各表之間的關(guān)系，還定義一組外鍵，如表 28 所示。因為數(shù)據(jù)庫結(jié)構(gòu)的變化會造成編碼的改動，所以必須認(rèn)真設(shè)計數(shù)據(jù)庫結(jié)構(gòu)后再進行編碼，從而避免無謂的重復(fù)工作。面對國外強勢的沖擊，在銀行業(yè)中有大部分的市場。使用計算機進行的管理、提供的服務(wù)是規(guī)范的、統(tǒng)一的，它在銀行設(shè)備管理當(dāng)中的應(yīng)用不僅可以簡化、規(guī)范廠銀行的日常操作，而且可以使銀行對設(shè)備的管理更加簡單、方便、快捷、清晰、從而減輕工作人員的勞動強度、減低銀行的財政消耗。 ? 常用 SQL 語句的使用。如果 3次輸入的用戶名和密碼都無法與數(shù)據(jù)庫中的數(shù)據(jù)匹配，則強制退出系統(tǒng)。 在設(shè)備移機信息管理模塊中，可以對設(shè)備移機信息進行添加、修改、刪除和查詢等操作。在添加自助設(shè)備信息時，需要選擇設(shè)備分類、設(shè)備品牌和所屬支行等信息。 在本系統(tǒng)中，應(yīng)該首先增加基本信息，之后增加自助設(shè)備信息。 運行系統(tǒng)后，首先會看到登錄窗體，對用戶的身份進行認(rèn)證。系統(tǒng)功能模塊如 圖21 所示。 ? 設(shè)備維護信息的添加、修改、刪除和查詢。 SQL 不要求用戶指定對數(shù)據(jù)的存放方法， 這種特性使用戶更易集中精力于要得到的結(jié)果；所有 SQL 語句 使用查詢優(yōu)化器，它是 RDBMS 的一部分，由它決定對指定數(shù)據(jù)存取的最快速度的手段，查詢優(yōu)化器知道存在什么索引，在哪兒使用索銀行設(shè)備管理系統(tǒng) 6 引合適，而用戶則從不需要知道表是否有索引、有什么類型的索引。 SQL語句通常用于完成一些數(shù)據(jù)庫 的操作任務(wù)，比如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)。 總之，數(shù)據(jù)庫系統(tǒng)是一個計算機存儲記錄的系統(tǒng)，即，它是一個計算機系統(tǒng)，該系統(tǒng)的目標(biāo)存儲信息 并支持用戶檢索和更新所需要的信息。數(shù)據(jù)庫技術(shù)與網(wǎng)絡(luò)通信技術(shù)相結(jié)合，產(chǎn)生了分布式數(shù)據(jù)庫系統(tǒng)，數(shù)據(jù)庫技術(shù)與面象對象技術(shù)相結(jié)合，產(chǎn)生了面向?qū)ο髷?shù)據(jù)庫系統(tǒng)等各種數(shù)據(jù)庫系統(tǒng)。 本文的數(shù)據(jù)庫系統(tǒng)是一個銀行設(shè)備管理系統(tǒng)，包括設(shè)備類型管理、設(shè)備品牌管理、支行信息管理、設(shè)備維護信息管理、設(shè)備移機信息管理、設(shè)備巡檢信息管理和設(shè)備報廢信息管理等功能。在文章的最后，還根據(jù)數(shù)據(jù)庫系統(tǒng)的調(diào)試結(jié)果，提出了可以 進一步改進的部分，以便在投入實際應(yīng)用后系統(tǒng)可以更加穩(wěn)定可靠的工作。 現(xiàn)在，數(shù)據(jù)庫技術(shù)還在不斷發(fā)展，并且不斷的與其它計算機技術(shù)相互滲透。系統(tǒng)用戶可以對這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作。 ANSI（美國國家標(biāo)準(zhǔn)學(xué)會）聲稱， SQL 是關(guān)系數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。SQL 的集合特性允許一條 SQL 語句的結(jié)果作為另一條 SQL 語句的輸入。 ? 設(shè)備信息的添加、修改、刪除和查詢。 錯誤 ! 銀行設(shè)備管理系統(tǒng) 7 系統(tǒng)體系結(jié)構(gòu)設(shè)計 根據(jù)需求分析中總結(jié)的用戶需求設(shè)計系統(tǒng)的體系結(jié)構(gòu)。 圖 21 銀行設(shè)備管理系統(tǒng) 8 下面進行系統(tǒng)流程分析，所謂系統(tǒng)流程就是用戶在使用系統(tǒng)時的工作過程。 Admin 用戶還可以修改和刪除其他普通用戶數(shù)據(jù)。自助設(shè)備信息是本系統(tǒng)管理的核心數(shù)據(jù)，它為設(shè)備維護信息管理模塊、設(shè)備巡檢信息管理模塊、設(shè)備移機信息管理模塊和設(shè)備報廢信息管理模塊提供設(shè)備數(shù)據(jù)。在添加設(shè)備巡檢信息時，需要首先選擇自助設(shè)備信息。 圖 23 在系統(tǒng)流程分析圖中可以看到，每個用戶有 3 次機會進行身份認(rèn)證。 ? 基本的后臺數(shù)據(jù)庫管理方法，例如創(chuàng)建數(shù)據(jù)庫、表、視圖以及備份和還原數(shù)據(jù)庫等。采用現(xiàn)代計算機管理系統(tǒng)是實現(xiàn)此目標(biāo)的主要途徑。較之以前的傳統(tǒng)的手工管理方法有了較大的飛躍。 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計是總體設(shè)計階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫結(jié)構(gòu)可以簡化開發(fā)過程，使系統(tǒng)功能更加清晰明確。 表 26 表 Discard 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 DisID Int 記錄編號，主鍵 2 DevNo Varchar50 設(shè)備編號 3 DisSum Int 折算金額 4 Reason Varchar200 報廢原因 5 CreateDate Datetime 申請時間 6 Username Varchar40 申請人 7 Checker Varchar40 審批人 銀行設(shè)備管理系統(tǒng) 14 8 CheckDate Datetime 審批日期 9 Result Varchar200 審批意見 10 Status Varchar10 狀態(tài)（申請、提交、同意、不同意、報廢） (7)用戶信息表 Users,保存系統(tǒng)用戶星系，結(jié)構(gòu)如表 27所示。 1) BaseInfo 類用來管理表 BaseInfo 的數(shù)據(jù)庫操作，它保存為。登錄成功后，將顯示系統(tǒng)主界面。登錄界面 1 End Sub 銀行設(shè)備管理系統(tǒng) 20 基本信息管理模塊設(shè)計 基本信息管理模塊包括設(shè)備類型信息管理、設(shè)備品牌信息管理和支行信息管理。設(shè)置數(shù)據(jù)源 Set = Adodc1 = InfoName 39。點擊列表記錄，將編號和名稱放入變量和 txtName 域 If Len(Trim()) = 0 Then MsgBox (請選擇記錄 ) Exit Sub End If OriId = Val() 39。判斷新的名稱是否已經(jīng)存在 If (Trim(txtName), 1) = True Then MsgBox (已經(jīng)存在此分類名稱 ) Exit Sub End If 39。 在主界面中增加設(shè)置代碼 當(dāng)選擇“基本信息管理” /“設(shè)備分類管理”菜單時觸發(fā) mn_Types_Click 事件，代碼如下： Private Sub mn_Types_Click() =1 =”設(shè)備類型管理 ” 1 End Sub 設(shè)備信息管理模塊 設(shè)備信息管理模塊包含設(shè)備信息的添加、修改、刪除和查看等功能。選擇設(shè)備分類 Set = Adodc1 39。顯示列名 = InfoId 39。當(dāng)單擊“確定”按鈕時觸發(fā) cmd_ok_click 事件，對應(yīng)的程序代碼如下： Private Sub Cmd_OK_Click() 39。 表 45 窗體 FrmDevice 中包含的控件及其屬性 對象名 屬性 屬性值 TxtDevno 設(shè)備編號 Adodcl 為設(shè)備信息表格提供數(shù)據(jù)源 DataGrid1 顯示設(shè)備信息的表格控件 Adodc2 為設(shè)備分類提供數(shù)據(jù)源 Dco_typeid 設(shè)備分類 Adodc3 為所屬支行提供數(shù)據(jù)源 Dco_branch 所屬支行 Cmd_search Caption 布放地點 Cmd_reset Caption 為所屬支行提供數(shù)據(jù)源 Cmd_add Caption 所屬支行 Cmd_modi Caption 開通時間 Cmd_del Caption 管理員 Cmd_exit Caption 創(chuàng)建人 設(shè)備信息管理窗體的布局如圖 45 所示 。 End If If Len(Trim()) 0 Then SchCnd = SchCnd + AND = + Trim(()) End If If Len(Trim()) 0 Then SchCnd = SchCnd + AND = + Trim(()) End If = Conn 39。綁定數(shù)據(jù)源 = InfoName 39。綁定列值 39。數(shù)量 = Now 39。初始化 FrmDeviceEdit 信息 = Trim((0)) 39。支行 = Trim((7)) 39。 圖 46 當(dāng)用戶雙擊 DataList1 控件時觸發(fā) DataGrid_DblClick 事件，對應(yīng)的代碼如下： Private Sub DataGrid1_DblClick() 39。設(shè)備型號 () txtBranch = Trim() 39。 當(dāng)裝載窗體時觸發(fā) Form_Load 事件，對應(yīng)的代碼如下： Private Sub Form_Load() = Now = Now + 1 GridRefresh End Sub 程序初始化時間范圍控件的值，將起始日期設(shè)置為當(dāng)天，終止 日期設(shè)置為第二天。 + Format(, yyyymmdd) +