学生信息管理系统 错误调试及错误总结(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