大学生奖助学金管理信息系统数据库的设计与实现(10)

来源：网络收集时间：2021-04-06 下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:或QQ：处理（尽可能给您提供完整文档），感谢您的支持与谅解。

主要用VB+SQL设计的后台工作少些主要针对前台的工作的

Exit Sub End If

'判断是否输入联系号码 If Not Testtxt(txtTel.Text) Then

MsgBox "请输入联系号码！", vbOKOnly + vbExclamation, "警告" txtTel.SetFocus Exit Sub End If

'判断是否输入政治面貌

If Not Testtxt(txtPolitical.Text) Then

MsgBox "请输入入校日期！", vbOKOnly + vbExclamation, "警告" txtPolitical.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 Exit Sub End If

txtSQL = "select * from student_Info where student_ID='" & Trim(txtSID.Text) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) '判断是否有重复记录 If mrc.EOF = False Then

MsgBox "学号重复，请重新输入！", vbOKOnly + vbExclamation, "警告" mrc.Close txtSID.SetFocus Else mrc.Close

'判断是输入的出生日期是否按格式 If Not IsDate(txtBorndate.Text) Then

MsgBox "出生时间应输入日期格式(yyyy-mm-dd)！", vbOKOnly + vbExclamation, "警告" txtBorndate.SetFocus Else

txtBorndate = Format(txtBorndate, "yyyy-mm-dd") txtSQL = "select * from student_Info" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库大学生奖助学金管理信息系统数据库的设计与实现(10)在线全文阅读。

大学生奖助学金管理信息系统数据库的设计与实现(10).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档

本文链接：https://www.77cn.com.cn/wenku/jiaoyu/1212823.html（转载请注明文章来源）

上一篇：华为地铁覆盖解决方案
下一篇：氨氮吹脱效率影响因素_黄勇