充值和退卡窗體在界面上非常相似，當然其過程也有點類似，那就放在一起來總結吧，先上圖：

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

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

這是充值的流程圖，而退卡則省略了上圖中對于金額的判斷，因為金額是退卡時查詢數據庫然后才顯示出來的，它的屬性是只讀的。但是有一點注意注意的是退卡需要先判斷此卡號是否還在上機，如果還是上機狀態，那么需要先讓他下機，結賬，然后再給它退卡，退完卡還要在學生表里把這個卡號的狀態變為不再使用。

?

?

?

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。