学生信息系统之优化篇

对于学生信息系统，前期工作其实并没有多少，它的主要经历就是花在优化上面了，因为基础不是很好，所以在优化上面花了很长的时间。

优化一：

 

修改的密码与原密码相同仍然可以成功，这就没什么意义了，所以要限制这一条件。

解决办法：

 优化二：

 

我的这个问题就是删除完信息之后最后一条信息还显示在界面上，不能能立马清空。

解决办法：

优化三： 

 

没有点击修改记录就可以修改，这个就是把控件都限制一下

 cmdfirst.Enabled = False   
 cmdlast.Enabled = False   
 cmdprevious.Enabled = False   
 cmdnext.Enabled = False 
   
 cmdupdate.Enabled = True    
 cmdcancel.Enabled = True 
     
 ComboExamtype.Enabled = True    
 Comboclassno.Enabled = True    
 Combosid.Enabled = True   
 Combocourse.Enabled = True    
 txtname.Enabled = True    
 txtresult.Enabled = True

 

优化四：

 

 这个就是在无记录的时候为了不让它报错，添加一个提示框。

 

点击确定之后应该关闭该窗体打开添加窗体，下面是代码部分。

 Dim txtSQL$   
 Dim Msgtext$   
 Dim Str2$ֵ    
 Dim mrc As ADODB.Recordset     
 txtSQL = "select*from result_info"   
  Set mrc = ExecuteSQL(txtSQL, Msgtext)  
   If mrc.EOF = True And mrc.BOF = True Then    
     Str2 = MsgBox(当前没有记录，是否需要添加？", vbOKCancel + vbQuestion, "警告ʾ")     
    If Str2$ = vbOK Then            
     frmAddresult.Show            
     Exit Sub       
    Else            
   Exit Sub       
  End If    
   Else       
 frmMoGrade.Show  
    End If

优化的时候发现看别人的博客可以节省自己好多时间，高效学习。欲知后续如何，请继续关注。