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

If str2$ = vbOK Then

mrc.MoveNext

If mrc.EOF Then

mrc.MoveFirst

myBookmark = mrc.Bookmark

mrc.MoveLast

mrc.Delete

mrc.Close

txtSQL = "select * from result_Info"

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.MoveLast

Call viewData

Else

myBookmark = mrc.Bookmark

mrc.MovePrevious

mrc.Delete

mrc.Close

txtSQL = "select * from result_Info"

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.MoveLast

Call viewData

End If

Else

mrc.Bookmark = myBookmark

Call viewData

End If

End Sub

Private Sub editCommand_Click()

Dim mrcc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

firstCommand.Enabled = False

lastCommand.Enabled = False

previousCommand.Enabled = False

nextCommand.Enabled = False

updateCommand.Enabled = True

cancelCommand.Enabled = True

comboExamtype.Enabled = True

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