![](https://img-blog.csdnimg.cn/20190918140012416.png?x-oss-process=image/resize,m_fixed,h_224,w_224)
机房总结
机房总结
Tzk_
初听不知曲中意,再听已是曲中人。
展开
-
机房收费系统之登录
这部分 内容与 学生管理系统十分相似,唯一的一些差别就是在登录类型那里 分为,一般用户,操作员,管理员,再将表更新。先看一下流程图吧。注意事项1.要限制用户控件的字符2.要限制登录不同类型的人,有不同的权限。3.密码输错三次,退出程序。代码Private Sub cmdOK_Click() Dim txtSQL As String '用来存放...原创 2019-06-14 20:57:51 · 505 阅读 · 14 评论 -
机房总结
从一开始的学生信息管理系统,在到现在的机房管理系统,都是在一次次的增加我们对整个系统的思考能力。 在一开始敲机房的时候 我一般都是着这自己之前的学生 改的。 以为自己的逻辑没那么强,只好照着改, 改着改着就逐渐的找到窍门了。 在写每一个窗体的时候,先 画一个 大致的流程图, 是在不会画, 可以先参考一下别人的流程图, 然后自己在思考一边,改进一下。然后照着自己的逻辑去实现。 思路就会清晰很...原创 2019-08-25 19:35:43 · 732 阅读 · 8 评论 -
机房收费管理系统之上机状态查看
机房收费系统中查看学生上机状态 ,其功能就是查看 正在上机的学生,并将他们下机,下机方式有两种,一种是 全部下机, 另一种是选中下机, 其中选中下机 实现较为困难一点。 因为选中下机 一次 就要更新一次。 会出现一些莫名其妙的问题。全部下机代码部分 'MSHFlexGrid1内数据循环删除 Do While Not MSHFlexGrid1.Rows = 1...原创 2019-08-25 15:01:08 · 883 阅读 · 14 评论 -
机房收费管理系统之金额返还信息查询
本窗体思路, 站在巨人的肩膀上。 Dim txtsql As String Dim Msgtext As String Dim mrc As ADODB.Recordset '设置起始日期不得大于终止日期 起始 begindate 终止 enddate If begindate.Value ...原创 2019-07-28 15:14:54 · 726 阅读 · 22 评论 -
机房收费管理系统之日结账单
日结账单,里面包含了上期余额,当日充值金额,当日消费金额,当日退还金额,本期金额。 上期余额:指昨天的本期金额 当日充值金额:指今天充值的总帐 当日消费余额:指顾客上机消费的总额 当日退还金额:指顾客退卡的钱数本期金额:今天的总账(购卡金额+充值金额-退卡的钱)'计算上期余额t...原创 2019-07-28 14:51:09 · 726 阅读 · 17 评论 -
机房收费管理系统之退卡
退卡是将学生表中卡号信息删除,并将status列改为不使用。退卡逻辑思路如下:问题及重点代码:1.vbCrLf=Chr(13) & Chr(10) 回车+换行符2.文本框多行显示:Multiline = True 意思是可决定一个控件可以接受多行文本判断卡号 If Trim(txtCardNo.Text) = "" Then Ms...原创 2019-07-30 09:10:06 · 748 阅读 · 15 评论 -
机房收费系统之结账
结账的内容,就是上面这个图。首先你要选择操作员用户名,然后就根据用户名 去找到对应的真是姓名和级别。在而找到他给别人开卡的时间,以及充值记录,和退卡情况,最后就是结账。 这些内容都必须是 管理员控制的, 其他人没有权限。其中用到了 SStab 控件。代码展示部分 If TxtCZ.Text = "0" Or TxtXJ.Text = "0" Then ...原创 2019-06-29 15:16:10 · 667 阅读 · 20 评论 -
机房收费管理系统之下机
逻辑,做事先理好逻辑, 先干什么,再干什么。在写代码就思路清晰的多。下机要清算好,消费金额, 不能把账算错。画个流程图代码部分Private Sub cmdOffline_Click() Dim txtSQL As String Dim Msgtext As String Dim mrc As ADODB.Recordset Dim mr...原创 2019-06-29 08:50:29 · 675 阅读 · 16 评论 -
机房收费管理系统之上机
上机部分,是属于比较难理解的一块, 其中不免会出现问题,耐心解决。 向身边的巨人 寻求帮助。一 流程图。二 注意部分 1.判断卡号是否注册,退卡,余额是否大于最小上机金额时,用到了student 表。 2.判断是否上机时,用到了Online表。 3.除了卡号的文本框以外,其他的文本框都不可输入 4.显示信息时将上机前的余额提出来,用于下机时计算...原创 2019-06-21 10:00:22 · 710 阅读 · 16 评论 -
机房管理系统之注册
注册窗体,都基本类似。查找:调用InquiryBalance - 学生查看余额窗体。清空:所有控件内容清空。存盘:就是把信息添加到表中。 退出。代码部分:Private Sub cmdSave_Click() '定义数据集对象 Dim mrc As ADODB.Recordset '定义字符串变量,表示查询语句 Dim Msgtext ...原创 2019-06-21 09:19:33 · 541 阅读 · 19 评论 -
机房收费管理系统之组合查询
当自己没思路的时候 不妨多查查博客。 会有极大的收获。首先你要判断第一组和是否为空,然后选择组合关系后判断二、三组合是否空值。下面是代码 txtsql = "select * from worklog_info where " If Trim(Combo1.Text) = "" Or Trim(Combo4.Text) = "" Or ...原创 2019-08-25 19:53:09 · 770 阅读 · 9 评论