机房---注册

注册对基本信息进行一个注册，图为存盘的流程图。

存盘

存盘就是把信息进行保存更新入库撒~
首先要明确我们要用的是哪个表：student_info就是它啦~连接它txtsql = "select * from student_info where cardno = '" & Trim(txtcard.Text) & "'"

• 判断值是否为空（只举一个啦）

If txtcard.Text = "" Then
    MsgBox "卡号不能为空！", vbOKOnly + vbExclamation, "温馨提示"
    txtcard.SetFocus

• 判断卡号是否重复

If mrc.EOF = False Then
    MsgBox "卡号重复请重新输入！", vbOKOnly + vbExclamation, "温馨提示"
    txtcard.Text = ""
    txtcard.SetFocus

• 更新入表

txtsql = "select * from student_info"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    mrc.AddNew
    mrc.Fields(0) = Trim(txtcard.Text)
    mrc.Fields(1) = Trim(txtsid.Text)
    mrc.Fields(2) = Trim(txtName.Text)
    mrc.Fields(3) = Trim(comboSex.Text)
    mrc.Fields(4) = Trim(txtDept.Text)
    mrc.Fields(5) = Trim(txtGrade.Text)
    mrc.Fields(6) = Trim(txtClass.Text)
    mrc.Fields(7) = Trim(txtBalance.Text)
    mrc.Fields(8) = Trim(txtExplain.Text)
    mrc.Fields(9) = Trim(UserName)
    mrc.Fields(10) = Trim(comboState.Text)
    mrc.Fields(11) = "未结账"
    mrc.Fields(12) = Trim(Date)
    mrc.Fields(13) = Trim(Time)
    mrc.Fields(14) = Trim(combostyle.Text)
    mrc.Update

可能出现的问题：

• 类型不匹配
  对应一下表头字段和文本连接是否相匹配即可，举例一下：mrc.Fields(10) = Trim(comboState.Text)这个连接是否对应到了正确的坑，如果去了别的坑就会出现这个问题撒

• insert 失败
  

不能插入空值，那就赋值给它好啦，看一下为啥出现了空值，可以发现表中的数据和程序界面中的数据是有差别的，表中和程序界面相比还有用户、date、time，他们也需要相对应的数据，按照内容赋值即可。

清空

此界面的控件类型分为两大部分：textbox和combobox。那么在进行清空时我们对这两类控件进行清空即可

• textbox类：

For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then   '是否为文本框TextBox
            ctrl.Text = ""

• combobox类

If TypeOf ctrl Is ComboBox Then '判断是否为comboBox
            ctrl.Text = ""```