学生信息管理系统知识总结

最新推荐文章于 2019-06-25 16:00:34 发布

玉带林中挂

最新推荐文章于 2019-06-25 16:00:34 发布

阅读量500

点赞数

本文链接：https://blog.csdn.net/aaaPostcard/article/details/82726712

版权

废话不多说。
1、Dim mrc As ADODB.Recordset 用来接收数据库查到的结果集，adodb是数据对象，必须自己建立连接，较麻烦但比较灵活。
2、子窗体：子窗体以主窗体为容器，显示的话就在主窗体里面显示。放大、缩小、拖动等都在主窗体里。（根据个人喜欢来设置子窗体与否）
3、书签的使用（Bookmark）：咱们生活中用书签就是为了方便看书的时候回到之前看书的位置，在此程序中，意义是一样的。

ybookmark = 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'调用viewdata
        Else
            mybookmark = mrc.Bookmark
            mrc.MovePrevious
            mrc.Delete
            mrc.Bookmark = mybookmark
            Call viewdata
        End If
        Else
        mrc.Bookmark = mybookmark '回到书签位置
        Call viewdata
    End If

书签就是为了返回之前的位置。
4、End sub 和 Exit sub ： End sub 是一个过程的结束代码（每一sub中必须对应一个End sub）Exit Sub 是在过程内代码执行时，可选择性的退出过程执行（即不执行Exit sub之后的代码，相当于中途退出的意思)
5、Variant ：Variant 是一种特殊的数据类型，除了定长String数据及用户定义类型外，可以包含任何种类的数据
6、Dim dd(4) As Boolean 意思：就是有0~4有五个值，因为就三个check，我就把dd（4）改为了dd（2）意思是0~3，发现也没有影响。
7、listcount：是列表框一共有多少项,比如listcount=5就有五项但是list的下标是从0 开始的所以当你想调用第五项（最后一项）时实际上是调用list1.list（4）也就是list1.list（listcount-1）（frmsetcourseinfo窗体）
8、Grade=mrc!Grade ：将记录集mrc中的字段Grade赋给变量Grade
9、combobox的change属性和click属性：这两个是不一样的。click是下拉显示的属性，编辑的为change属性。
10、更新数据的那行代码是先删除原来的数据再增加一个新的数据。如图

If mcclean Then
        MsgBox "请先修改课程信息", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    mrc.Delete'先删除原有数据
    mrc.AddNew'然后直接添加自己新输入的新的数据

11、在form里面是 mcclean=true：当点击修改信息按钮之后，会有mcclean=false这条语句，但是当你如果不点击修改信息的话，直接点击取消修改按钮的话，就会弹出msgbox，显示什么都没有修改，所以这个的意思就是要想取消修改，前提是必须点击修改按钮。

Private Sub Form_Load()
    Dim txtsql As String
    Dim MsgText As String
     mcclean = True'看这里

Private Sub cmdupdate_Click()
    Dim mrcc As ADODB.Recordset
    Dim txtsql As String
    Dim MsgText As String

    If mcclean Then'看这里，和上面的进行比较
        MsgBox "请先修改课程信息", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If

如有不对，多多指教。