机房收费- 充值

    机房充值的窗体非常简单，但是还是有几个点需要注意：

 

     

 

1.一个加法

   充值之后，需要一个文本框来显示现在的余额，那么需要将现在充值的余额加上数据库中的余额。我定义了一个变量来存放临时金额，代码如下：

 

 

Dim depositmoney As String   '存放临时金额

 

 '充值的过程
    depositmoney = Trim(mrc.Fields(7))   '将余额放到临时金额里
    depositmoney = Val(depositmoney) + Val(txtmoney.Text)  '文本框输入的金额+ 数据库中的金额
    
    '显示出来
    txtmessage.Text = "您已为卡" & txtcardno.Text & "成功充值" & txtmoney.Text & ",此卡当前余

额为：" & depositmoney & ""

 

 

   这里我遇到一个特别逗的问题，就是我一直充值，没有发现它只是单纯的字符相加，而不是数值相加，结果最后充值了30多万，后来发现了这个问题，然后知道了如何把字符串转化成数值相加。

   
 

 

2.更新数据库中的内容的SQL语句

有的时候你充值了，但是数据库中还是那么多金额，没有增加，这时候你需要注意你的SQL语句是不是正确。

txtsql = "update student_Info set cash= '" & depositmoney & "' where cardno= '"

 & Trim(txtcardno.Text) & "'"      
    Set mrc = executeSQL(txtsql, msgtext)

 

 

 

 

把思路屡清楚就很简单啦，加油吧！