充值和退卡窗體在界面上非常相似，當(dāng)然其過程也有點(diǎn)類似，那就放在一起來總結(jié)吧，先上圖：

在充值的時候也需要判斷充值的金額是否大于最低金額：

If Val(txtaddmoney.Text) < Val(mrc.Fields(5)) ThenMsgBox "充值金額不能少于最小金額！", vbOKOnly + vbExclamation, "警告"txtaddmoney.Text = ""txtaddmoney.SetFocusEnd if

這是充值的流程圖，而退卡則省略了上圖中對于金額的判斷，因?yàn)榻痤~是退卡時查詢數(shù)據(jù)庫然后才顯示出來的，它的屬性是只讀的。但是有一點(diǎn)注意注意的是退卡需要先判斷此卡號是否還在上機(jī)，如果還是上機(jī)狀態(tài)，那么需要先讓他下機(jī)，結(jié)賬，然后再給它退卡，退完卡還要在學(xué)生表里把這個卡號的狀態(tài)變?yōu)椴辉偈褂谩?/p>

?

?

?

《新程序員》：云原生和全面數(shù)字化實(shí)踐50位技術(shù)專家共同創(chuàng)作，文字、視頻、音頻交互閱讀

總結(jié)

以上是生活随笔為你收集整理的机房收费--充值和退卡的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。