【文章內(nèi)容簡介】 身份認證函數(shù)中 ,就已經(jīng)可以滿足我對數(shù)據(jù)庫的訪問操作 . 通過 ADO控件使 Visual Basic 程序與 SQLSERVER 數(shù)據(jù)庫之間架起了一座橋梁 ,我們可以很方便的通過修改程序中 ADODC 的參數(shù) ,并通過 SQL 語句來指向數(shù)據(jù)庫的不同部分 ,從而方便的對數(shù)據(jù)庫進行各種操作 . 4 系統(tǒng)分析設(shè)計 系統(tǒng)功能簡介 經(jīng)過對比真實的銀行提款機系統(tǒng)， 本系統(tǒng) 實現(xiàn)以下內(nèi)容： 2 身份認證 . . . 第 7 頁 共 26 頁 系統(tǒng)流程圖 圖 1 系統(tǒng)流程圖 系統(tǒng)開發(fā)主要應(yīng)用技術(shù) WINDOWS XP 是時下最流行的電腦操作系統(tǒng)穩(wěn)定性安全性都非常不錯，而隨著 ATM 提款機逐步采用個人電腦，以及性能的升級， WINXP 也有了可能成為這些提款機的操作系統(tǒng)，所以本次系統(tǒng)也在 WINXP 下進行開發(fā)。由于需要開發(fā)出前臺客戶友好界面及后臺數(shù)據(jù)庫系統(tǒng)，而對于前臺只要能滿足其界面開發(fā)需要即可，所以我采用了相對簡單易用并且功能強大的 ，后臺數(shù)據(jù)庫則采用了與之相連方便且功能同樣強大的 SQLSERVER2021。采用以上兩個開發(fā)軟件完全能夠滿足 ATM 模擬系統(tǒng)的開發(fā)需要。 系統(tǒng)前臺設(shè)計 系統(tǒng)主要是由前臺（客戶操作界面）與后臺（數(shù)據(jù)庫）兩個部分組成。前臺部分整個代碼程序采用一個主模塊，在里面定義程序全局變量，把各種功能函數(shù)寫入其中，每個界面制作一個獨立窗體，在各個窗體代碼中來調(diào)用主模塊中的各個函數(shù)來，來實現(xiàn)相應(yīng)功能。界面部分由于 08 年奧運會的臨近， 系統(tǒng) 采用了幾副有關(guān)北京 08 奧運會的卡 通圖片，讓界面整體突出一種奧運氣氛。通過可愛的卡通動物也實現(xiàn)了友好親切的操作氛圍。 登陸 身份驗證 選擇服務(wù) 查詢余額 取款 轉(zhuǎn)賬 修改密碼 查詢明細 退出 第 8 頁 共 26 頁 后臺數(shù)據(jù)庫設(shè)計 經(jīng)過充分考慮，認為系統(tǒng)并不需要非常復(fù)雜的數(shù)據(jù)庫系統(tǒng)就能夠達到模擬ATM 系統(tǒng)的效果，所以建立了一個名為 X\ATM 的 SQL 服務(wù)器，創(chuàng)建了名為 USER 的數(shù)據(jù)庫，用戶登陸名為 sa 密碼為空，并在 ODBC 數(shù)據(jù)源中將 USER數(shù)據(jù)庫添加進去。其中實際上只運用到兩個表，一個用戶信息表和一個用戶操作表。 表 1 用戶信息表 用戶信息表 （如表 1） 用以存放用戶的卡號，密碼，存款金額等信息，由于該系統(tǒng)是為了模擬運用，故 安全要求不高，所以密碼采用了明文方式存放，便于使用查看。本次模擬系統(tǒng)并不具有創(chuàng)建新用戶的功能，用戶信息表上的內(nèi)容都是為了模擬而手動添加的樣本用戶。 表 2 用戶操作表 用戶操作表 (如表 3)則用來記錄用戶在 ATM 機上所使用的服務(wù)，它包括了所有用戶對 ATM 的操作信息，包括時間，操作類型，金額，轉(zhuǎn)帳卡號，成功與否等等。用戶查詢明細的功能就是通過搜集檢索這張表來實現(xiàn)。同時管理人員也 第 9 頁 共 26 頁 可以從這張表上很方便的查閱用戶使用情況。當(dāng)然，真實的銀行 ATM 系統(tǒng)，其后臺的數(shù)據(jù)庫系統(tǒng)肯定是十分龐大的一個系統(tǒng)，對保密性的要求也非常 的高，在這次的模擬中當(dāng)然不可能達到那樣的要求。 5 系統(tǒng)功能 的 實現(xiàn) 歡迎界面實現(xiàn) 圖 2 歡迎界面 在歡迎界面 (如圖 2)我們可以自由的選擇兩種語言，分別為我們最常用的中文和英語，在這里主模塊中定義了一個非常重要的 INT 整型變量 i，通過 i 的值來決定所選擇的服務(wù)。任意點擊一種服務(wù)都將進入登陸界面。 Private Sub Command1_Click() i = 2 當(dāng)點中文按鈕時， i 的值就被賦為了 2，在后面的操作中， i的值就將始終為 2，用以區(qū)別所選語言服務(wù) Unload Form1 End Sub Private Sub Command2_Click() i = 1 點 ENGLISH 按鈕時 i 的值賦 1 Unload Form1 End Sub 登陸 的 實現(xiàn) 在登陸界面有兩種語言可以 為 用戶 服務(wù) ，一是中文，而是英文。選擇兩種語言的功能和界面背景實際上都是完全一致的，只是語言文字不同。 如 圖 3 為選擇中文的界面： 第 10 頁 共 26 頁 圖 3 登陸界面（中文） 如果點擊的是 ENGLISH, 則 登陸界 面 為圖 4 圖 4 登陸界面（英文） 這里的兩個界面并非通過兩個窗體單獨實現(xiàn)而是共用一個窗體，通過判斷i 的值，對 label 中的 CAPTION 進行相應(yīng)的中文和英文賦值。后面的操作界面同樣也是采用這種方法，就不再做英文的界面介紹。這里把默認的語言選擇為中文直接在窗體編輯菜單中對 CAPTION 進行了相應(yīng)賦值。如果為英文則需執(zhí)行下面的語句，此后的每個界面語言確定及實現(xiàn)都是通過采取這個方法 Private Sub Form_Load() If i = 1 Then //判斷 i的值 如果為 1則進行英文賦值 = Do you want to continue?Please choose! = other service = Cancel End If End Sub 第 11 頁 共 26 頁 在窗體中我們首先來判斷用戶輸入的卡號和密碼是否符合我們的規(guī)定?？ㄌ枮?8位密碼為 6 位 Private Sub Command1_Click() //當(dāng)我們點下確認按鈕時 If i = 2 Then If Len() 8 Or Len() 6 Then // 比較卡號是否為 8 位及密碼是否為 6 位 = 沒有正確輸入卡號或密碼 = = Else Call Checkuser //這里是調(diào)用主模塊中的身份驗證函數(shù)，在后面的窗體實現(xiàn)中都是通過 CALL 語句來直接調(diào)用相應(yīng)函數(shù)的 End If End If //以下為用戶選擇英語的代碼，和 選擇中文時是一樣的，在后面的介紹中將不在引用英語的代碼 If i = 1 Then If Len() 8 Or Len() 6 Then = Please Input Correct Cardnumber Or Password = = Else Call Checkuser End If End If End Sub 在主模塊 MODEL1中身份驗證函數(shù)代碼為 Public Sub Checkuser() 定義 Checkuser 函數(shù) Dim strr As String Set CON = New strr = Provider=。Password= 。Persist Security 第 12 頁 共 26 頁 Info=True。User ID=sa。Initial Catalog=user。Data Source=X\ATM// 這段語句采用了動態(tài)連接數(shù)據(jù)庫的方法與數(shù)據(jù)庫 USER進行連接，采用的是 SQL OLEDB應(yīng)用接口。 strr u = 把卡號賦給 u str = select 密碼 from 用戶信息 where 卡號 =39。 amp。 u amp。 39。 //SQL數(shù)據(jù)庫查詢語句，根據(jù)卡號把所查詢的密碼數(shù)據(jù)放入 str 中 Set RS = New //設(shè)置 RS 為新的 Recordset 對象 str, CON, adOpenDynamic, adLockPessimistic If = True Then //當(dāng)前記錄指針無效，說明不存在這個用戶 If i = 2 Then = 沒有此用戶，請檢查并重新輸入！ u = // u 重新設(shè)置為空 接下來就是比較從所輸卡號中取出的密碼與用戶輸入的密碼進行比較 If Trim((0)) = Trim() Then 39。//檢驗密碼是否相同 //密碼相同轉(zhuǎn)入服務(wù)界面 Unload Form2 在窗體中直接通過程序代碼調(diào)用在模塊中的 Checkuser 函數(shù)即可，后面的界面都是采用這種方法，都不再進行仔細說明。 主界面實現(xiàn) 圖 5 服務(wù)界面 第 13 頁 共 26 頁 在主界面中 (如圖 5)有 5 個服務(wù)按鈕 設(shè)置了一個整型變量 j，在點擊各種服務(wù)的同時 ,J 也被賦予了不同的數(shù)值，用以后面記錄用戶操作信息，寫入數(shù)據(jù)庫。 Private Sub Command1_Click() If Option1(0).Value = True Then j = 1 Unload Form4 Else If Option1(1).Value = True Then j = 2 Unload Form4 Else If Option1(2).Value = True Then j = 3 Unload Form4 Else If Option1(4).Value = True Then J = 5 Unload Form4 Else If Option1(3).Value = True Then j = 4 Unload Form4 Call Query = u 查詢 余額功能的 實現(xiàn) 查詢功能的實現(xiàn)相對來說就非常簡單了，直接連接數(shù)據(jù)庫，搜索到相應(yīng)的數(shù)據(jù)后輸出到文本框中即可 (如圖 6) 在主模塊中的查詢函數(shù)： 第 14 頁 共 26 頁 Public Sub Query() Dim str2 As String str2 = select * from 用戶信息 where 卡號 =39。 amp。 u amp。 39。 Set RS = New 圖 6 查詢界面 str2, CON, adOpenDynamic, adLockPessimistic = (金額 ) 取款 功能的 實現(xiàn) 圖 7 取款界面 取款函數(shù)相對于其他函數(shù)就相對復(fù)雜一點，因為有很多情況需要判斷，列如只能取 50與 100 的整數(shù)，就需要對 50 取模，還需要判斷所取金額是否大于卡上的余額，余額不足那也是沒法成功取款的。用戶取了一定數(shù)量的錢后還需要把新的數(shù)據(jù)重新寫入數(shù)據(jù)庫。 Public Public Sub TakeMoney() 第 15 頁 共 26 頁 Dim str1 As String str1 = select * from 用戶信息 where 卡號 =39。 amp。 u amp。 39。 Set RS = New str1, CON, adOpenDynamic, adLockPessimistic 前面也是對數(shù)據(jù)庫進行連接，并把用戶信息根據(jù)所輸卡號輸入到記錄集中。 If i = 2 Then //在中文服務(wù)下 m = If m = Then //m 為空，說明用戶沒有輸入金額 k = 0 //這里的 K 為全局變量 ，在后面數(shù)據(jù)庫對用戶操作表進 行寫入時非常有用， k的值標(biāo)識操作的成功與否， k=0 操作失敗， k=1 則為成功 = 請您正確輸入金額！ Exit Sub End If If m Mod 50 0 Then // 所輸金額不能被 50 整除 k = 0 = 請您正確輸入金額！ = Else If (金額 ) CCur(m) Then //用戶 卡中金額小與輸入的金額 k = 0 = 金額不足！ = Exit Sub Else k = 1 //排除所有不正確情況，即輸入正確，則對 k 賦值為 1 標(biāo)識操作成功 Money = (金額 ) (金額 ) = (Money ) // 表中用戶金額減去所取金額 // 將新的數(shù)據(jù)寫入所取位置 第 16 頁 共 26 頁 Call InsertDatabase 39。//把操作插入用戶操作表，這個函數(shù)將在后面介紹其功能 Unload Form5 = 交易成功，謝謝您的使用，請拿好您的鈔票！ End If End If 轉(zhuǎn)賬 功能的 實現(xiàn) 轉(zhuǎn)帳功能要求用戶輸入對方卡號及轉(zhuǎn)帳金額，并且對方卡號也必須是在數(shù)據(jù)庫中存在的卡號，否則會出錯，這里對數(shù)額上沒有要求，并不要求是整數(shù)，可隨意輸入轉(zhuǎn)帳金額 。 圖 8 轉(zhuǎn)賬 界面 在程序?qū)崿F(xiàn)中，同樣要對用戶輸入的信息要驗證其正確性，對方卡號必須真實存在，所輸入金額不得超過卡上金額等等。 Public Sub Trans() Dim str3 A