学生信息管理系统优化

前言

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

正文

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

  

主窗体加入状态栏控件

  加入状态栏控件可以实时反映系统中各个状态的变化。

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

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

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

如何删除表中冗余行

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

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

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

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

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

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

结语

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