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