[vb版机房] 机房收费系统总结
经过三个多星期的工作,机房收费系统结束了,机房收费系统是自己接受的第二个系统,不论代码量还是逻辑结构都要比第一个接触的学生信息管理系统复杂的多。老实说,自己对这个系统理解的还是皮毛,还需要自己以后不断的加深理解。
总体的介绍
![](/assets/blank.gif)
功能完善
![](/assets/blank.gif)
Private Sub Combo1_click(Index As Integer)For b = 0 To 2If Combo1(b).Text = "姓名" Or Combo1(b).Text = "备注" ThenCombo2(b).clearCombo2(b).AddItem ""Combo2(b).AddItem "="Combo2(b).AddItem "<>"ElseCombo2(b).clearCombo2(b).AddItem ""Combo2(b).AddItem "="Combo2(b).AddItem "<"Combo2(b).AddItem ">"Combo2(b).AddItem "<>"End IfNext b
'****************************************************************************For a = 0 To 2If Combo1(a).Text = "上机时间" Or Combo1(a).Text = "下机时间" ThenDTPicker1(a).Visible = TrueDTPicker1(a).Format = dtpTimeStyle = "color:#009900;" '设置成时间格式Text1(a).Text = DTPicker1(a).ValueElseIf Combo1(a).Text = "上机日期" Or Combo1(a).Text = "下机日期" ThenDTPicker1(a).Visible = TrueDTPicker1(a).Format = dtpShortDateStyle = "color:#009900;" '设置成日期格式Text1(a).Text = DTPicker1(a).ValueElseDTPicker1(a).Visible = FalseText1(a).Text = ""End IfNext a
End Sub
感受
收获
通常:
MsgBox nName
应该:
Debug.Print nName
If nNum = 0 Then
sName = "sancy"
Else
sName = "Xu"
End If
简单的代码:
sName=IIf(nNum=0,"sancy","Xu")
[vb版机房] 机房收费系统总结相关推荐
- VB.net版机房收费系统——结账功能实现(调错与优化)
调错部分 上一篇博客<VB.net版机房收费系统--结账功能实现(代码部分>说的是结账功能的实现,亮出了代码.是在为这篇博客做铺垫.尽管结账功能代码是借鉴的巨人的博客.可是自己比着葫芦画瓢 ...
- 机房收费系统-- MDI子窗体显示技巧(续vb.net版)
在vb6.0版的机房收费系统中说道过这个问题,回顾请点击:http://blog.csdn.net/chenjinge7/article/details/8231546这次在vb.net版本中想再次利 ...
- 重构机房VB.NET机房收费系统个人重构版你都学会了什么(之一)
每日一贴,今天的内容关键字为重构机房 在VB.NET机房收费系统个人重构版时你都学会了什么?在开始第二遍的机房收费系统个人重构时,我发明不知不觉竟接触了很多很多之前不晓得的货色,也学到了很多新知识.下 ...
- VB.net版机房收费系统——结账功能实现(代码部分)
实现结账功能的时候,被选项卡控件整的有点郁闷,瞬间脑袋就凌乱了,听上去自己好像很可笑的样子--于是,便去爬巨人的肩膀了~ 看了欢哥的博客,发现她的结账博客是按照"索引"思想写的,在 ...
- 可行性研究报告——【VB版机房收费系统】
1引言 1.1编写目的 在电子信息高速发展的今天,计算机已经是大家生活中必不可少的工具了.人工管理信息的时代已经一去不复返.计算机管理收费系统早已成为了现实,它具有管理方便.检索迅速.查找快速.可靠性 ...
- VB.NET版机房收费系统---七仙女之系统登录
VB.NET第一版机房收费系统,告一段落,验收的时候,问题也是大大的存在,没有用上设计模式,什么触发器,存储过程,都没有用上,看看其她小伙伴的,七层实现登录?那是什么东东,相比较我的三层而言,多了两倍 ...
- VB.NET版机房收费系统---报表
报表,即报告情况的表格,简单的说:报表就是用表格.图表等格式来动态显示数据,可以用公式表示为:"报表 = 多样的格式 + 动态的数据". 在没有计算机以前,人们利用纸和笔来记录数据 ...
- 机房收费系统【VB版】——前期准备
前言: 没有源码和参考的机房收费系统,很犯怵的开始,完全不懂如何下手,经过后来小伙伴的交流和巨人的博客. 准备: 1.安装机房收费系统程序 1.1添加ODBC数据源--添加文件DSN--附加数据库-- ...
- VB.NET版机房收费系统---组合查询
查询的意思就是查找,寻找,指在某一个或几个地方找出自己所要的信息,假如我想搜索一下我自己写的博客,名字叫做初雪之恋,我在百度的搜索框中输入丁国华三个字,会有怎样的惊喜等着我? 啊哦,这个信息并不是我想 ...
- 机房收费系统个人VB.NET版总结
机房收费系统已完成一段时间了,总结迟迟未发表,只因其中细节还有很多需要完善的地方,这两天对其中一些明显错误进行了修改,并添加一些必要的注释. 现在看起来注释的工程量还是蛮大的,注释本就是讲设计系统的想 ...
最新文章
- 读后感和机翻《人类因果迁移:深度强化学习的挑战》
- win10商店打不开_科技资讯:Win10系统电脑的应用商店老是打不开还闪退怎么办
- es6 新增数据类型Symbol
- Linux下查看Apache的版本号
- python3 字典 dict 常见用法总结(判断key是否存在)
- python小练习--模拟用户登录,(3次重试机会,登录成功展示登录账号密码)
- 杭电oj1176,2084java实现
- Hi3516A开发-- 常见问题FAQs
- java 服务器读取客户端文件,java 服务器读取客户端文件
- 合成艺术字二 :使用的透明类以及所用的颜色选择器JS(完整事列源码)
- asp.net通过webservice调用java接口全过程_100-RPC、RMI、WebService、httpClient、跨域、集群部署...
- python文件读取每一行操作
- CentOS 6与7对比【转】
- Linux之POSTFIX邮件服务
- 华为 USG6000防火墙管理员密码重置(配置会清空)
- Docker 配置国内镜像加速器,加速下载速度
- Linux安装应用时需要考虑时区问题并修改时区
- 用微信公众号做淘宝优惠券查券和返利机器人的详细设置教程
- 用java画企鹅_Fireworks绘制简笔QQ企鹅图像
- matlab mysql建系统_能环水体治理项目(Mysql数据库,Matlab创建GUI界面)【一】