学生信息管理系统总结之“经典语句一”
学生信息管理系统在昨天接近尾声，大部分收工了。现在开始进入总结阶段，首先进行经典语句的总结。
一、验证数据有效性
（1）、判断是否为空
前边模块中定义了testtxt函数
IfNot TestTxt(TxtCourseno.Text) Then
MsgBox "请输入课程编号！", vbOKOnly +vbExclamation, "警告"
TxtCourseno.SetFocus
Exit Sub
End If
或是正常状态：
If Trim(TxtID.Text)= "" Then
smeg = "学号不能为空！"
MsgBox smeg, vbOKOnly + vbExclamation,"警告"
TxtID.SetFocus
Exit Sub
End If
（2）、判断学号是否为数字
If NotIsNumeric(TxtCourseno.Text) Then
MsgBox "编号为数字，请输入数字！",vbOKOnly + vbExclamation, "警告"
TxtCourseno.SetFocus
Exit Sub
End If
（3）、判断插入数据是否重复
While (mrc.EOF = False)
If (Trim(mrc.Fields(0)) =Trim(TxtCourseno.Text)) Then
MsgBox "课程编号不能重复，请重新输入！",vbOKOnly + vbExclamation, "警告"
TxtCourseno.SetFocus
Exit Sub
Else
mrc.MoveNext
End If
Wend
（4）判断日期格式是否真确
If NotIsDate(Txtborndate.Text) Then
MsgBox "出生时间应输入日期格式（yyyy-mm-dd）!",vbOKOnly + vbExclamation, "警告"
Txtborndate.SetFocus
Else
txtborndate = Format(Txtborndate, "yyyy-mm-dd")
End if
二、添加数据
mrc.AddNew
mrc.Fields(0) =Trim(TxtID.Text)
mrc.Fields(1) = Trim(TxtName.Text)
mrc.Fields(2) =Trim(ComboSex.Text)
mrc.Fields(3) =Trim(Txtborndate.Text)
mrc.Fields(4) =Trim(ComboClassno.Text)
mrc.Fields(5) = Trim(TxtTel.Text)
mrc.Fields(6) = Trim(Txtrudate.Text)
mrc.Fields(7) = Trim(TxtAddress.Text)
mrc.Fields(8) = Trim(TxtComment.Text)
mrc.Update
MsgBox "修改学籍信息成功！", vbOKOnly +vbExclamation, "警告"
三、查询数据库中的表
Dim mrcas ADODB.RecordSet
DimTxtSQL as string
DimMsgtext as string
txtSQL="select* from result_Info where student_ID and student_Name='" & Trim(TxtID.Text) & TxtName.Text & "'"
Setmrc=executeSQL(txtSQL,MsgText)
四、密码问题
（1）、判断密码登录次数是否超过三次
Dim miCount AsInteger
Micount=micount+1
Ifmicount=3 then
me.hide
End if
（2）、两次输入的密码是否相同
IfTrim(Text1(1).Text) <> Trim(Text1(2).Text) Then
MsgBox "两次输入的密码不一样，请确定！",vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Text1(2).Text = ""
Exit Sub
Else
mrc.AddNew
mrc.Fields(0) = Trim(Text1(0).Text)
mrc.Fields(1) = Trim(Text1(1).Text)
mrc.Update
mrc.Close
Me.Hide
MsgBox "添加用户成功！", vbOKOnly +vbExclamation, "警告"
End If