学生信息管理系统 错误调试及错误总结(3)
14
错误描述
查询学信息时,如果没有查询到,要提示没有查到
错误处理
在程序中添加一个判断
If not mrc.EOF then
………….
Else
MsgBox "没有您所要查找的数据"
End If
15
错误描述
修改班级信息时,如果修改了一下,然后取消修改了,但是显示的是修改了以后的数据
错误处理
解决办法
在cmdcancel 后加上
Call viewdata
重新添加数据
16
错误描述
在所有的删除记录中,都没有判断记录是否完全删除
错误处理
和前边的一样,加上判断记录是否删除
17,
错误描述
在修改数据的窗体中,如果记录为空则出错
错误处理
在form_load中添加判读语句
If mrc.RecordCount = 0 Then
MsgBox "记录为空,无法再提供修改", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
mrc.MoveFirst
Call viewData
myBookMark = mrc.Bookmark
mcClean = True
End If
18
错误描述
在调用iewdata时 保证记录不为空,
错误描述
采用判断
Mrc.recordcount>0 判断
20
错误描述
在成绩修改中,
删除代码中有查找记录集的一段代码
错误处理
需要提前判断是否记录,再movenext
源代码为
txtSQL = "select * from result_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.MoveLast
Call viewData
修改为
txtSQL = "select * from result_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
'-----------------------------
If mrc.RecordCount > 0 Then
mrc.MoveLast
Call viewData
End If
'-----------------------------
21
错误描述
在查询数据时
判断是否查询到数据
先end if 后end with
如果先end with
就不会执行end if
导致错误
代码
错误处理
If Not mrc.EOF Then
Do While Not mrc.EOF
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
.TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
.TextMatrix(.Rows - 1, 2) = mrc.Fields(2)
.TextMatrix(.Rows - 1, 3) = mrc.Fields(3)
.TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
.TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
mrc.MoveNext
Loop
Else
MsgBox "没有找到记录", , "提示"
End If
End With
22
错误描述
在修改数据的时候
主关键字,如学号,班号,课程号等不允许修改
错误处理
设置器属性locked 为true