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

If Not Testtxt(txtCoursedes.Text) Then

MsgBox "请输入课程描述信息！", vbOKOnly + vbExclamation, "警告"

txtCoursedes.SetFocus

Exit Sub

End If

mrc.Delete

txtSQL = "select * from course_Info where course_No = '" & Trim(txtCourseno.Text) & "'"

Set mrcc = ExecuteSQL(txtSQL, MsgText)

If mrcc.EOF = False Then

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

mrcc.Close

txtCourseno.SetFocus

Else

mrcc.Close

mrc.AddNew

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

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

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

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

mrc.Update

MsgBox "修改课程信息成功！", vbOKOnly + vbExclamation, "警告"

mrc.Bookmark = myBookmark

Call viewData

Frame2.Enabled = True

firstCommand.Enabled = True

previousCommand.Enabled = True

nextCommand.Enabled = True

lastCommand.Enabled = True

txtCourseno.Enabled = False

txtCoursename.Enabled = False

comboCoursetype.Enabled = False

txtCoursedes.Enabled = False

mcclean = True

End If

End Sub

.........................................................................................................

........................... frmModifyresult 修改成绩信息窗口代码 .................................

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