【導讀】模擬ATM機系統(tǒng)軟件的設計與開發(fā)優(yōu)秀畢業(yè)論文。二十世紀末隨著金融服務的迅速發(fā)展銀行提款機已經發(fā)展成了各大銀行金。融服務戰(zhàn)略中的重要一環(huán)同時銀行提款機系統(tǒng)也經歷了持續(xù)的更新?lián)Q代為廣大。用戶提供了更加便捷和人性化的服務模擬ATM系統(tǒng)就是對提款機操作系統(tǒng)在個。人PC上及主流操作平臺上的編程實現(xiàn)其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護。以及前端應用程序的開發(fā)制作兩個方面對于前者要求建立起數(shù)據(jù)一致性和完整。性強數(shù)據(jù)安全性好的庫而對于后者則要求應用程序功能完備易使用界面友好等。特點本系統(tǒng)VB60微軟SQLSERVER2021實現(xiàn)了用戶身份的認證取款轉帳交易明細。的查詢等功能分析并解決實現(xiàn)中遇到的若干問題例如數(shù)據(jù)庫資料如何實現(xiàn)更新。61系統(tǒng)測試及運行結果23. 62系統(tǒng)有待改進之處23. 的辦公室雖然Docutel的ATM機器使用了現(xiàn)代的磁條技術但和今天的技術相比還。交易的紀錄直到20世紀70年代初ATM技術才發(fā)展到我們今天的水平起初ATM. 主要用來處理信用卡

　　

