模擬atm機(jī)系統(tǒng)軟件的設(shè)計(jì)與開發(fā)優(yōu)秀-全文預(yù)覽
【正文】 了動態(tài)連接數(shù)據(jù)庫的方法與數(shù)據(jù)庫 USER 進(jìn)行連接采用的是 SQL OLEDB 應(yīng)用接口 CONOpen strr u Form2Text1Text 把卡號賦給 u str select 密碼 from 用戶信息 where 卡號 u SQL 數(shù)據(jù)庫查詢語句根據(jù)卡號把所查詢的密碼數(shù)據(jù)放入 str 中 Set RS New ADODBRecordset 設(shè)置 RS 為新 的 Recordset 對象 RSOpen str CON adOpenDynamic adLockPessimistic If RSEOF True Then 當(dāng)前記錄指針無效說明不存在這個用戶 If i 2 Then Form3Show Form3Label1Caption 沒有此用戶請檢查并重新輸入 u u 重新設(shè)置為空 接下來就是比較從所輸卡號中取出的密碼與用戶輸入的密碼進(jìn)行比較 If Trim RSFields 0 Trim Form2Text2Text Then 檢驗(yàn)密碼是否相同 Form4Show 密碼相同轉(zhuǎn)入服務(wù)界面 RSClose Unload Form2 在窗體中直接通過程序代碼調(diào)用在模塊中的 Checkuser 函數(shù)即可后面的界面都是采用這種方法都不再進(jìn)行仔細(xì)說明 主界面實(shí)現(xiàn) 圖 5 服務(wù)界面 在主界面中有 5 個服務(wù)按鈕 設(shè)置了一個整型變量 j 在點(diǎn)擊各種服務(wù)的同時J 也被賦予了不同的數(shù)值用以后面記錄用戶操作信息寫入數(shù)據(jù)庫 Private Sub Command1_Click If Option1 0 Value True Then j 1 Unload Form4 Form5Show Else If Option1 1 Value True Then j 2 Unload Form4 Form6Show Else If Option1 2 Value True Then j 3 Unload Form4 Form7Show Else If Option1 4 Value True Then J 5 Unload Form4 Form12Show Else If Option1 3 Value True Then j 4 Unload Form4 Call Query Form8Show Form8Label2Caption u 查詢實(shí)現(xiàn) 在主模塊中的查詢函數(shù) Public Sub Query Dim str2 As String str2 select from 用戶信息 where 卡號 u Set RS New ADODBRecordset 圖 6 查詢界面 RSOpen str2 CON adOpenDynamic adLockPessimistic Form8Label5Caption RSFields 金額 取款實(shí)現(xiàn) 圖 7 取款界面 取款函數(shù)相對于其他函數(shù)就相對復(fù)雜一點(diǎn)因?yàn)橛泻芏嗲闆r需要判斷列如只能取 50與 100的整數(shù)就需要對 50取模還需要判斷所取金額是否大于卡上的余額余額不足那也是沒法成功取款的用戶取了一定數(shù)量的錢后還需要把新的數(shù)據(jù)重新寫入數(shù)據(jù)庫 Public Public Sub TakeMoney Dim str1 As String str1 select from 用戶信息 where 卡號 u Set RS New ADODBRecordset RSOpen str1 CON adOpenDynamic adLockPessimistic 前面也是對數(shù)據(jù)庫進(jìn)行連接并把用戶信息根據(jù)所輸卡號輸入到記錄集中 If i 2 Then 在中文服務(wù)下 m Form5Text1Text If m Then m 為空說明用戶沒有輸入金額 k 0 這里的 K 為全局變量 在后面數(shù)據(jù)庫對用戶操作表進(jìn)行寫入時非 常有用 k 的值標(biāo)識操作的成功與否 k 0 操作失敗 k 1 則為成功 Form3Show Form3Label1Caption 請您正確輸入金額 Exit Sub End If If m Mod 50 0 Then 所輸金額不能被 50 整除 k 0 Form3Show Form3Label1Caption 請您正確輸入金額 Form5Text1Text Else If RSFields 金額 CCur m Then 用戶卡中金額小與輸入的金額 k 0 Form3Show Form3Label1Caption 金額不足 Form5Text1Text Exit Sub Else k 1 排除所有不正確情況即輸入正確則對 k 賦值為 1 標(biāo)識操作成功 Money RSFields 金額 RSFields 金額 Money Form5Text1Text 表中用戶金額減去所取金額 RSUpdate 將新的數(shù)據(jù)寫入所取位置 RSClose Call InsertDatabase 把操作插入用戶操作表這個函數(shù)將在后面介紹其功能 Unload Form5 Form9Show Form9Label1Caption 交易成功謝謝您的使用請拿好您的鈔票 Form11Show Form9SetFocus End If End If 轉(zhuǎn)賬實(shí)現(xiàn) 轉(zhuǎn)帳功能要求用戶輸入對方卡號及轉(zhuǎn)帳金額并且對方卡號也必須是在數(shù)據(jù)庫中存在的卡號否則會出錯這里對數(shù)額上沒有要求并不要求是整數(shù)可隨意輸入轉(zhuǎn)帳金額 圖界面 在程序?qū)崿F(xiàn)中同樣要對用戶輸入的信息要驗(yàn)證其正確性對方卡號必須真實(shí)存在所輸入金額不得超過卡上金額等等 Public Sub Trans Dim str3 As String transcard Form7Text1Text transmoney Form7Text2Text str3 select from 用戶信息 where 卡號 transcard Set RS New ADODBRecordset RSOpen str3 CON adOpenDynamic adLockPessimistic 數(shù)據(jù)庫連接 If i 2 Then If Form7Text2Text Or Form7Text1Text Then 輸入卡號或輸入金額為空 則出錯 k 0 Form3Show Form3Label1Caption 請你正確輸入 Form7Text1Text Form7Text2Text Call InsertDatabase 每出現(xiàn)一次錯誤就調(diào)用數(shù)據(jù)庫寫入函數(shù)對用戶操作信息表進(jìn)行添加操作信息此函數(shù)將在后面介紹 Exit Sub End If If RSEOF True Then 記錄集中沒有所輸入卡號的用戶 則出錯 k 0 Form3Show Form3Label1Caption 沒有此用戶請檢查并重新輸入 Call InsertDatabase Exit Sub End If If transcard u Then 轉(zhuǎn)帳卡號與實(shí)施轉(zhuǎn)帳操作的卡號相同則出錯 k 0 Form3Show Form3Label1Caption 操作錯誤同帳戶不可以轉(zhuǎn)帳 Call InsertDatabase Exit Sub End If str6 select from 用戶信息 where 卡號 u Set RS New ADODBRecordset RSOpen str6 CON adOpenDynamic adLockPessimistic If RSFields 金額 Val Form7Text2Text Then 判斷輸入金額與卡中余額 k 0 Form3Show Fo
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號-1