学生信息管理系统 错误调试及错误总结(4)

23

错误描述

在修改修改数据时候,首先判断是否关键字重复,如果重复在判断用户是否要修改

错误处理

代码

If mrcc.EOF = False Then

str2 = MsgBox("班号重复,是否确定修改", vbOKCancel, "警告")

If str2 = vbOK Then

GoTo 1

Else

mrcc.Close

txtClassNo.SetFocus

End If

Else

'-------------------------

1 mrc.Delete

24

错误描述

在添加数据窗体添加数据以后,让修改窗体重新加载一边,保证数据的实时更新

错误处理

'-------------------------------

Unload frmModifyClassInfo

frmModifyClassInfo.Show

'--------------------------------

24

错误描述

设置年级课程,设置成功以后,清楚原来设置的课程,为下一层设置准备

错误处理

'-------------------

lstSelectCourse.Clear

'----------------------

25

错误描述

修改学籍信息时,班号不能自动添加

错误处理

在form load 中

添加增加班号代码.且添加位置为load 代码前面

txtSQL2 = "select * from class_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

For i = 1 To mrc.RecordCount

cboClass.AddItem mrc.Fields(0) '添加原来的当前字段

mrc.MoveNext

Next i

26

错误描述

修改学籍信息的时候,修改除学好以为内容的时候,判断学号是否重复,如果重复,

在判断的前提下,

允许修改,否则修改学籍没有意义

错误处理

If mrcc.EOF = False Then

MsgBox "学号重复,是否继续添加", vbOKCancel, "警告"

If vbOK Then

GoTo 1

Else

mrcc.Close

txtSID.SetFocus

End If