学生信息管理系统优化

我们在敲学生信息管理系统时，一开始只是依葫芦画瓢进行，只要能实现这些功能就可以了，但是师父验收之后发现我们还可以做得更好，是我们的软件更加人性化，能够更好地服务用户。

    以下是我根据师父提的建议进行的修改。

   （1）登陆界面的设置

    一般像我们注册一个账号时，都会给你充足的提示，比如用户名不能超过多少位，还有就是用户名不能使用那些符号等这些提醒，这样即使一个什么都不懂的都会注册，证明我们就做到全心全意为人民服务了。

（2）添加信息的窗体

问题1：对于需要自己输入的信息，应限定输入内容的长度，不能无限输入，否则会因为输入的长度太多而报错。

         

解决方法：限制Text的输入长度，或者可以修改数据库表中数据类型

          选中表→右击→设计→数据类型

问题2：添加学籍信息，必须考虑出生日期必须小于入校日期。

解决方法：

        

 注意：IsDate函数返回Boolean值，判断表达式是否可以转换成日期

       CDate函数是一个转换函数，将字符串转换为日期数据类型

（3）设置年纪课程保证所选课程和已选课程不重复添加

        

      设置课程不重复添加：

      '保证课程只添加一次到全部课程
      If listAllcourse.ListCount > 0 Then     
          Exit Sub
        End If

      '已经选择课程不能重复添加

      Dim intindex1 As Integer
        Dim intindex2 As Integer
      '在全部课程被选中的情况下，点击"添加"按钮，课程被添加到已选课程中
      If listAllcourse.ListIndex <> -1 Then
           listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
        End If
    
      '保证课程不能重复添加到已选课程中
      With listSelectcourse
          For intindex1 = 0 To .ListCount - 1
              For intindex2 = .ListCount - 1 To intindex1 + 1 Step -1
                  If .List(intindex2) = .List(intindex1) Then
                      .RemoveItem intindex2
                  End If
              Next intindex2
          Next intindex1
        End With

      绿色为注释