学生信息管理系统总结（三）——优化篇

enter，esc键设置

确定按钮属性default------→true
取消按钮属性cancel------→true

窗体中心位置展现

首先将窗体界面通过鼠标拖拽，达到界面大小适中
接着查看属性中的height，width属性数值，将该数值填入下面代码中
from中添加以下代码
eg:

	me.width=4300
	me.height=7049
    Me.Left = Screen.Width / 2 - Me.Width / 2
    Me.Top = Screen.Height / 3 - Me.Height / 3

联系电话设定11位

在更新或者确定按钮下添加代码如下：

    If Not Len(txtTel.Text) = 11 Then
        MsgBox "请重新输入11位联系电话！", vbOKOnly + vbExclamation, "警告"
        txtTel.Text = ""
        txtTel.SetFocus
        Exit Sub
    End If

知识点：SQL注入

SQL注入，在登录界面限制特殊字符，就是为了防注入，详情，点击链接查看。

设置课程防止重复

在添加按钮下添加代码如下：

Private Sub cmdAdd_Click()
Static b As Integer
'设置定义b为静态变量
Dim s As String
Dim w As Integer
'在全部课程中被选中的情况下
If listAllcourse.ListIndex <> -1 Then
'检查有没有重复添加
For b = 0 To listSelectcourse.ListCount - 1

    If listSelectcourse.List(b) = listAllcourse.List(listAllcourse.ListIndex) Then

        MsgBox "不能重复添加课程", vbOKOnly + vbExclamation, "提示"
        'w=3表示一个状态，没有什么特别的含义
        w = 3
    End If
Next
    If w = 3 Then
        Exit Sub
    Else
        listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
    End If
End If
End Sub

无效输入，错误5

这个错误，我给它重命名为“归属不当”
原因在于：
判断classno是否为数字，应该在确定按钮或者更新按钮下，我加在了form窗体下，就相当于是用户还什么都没做呢，就对它进行判断，导致过度激进。
解决方法：
把这段代码转移到更新按钮下即可。

总结

1、要注意用户体验，整齐度要保证，如果可以努力提升一下美观度
2、要分模块进行，这样更有利于了解
3、站在巨人的肩膀上，以上总结均是百度大哥的功劳