机房收费系统（三）--注册中

整理

有的时候，总是觉得自己做完了好像也没有收获啥，翻开自己的笔记，发现还是有东西值得反复去看深入去学习的。

关于书签

what？什么是书签。是信息的一个暂时存储，在窗体的制作中，大都是模仿着学生的相似功能去实现的代码部分，而在bookmark 这个代码意思上我迟疑了。在学生中的应用是：myBookmark=mrc.Bookmark 是删除信息的那一段功能实现上存在的。
那么，它是什么：自己的理解，当前表格的当前信息行的信息，被标记为mybookmark 在进行删除的操作的时候，如果所指定的那一行是表格的最后一行也就是null是不可以被删除的，那么就要跳转到表格第一行，进行相应的操作；如果不是最后一行，那么删除后，标记的还是原来的位置。通过不停的这样的转换，避免出现报错的情况。下面是一段例子：

            If mrc.BOF = True Then
                mrc.MoveNext
                mrc.Delete
                MsgBox "最后一条记录删除，记录为空！", vbOKOnly + vbExclamation, "警告"
                Unload Me
            Else
                '移动到数据集的第一条记录
                mrc.MoveFirst
                '记载当前记录的位置
                 myBookmark = mrc.Bookmark
                '移动到最后一条记录
                 mrc.MoveLast
                '删除记录
                mrc.Delete
                mrc.Bookmark = myBookmark
                '调用函数显示数据
                Call viewData
            End If

---

感想：
知识是一个反复的过程。就像我今天看到的一篇博客，讲述了关于被狗熊和猪绑架的故事。自己问自己：是想差不多学学就可以了吗？是只要用力的往前“拱”就可以了吗？我想答案都是明确的。另外，关于“错峰”的这个词，也很有感触，每个人都有属于自己的长处和优点，而且，你越优秀的地方，会因为有优先感会越来越优秀，这就是在某方面做的好的人，会一直都好，越做越好的原因。寻找自己想要建立的山峰，找到学习的乐趣。每一步都很重要！

---

EOF和BOF

BOF：（Before of files）：在表格的第一行之前。
EOF：（End if files）：在表格的最后一行之后。
在这两个属性的返回值是布尔型:也就是True 和 False .
True：表示无记录
False ：表示有记录

在我们的学生信息管理系统中，会涉及到对指针进行的MoveFirst、MoveLast、MovePrevious与MoveNext四种方法。一般来说，当需要对记录集Recordset中的所有行进行操作时，代码可以使用MoveNext，循环遍历各行，直到EOF属性被置为True
如果当 EOF 被置为 True 时再使用 MoveNext ，或当 BOF被置为 True 时再使用 MovePrevious ，都将产生一个提示代号为‘3021’的错误。

        If mrcc.EOF = True Then '最后一行无记录那么
            MsgBox "没有这个卡号，请重新输入", vbOKOnly + vbExclamation, "警告"
            txtCardNo.Text = ""
            txtCardNo.SetFocus
        Else......

小结

    If mrcc.EOF = False Then
            MsgBox "此卡号已注册，请重新输入！", vbExclamation + vbOKOnly, "提示"
            mrcc.Close
            txtCardNo.Text = ""
            txtCardNo.SetFocus
        Else
            mrcc.Close
            txtSQL = "select * from student_info"
            Set mrcc = ExecuteSQL(txtSQL, MsgText)
            mrcc.AddNew
                mrcc.Fields(0) = Trim(txtCardNo.Text)
                mrcc.Fields(1) = Trim(txtStudentNo.Text)
                mrcc.Fields(2) = Trim(txtStudentName.Text)
                mrcc.Fields(3) = Trim(Combo2.Text)
                mrcc.Fields(4) = Trim(txt系别.Text)
                mrcc.Fields(5) = Trim(txtGrade.Text)
                mrcc.Fields(6) = Trim(txtClassNo.Text)
                mrcc.Fields(7) = Trim(txtMoney.Text)
                mrcc.Fields(8) = Trim(TxtNote.Text)
                mrcc.Fields(9) = Trim(txtAddMoney.Text)
                mrcc.Fields(10) = Trim(Combo3.Text)
                mrcc.Fields(11) = "未结账"
                mrcc.Fields(12) = Date
                mrcc.Fields(13) = Time
                mrcc.Fields(14) = Trim(Combo1.Text)
            mrcc.Update
            mrcc.Close
            MsgBox "添加信息成功!", vbOKOnly + vbExclamation, "提示"
        End If

---

感想：
回过头看，都不是很难，而且，回头在反复的去看，会有更加不一样的感受。记得给自己的学习和生活找找乐子！