——机房收费系统
草莓味少女vv
闻道有先后,术业有专攻!
展开
-
三层架构-初理解
开始机房的准备工作时,查资料发现了三层架构这个名词,觉得很感兴趣于是就去百度了很多。 米老师曾经说过,不怕不知道,就怕不知道!不知道的百度了,知道了这个东西,这就是收获!(看到了很多关于三层架构的博客受到很多启发)思维导图上: 各层结构的介绍: 界面层:位于最外层(最上层),最接近用户。用于显示数据和接收用户输入的数据,为用...原创 2017-11-04 19:57:04 · 396 阅读 · 20 评论 -
机房收费系统 —— 修改信息
前言敲完之后,忘了是谁问我修改信息的怎么弄的?我仔细想了想,自己没有弄这个呀!于是又开始了一个command的奋斗,但是自己一点思路都没有,在csdn找,只有组合查询的问题,难道大家都会这个吗?还是都没有发现呢! 后来问的日子,找到了思路。正文步骤首先这个功能是修改查到的表格的信息,在学生基本信息维护的窗体中。 查询的一串信息中,选中要修改的信息。 此时出现一原创 2018-02-05 16:00:47 · 589 阅读 · 22 评论 -
机房收费系统 —— 退卡
退卡逻辑 判断卡号是否为空(是否输入) 判断有无卡号(是否注册) 判断卡号是否正在上机(上机时不能退卡) 退卡 更新数据库注意事项换行符的添加因为在窗体中需要有一个文本框来显示“您已退卡,卡内余额是****8”但是句子太长,不方便用户观看和了解,所以原创 2018-01-28 20:36:34 · 372 阅读 · 29 评论 -
机房收费系统 —— 登录窗体
前言登录窗体大多数和学生信息管理系统相似,不过有一个判断用户级别的代码需要注意!正文登录窗体如图,非常的简洁。 因为机房收费系统是分为一般用户,管理员,操作员三个level的,各个level的功能和权限是不同的,如果能够设计权限就更好了。代码如下'判断用户级别 Dim Userlevel As String txtsql = "select原创 2018-02-04 21:08:38 · 356 阅读 · 23 评论 -
机房收费系统 —— 组合查询
以学生上机统计信息查询前言学生上机统计信息查询要实现的功能是查询 line 表中的一些信息,要查询的关键词主要是line表中的各个属性,可根据多个属性结合的方式来查询相关内容,所以是组合查询。 正文代码如下(相关解释在代码里)Private Sub cmdOK_Click() '建立与数据库的联系(查询line表) txtsql = "selec原创 2018-02-01 20:05:09 · 476 阅读 · 11 评论 -
机房收费系统——上机
思维定式害死人~很多人都说机房收费系统上下机很难,如果你也这么想,那你就被思维定式给害了,你还没做,为什么别人说难你就觉得你也是很难,所以当遇到一个新的事物时,我们要心有猛虎,细嗅蔷薇,用匠人的精神去面对,没有难的东西,只有不熟悉的~上机的流程图 细节注意:(1)充值的代码怎么把...原创 2018-01-25 17:17:36 · 337 阅读 · 28 评论 -
机房收费系统 —— 金额返还信息查询
前言在机房收费系统中,操作员或者管理员需要查看退卡人的相关信息, 所以出现了这个船体,主要功能是查询任意时间段内退卡人的信息。正文这个窗体一开始我认为比较陌生的是时间控件和导出为Excel,这些是新知识,确实是没有见过,那我们就需要站在巨人的肩膀上了。(1)查询任意时间段的信息: '查询数据库中需用日期段的内容 txtsql = "select * from c原创 2018-01-31 19:26:53 · 386 阅读 · 10 评论 -
机房收费总结 学生上机状态查询
所有学生下机 Private Sub cmdallstudown_Click() txtsql = "delete from online_Info" Set mrc = executeSQL(txtsql, msgtext) '将查询内容显示在表格控件中 With myFlexGrid ....原创 2018-01-07 15:46:54 · 732 阅读 · 20 评论 -
机房收费- 充值
机房充值的窗体非常简单,但是还是有几个点需要注意: 1.一个加法 充值之后,需要一个文本框来显示现在的余额,那么需要将现在充值的余额加上数据库中的余额。我定义了一个变量来存放临时金额,代码如下: Dim depositmoney As String '存放临时金额 '充值的过程 depositmoney = Tri...原创 2017-12-16 11:37:44 · 357 阅读 · 27 评论 -
朝花夕拾之机房收费系统
朝花夕拾之变量的命名规则 重要命名规则 在每个代码范围内使用足够短和足够长的名称:例如循环计算器用一个字符就可以了,如i;条件和循环变量用一个单词,方法名1-2个单词,类名2-3个单词,全局变量3-4个单词组成为变量指定一些专门名称,不要使用例如 "value", "equals", "data" 这样的变量名变量名要使用有意义的名称,...原创 2017-11-25 21:35:25 · 392 阅读 · 31 评论 -
机房收费-查询-查看学生余额
最近在敲机房的查看学生余额,虽然看到很多人的对象窗口,知道怎么弄“舞台”上的东西,可是“幕后”的东西一点头绪都没有,一行代码的思路都没有。 经过看小伙伴的机房给我的启示,突然发现怎么如此的简单。自己怎么都没有想到和学生的代码没有什么差别啊! 定义-判断语句-查询语句-给文本框赋值(优化的地方:限制文本...原创 2017-12-03 11:48:19 · 398 阅读 · 21 评论 -
机房收费系统-91错误捣蛋
[前言-程序猿的崩溃瞬间] 周五是很叫人崩溃的一天,什么事情都没有做成,睡午觉被我的机房收费系统吓醒,想到还有还多没有完成,怎么办?于是收拾后来到机房~91错误解决了1个小时还是没有解决,头都大了,请教大神刁,他认真的帮我弄,也是找不到错误的存在,晚上也是接着弄,还是在426没有网的前提下,仍然没有完成,我的心哟,扎了~回宿舍时和日子相互吐槽,回去听到室友的好消息,她丢了一周...原创 2017-12-02 11:27:21 · 399 阅读 · 18 评论 -
两个自定义函数在vb中遨游
在敲机房和学生的时候,我们总是会用到两个英语单词,那就是 txtsql 和 msgtext,他们两个是什么呢? 以前一直没有探索过,今天才知道,他们是两个参数。 Dim txtSQL, msgtext As StringDim mrc As ADODB.Recordset txtSQL = "select * from user_Info where us...原创 2017-11-26 11:07:49 · 578 阅读 · 29 评论 -
为什么要有上下机
在我开始机房的时候,我一直再想,为什么要有机房收费系统?这个系统是要为什么要弄上下机?系统时机房收费系统,所以上下机就是为了计算上机时间便于收费‘’ 上机有什么条件?卡号是否存在?是否注册?卡号是否为空?此卡是否正在上机?余额是否充足? 上机的功能显示学生的信息 下机有什么条件?卡号是否为空?卡号是否存在?是否在上机?是否达到...原创 2017-11-19 19:53:32 · 369 阅读 · 25 评论 -
机房收费系统 ——删除用户
在机房中有一个和表格设置有关的窗体,那就是删除用户功能删除用户的功能就是查找级别用户,比如我要删除一般用户里的** ,那我就先选择等级,在这个一般用户的表格里找到这个人,将其删除! 具体代码Private Sub Command1_Click() '删除按钮的代码 myFlexGrid.SelectionMode = flexSelectionByRow '单击原创 2018-01-30 11:37:22 · 309 阅读 · 29 评论