学生信息管理系统毕业论文和原代码 第52页

End If

If Not Testtxt(comboGrade.Text) Then

MsgBox "请选择年级！", vbOKOnly + vbExclamation, "警告"

comboGrade.SetFocus

Exit Sub

End If

If Not Testtxt(txtDirector.Text) Then

MsgBox "请输入班主任姓名！", vbOKOnly + vbExclamation, "警告"

txtDirector.SetFocus

Exit Sub

End If

If Not Testtxt(txtClassroom.Text) Then

MsgBox "请输入教室号码！", vbOKOnly + vbExclamation, "警告"

txtClassroom.SetFocus

Exit Sub

End If

mrc.Delete

txtSQL = "select * from class_Info where class_No = '" & Trim(txtClassno.Text) & "'"

Set mrcc = ExecuteSQL(txtSQL, MsgText)

If mrcc.EOF = False Then

MsgBox "班号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"

mrcc.Close

txtClassno.SetFocus

Else

mrcc.Close

mrc.AddNew

mrc.Fields(0) = Trim(txtClassno.Text)

mrc.Fields(1) = Trim(comboGrade.Text)

mrc.Fields(2) = Trim(txtDirector.Text)

mrc.Fields(3) = Trim(txtClassroom.Text)

mrc.Update

MsgBox "修改班级信息成功！", vbOKOnly + vbExclamation, "警告"

mrc.Bookmark = myBookmark

Call viewData

Frame2.Enabled = True

firstCommand.Enabled = True

 << 上一页  [51] [52] [53] [54] [55] [56] [57] [58] [59] [60]  ... 下一页  >>