机房收费系统(三)--注册中
来源:互联网 发布:网络扫描技术 编辑:程序博客网 时间:2024/04/29 08:21
整理
有的时候,总是觉得自己做完了好像也没有收获啥,翻开自己的笔记,发现还是有东西值得反复去看深入去学习的。
关于书签
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
感想:
回过头看,都不是很难,而且,回头在反复的去看,会有更加不一样的感受。记得给自己的学习和生活找找乐子!
- 机房收费系统(三)--注册中
- 机房收费系统之三(注册窗体)
- 机房收费系统(三)
- 机房收费系统(1)-注册控件
- 机房收费系统总结(三)
- 机房收费系统总结篇(三)
- (三)查询功能-机房收费系统
- 机房收费系统(三)组合查询
- 机房收费系统(三)---TRIM函数
- 第一次机房收费系统--模块(三)
- 机房收费系统总结三
- 机房收费系统之注册窗体
- 机房收费系统问题——注册
- 机房收费系统注册之实时错误
- 机房收费系统“对象库未注册”
- 机房收费系统之如何注册控件
- 第一次机房收费系统-注册控件
- 机房收费系统之注册窗体
- Android View 问题杂谈
- MYSQL 学习笔记 之 JOIN
- DPDK(18):内存屏障
- scala基本语法
- 25.通用service的抽取
- 机房收费系统(三)--注册中
- Java修饰符
- 面试中提到jar包冲突
- IntelliJ IDEA设置修改文件后自动编译并刷新浏览器页面
- NOIP2017 列队 题解报告【56行线段树】
- Construct2初体验——用Construct2仿制坦克大战
- ipython安装
- Spring面向切面编程一
- 关于传输格式的验证