退卡是將學生表中卡號信息刪除，并將status列改為不使用。?

退卡邏輯思路如下：

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

判斷卡號

If Trim(txtCardNo.Text) = "" ThenMsgBox "卡號為空，請輸入卡號", , "提示"txtCardNo.SetFocusExit SubEnd If

判斷該卡號是否下機

txtSQL1 = "select * from OnLine_info where cardno='" & Trim(txtCardNo.Text) & "'"Set mrc1 = ExecuteSQL(txtSQL1, Msgtext1)If mrc1.EOF = False ThenMsgBox "該卡號沒有下機，請下機后退卡", , "提示"txtCardNo.Text = ""txtCardNo.SetFocusExit SubEnd If

添加 一行cancelcard 表

txtSQL2 = "select * from cancelcard_info"Set mrc2 = ExecuteSQL(txtSQL2, Msgtext2)With mrc2mrc2.AddNew.Fields(0) = Trim(mrc.Fields(1)).Fields(1) = Trim(mrc.Fields(0)).Fields(2) = Trim(mrc.Fields(7)).Fields(3) = Date.Fields(4) = Time.Fields(5) = Trim(mrcOnwork.Fields(0)).Fields(6) = "不使用".Fields(7) = "未結賬"mrc.Updatemrc2.UpdateEnd With

顯示該卡號信息

a = Val(mrc2.Fields(1))b = Val(mrc2.Fields(2))c = mrc2.Fields(3)d = Val(mrc2.Fields(4))e = Val(mrc2.Fields(5))Text3.Text = "退卡卡號：" & a & vbCrLf & "應退金額:" & b & vbCrLf & "退卡日期:" & c & vbCrLf & "退卡時間：" & Format(Now(), "HH:mm:ss")txtRecharge.Text = btxtSQL3 = "delete from student_info where cardno='" & Trim(txtCardNo.Text) & "'"Set mrc3 = ExecuteSQL(txtSQL3, Msgtext3)MsgBox "退卡成功", , "提示"

?

總結

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

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