【正文】 + Format(, yyyymmdd) + 39。設(shè)備型號(hào) () txtBranch = Trim() 39。支行 = Trim((7)) 39。數(shù)量 = Now 39。綁定數(shù)據(jù)源 = InfoName 39。 表 45 窗體 FrmDevice 中包含的控件及其屬性 對(duì)象名 屬性 屬性值 TxtDevno 設(shè)備編號(hào) Adodcl 為設(shè)備信息表格提供數(shù)據(jù)源 DataGrid1 顯示設(shè)備信息的表格控件 Adodc2 為設(shè)備分類提供數(shù)據(jù)源 Dco_typeid 設(shè)備分類 Adodc3 為所屬支行提供數(shù)據(jù)源 Dco_branch 所屬支行 Cmd_search Caption 布放地點(diǎn) Cmd_reset Caption 為所屬支行提供數(shù)據(jù)源 Cmd_add Caption 所屬支行 Cmd_modi Caption 開通時(shí)間 Cmd_del Caption 管理員 Cmd_exit Caption 創(chuàng)建人 設(shè)備信息管理窗體的布局如圖 45 所示 。顯示列名 = InfoId 39。 在主界面中增加設(shè)置代碼 當(dāng)選擇“基本信息管理” /“設(shè)備分類管理”菜單時(shí)觸發(fā) mn_Types_Click 事件，代碼如下： Private Sub mn_Types_Click() =1 =”設(shè)備類型管理 ” 1 End Sub 設(shè)備信息管理模塊 設(shè)備信息管理模塊包含設(shè)備信息的添加、修改、刪除和查看等功能。點(diǎn)擊列表記錄，將編號(hào)和名稱放入變量和 txtName 域 If Len(Trim()) = 0 Then MsgBox (請(qǐng)選擇記錄 ) Exit Sub End If OriId = Val() 39。登錄界面 1 End Sub 銀行設(shè)備管理系統(tǒng) 20 基本信息管理模塊設(shè)計(jì) 基本信息管理模塊包括設(shè)備類型信息管理、設(shè)備品牌信息管理和支行信息管理。 1) BaseInfo 類用來(lái)管理表 BaseInfo 的數(shù)據(jù)庫(kù)操作，它保存為。 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫(kù)結(jié)構(gòu)可以簡(jiǎn)化開發(fā)過(guò)程，使系統(tǒng)功能更加清晰明確。采用現(xiàn)代計(jì)算機(jī)管理系統(tǒng)是實(shí)現(xiàn)此目標(biāo)的主要途徑。 圖 23 在系統(tǒng)流程分析圖中可以看到，每個(gè)用戶有 3 次機(jī)會(huì)進(jìn)行身份認(rèn)證。自助設(shè)備信息是本系統(tǒng)管理的核心數(shù)據(jù)，它為設(shè)備維護(hù)信息管理模塊、設(shè)備巡檢信息管理模塊、設(shè)備移機(jī)信息管理模塊和設(shè)備報(bào)廢信息管理模塊提供設(shè)備數(shù)據(jù)。 圖 21 銀行設(shè)備管理系統(tǒng) 8 下面進(jìn)行系統(tǒng)流程分析，所謂系統(tǒng)流程就是用戶在使用系統(tǒng)時(shí)的工作過(guò)程。 ? 設(shè)備信息的添加、修改、刪除和查詢。 ANSI（美國(guó)國(guó)家標(biāo)準(zhǔn)學(xué)會(huì)）聲稱， SQL 是關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言。 現(xiàn)在，數(shù)據(jù)庫(kù)技術(shù)還在不斷發(fā)展，并且不斷的與其它計(jì)算機(jī)技術(shù)相互滲透。 本文的數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)銀行設(shè)備管理系統(tǒng)，包括設(shè)備類型管理、設(shè)備品牌管理、支行信息管理、設(shè)備維護(hù)信息管理、設(shè)備移機(jī)信息管理、設(shè)備巡檢信息管理和設(shè)備報(bào)廢信息管理等功能。 總之，數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)計(jì)算機(jī)存儲(chǔ)記錄的系統(tǒng)，即，它是一個(gè)計(jì)算機(jī)系統(tǒng)，該系統(tǒng)的目標(biāo)存儲(chǔ)信息 并支持用戶檢索和更新所需要的信息。 SQL 不要求用戶指定對(duì)數(shù)據(jù)的存放方法， 這種特性使用戶更易集中精力于要得到的結(jié)果；所有 SQL 語(yǔ)句 使用查詢優(yōu)化器，它是 RDBMS 的一部分，由它決定對(duì)指定數(shù)據(jù)存取的最快速度的手段，查詢優(yōu)化器知道存在什么索引，在哪兒使用索銀行設(shè)備管理系統(tǒng) 6 引合適，而用戶則從不需要知道表是否有索引、有什么類型的索引。系統(tǒng)功能模塊如 圖21 所示。 在本系統(tǒng)中，應(yīng)該首先增加基本信息，之后增加自助設(shè)備信息。 在設(shè)備移機(jī)信息管理模塊中，可以對(duì)設(shè)備移機(jī)信息進(jìn)行添加、修改、刪除和查詢等操作。 ? 常用 SQL 語(yǔ)句的使用。面對(duì)國(guó)外強(qiáng)勢(shì)的沖擊，在銀行業(yè)中有大部分的市場(chǎng)。 表 27 表 Users 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 UserName Varchar50 用戶名，主鍵 2 UserPwd Varchar50 密碼 在表的結(jié)構(gòu)表中定義了每個(gè)表的主鍵，為了規(guī)定各表之間的關(guān)系，還定義一組外鍵，如表 28 所示。 設(shè)計(jì)登錄窗體 登錄窗體的名稱為 FrmLogin,他的界面布局如圖 41 所示。設(shè)置列表中顯示字段 = InfoID 39。更新名稱 = Trim(txtName) (OriId) DataRefresh 39。綁定數(shù)據(jù)源 = InfoName 39。檢查用戶錄入數(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 銀行設(shè)備管理系統(tǒng) 26 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è)置連接字符串 = 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) _ 銀行設(shè)備管理系統(tǒng) 29 + FROM Device d,BaseInfo t1, BaseInfo t2, BaseInfo t3 _ + WHERE = And = And = _ + SchCnd + ORDER BY Set = Adodc1 39。刷新設(shè)備信息 GridRefresh End Sub Cmd_add_click 過(guò)程。設(shè)備編號(hào) = Trim((0)) 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ù)信息 。然后調(diào)用 GridRefresh 過(guò)程，刷新表格中的設(shè)備維護(hù)數(shù)據(jù)。 MsgBox Set = Adodc1 (0).Width = 0 (1).Width = 1000 。關(guān)閉窗口 Unload Me End Sub 設(shè)備維護(hù)信息管理模塊 銀行設(shè)備管理系統(tǒng) 34 設(shè)備維護(hù)管理窗體為 FrmMntenance,窗體的布局如圖 48 所示。 FrmDeviceSel 窗體的布局如圖 46 所示 。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = True 39。顯示列名 = InfoId 39。 + Trim(txtDevNo) + 39。綁定列值 End Sub （ 2） cmd_ok_click 過(guò)程。設(shè)置連接字符 串 = SELECT * FROM BaseInfo WHERE TypeId=1 39。判斷新的名稱是否和原來(lái)的相同 If Trim(txtName) = OriInfoName Then Exit Sub End If 39。設(shè)置 SQL 語(yǔ)句 = SELECT * FROM BaseInfo WHERE TypeId= + Trim(TypeID) 39。 第四章系統(tǒng)設(shè)計(jì) 當(dāng)系統(tǒng)運(yùn)行時(shí)，首先打開登錄窗體，只有有權(quán)限的用戶才能進(jìn)入系統(tǒng)。 表 24 表 Check 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 CheckID Int 記錄編號(hào)，主鍵 2 DevNo Varchar50 設(shè)備編號(hào) 3 CheckDate Datetime 設(shè)備巡檢時(shí)間 4 Comment Varchar500 設(shè)備巡檢內(nèi)容 5 FindError Bit 是否發(fā)現(xiàn)故障 6 Reason Varchar200 故障原因 7 ChangeAccessory Bit 是否更換配件 8 AccessoryList Varchar200 更換配件的列表 9 Amount Float 維修費(fèi)用 10 CheckPerson Varchar50 巡檢人員 (5)設(shè)備移機(jī)表 Movement,保存設(shè)備移機(jī)信息，結(jié)構(gòu)如表 25 所示 表 25 表 Movement 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 MoveID Int 記錄編號(hào)，主鍵 2 DevNo Varchar50 設(shè)備編號(hào) 3 MoveDate Datetime 移機(jī)時(shí)間 4 Reason Varchar200 移機(jī)原因 5 NewPlace Varchar50 新 布放地點(diǎn) 6 NewAdmin Varchar50 新管理員 (6)設(shè)備報(bào)廢表 Discard,保存設(shè)備的報(bào)廢信息，結(jié)構(gòu)如表 26所示。 經(jīng)濟(jì)的可行性 本系統(tǒng)可使那些銀行對(duì)設(shè)備 管理工作更高效、方便，也 節(jié)省了管理成本。 開發(fā)本系統(tǒng)所需要的使用技術(shù) 開發(fā)數(shù)據(jù)庫(kù)管理信息系統(tǒng)需要掌握如下技術(shù)： ? 所選開發(fā)工具的基本編程方法。設(shè)備巡檢信息包括設(shè)備巡檢時(shí)間、設(shè)備巡檢內(nèi)容、是否發(fā)現(xiàn)故障、故障原因等信息。在創(chuàng)建用戶時(shí)，需要輸入用戶名和密碼。采用信息隱藏，局部化，內(nèi)聚度，耦合度等原理來(lái)指導(dǎo)模塊設(shè)計(jì)將給整個(gè)系統(tǒng)的設(shè)計(jì)帶來(lái)很大益處。 SQL 允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對(duì)單個(gè)記錄進(jìn)行操作，可操作記錄集，所有 SQL 語(yǔ)句接受集合作為輸入，返回集合作為輸出。數(shù)據(jù)庫(kù)本身可被看作為一種電子文件柜：也就是說(shuō)，它是收集計(jì)算機(jī)數(shù)據(jù)文件的倉(cāng)庫(kù)或容器。 本文介紹了銀行設(shè)備管理系統(tǒng)的設(shè)計(jì)和開發(fā)過(guò)程，詳細(xì)闡述了整個(gè)應(yīng)用系統(tǒng)的設(shè)計(jì)思路，并對(duì)各部分設(shè)計(jì)周期進(jìn)行了詳盡的分析，最終達(dá)成了一個(gè)完整的設(shè)計(jì)方案；本系統(tǒng)采用Visual Basic作為開發(fā)工具， SQL Server 作為后臺(tái)數(shù)據(jù)庫(kù)，這是經(jīng)典的數(shù)據(jù)庫(kù)管理信息系統(tǒng)的。 在人類邁向 21 世紀(jì)知識(shí)經(jīng)濟(jì)的時(shí)候，信息變?yōu)榻?jīng)濟(jì)發(fā)展的戰(zhàn)略資源，信息技術(shù)已成為社會(huì)生 產(chǎn)力重要的組成部分。使用 SQL的常見關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)有： Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingres等等。 ? 設(shè)備巡檢信息的添加、修改、刪除和查詢。身份認(rèn)證可以分為以下兩個(gè)過(guò)程： ? 確認(rèn)用戶是否是有效的系統(tǒng)用戶。 在設(shè)備維護(hù)信息管理模塊中，可以對(duì)設(shè)備維護(hù)信息進(jìn)行添加、修改、刪除和查看等操作。 銀行設(shè)備管理系統(tǒng) 10 開發(fā)工具的選擇 開發(fā)數(shù)據(jù)庫(kù)管理信息系統(tǒng)需要選擇兩種工具，既前臺(tái)開發(fā)語(yǔ)言和后臺(tái)數(shù)據(jù)庫(kù)。 在此，對(duì)本系統(tǒng)的可行性作一分析。 數(shù)據(jù)庫(kù)包含 7 個(gè)表，即基本信息表 BaseInfo、設(shè)備信息表 Device、設(shè)備維護(hù)表 Maintenance、設(shè)備巡檢表 Check、設(shè)備移機(jī)表 Movement、設(shè)備報(bào)廢表 Discard和用戶 信息表 Users。 3) Maintenance 類用來(lái)管理表 Maintenance 的數(shù)據(jù)庫(kù)操作，它保存 為。 圖 43 窗體中包含的控件及其屬性如表 43 所示。判斷是否存在此記錄信息 OriInfoName = Trim() 39。 銀行設(shè)備管理系統(tǒng) 24 圖 44 窗體 FrmDeviceEdit 包含的主 要控件及其屬性如表 44 所示。 支行信息 = Conn 39。 (1)SchCnd