【正文】 rm3Label1Caption 金額不足以轉帳請你重新輸入 Form7Text2Text Call InsertDatabase Exit Sub Else k 1 Unload Form7 Form10Text1Text transcard Form10Text2Text transmoney Form10Show End If 在排除了不正確的情況后將轉入確認信息界面在確認信息窗體中將調用trans2 函數(shù)對交易成功后的數(shù)據(jù)進行更新 圖 9 確認界面 Public Sub Trans2 Dim str4 As String str4 select from 用戶信息 where 卡號 u Set RS New ADODBRecordset RSOpen str4 CON adOpenDynamic adLockPessimistic RSFields 金額 RSFields 金額 – transmoney 對轉出錢的卡號減少相應數(shù)額 RSUpdate RSClose Dim str5 As String str select from 用戶信息 where 卡號 transcard Set RS New ADODBRecordset RSOpen str5 CON adOpenDynamic adLockPessimistic RSFields 金額 RSFields 金額 transmoney 所轉入的卡號加上相應數(shù)額 RSUpdate RSClose If i 2 Then Form9Label1Caption 恭喜您轉帳成功 Else Form9Label1Caption Transfered successfully End If Form11Show Form9Show Form9SetFocus Call InsertDatabase 調用數(shù)據(jù)庫寫入函 數(shù) End Sub 實現(xiàn) 圖界面 在密碼修改界面需要用戶兩次輸入的密碼相一致否則不能進行修改密碼兩次輸入正確后程序將新的密碼寫入原來位置 Public Sub changepwd If i 2 Then If Len Form6Text1Text 6 Or Len Form6Text1Text 6 Then 比較兩次密碼長度是否符合 6 位的要求 k 0 Form3Show Form3Label1Caption 請正確輸入 6 位密碼 Form6Text1Text Form6Text2Text Call InsertDatabase Else If Form6Text1Text Form6Text2Text Then 比較兩次輸入是否一致 k 0 Form3Show Form3Label1Caption 您兩次輸入的密碼不一致請檢查 Form6Text1Text Form6Text2Text Call InsertDatabase Else str update 用戶信息 set [密碼 ] Form6Text1Text where 卡號 u Set RS New ADODBRecordset RSOpen str CON adOpenDynamic adLockPessimistic k 1 Call InsertDatabase If i 2 Then Form9Show Form9Label1Caption 密碼修改成功請記好您的新密碼 Else Form9Show Form9Label1Caption Password Be changed successfully End If Unload Form6 Form11Show Form9SetFocus End If End If 查詢交易明細實現(xiàn) 圖 11 查詢明細界面 在查詢交易明細界面中最重要的就是運用到了 RECORDSET記錄集 EOF屬性通過判斷 BOF 的真值來判斷是否取到了記錄集合并把所需要的數(shù)據(jù)逐條到文本框中在 TEXT 文本框中的 MULTILINE 屬性要設為 TRUE 使輸出的文字能夠自動換行 Public Sub Query2 Dim str7 As String Set RS New ADODBRecordset str7 select 時間操作取款金額轉帳金額轉帳卡號是否成功 from 用戶操作表 where 卡號 u 只搜索需要的單元 RSOpen str7 CON adOpenKeyset adLockReadOnly 這里把對數(shù)據(jù)的讀取設為只讀方式 If Not RSEOF Then 如果 RSEOF 值為假則說明得到了所需要的記錄集合為真則當前記錄指針無效 Form12Text1Text RSGetString 用 RECORDSET對象的 GetString方法來得到記錄集中的字符串并輸出在文本框中 End If End Sub 其余界面及函數(shù) 在完成了所選擇的服務后都會出現(xiàn)一個繼續(xù)服務的界面用以選擇退出還是返回到服務選擇界面繼續(xù)進行其他服務 圖 12 繼續(xù)服務界面 在很多函數(shù)的運用中都要調用 InsertDatabase 函數(shù)用以對數(shù)據(jù)庫中用戶操作信息表進行用戶操作信息的寫入包括操作類型操作時間操作金額轉帳卡號轉帳金額以及是否成功等等這里就介紹其中對取款操作寫入的代碼即可其余的都是一樣的 Public Sub InsertDatabase str select from 用戶操作表 Set RS New ADODBRecordset RSOpen str CON adOpenDynamic adLockPessimistic If j 1 And k 1 Then 這里 j 就是前面所選擇的服務的標識 RSAddNew RSFields 卡號 u RSFields 操作 取款 RSFields 時間 Now RSFields 取款金額 Val Form5Text1Text RSFields 是否成功 是 RSUpdate RSClose ElseIf j 1 And k 0 Then RSAddNew RSFields 卡號 u RSFields 操作 取款 RSFields 時間 Now RSFields 取款金額 Val Form5Text1Text RSFields 是否成功 否 RSUpdate RSClose 系統(tǒng)運行結果及工作總結 系統(tǒng)測試及運行結果 系統(tǒng)測試全部功能都能夠使用也 達到了預期的效果運行速度和穩(wěn)定性都不錯界面設計經過細細的調整之后人性化的設計基本達到了要求 系統(tǒng)有待改進之處 因為系統(tǒng)只是要求模擬并不牽涉到真實的一些處理所以很多真實的應用并不沒有加在里面一些與真實的自動化機器的接口連接并沒有做到在程序運行時有時會因為輸入的數(shù)字過大而出現(xiàn)內存溢出程序崩潰現(xiàn)象經過調試改正已經有了很大改觀但仍然存在不可知的錯誤 系統(tǒng)中遇到的問題及解決方法 首先遇到的問題就是系統(tǒng)分析不足的問題在大致考慮了一些功能后就開始動手做想到哪里做到哪里一度陷入了困境其后從新開始理清了思緒畫好了流程圖在做隨 即順暢了許多其次就是與數(shù)據(jù)庫連接上的問題由于對 VB 與 SQL 連接的不熟走了很多彎路使程序設計需要用到數(shù)據(jù)庫時復雜化過后通過老師同學指點采用了 ADO 控件的動態(tài)連接才解決一個頭疼的問題其后的問題都是程序中邏輯性的一些小問題大多數(shù)都是一些遺漏導致程序死循環(huán)或者是數(shù)據(jù)庫寫入不去作用等等都是通過仔細重新分析檢查一一解決在所有代碼編寫完成后再一一驗證其功能修正了很多不足也使得程序慢慢完善起來 第 25 頁 共 26 頁 退出 查詢明細 修改密碼 轉賬 取款 查詢余額 選擇服務 身份驗證 登陸