机房收费系统 —— 退卡

退卡逻辑

   判断卡号是否为空（是否输入）
          判断有无卡号（是否注册）
              判断卡号是否正在上机（上机时不能退卡）
                  退卡
                    更新数据库

注意事项

###换行符的添加

因为在窗体中需要有一个文本框来显示“您已退卡，卡内余额是****8”但是句子太长，不方便用户观看和了解，所以需要换行。需要 & Chr(13) & Chr(10) & 来换行，具体例子是：

  Dim depositmoney As String
               depositmoney = Trim(mrc.Fields(7))   '将卡里余额放到临时存放金额里
              txtMessage.Text = "您已成功退卡" & txtcardno.Text & "," & Chr(13) & Chr(10) & "退  卡金额为" & depositmoney & ""

###更新数据

        '对数据库进行操作，对上机表：删除信息
         txtsql = "delete from online_info where cardno = '" & txtcardno.Text & "'" ' 删除该用户上机信息
        Set mrc1 = executeSQL(txtsql, msgtext) 

       '对上机表操作
       Dim State As String '修改学生表信息，备注该学生已不再使用卡
    State = "不使用"
    txtsql = "update Student_Info set state  = '" & State & "' where cardno = '" & txtcardno.Text & "'"
    Set mrc = executeSQL(txtsql, msgtext)

      

逻辑很重要，加油吧！