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

End Sub

Private Sub lastCommand_Click()

mrc.MoveLast

Call viewData

End Sub

Private Sub nextCommand_Click()

mrc.MoveNext

If mrc.EOF Then

mrc.MoveFirst

End If

Call viewData

End Sub

Private Sub previousCommand_Click()

mrc.MovePrevious

If mrc.BOF Then

mrc.MoveLast

End If

Call viewData

End Sub

Private Sub updateCommand_Click()

Dim txtSQL As String

Dim MsgText As String

Dim mrcc As ADODB.Recordset

If mcclean Then

MsgBox "请先修改班级信息", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

If Not Testtxt(txtClassno.Text) Then

MsgBox "请输入班号！", vbOKOnly + vbExclamation, "警告"

txtClassno.SetFocus

Exit Sub

End If

If Not IsNumeric(Trim(txtClassno.Text)) Then

MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"

Exit Sub

txtClassno.SetFocus

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