学生信息管理系统优化（一）

    任何的系统在完成之前必须得优化，首先你的保证你做出来的软件得没有正常的逻辑问题，还得提高用户体验，让别人用着比较舒服对吧！所以优化就是一个不断完善的过程！

    下边我为大家分享一下我的优化心得！

1.登录界面

     首先你的保证你的登录界面不能随意乱输入，控制字符长度，而且要注意特殊字符的问题，防止别人输入特殊字符会出现报错的情况！而且用户的密码输入的时候不能让别人看到，保证用户密码的安全性！

     字符长短在text的控件属性里边有个MaxLength的属性，你在里输入你想控制的密码长度就可以！而输入密码安全性怎是另一个属性passwordchar，你填入*就可以了，你输入的密码就都是*了！

     特殊字符则可以通过控制输入text控件数据类型来控制，如下：

Private Sub txtUserName_KeyPress(KeyAscii As Integer)      Select Case KeyAscii        Case 8        Case Asc("A") To Asc("Z")        Case Asc("0") To Asc("9")        Case Asc("a") To Asc("z")        Case Is < 0        Case Else        KeyAscii = 0        End SelectEnd Sub

      以上代码的意思就是我的用户名只能输入大小写字符和数字(汉字也可以输入，但是中文状态下的字符输入不会报错)，这样就能控制字符的输入类型，以及特殊字符的问题了！
2.修改密码界面
      修改密码的时候，为了更加人性化，你要提示用户，当前用户的是哪个吧！还有就是，你在改密码之前要验证一下当前密码，否则别人在用户不在的时候修改用户密码，这个系统就有安全隐患了！
     提示当前用户代码如下：

Private Sub Form_Load()            Dim txtSQL As String         Dim MsgText As String         Dim mrc As ADODB.Recordset         Dim name As String         Me.Top = 0         Me.Left = 0         Text2.Text = ""         txtSQL = "select * from user_Info where user_ID = '" & username & "' "         Set mrc = ExecuteSQL(txtSQL, MsgText)         name = Trim(mrc.Fields(0))         Label3.Caption = "当前用户名称为：" & nameEnd Sub

       从数据库中将用户名调出来。赋给Label3，显示在控件上！

       验证原密码的代码如下：

If Trim(Text2.Text) <> Trim(mrc.Fields(1)) Then            MsgBox "原密码输入不正确！", vbOKOnly + vbExclamation, "警告"            Text2.SetFocus            Text2.Text = ""            Text1(1).Enabled = False            Text1(2).Enabled = False Else           next sub End If

       这几行代码就是将用户输入的密码与原密码进行比较，判断用户输入的原密码是否正确，如果错的话，将无法输入新的密码！大家需要注意的问题就是，注意自己控件的名称要一一对应，书上有好多的控件名称与代码对应不上导致程序运行错误！
3.信息查询界面
       大家在调试信息查询界面的时候，会发现控件表格的大小个挺烦的问题，因为有的信息可能比较长，导致部分的文字或是数字无法显示，其实也是空间的调整问题！代码如下：

myflexgrid.ColWidth(0) = 1000

       这就表示你的表格的第一列的宽度为1000，大家可以根据实际信息来调整表格宽度！

4.课程添加界面

       在添加课程的时候，会出现课程重复添加的问题！解决的代码如下：

Private Sub cmdAdd_Click()     Dim i As Variant    If listallcourse.ListIndex <> -1 Then        If listselectcourse.ListIndex = 0 Then            listselectcourse.AddItem listallcourse.List(listallcourse.ListIndex)        End If        For i = 0 To listselectcourse.ListCount - 1            If listselectcourse.List(i) = listallcourse.List(listallcourse.ListIndex) Then            Exit Sub            End If        Next            listselectcourse.AddItem listallcourse.List(listallcourse.ListIndex)    End IfEnd Sub

       这几行代码就是当你添加的课程数据库里已经有了的时候，课程就无法添加上去了！而没有的则能够顺利的添加上！
5.小问题
     在你添加完信息的时候要清理各个表格的内容！防止别人再次打开，看到你之前填写的数据，也能够让你连续填写数据更加的便利！这有两种方法可以解决！
      第一就是在你完成输入指令之后，让所有控件的内容清空！例如text1.text=" "
      第二就是在你输入完数据的时候，同时卸载窗体！
       
      以上是我在进行学生信息管理系统优化时遇到部分的问题，以及找的解决的方法！希望能对大家有所帮助！剩下的问题我会在以后继续与大家分享！