前言：

充值和退卡類似，退卡要考慮的比充值要多，重點說一下退卡。

---

退卡的邏輯：

Created with Rapha?l 2.1.0 退卡窗體 文本框是否為空 卡號是否存在，否清空 txtCard（連接student表） 卡號是否正在上機( 更新學生表中信息， 更新cancelCard表中信息 退卡成功 yes yes yes

---

退卡和充值類比，充值是將充值信息更新到student表中，在Online表中添加數據；退卡是將學生表中卡號信息刪除，并將status列改為不使用；
更新cancelCard表中信息。

---

問題及重點代碼：
1.vbCrLf=Chr(13) & Chr(10) 回車+換行符
2.文本框多行顯示：
Multiline = True 意思是可決定一個控件可以接受多行文本

'判斷是否輸入卡號If Not Testtxt(txtCard.Text) ThenMsgBox "請輸入卡號!", vbOKOnly, "提示"Exit SubEnd If'連接student表判斷卡號是否存在txtSQL = "select * from student_Info where student_Card = '" & Trim(txtCard.Text) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF ThenMsgBox "該卡號不存在!", vbOKOnly, "提示"Exit SubEnd If'判斷卡號是否正在上機txtSQL2 = "select * from online_Info where online_Card = '" & Trim(txtCard.Text) & "'"Set mrc2 = ExecuteSQL(txtSQL2, MsgText)If mrc2.EOF = False ThenMsgBox "該卡號正在上機!", vbOKOnly, "提示"Exit SubEnd IfcancelCash.Text = Val(Trim(mrc.Fields(7)))a = txtCardb = cancelCashc = Dated = Time'vbcrlf是換行符Text1.Text = "卡號:" & a & vbCrLf & vbCrLf & "卡內余額:" & b & vbCrLf & vbCrLf & "退卡日期:" & c & vbCrLf & vbCrLf & "退卡時間:" & d & vbCrLf & vbCrLftxtSQL = "select * from student_Info where student_Card = '" & Trim(txtCard.Text) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL1 = "select * from cancelCard_Info"Set mrc1 = ExecuteSQL(txtSQL1, MsgText)mrc1.AddNewmrc1.Fields(0) = Trim(txtCard.Text)mrc1.Fields(2) = Trim(cancelCash.Text)mrc1.Fields(3) = Datemrc1.Fields(4) = Timemrc1.Fields(5) = "12"mrc1.Fields(6) = "未結賬"mrc1.Updatemrc1.Closemrc.Fields(10) = "未使用"mrc.UpdateMsgBox "退卡成功!", vbExclamation, "提示"txtCard.Text = ""cancelCash.Text = ""Text1.Text = "" Me.Hide End Sub

總結

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

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