前言
学生系统中,关于修改信息的窗体有4个,分别是:修改学籍信息、修改班级信息、修改课程信息、修改成绩信息。一个类别的窗体大体思路都是一样的,所以下面放上我的流程图。
修改信息窗体流程
修改记录流程
取消修改记录流程
删除记录流程
更新数据流程
上一条记录流程
列举关于修改班级信息窗体的删除记录代码:
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
End If
Else
mrc.Bookmark = myBookmark
Call viewData
End If
End Sub
结语
总结流程图对梳理思路很有帮助,也是检验对代码熟悉度的很好的办法。一步一个脚印才能稳稳的走下去,加油!