【机房收费系统】关闭提醒与清空数据,显示条数
来源:互联网 发布:sql数据库大小限制 编辑:程序博客网 时间:2024/04/28 10:50
在不断的探索中进步!
一、关闭窗体时的提醒
为了用户更友好,我也想实现在关闭系统时,会弹出一个提示的界面,以免用户误关,丢失数据。
于是,我发现,我不会写点击右上角关闭按钮的代码,查了之后发现,原来道理都一样。
<span style="font-size:24px;"><span style="font-size:24px;"> Private Sub MDIForm_Unload(Cancel As Integer) If MsgBox("确定要退出吗?", vbInformation + vbYesNo, "机房收费系统") = vbYes Then Cancel = False End Else Cancel = True End If End Sub</span></span>又学会了一招,本来,我写的是form_unload,但是没成功,我想起来老师说的话,计算机的优点是可以随便改,也不怕出错,于是,我便大胆的改了起来,把form 改成了MDIform,这便可以了。
二、删除一个数据库表的所有数据
<span style="font-size:24px;">Do While Not mrc.EOF mrc.Delete mrc.Update mrc.MoveNext '这里的movenext 一定要有,是防止OLEDB多步操作错误的方法 Loop</span>
这里,用了一个循环语句,就是把这个数据库mrc的数据全部删除,如果想删除某一个具体的数据,可以在select * from basicdata_info where cardno=' " & trim(text1.text) & " '
三、显示数据库表中共有几条数据
txtSQL = "select count(*) as s from online_info" Set mrc = ExecuteSQL(txtSQL, msgText) lblPeople.Caption = mrc.Fields("s").Value mrc.Close
这段代码,就是在显示“当前上机人数”的count的原理。
0 0
- 【机房收费系统】关闭提醒与清空数据,显示条数
- 【机房收费系统】之MSHFlexGrid控件清空
- 机房收费系统之二(快速清空控件)
- 【机房收费系统重构版】一键检查、清空控件text属性
- 【机房收费系统】VB与grid++report交互(如何让数据以报表格式显示)
- 机房收费系统总结之关闭窗体
- [第一次机房收费系统]账号异常登录提醒
- 机房收费系统之子窗体显示问题
- 机房收费系统之子窗体显示
- 机房收费系统之窗体显示
- 机房收费系统之基本数据设定
- 机房收费系统之数据描述
- 机房收费系统之数据设计
- 机房收费系统数据要求说明书
- 机房收费系统之数据要求说明书
- 机房收费系统之添加数据
- 机房收费系统之查询数据
- 机房收费系统---数据要求说明书
- 安装外部的maven依赖到自己的本地仓库,通过mvn命令的方式
- sed例子
- App Extension编程指南(iOS8/OS X v10.10)中文版
- UITabbar 显示小红点 (消息提示)
- ACdream 1084 寒假安排(阶乘素因子分解)
- 【机房收费系统】关闭提醒与清空数据,显示条数
- 原型模式(Prototype)
- Component-Based or Interface-Based Arch.
- logback 常用配置详解(二) <appender>
- 源码阅读-HashTable
- Oracle 数据库实例启动关闭过程
- shell获取本机ip
- Codeforces Round #309 (Div. 1) D. Nudist Beach 数据结构
- Git 合并 patch 时的冲突处理一例