自學生系統之後的另乙個系統，不過這次沒有原始碼，需要自己去慢慢摸索，不能著急，在此期間也出了好多問題，下面來看看我弄了一下午的充值窗體吧
充值窗體功能：為卡充值金額，並對最新餘額進行更新。
步驟：**如下：1、輸入卡號後，判斷該卡是否未註冊或者已登出（通過學生資訊表查詢），有個提示。
2、輸入充值金額後判斷該金額是否小於基本資料表中的最少金額，若低於則進行相應提示。
3、充值成功後將該卡號的充值資訊新增到充值表中並在窗體中顯示出來。
4、對最新餘額進行更新。
option explicit
private sub command1_click()
dim txtsql as string
dim txtsqll as s tring
dim msgtext as string
dim mrc as adodb.recordset
dim mrss1 as adodb.recordset
dim mrss2 as adodb.recordset
dim prebalance as single
dim balance as single
dim leastcash as long
if trim(text1.text) = "" then
msgbox "請輸入卡號", vbokonly, "提示"
text1.setfocus
end if
if trim(text2.text) = "" then
msgbox "請輸入充值金額", vbokonly, "提示"
text2.setfocus
end if
txtsql = "select * from student_info where cardno='" & text1.text & "'"
set mrss1 = executesql(txtsql, msgtext)
if mrss1.eof then
msgbox "此卡沒有註冊或不存在！", vbokonly + vbexclamation, "警告"
text1.text = ""
text1.setfocus
else
prebalance = mrss1.fields(7) '獲取上次餘額
mrss1.close
end if
' number = trim(text2.text) '判斷充值金額是否為空和數字
txtsqll = "select * from basicdata_info"
set mrss2 = executesql(txtsqll, msgtext)
if not mrss2.eof then
mrss2.movelast
leastcash = mrss2.fields(5) 『獲取最低充值金額
end if
' mrss2.close
if val(trim(text2.text)) < leastcash then
msgbox "最少充值為'" & leastcash & "'元！,您充的太少了", vbokonly + vbexclamation, "警告！"
text2.text = ""
text2.setfocus
exit sub
end if
'向資料庫的充值表中新增資訊
txtsql = "select*from recharge_info where cardno='" & text1.text & "'"
set mrc = executesql(txtsql, msgtext)
mrc.addnew
mrc.fields(2) = trim(text1.text)
mrc.fields(3) = trim(text2.text)
mrc.fields(5) = time
mrc.fields(4) = date
mrc.fields(6) = trim(username)
mrc.fields(7) = "未結賬"
mrc.update
txtsql = "select*from student_info where cardno='" & trim(text1.text) & "'"
set mrss1 = executesql(txtsql, msgtext)
if mrss1.eof then exit sub
mrss1.fields(7).value = prebalance + val(text1.text) 』更新餘額
balance=mrss1.fields（7）
mrss1.update
mrss1.close
'顯示資訊
text3.text = "充值卡號：" & trim(text1.text) & vbcrlf _ 『自動換行
& "上次卡內餘額：" & trim(prebalance) & vbcrlf _
& "現在卡內餘額：" & trim(balance) & vbcrlf _
& "充值日期：" & trim(mrc.fields(4)) & vbcrlf _
& "充值教師：" & trim(mrc.fields(6))
mrc.close
msgbox "充值成功啦^~^, vbokonly , "充值成功！"
text1.text = ""
text2.text = ""
text3.text = ""
text1.setfocus
end sub
private sub command2_click()
unload me
end sub
機房收費系統之充值窗體
感覺充值窗體比較簡單，整體上就是乙個資料庫寫入資料的操作，通過幾個判斷就可以把資料寫入資料庫了。一 邏輯圖 二 部分 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...
機房收費 充值
機房充值的窗體非常簡單，但是還是有幾個點需要注意 1.乙個加法 充值之後，需要乙個文字框來顯示現在的餘額，那麼需要將現在充值的餘額加上資料庫中的餘額。我定義了乙個變數來存放臨時金額，如下 dim depositmoney as string 存放臨時金額 充值的過程 depositmoney tri...