机房收费系统之总结

 何为机房?何为机房收费系统?所谓机房指的是地点,也可以叫网吧收费系统,所谓机房收费系统,即这个系统是用来收费的,什么是系统呢?人体是最奇妙的系统,每个器官有自己的功能,但又互相合作、互相关联。

         收获

         前期:大家需要配置文件DSN;附加数据库;注册文件;这些难度系数都不大,之前在做学生的时候配置过ODBC、附加过数据库所以有一定的基础,注册文件会使用到DOS命令,根据所给素材里的内容一步一步做,还是很简单的,不会的话,可以查查巨人的博客,站在巨人的肩膀是嘛。

         中期:我听好多人说机房进行了好久,一直拖、不想进行。我教大家一个方法,先把自己会的一点一点弄好,这样也可以让自己的进度不那么慢。还有一个就是难的问题其实是由很多很多个简单的问题组成的,遇到问题的时候可以把难的问题进行拆分,拆分到自己可以解决的程度。中期就是添加代码的过程了。代码大部分都是写在按钮里的即对按钮进行编写。

所有的代码分为三大结构:

VB——三大结构

         顺序结构

 
  1. Private Sub cmdchange_Click()

  2. Dim a as integer

  3. Dim b as integer

  4. a=val(inputbox(“a”))

  5. b=val(inputbox(“b”))

  6. c=a

  7. a=b

  8. b=x

  9. MsgBox(“交换后a=” & a & ” b ” & b)

  10. End Sub

          循环结构:分为1.for…next 2.do…loop 3.while…wend

 
  1. 1.for…next

  2. For i=1 to 100

  3. p=p+i

  4. next

  5. 2.do…loop

  6. i=1

  7. do

  8. p=p+1

  9. i=i+1(或i+=1)

  10. loop until i>100

  11. 3.while…wend

  12. i=1

  13. While i<=100

  14. p=p+1

  15. i=i+1(或i+=1)

  16. wend

      判断结构

 
  1. If 判断条件 Then

  2. 代码块: 条件为Ture则执行

  3. Else

  4. 代码块: 条件为False则执行

  5. End If

VB——断点调试

哪里有错,就在哪里打断点!(这是巨人告诉我的)

调试分为:逐语句、逐过程

逐语句:就是一步一步的调试。逐过程:即一个过程一个过程的调试。

优点:可以看出程序与自己的思路是否有出入,及时调整,在调试的过程中可以将鼠标放在对应的代码上,它会出现相应的值,看是否是自己想要的。可以高速排查、提高效率。

         后期:现在这个阶段代码已经填充完成,但是还有一些错,主要是逻辑有问题,所以导致代码出错。大家遇到问题的时候呢,可以理一理思路,画一画流程图,给大家推荐一个画流程图的软件:processon。还有就是优化啦!给大家展示展示我的代码吧:

机房——导出Excel

 
  1. If MSHFlexGrid1.Text = "" Then '判断是否有记录可以导出

  2. MsgBox "没有记录可导出!", vbOKOnly + vbExclamation, "警告"

  3. Exit Sub

  4. Else

  5. Set xlApp = CreateObject("excel.application") '调用execel程序

  6. Set xlBook = xlApp.Workbooks.Add(1) '创建新的空白簿

  7. Set xlSheet = Excel.ActiveWorkbook.ActiveSheet '创建新的工作表单

  8. For i = 0 To MSHFlexGrid1.Rows - 1 '填入数据

  9. For j = 0 To MSHFlexGrid1.Cols - 1

  10. xlSheet.Cells(i + 1, j + 1) = MSHFlexGrid1.TextMatrix(i, j) 'cell(a,b)表示a行,b列

  11. Next j

  12. Next i

  13. xlApp.Visible = True '显示Excel表格

  14. Set xlApp = Nothing '交还控制给Excel

  15. End If

机房修改密码——强制下机

 
  1. Dim frm As Form

  2. For Each frm In Forms

  3. If frm.Name <> "Login" Then

  4. Unload frm

  5. If myexit = vbNo Or myexit = vbYes Then

  6. Cancel = False

  7. End If

  8. FrmMain.Hide

  9. frmLogin.Show

  10. frmLogin.txtPassword.Text = ""

  11. frmLogin.txtusername.Text = ""

  12. End If

     不足

         说一下自己对自己不满意的地方,遇到事情容易着急,这点特别不好,在以后我会慢慢改进,做到不论遇到什么事都可以风轻云淡,不受任何人的影响。时刻保持一颗积极向上的心,迎难而上!

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
机房收费管理系统 问题描述 结合我校计算机机房的运作模式,设计一种适合的收费管理系统,能够实现相关的人员检索,计时收费,管理汇总等功能模块。 开发环境 采用C或C++实现,VC++6.0 基本要求 主要功能模块: (1) 登录模块 (2) 上机管理模块 说明:上机登记时,余额不足3元或卡处于挂失状态,则拒绝登记。 每位同学的一次上机形成一条记录,每30秒遍历一次上机记录表,对表中所有正上机字段为TRUE的记录的上机用时增加30秒,同时减少上机卡表中的余额。 (3) 上机卡管理模块 (4) 充值挂失模块 (5) 查找统计模块:统计某天上机的总时数、每次上机的平均时数和机房的收入;某学生上机的次数、上机总时数、每次上机平均时间;挂失和查询余额。 参考的数据结构: 上机卡(卡号,姓名,专业班级,余额,状态),状态有:正常和挂失。 上机记录(卡号,上机日期,开始时间,上机用时,正上机,管理号代码) 上机记录表永久保存,用于事后查询和统计。 设计要求 1) 界面友好,输入信息符合逻辑:如上机时间设定在合理的时间范围。 2) 能从实践生活出发,设计合理的功能模块 3) 各类信息的数据结构明晰 4) 可根据自身生活体验添加相关功能模块。 拓展功能要求 鼓励采用Turbo C/C++、MFC等开发工具,实现彩色或图形操作界面。鼓励引入小型数据作为处理数据的来源,拓展知识面。
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值