流程圖
'判斷是否輸入卡號
if testtxt(txtcardno.text) = false then
msgbox "請輸入卡號！", 0 + 48, 提示
txtcardno.setfocus
exit sub
end if
'判斷是否輸入充值金額
if testtxt(txtaddmoney.text) = false then
msgbox "請輸入充值金額！", 0 + 48, 提示
txtaddmoney.setfocus
exit sub
end if
'查詢卡號是否存在
txtsql = "select * from card_info where cardno='" & trim(txtcardno.text) & "' and status='使用'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof = true and mrc.bof = true then
msgbox "此卡號不存在或已不再使用！", 0 + 48, 提示
txtcardno.text = ""
txtcardno.setfocus
exit sub
end if
'判斷充值金額是否大於最低充值金額
if txtaddmoney.text >= 5 then
'新增到充值表
txtsql = "insert into recharge_info(cardno,addmoney,userid) values('" & trim(txtcardno.text) & "','" & trim _
(txtaddmoney.text) & "','" & username & "')"
set mrc = executesql(txtsql, msgtext)
txtsql = "select * from card_info where cardno='" & trim(txtcardno.text) & "'"
set mrc = executesql(txtsql, msgtext)
a = mrc!cash
b = val(mrc!cash) + val(txtaddmoney.text)
'更新card表中的餘額
txtsql = "update card_info set cash= '" & b & "'where cardno='" & trim(txtcardno.text) & "'"
set mrc = executesql(txtsql, msgtext)
'文字框中的內容
txtcomment.text = "充值卡號：" & txtcardno.text & chr(13) & chr(10) & "上次卡內餘額:" & a & vbcrlf & "現在卡內的餘額:" _
& b & vbcrlf & "充值日期：" & now() & vbcrlf & "充值老師:" & username
msgbox "充值成功！", 0 + 48, 提示
else
msgbox "單次充值金額不能低於5元!", 0 + 48, 提示
txtaddmoney.text = ""
txtaddmoney.setfocus
end if
end sub
小知識點
vb中文字框如何強制換行
1.把文字框的multiline屬性改為true（可以在屬性視窗中修改，也可以通過**來實現）
text1.multiline = true
2. & vbcrlf & 或者使用 & chr(13) & chr(10) 或者+ vbcrlf +
它最早的用途是在印表機。
chr(13)是回車符，將列印頭移至行首
chr(10)是換行符，走紙一行。
windows延續了這種方法。
機房收費系統之充值窗體
感覺充值窗體比較簡單，整體上就是乙個資料庫寫入資料的操作，通過幾個判斷就可以把資料寫入資料庫了。一 邏輯圖 二 部分 1.如何判斷框內資料和資料庫資料大小 if val txtaddmoney.text mrc.fields 5 then txtaddmoney.setfocus txtaddmon...
機房收費之充值窗體
自學生系統之後的另乙個系統，不過這次沒有原始碼，需要自己去慢慢摸索，不能著急，在此期間也出了好多問題，下面來看看我弄了一下午的充值窗體吧 充值窗體功能 為卡充值金額，並對最新餘額進行更新。步驟 1 輸入卡號後，判斷該卡是否未註冊或者已登出 通過學生資訊表查詢 有個提示。2 輸入充值金額後判斷該金額是...
機房收費 充值
機房充值的窗體非常簡單，但是還是有幾個點需要注意 1.乙個加法 充值之後，需要乙個文字框來顯示現在的餘額，那麼需要將現在充值的餘額加上資料庫中的餘額。我定義了乙個變數來存放臨時金額，如下 dim depositmoney as string 存放臨時金額 充值的過程 depositmoney tri...