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

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/afjaklsdflka/article/details/51470942

删除过程

一、前言

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

二、具体情况

       以删除班级信息为例
  
首先连接数据库,加载相关信息。
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.Bookmark
str2$ = 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
删除完毕






阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页