学生系统优化篇(二)

前言

**学生最复杂的不是调错,是优化!**

一,限制只能输入数字

Private Sub txtclassno_KeyPress(KeyAscii As Integer)
If KeyAscii >= 33 Then
If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then
Else
KeyAscii = 0
MsgBox "请输入数字!"
End If
End If
End Sub

二,限制不能输入数字

Private Sub Txtname_KeyPress(KeyAscii As Integer)   '姓名不能输入数字
    If (KeyAscii >= 48 And KeyAscii <= 57) Then
        MsgBox "不允许输入数字", vbOKOnly + vbExclamation, "警告"
        KeyAscii = 0        '键盘不能用
    End If
End Sub

三,复选框只能选择,禁止输入

Private Sub comboSex_KeyPress(KeyAscii As Integer)
  KeyAscii = 0
End Sub

四,修改密码界面优化

在修改密码界面中,会让你输入你修改的密码然后再一次确认密码,可以再加上一个输入原密码,当第一次输入新密码而没有确认密码时,会有提示,两次密码输入不一样时,会有不一样的提示。

学生系统优化篇(二)_第1张图片
这是我对代码做的修改。

五,设置课程优化

当你设置课程的时候,如果按照源码运行的话,你点击设置课程按钮或者是向右箭头按钮给各年级添加课程的时候,他会重复添加你之前添加的课程,我对这一bug做出了修改,代码如下:
Private Sub listAllcourse_Click()
Dim selectcourse As Integer
Dim i As Integer             '定义两个整形变量
Dim j As Integer

For selectcourse = 0 To listAllcourse.ListCount - 1
If listAllcourse.Selected(selectcourse) = True Then
    listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
                             ' 往listselectcourse列表中添加课程
    For i = 0 To listSelectcourse.ListCount - 1
    For j = i + 1 To listSelectcourse.ListCount
                             '判断在list列表中是否有相同的名称
    If listSelectcourse.List(i) = listSelectcourse.List(j) Then
    listSelectcourse.RemoveItem j
    MsgBox "已添加此课程!", vbOKOnly, "提示"
    Exit Sub
    End If
    Next j
    Next i
    End If
    Next selectcourse
End Sub

学生的优化,还有一些必不可少的就是那些文本框的输入限制,限制输入的字符,当然,以后还会借鉴其他同学的心得,做出进一步的优化!

你可能感兴趣的:(学生系统优化篇(二))