机房收费系统
小编总结的一些vb版机房收费系统的思路,流程,代码等。
「已注销」
这个作者很懒,什么都没留下…
展开
-
【机房收费系统】前期准备工作
前言 今天看了不少大神的博客,所以激励了我好好学习计算机的欲望,下面奉上机房前期准备工作的流程。 配置ODBC 添加后选择SQL SERVER. 此处的服务器输入英文的"."即可。 登录ID为"sa",密码为"123456".点击下一步。 到这,ODBC已经配置完,接下来附加数据库。 首先,登录数据库,密码为123456. 右击数据库-附加-添加,在这选择M...原创 2018-08-22 18:24:22 · 221 阅读 · 3 评论 -
机房收费系统——宏观把控
前言 机房收费系统进行了有一星期,完成了不少窗体的运行,但总觉得少点什么,不总结的学习实在空,所以,及时总结才是王道。下面来看看我对机房系统的宏观流程图吧!...原创 2018-09-10 17:31:31 · 276 阅读 · 5 评论 -
机房收费系统——登录
前言 对机房系统有了宏观把控以后,可以开始登录窗体了。先别急着敲代码,先搞懂要满足什么功能。登录窗体要做到用户能成功登录,并且有三种权限的设置。了解了要满足的功能,要对思路进行梳理,制作流程图就可以帮我们很好的梳理思路。 部分代码展示 限制登录次数代码 miCount = miCount + 1 If miCount = 1 Then MsgBox "密码输入错误,您还有两...原创 2018-09-11 10:11:13 · 530 阅读 · 10 评论 -
机房系统——导出Excel
前言 机房系统中有好几个窗体都需要把查询的信息导出Excel,那么,既然都一样,是不是就可以写出一个代码再复制粘贴就OK了。代码中只要有大量重复的代码出现就代表有很大的冗余,而我们为了让程序更快速运行,代码量更少,就可以使用函数,使用时候进行调用就可以了。我们来看看是如何使用代码实现这个功能的! 打开工程—引用—选择Microsoft Ofiice 15.0 Object Library....原创 2018-09-11 10:47:24 · 309 阅读 · 7 评论 -
机房收费系统——学生基本信息维护(组合查询、单机选中整行信息)
前言原创 2018-09-16 20:59:06 · 433 阅读 · 8 评论 -
机房收费系统——“94”错误 无效Null值
在机房系统中的操作员工作记录窗体中会有空值,在查询数据时会出现”94”错误,如下图。因为VB6是不允许给变量辅助为Null的,那怎么解决这个问题呢? 在会出现空值的字段代码后加上 ’ &“” ’ 即可。在值为null时显示“ ”. Do While Not mrc.EOF .Rows = .Rows + 1 .CellAlignment = 4 .TextM...原创 2018-09-16 20:27:52 · 256 阅读 · 7 评论 -
机房收费系统——上机
前言 上机在机房系统是至关重要的,只要捋清思路,把大问题分解成一个个的小问题再去解决,困惑就自然迎刃而解了。来看看我的思路吧! 代码片段 Private Sub cmdOnline_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset Dim mrc1 As AD...原创 2018-09-21 16:45:52 · 340 阅读 · 12 评论 -
机房收费系统——基本数据设定
例如:机房系统中将已经上机的学生选中进行下线原创 2018-09-19 15:55:47 · 415 阅读 · 10 评论 -
机房收费系统——下机
前言 下机在机房中是比较难的,也不能说难,在搞懂逻辑之前只能说迷糊,搞懂以后你绝对就不说难了。其中也遇到了很多问题,比如时间格式的转化,这么多表到底该删除哪个,更新哪个。不过已经被我一一的解决了,流程图真的是个好工具!其中,对于上机表的删除和下机表的更新可以使用触发器实现,在优化中在继续研究! 代码片段 Private Sub cmdOffline_Click() Dim txtSQL ...原创 2018-09-21 17:02:55 · 424 阅读 · 13 评论 -
机房收费系统——组合查询优化(添加DTPicker控件)
干货 组合查询窗体中查询字段有日期有时间,那这样我们还用文本框来显示的话是不是用户体验很不好,本着提升用户体验的想法把文本框换成DTPicker控件。下面看看效果和怎么实现的。 功能是当点击需要输入日期时间的查询条件时,文本框自动转换为时间控件。时间控件要使用数组,利用循环语句减少代码量。 Private Sub comFields1_Click(Index As Integer) Dim i ...原创 2018-10-13 19:55:19 · 395 阅读 · 6 评论 -
机房收费系统——结账
前言 结账窗体难在把账缕清,不能让用户用你的系统亏钱啊。下面看看我对这个窗体细节的理解。 一、界面设计 我把操作员用户名改为了文本框,只能输入,而姓名栏改成了label框,当用户输入用户名时,名字自动显示。窗体中用到了新控件——SSTab,切换SSTab选项卡用tab属性即可。 二、与各表联系 1.购卡:student表中此操作员注册的卡 2.充值:recharge表中此操作员充值的,未结账的记...原创 2018-10-14 17:04:29 · 692 阅读 · 15 评论 -
机房收费系统优化——添加密保功能
前言 机房中有改密码的功能,但是是要知道原密码才能改。如果现在系统已经打包供给客户进行使用了,客户登录密码忘记了,怎么解决?这时,密保派上用场了。看看我是怎么实现这个功能的! 样式展览 功能介绍 1.登录时自动检测此账号是否设置密保,如果没有密保,自动弹出设置密保窗体,设置成功才可登录。 2.忘记密码通过之前设置的密保找回,选择问题,答案,输入验证码,全部正确后方可修改密码。 3.我在数...原创 2018-10-23 20:40:51 · 261 阅读 · 14 评论 -
机房收费系统——动态查询自动下机
前言 在机房系统中,强制下机是非常必要的,当用户余额用完时自动下机。做这个功能还是比较坎坷的,用时2天才完成。最开始的思路是在timer中使用循环,当上机时间每大于5分钟时进行扣费,更新表里余额,写好代码运行,发现上机时间大于5分钟后,每次执行timer都要扣一次费,也就是只要上机时间到了5分钟,用不了1s卡里的钱都被扣光。这时,需要定义一个时间变量,上机时长大于5分钟后,上机时长要+5分钟,以防...原创 2018-10-26 20:09:29 · 503 阅读 · 17 评论