机房收费系统——宏观把控

强烈推荐一个大神的人工智能的教程：http://www.captainbed.net/zhanghan 做一个系统首先要有自己的想法。每个人的设计都是不一样的。上机首先要考虑给你一个账号，它在什么情况下才可以上机？上机后又在什么情况下才可以下机？一张图来宏观把控一下吧！ 一、宏观把控 我...

前言 对机房系统有了宏观把控以后，可以开始登录窗体了。先别急着敲代码，先搞懂要满足什么功能。登录窗体要做到用户能成功登录，并且有三种权限的设置。了解了要满足的功能，要对思路进行梳理，制作流程图就可以帮我们很好的梳理思路。 部分代码展示 限制登录次数代码 miCount = miCount + 1 If miCount = 1 Then MsgBox "密码输入错误，您还有两...

机房收费系统——信息科学的力量      机房已经从开始到现在已经拖了好长的时间了，觉得自己好多的不会，又回去看三 层，复习设计模式。看着振华、每一步都学的好踏实，进度 Duang  的上来，自己真是 那愧疚呀！     　　 现在网络这么的发达，信息这么的全，还担心没有巨人吗？关键是自己要花时间去 做，还记得刚来提高班的时候，我们学习O-easy视频，内容就是教我们如

前言：        机房收费系统是我们接触的第一个没有源码的项目，这就是开始考验我们独立思考的阶段了。汲取了之前做学生信息管理系统的经验，这次开始之前就做了个全局的导图，方便过程中的知识梳理。 思维导图：        其实，心里一直不想开始机房，原因有三，第一“懒”、第二“没头绪”、第三“拖延症”。但是今天还是“逼”着自己去做了，这也是学习的第一步吧！好了，接下来说说今天

强烈推荐一个大神的人工智能的教程：http://www.captainbed.net/zhanghan 看完视频后脑子中出现了两个数字，9和4,9代表什么呢？9代表UML中的9种图，4又代表什么呢？4即是UML中的四种关系。看过了软工视频，了解了开发一个项目的一套流程，写完第一遍机房收费系统的文档，了解了文档的指导性意义，现在又接触了UML，他里边的九种图真是给文档...

这是一个宏观的把控系统开发总概括，对于对象、类等进行一定的大体的设计，设计人员可以通过概要设计为接下来的详细设计做准备。 预期读者是设计人员。

学生信息管理系统完成后，

前言 结账窗体难在把账缕清，不能让用户用你的系统亏钱啊。下面看看我对这个窗体细节的理解。 一、界面设计 我把操作员用户名改为了文本框，只能输入，而姓名栏改成了label框，当用户输入用户名时，名字自动显示。窗体中用到了新控件——SSTab，切换SSTab选项卡用tab属性即可。 二、与各表联系 1.购卡：student表中此操作员注册的卡 2.充值：recharge表中此操作员充值的，未结账的记...

前言 在机房系统中，强制下机是非常必要的，当用户余额用完时自动下机。做这个功能还是比较坎坷的，用时2天才完成。最开始的思路是在timer中使用循环，当上机时间每大于5分钟时进行扣费，更新表里余额，写好代码运行，发现上机时间大于5分钟后，每次执行timer都要扣一次费，也就是只要上机时间到了5分钟，用不了1s卡里的钱都被扣光。这时，需要定义一个时间变量，上机时长大于5分钟后，上机时长要+5分钟，以防...

干货 组合查询窗体中查询字段有日期有时间，那这样我们还用文本框来显示的话是不是用户体验很不好，本着提升用户体验的想法把文本框换成DTPicker控件。下面看看效果和怎么实现的。 功能是当点击需要输入日期时间的查询条件时，文本框自动转换为时间控件。时间控件要使用数组，利用循环语句减少代码量。 Private Sub comFields1_Click(Index As Integer) Dim i ...

前言

前言 下机在机房中是比较难的，也不能说难，在搞懂逻辑之前只能说迷糊，搞懂以后你绝对就不说难了。其中也遇到了很多问题，比如时间格式的转化，这么多表到底该删除哪个，更新哪个。不过已经被我一一的解决了，流程图真的是个好工具！其中，对于上机表的删除和下机表的更新可以使用触发器实现，在优化中在继续研究！ 代码片段 Private Sub cmdOffline_Click() Dim txtSQL ...

例如：机房系统中将已经上机的学生选中进行下线

前言 上机在机房系统是至关重要的，只要捋清思路，把大问题分解成一个个的小问题再去解决，困惑就自然迎刃而解了。来看看我的思路吧！ 代码片段 Private Sub cmdOnline_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset Dim mrc1 As AD...

前言 机房系统中有好几个窗体都需要把查询的信息导出Excel，那么，既然都一样，是不是就可以写出一个代码再复制粘贴就OK了。代码中只要有大量重复的代码出现就代表有很大的冗余，而我们为了让程序更快速运行，代码量更少，就可以使用函数，使用时候进行调用就可以了。我们来看看是如何使用代码实现这个功能的！ 打开工程—引用—选择Microsoft Ofiice 15.0 Object Library....

在机房系统中的操作员工作记录窗体中会有空值，在查询数据时会出现”94”错误，如下图。因为VB6是不允许给变量辅助为Null的，那怎么解决这个问题呢？ 在会出现空值的字段代码后加上 ’ &“” ’ 即可。在值为null时显示“ ”. Do While Not mrc.EOF .Rows = .Rows + 1 .CellAlignment = 4 .TextM...