机房收费系统
范志慧十五期提高班
这个作者很懒,什么都没留下…
展开
-
机房收费系统——结账
结账这部分算是机房收费系统的一个难点,之所以它难,是因为这个窗体不光涉及到代码,而且还涉及到算数的问题,还和报表有关,所以它是个难点,但是只要把思路弄清楚了,再难的东西也不怕啦!思维导图:思路有没有清楚一点呢?代码片段先让操作员的名字和label框实现同步: txtsql = "select * from user_info where userid= '" & Trim(cb...原创 2018-11-10 10:51:26 · 259 阅读 · 4 评论 -
机房收费系统优化篇
一、给主窗体添加快捷键:1、将cmdok的default的属性设为true2、在主窗体中添加如下代码:Private Sub form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.Hide frmMain.Show End IfEnd Sub二、字符的限制文本框...原创 2018-11-22 08:55:52 · 181 阅读 · 3 评论 -
机房收费系统——日、周结账单
最后一个难点就是报表——日、周结账单,这两部分几乎是相同的,只要把日结账单做出来了,周结账单也是so easy的,关键看你怎么做了,接下来看看我做的,仅供参考:日结:Option ExplicitDim WithEvents report As grproLibCtl.GridppReport '实例化报表Dim txtsql As String '实例化报表Private S...原创 2018-11-22 08:50:54 · 336 阅读 · 6 评论 -
机房收费系统——下机
上下机是机房收费系统中比较重要的一部分,所以我们一定要把上下机的思路理清楚才可以,不然会很乱,一会儿就把自己绕进去了,现在我们一起分析一下下机的思路吧!代码片段:判断上下机的情况 Private Sub cmdOffLine_Click() Dim mrconline As ADODB.Recordset Dim mrconline2 As ADODB.Recordset...原创 2018-11-10 10:20:56 · 297 阅读 · 2 评论 -
机房收费系统——注册窗体
这是机房收费系统的第一个窗体,所以也很基础,虽然很基础,但是这些代码我们仍然没有能力去独立完成,那么这个时候我们就会借助很多工具,比如师哥师姐的博客,百度等等。从他们的博客里面我们也就能找到自己的思路了,请看一下我的思路!以下是代码展示:Option ExplicitPrivate Sub cmdCancel_Click()Me.HideEnd SubPrivate Sub cmdC...原创 2018-10-28 17:29:51 · 202 阅读 · 7 评论 -
机房收费系统——上机窗体
机房收费系统——上机窗体上机窗体是在注册完之后需要上机的时候开始使用,但是具体的一些限制还是需要注意一下,比如该卡号是否注册,是否退卡等等,接下来就看看这个过程。具体代码如下所示:Private Sub cmdOnline_Click()'定义数据库对象Dim mrcStudent As adodb.RecordsetDim mrcCancelCard As adodb.Record...原创 2018-09-28 09:29:19 · 470 阅读 · 8 评论 -
机房收费系统VB版——系统分析
我们现在基本都做到了机房收费系统这个项目了,这个系统其实我们并不陌生,去过网吧的同学都应该用过,但是我们都只是作为一个用户来使用,并不了解这个系统真正的原理,下面就来分析一下这个系统到底是什么原理:1、机房收费系统主要任务流程是:注册——充值——上机——下机——退卡。其他的功能都是各个部分人员主要负责的功能接下来我们来分析这个系统的功能: 我们可以把这个系统比作是网吧的收费系统,而它主要...原创 2018-09-14 10:59:17 · 219 阅读 · 12 评论 -
## 报表设计器的奥秘
我想这是机房收费系统里面最后一个难点了吧,之所以它难,是因为我们不熟悉这个怪东西,那么它到底是什么东西呢?接下来我们一起来揭开它神秘的面纱!这个怪东西就是报表设计器,因为它可以显示更多更清楚的显示我们想要的信息,而且很全面,所以这个怪东西很好用,只要我们用熟了!那么这个怪东西究竟怎么用呢?如何实现和VB的完美结合呢?接下来就跟着我的步骤往下走吧!步骤一:首先,双击打开Grid+Report报表...原创 2018-10-27 20:54:38 · 197 阅读 · 5 评论 -
机房收费系统——登录窗体
这是机房收费系统的第一个窗体,所以它很重要,这个窗体和我们刚敲完的学生格外的相似,登录界面都是一样的,所以可以借鉴那个的登录窗体,首先来理一下这个思路: 以下是代码部分,希望可以帮助到大家Private Sub cmdOk_Click()'用来存放SQL语句 Dim txtsql As String ' 用来存放记录集对象 Dim mrc As ADODB....原创 2018-09-13 12:29:34 · 170 阅读 · 4 评论 -
机房收费系统——学生基本信息维护
这个窗体是一个简单的组合查询窗体,之所以它简单是因为它没有涉及到时间控件,所以可以节省不少代码量,但是它有一个难点就是把选中修改,把修改后的信息返还到这个窗体中,所以这个窗体也涉及到另外一个窗体!代码展示:学生基本信息维护Public TmpCardno As String 'TmpCardno称它为“临时卡号”,是您选择的那行数据的列的值Public tmpload As String ...原创 2018-11-10 11:45:30 · 417 阅读 · 4 评论 -
机房收费系统——添加和删除用户
这个窗体比较简单,以下是代码展示:添加和删除用户:Private Sub cboUserLevel_Click() Dim txtsql As String Dim msgtext As String Dim mrc As ADODB.Recordset txtsql = "select * from user_info where leve...原创 2018-11-10 11:38:47 · 317 阅读 · 3 评论 -
机房收费系统——学生上机状态查看
这个窗体都可以算成是一个小系统了,因为它包含了四个子菜单,最难的就是上机管理,下面我们就来分析 一下这个菜单吧!这个菜单包含所有学生下线和选中学生下线,选中下机我们要达到以下效果:代码片段:选中下机: Private Sub selstudentoutline_Click() Dim sz(999) As String '这是一个数组,用来存储带“√”的学号 ...原创 2018-11-10 11:31:03 · 465 阅读 · 5 评论 -
机房收费系统——组合查询窗体
组合查询这部分也是机房收费系统中的重难点,它的难点在于查询语句和它的逻辑思路:我们以上机记录查询窗体为例来看一下:首先我们会发现这个窗体的字段名中不光有卡号、姓名,而且还有上机日期,上机时间,下机日期和下机时间,所以这个时候我们就需要用一个时间控件来减轻用户的负担!为了便于和数据库的连接,我们需要定义以下两个函数:Public Function field(strfield As Stri...原创 2018-11-10 11:18:58 · 207 阅读 · 4 评论 -
机房收费系统总结篇
我认为这是我自己独立完成的第一个系统,从不懂到懂,这个过程虽然有些艰辛,有些漫长,但是付出的时间是很值得的,作为未来的 一名程序员,这些都是最最基本的了,所以每当我想到这些,想想眼前的困难并不算什么,而且这些本来就是该弄懂得东西,现在不学还等啥时候学?就这样随着时间的流逝,我的机房收费系统也慢慢的长大了,成熟了,现在我们回头看看这个系统到底有什么地方让人这么的困扰的呢?一、逻辑思路干什么事情都...原创 2018-11-22 09:27:37 · 214 阅读 · 5 评论