学生信息管理系统优化

前言


今天整理印象笔记,发现了这篇草稿,遂发到CSDN上。


正文


学生验完项目后,发现系统有些小Bug,界面很乱更不用谈美观了。于是就有了这篇文章,学生系统优化开始了~
  

主窗体加入状态栏控件

  加入状态栏控件可以实时反映系统中各个状态的变化。
学生信息管理系统优化_第1张图片 学生信息管理系统优化_第2张图片


如何在文本框中限制输入特殊字符

代码如下:
Private Sub txtUserName_KeyPress(KeyAscii As Integer)
    Dim cTemp As String
    cTemp = "`~!@#$%^&*()-=_+[]{};:'\|<>/?.‘“”’、,。——+()《》?,~·……¥!:;【】" & """ '禁止输入特殊的字符"
    If InStr(1, cTemp, Chr(KeyAscii)) <> 0 Then KeyAscii = 0
End Sub

学生信息管理系统优化_第3张图片

简单来说,这里使用KeyPress事件,运用ASCLI码来进行限制。敲击符号时,不能在文本框里显示,但没有提示信息。这里是需要限制的符号太多,也太繁琐,机智的你有没有更棒的招,欢迎来教教我。


如何删除表中冗余行

这里其实就是简单应用删除语句,规则如下

学生信息管理系统优化_第4张图片

删除行:delete from 表名 where 字段名 = ‘主键名称’

如何单击确认后,重新输入数据文本框为空


在添加学籍成功后,文本框中的内容没有删除,既不便于再次输入新数据,又显得不美观。这就又需要优化喽!


这里添加一系列 控件名 = ""就OK了


嗯哼?咋数据都没了,这时再仔细看一遍输入的代码顺序 ,明白了。代码是按输入顺序执行的,先为空,后添加数据;添加多少次都没用哈。我们把代码位置换一下就可以了!


结语

学生这个项目自己进行的又拖沓又不认真,值得自己反思。下个项目见~

你可能感兴趣的:(学生信息管理系统优化)