对于学生信息系统,前期工作其实并没有多少,它的主要经历就是花在优化上面了,因为基础不是很好,所以在优化上面花了很长的时间。
优化一:
修改的密码与原密码相同仍然可以成功,这就没什么意义了,所以要限制这一条件。
解决办法:
优化二:
我的这个问题就是删除完信息之后最后一条信息还显示在界面上,不能能立马清空。
解决办法:
优化三:
没有点击修改记录就可以修改,这个就是把控件都限制一下
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
优化的时候发现看别人的博客可以节省自己好多时间,高效学习。欲知后续如何,请继续关注。