VB高手求助！怎么实现充值扣款功能？！

来源：百度知道 编辑：UC知道 时间：2024/06/17 22:47:21
做一个校园卡系统（VB+Acess），遇到问题，想高手求助！
要实现校园卡的充值与扣款
现有数据表Money
校园卡编号（文本） 钱款金额（数字）
现在窗体有两个text，两个command（一个是充值，一个是扣款）
要求：
1. Money为空，例如text1输入“001”（校园卡编号）text2输入“100”。按“充值”，写入表Money中
2. 如果校园卡编号“001”刚才的记录“001，100”已存在，再“001，50”（再充值50），按“充值”，原表Money中记录改为“001，150”
3. 相同，输入“001，80” (扣款80)，按“扣款”，原表Money中记录改为 “001，70”

请给我详细的VB编程语句，谢谢~
附：窗体图

dim con as new adodb.connection
dim rec as new adodb.recordset
con.connectionstring="省略"
con.open
rec.cursorlocation = aduseclient
private sub command1_click()'充值
rec.open "select * from memory where memory.id ='" & text1.text & "'" ,con,adopenkeyset ,adlockoptimistic
if rec.recordcount =0 then '如果没有此编号
rec.addnew
rec.field(0)= text1.text
rec.field(1) = val(trim(text2.text))
rec.update
else
rec.field(1) = rec.field(1)+val(trim(text2.text))
rec.update
end if
rec.close
end sub

private sub command2_click()'扣款
rec.open "select * from memory where memory.id ='" & text1.text & "'" ,con,adopenkeyset ,adlockoptimistic
if rec.recordcount =0 then '如果没有此iD
msgbox "无法完成扣款"
else
if rec.field(1) < val(trim(text2.text)) then
msgbox &qu