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

mrc.MoveFirst

myBookmark = mrc.Bookmark

mrc.MoveLast

mrc.Delete

mrc.Bookmark = myBookmark

Call viewData

Else

myBookmark = mrc.Bookmark

mrc.MovePrevious

mrc.Delete

mrc.Bookmark = myBookmark

Call viewData

End If

Else

mrc.Bookmark = myBookmark

Call viewData

End If

End Sub

Private Sub firstCommand_Click()

mrc.MoveFirst

Call viewData

End Sub

Private Sub Form_Load()

Dim txtSQL As String

Dim MsgText As String

txtSQL = "select * from student_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.MoveFirst

Call viewData

mcbookmark = mrc.Bookmark

mcclean = True

End Sub

Public Sub viewData()

txtSID.Text = mrc.Fields(0)

txtName.Text = mrc.Fields(1)

comboSex.Text = mrc.Fields(2)

txtBorndate.Text = Format(mrc.Fields(3), "yyyy-mm-dd")

comboClassNo.Text = mrc.Fields(4)

 << 上一页  [41] [42] [43] [44] [45] [46] [47] [48] [49] [50]  ... 下一页  >>