学生信息管理系统之增（一）：添加班级信息-部分函数解析

最近终于可以静下心来敲学生系统的代码了，作为全职的我现在还在学生系统阶段徘徊，很是惭愧啊，看来之前是对自己太仁慈了，以后要努力咯。不过再怎么着急也要脚踏实地的来做,下面是我在敲写代码过程中的一些小结点，分享给大家，希望对小伙伴有所帮助。

一、判断文本框是否为空Testtxt

 If Not Testtxt(txtClassno.Text) Then       '防止输入框为空
        MsgBox "请输入班号！", vbOKOnly + vbExclamation, "警告"
        txtClassno.SetFocus
        Exit Sub
    End If

二、判断文本框内容是否为数字IsNumeric

    If Not IsNumeric(Trim(txtClassno.Text)) Then                  '班号得为数字
        MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        txtClassno.SetFocus
    End If

三、文本框内容与数据库内容对比，是否有相同

    txtSQL =