学生信息管理系统删除过程

删除过程

一、前言

       学生信息系统的删除过程，就是先连接数据库，加载信息，标记当前，删除当前记录。

二、具体情况

       以删除班级信息为例

  

首先连接数据库，加载相关信息。

txtClassno.Text = mrc.Fields(0)  combograde.Text = mrc.Fields(1)  txtDirector.Text = mrc.Fields(2)  txtClassroom.Text = mrc.Fields(3)

点击删除，标记当前记录，提示是否删除，如果删除，则删除当前，如果不删除，则移动到最后。删除后，标记当前，显示数据库下一条记录。

Private Sub deleteCommand_Click()myBookmark = mrc.Bookmarkstr2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")If str2$ = vbOK Then        mrc.MoveNext        If mrc.EOF Then           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

在call viewdata这里删除记录后更新显示下一条数据

Public Sub viewData()  txtClassno.Text = mrc.Fields(0)  combograde.Text = mrc.Fields(1)  txtDirector.Text = mrc.Fields(2)  txtClassroom.Text = mrc.Fields(3)  End Sub

返回if语句

 mrc.Bookmark = myBookmark           Call viewData        End If Else    mrc.Bookmark = myBookmark    Call viewData    End If    End Sub

删除完毕