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