今天第一次驗(yàn)收，卻出現(xiàn)了很多問(wèn)題，主要就是在涉及到錢(qián)的問(wèn)題上就比較混亂，出現(xiàn)這個(gè)問(wèn)題的原因也就是因?yàn)楫?dāng)時(shí)思路沒(méi)有理清楚就著急實(shí)現(xiàn)功能。出來(lái)混遲早要還的，今天自己又再一次驗(yàn)證了這個(gè)理論。已經(jīng)退了的卡，為什么還能上機(jī)，而且卡里還有錢(qián)？出現(xiàn)這種情況自己也大吃了一驚，后來(lái)又重新理了一遍，現(xiàn)在應(yīng)該就沒(méi)有問(wèn)題了。

下面就談?wù)勗趺赐丝?#xff1a;首先是進(jìn)行一系列的判斷，判斷卡號(hào)是否為空，是否為數(shù)字，接著進(jìn)行查詢(xún)，然后再進(jìn)行判斷，判斷卡號(hào)是否存在，是否已經(jīng)退卡，是否正在上機(jī)，最后就是對(duì)數(shù)據(jù)的進(jìn)行操作，更新student_Info表中的status字段為“不使用”，cash=0,并將相應(yīng)的student_Info表中的部分信息插入到CancelCard_Info表中。

具體思路如圖
代碼如下： '判斷卡號(hào)是否為空If Not Testtxt(txtCardno.Text) ThenMsgBox "請(qǐng)輸入卡號(hào)!", vbOKOnly + vbExclamation, "提示"txtCardno.SetFocusExit SubEnd If '新建查詢(xún)strSQL = "select status,studentNo,Cash,UserID,Ischeck from student_Info where cardno = '" & txtCardno.Text & "'"Set mrc = ExecuteSQL(strSQL, msgText)studentNo = Trim(mrc.Fields(1))Cash = mrc.Fields(2)UserID = mrc.Fields(3)Ischeck = mrc.Fields(4) '判斷是否注冊(cè)If mrc.EOF ThenMsgBox "沒(méi)有該卡號(hào)！", vbOKOnly + vbExclamation, "提示"txtCardno.SetFocustxtCardno.Text = ""Exit Sub '判斷是否退卡ElseIf Trim(mrc.Fields(0)) = Trim("不使用") ThenMsgBox "此卡已退卡！", 48, "提示"txtCardno.SetFocustxtCardno.Text = ""Exit SubElse '判斷是否正在上機(jī)strSQL = "select * from Online_Info where cardno= '" & txtCardno.Text & "'"Set mrcO = ExecuteSQL(strSQL, msgText)If Not mrcO.EOF ThenMsgBox "此卡正在上機(jī)，請(qǐng)先下機(jī)再退卡！", 48, "提示"txtCardno.SetFocustxtCardno.Text = ""Exit SubEnd If '更新student_Info表strSQL = "update student_Info set status = '" & "不使用" & "'" & "where cardno = '" & txtCardno.Text & "'"Set mrc2 = ExecuteSQL(strSQL, msgText)strSQL = "update student_Info set cash= '" & Val(0) & "'" & "where cardno = '" & txtCardno.Text & "'"Set mrcS = ExecuteSQL(strSQL, msgText) '把數(shù)據(jù)插入到CancelCard_Info表strSQL = "select * from CancelCard_Info"Set mrcC = ExecuteSQL(strSQL, msgText)mrcC.AddNewmrcC.Fields(0) = studentNomrcC.Fields(1) = txtCardno.TextmrcC.Fields(2) = CashmrcC.Fields(3) = DatemrcC.Fields(4) = TimemrcC.Fields(5) = UserIDmrcC.Fields(6) = IscheckmrcC.UpdatemrcC.ClosetxtReturnAmount.Text = CashtxtMessage.Text = "退款卡號(hào):" & txtCardno.Text & vbCrLf & vbCrLf & _"應(yīng)退款金額:" & Cash & vbCrLf & vbCrLf & _"退款日期:" & CancelDate & vbCrLf & vbCrLf & _"退款時(shí)間:" & CancelTime & vbCrLf & vbCrLf & _"辦理退卡老師:" & UserIDMsgBox "退卡成功！", vbOKOnly + vbExclamation, "提示"End If最后在往CancelCard_Info表中插入數(shù)據(jù)是，也可以使用 insert 語(yǔ)句 ? ?strSQL = "insert into CancelCard_Info values('" & studentNo & "','" & txtCardno.Text & "','" & Cash & "','" & Date & _"','" & Time & "','" & UserID & "','" & Ischeck & "')"Call ExecuteSQL(strSQL, msgText)兩種方法實(shí)現(xiàn)的功能是一樣的，但是我們因?yàn)榍脤W(xué)生的問(wèn)題，一開(kāi)始都比較習(xí)慣用select語(yǔ)句，但是insert語(yǔ)句用起來(lái)也挺簡(jiǎn)單的。

總結(jié)

以上是生活随笔為你收集整理的机房收费系统——退卡的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

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