学生信息管理系统毕业论文和原代码 第46页

MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"

txtName.SetFocus

Exit Sub

End If

If Not Testtxt(comboSex.Text) Then

MsgBox "请选择性别！", vbOKOnly + vbExclamation, "警告"

comboSex.SetFocus

Exit Sub

End If

If Not Testtxt(txtBorndate.Text) Then

MsgBox "请输入出生日期！", vbOKOnly + vbExclamation, "警告"

txtBorndate.SetFocus

Exit Sub

End If

If Not Testtxt(comboClassNo.Text) Then

MsgBox "请选择班号！", vbOKOnly + vbExclamation, "警告"

comboClassNo.SetFocus

Exit Sub

End If

If Not Testtxt(txtTel.Text) Then

MsgBox "请输入联系电话！", vbOKOnly + vbExclamation, "警告"

txtTel.SetFocus

Exit Sub

End If

If Not Testtxt(txtRudate.Text) Then

MsgBox "请输入入校日期！", vbOKOnly + vbExclamation, "警告"

txtRudate.SetFocus

Exit Sub

End If

If Not Testtxt(txtAddress.Text) Then

MsgBox "请输入家庭住址！", vbOKOnly + vbExclamation, "警告"

txtAddress.SetFocus

Exit Sub

End If

If Not IsNumeric(Trim(txtSID.Text)) Then

MsgBox "学号请输入数字！", vbOKOnly + vbExclamation, "警告"

txtSID.SetFocus

 << 上一页  [41] [42] [43] [44] [45] [46] [47] [48] [49] [50]  ... 下一页  >>