機房充值的窗體非常簡單，但是還是有幾個點需要注意：
1.乙個加法
充值之後，需要乙個文字框來顯示現在的餘額，那麼需要將現在充值的餘額加上資料庫中的餘額。我定義了乙個變數來存放臨時金額，**如下：
dim depositmoney as string '存放臨時金額'充值的過程
depositmoney = trim(mrc.fields(7)) '將餘額放到臨時金額裡
depositmoney = val(depositmoney) + val(txtmoney.text) '文字框輸入的金額+ 資料庫中的金額
'顯示出來
txtmessage.text = "您已為卡" & txtcardno.text & "成功充值" & txtmoney.text & ",此卡當前餘
額為：" & depositmoney & ""2.更新資料庫中的內容的sql語句
有的時候你充值了，但是資料庫中還是那麼多金額，沒有增加，這時候你需要注意你的sql語句是不是正確。
txtsql = "update student_info set cash= '" & depositmoney & "' where cardno= '"& trim(txtcardno.text) & "'"
set mrc = executesql(txtsql, msgtext)
機房收費之充值窗體
自學生系統之後的另乙個系統，不過這次沒有原始碼，需要自己去慢慢摸索，不能著急，在此期間也出了好多問題，下面來看看我弄了一下午的充值窗體吧 充值窗體功能 為卡充值金額，並對最新餘額進行更新。步驟 1 輸入卡號後，判斷該卡是否未註冊或者已登出 通過學生資訊表查詢 有個提示。2 輸入充值金額後判斷該金額是...
機房收費系統之充值窗體
感覺充值窗體比較簡單，整體上就是乙個資料庫寫入資料的操作，通過幾個判斷就可以把資料寫入資料庫了。一 邏輯圖 二 部分 1.如何判斷框內資料和資料庫資料大小 if val txtaddmoney.text mrc.fields 5 then txtaddmoney.setfocus txtaddmon...
機房收費系統之充值窗體
流程圖 判斷是否輸入卡號 if testtxt txtcardno.text false then msgbox 請輸入卡號！0 48,提示 txtcardno.setfocus exit sub end if 判斷是否輸入充值金額 if testtxt txtaddmoney.text false...