流程

注册—判断卡号是否为空—为空，输入卡号—不为空，连接数据库判断是否存在—存在，进行金额查询—不存在，注册信息存入存盘—清除信息，为了用户方便，一键清除所有的信息
注意：combobox不能手动输入，只能选择；存盘存入信息有条件限制，充值有条件：输入的金额不能低于余额

挫折

所遇到的问题，其实都是小问题，但总是出错还会卡很久；具体问题如下：
1）未找到数据或方法，原来是我的窗体没加frm
2)comboBox控件显示有问题不能出现下拉内容，原来是Form打错了。
3）类型不匹配：发现student打错了，最终原因mrc后面没有EOF
4）块If没有end if
5）子函数未定义：If not testtxt(txtcardno.text) then 打错了
6）类型不匹配：同样的语法位置也很讲究
7）实时错误3021：连接Basicdate_info有问题，代码没问题，改了逻辑，还是报错，最终发现可能是limitCash = ‘" & Trim(txtCash.Text) & "’"这句话与If mrc2!limitcash > Trim(txtCash.Text) Then有冲突。
8）在文本框的属性列表中把multiline 改为 true，把.ScrollBars 改为 3

代码展示

  ## 充值部分

txtsql2 = “select * from basicdata_info”
Set mrc2 = ExecuteSQL(txtsql2, msgtext)

If mrc2!limitcash > Trim(txtCash.Text) Then
MsgBox “金额小于最低余额充值！”, 48, “警告”
Exit Sub
Else
’ End If
mrc1.AddNew
mrc1.Fields(0) = txtcardno.Text
mrc1.Fields(1) = txtstudentNo.Text
mrc1.Fields(2) = txtName.Text
mrc1.Fields(3) = cbSex.Text
mrc1.Fields(4) = txtdepartment.Text
mrc1.Fields(5) = txtgrade.Text
mrc1.Fields(6) = txtClass.Text
mrc1.Fields(7) = txtCash.Text
mrc1.Fields(8) = txtexplain.Text
mrc1.Fields(9) = “” & Trim(UserName) & “”
mrc1.Fields(10) = cbStatus.Text
mrc1.Fields(11) = “未结账”
mrc1.Fields(12) = Date
mrc1.Fields(13) = Time
mrc1.Fields(14) = cbType.Text
txtrecharge.Text = txtCash.Text
mrc1.Update

'添加注册时充值记录
txtsql1 = "select * from Recharge_Info"
Set mrc1 = ExecuteSQL(txtsql1, msgtext)
mrc1.AddNew
mrc1!studentno = txtstudentNo.Text
mrc1!cardno = txtstudentNo.Text
mrc1!addmoney = txtCash.Text
mrc1!Date = Date
mrc1!Time = Time
mrc1!UserID = "" & Trim(UserID) & ""
mrc1!Status = "未结账"
mrc1.Update

MsgBox "注册成功", 48, "提示"

'注册成功后清除文本框

cbSex.ListIndex = -1   '移除按钮不可用
cbStatus.ListIndex = -1
cbType.ListIndex = -1

txtcardno.Text = ""
txtstudentNo.Text = ""
end if 

总结

记是永远记不住的