模擬atm機(jī)系統(tǒng)軟件的設(shè)計(jì)與開發(fā)—計(jì)算機(jī)(論文)(編輯修改稿)

　

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