【学生信息管理系统】-优化篇1

【前言】
经过将近一个月的时间，学生信息管理系统完成了，在这其中学到了不少。
【正文】
在刚敲完学生时，有各种各样的错误，需要一点一点的优化，以下是我优化的一部分：
1.限制用户名和密码的长度：
属性中，MaxLength=8
2.只能输入数字：
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
3.只能输入汉字：
If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
4.输入汉字和字母：

If (KeyAscii < 0) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8) Then
ElseMsgBox "姓名由字母和汉字组成", vbOKOnly + vbExclamation, "警告"KeyAscii = 0txtName.SelStart = 0txtName.SelLength = Len(txtName.Text)

5.限制特殊符号的输入：

Dim cTemp As StringcTemp = "`~!@#$%^&*()-=_+[]{};:'\|<>/?.‘“”’、，。——+（）《》？,~·……￥！：；【】" & """ '禁止输入特殊的字符"If InStr(1, cTemp, Chr(KeyAscii)) <> 0 Then KeyAscii = 0

6.Combox框只允许下拉选择，不允许输入：
将Style属性设置为0，然后写代码：

Private Sub comboBorndate_KeyPress(KeyAscii As Integer)KeyAscii = 0  禁止输入
End Sub
Private Sub comboRudate_KeyPress(KeyAscii As Integer)KeyAscii = 0  禁止输入
End Sub

7.不能重复添加成绩信息：（班级和课程也类似）

txtSQL = "select * from result_Info where exam_No = '" & comboExamtype.Text & "' and student_ID = '" & comboSID.Text & "' and course_Name = '" & comboCourse.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "有相同纪录，请重新输入信息!", vbOKOnly + vbExclamation, "警告"mrc.Close
Else……

8.出生日期、入校日期和当前日期的关系

If comboBorndate > Date ThenMsgBox "出生日期不能大于当前日期，请重新输入！", vbOKOnly + vbExclamation, "警告"Exit SubEnd IfIf comboRudate > Date ThenMsgBox "入校日期不能大于当前日期，请重新输入！", vbOKOnly + vbExclamation, "警告"Exit SubEnd IfIf comboBorndate > comboRudate ThenMsgBox "出生日期不能大于入校日期，请重新输入！", vbOKOnly + vbExclamation, "警告"Exit SubEnd If

【学生信息管理系统】-优化篇1相关推荐

学生信息管理系统—优化错误篇
[前言] 在我们敲学生信息管理系统的时候,难免会碰到错误.但是只要我们不犯低级错误,理清各个窗体的逻辑或运行过程,其实错误还不是很多.因为毕竟学生信息管理系统我们还可以参考给的那本pdf书,这本书中的 ...
学生信息管理系统—优化总结part2
学生信息管理系统无时无刻不在进行优化,接下来继续给大家分享我对学生信息管理系统的优化,希望对大家有所帮助哦. 一.显示当前数据位置 Private Sub nextCommand_Click()If ...
学生信息管理系统—知识篇
[前言] 虽然我敲完学生信息管理系统了,但是还有一些遗留的知识,包括师父们在验项目中提出的一些问题,所以我再总结一下学到的知识. [正文] 1.修改窗体中的mcclean是什么意思? 这是一个布尔类型 ...
学生信息管理系统 —— 前端篇
文章目录 Vue 单文件组件结构反向代理配置 axios 路由 store 路由钩子函数 ElementUI Vue 采用 Vue-CLi创建的项目的结构(有后期项目的更新,可能具体文件与实际不符, ...
c语言版本号,C语言版本学生信息管理系统
仍然有一些小bug,后续会发布OC完善版的图书馆管理系统,欢迎批评指正. #include void menu_choose(); typedef struct { int Id; int age; ...
C语言实现学生信息管理系统（附原码）
本人的C语言学习完后,用所学的知识自己实现了一个学生管理系统,新手一个,代码还有待完善,欢迎大家在评论区指出错误! 一.流程图二.函数的目录三.程序介绍 1.主要功能:添加学生信息.打印学生信息. ...
【学生信息管理系统】——总结篇
前言学生信息管理系统是小编接触到的第一个系统项目,小编对系统的初识便是从学生信息管理系统开始,同时也是了解数据库的开始. 正文当进行这个项目时,首先是要根据用户要求,做出需求分析:通过需求分析来确 ...
c语言成绩管理系统开题报告,学生信息管理系统,开题报告(共篇).doc
学生信息管理系统,开题报告(共篇).doc 学生信息管理系统,开题报告(共10篇) :开题信息管理系统报告学生论文开题报告有查重吗居民信息网络管理系统学生信息管理系统c语言篇一:学生信息 ...
python：pyqt5+mysql=学生信息管理系统（图文并茂，超详细）——登录，注册及找回密码篇
python:pyqt5+mysql=学生信息管理系统(图文并茂,超详细)--登录,注册及找回密码篇前言一.pyqt5是什么? 二.代码方面 1.引入库及效果展示 2.首先介绍一下登录,注册及密码 ...
python：pyqt5+mysql=学生信息管理系统（图文并茂，超详细, 附源码）——增删改查篇
python:pyqt5+mysql=学生信息管理系统(图文并茂,超详细, 附源码)--增删改查篇前言一.主界面的样式二.学生信息的增,删,改,查 1.增加学生信息 2.删除学生信息 3.更改学 ...

【学生信息管理系统】-优化篇1

【学生信息管理系统】-优化篇1相关推荐

最新文章

热门文章