学生管理系统问题集锦三

问题3：在添加班级信息窗体中，当数据库中有记录“班号为1，年级为初中一年级”的记录时，保证“班号为1，年级为初中二年级”的记录可以添加、“班号为1，年级为初中一年级”的记录不可用添加
解决方法：
在检测班号是否重复时，添加如下代码
‘如果选择初中一年级，当mrc字符集第二行字段名为“初中一年级”，并且学号重时，此时才提醒用户班号重复！
If comboGrade.Text = "初中一年级" Then
While (mrc.EOF = False)
'如果添加的班号已经存在
If Trim(mrc.Fields(0)) = Trim(txtClassNo.Text) And Trim(mrc.Fields(1)) = "初中一年级" Then
MsgBox "班号已经存在，请重新输入！", vbOKOnly + vbExclamation, "警告"
txtClassNo.Text = ""
txtClassNo.SetFocus
Exit Sub
Else
mrc.MoveNext
End If
Wend
End If
’当选择是“初中二年级、初中三年级、高中一年级……”时，代码同理如上。