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

myBookmark = mrc.Bookmark

End Sub

Private Sub firstCommand_Click()

mrc.MoveFirst

Call viewData

End Sub

Private Sub Form_Load()

Dim txtSQL As String

Dim MsgText As String

txtCourseno.Enabled = False

txtCoursename.Enabled = False

comboCoursetype.Enabled = False

txtCoursedes.Enabled = False

txtSQL = "select * from course_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.MoveFirst

Call viewData

myBookmark = mrc.Bookmark

mcclean = True

End Sub

Public Sub viewData()

txtCourseno.Text = mrc.Fields(0)

txtCoursename.Text = mrc.Fields(1)

comboCoursetype.Text = mrc.Fields(2)

txtCoursedes.Text = mrc.Fields(3)

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

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