![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
机房收费系统
刘佳宇-Kevin
大道至简,道法自然
展开
-
【机房收费系统】——(全部下机,选择下机)
一直在全部下机和选择下机卡着,这几天突然来了灵感就写了写,感觉主要问题出在自己没有沉下心来思考,光想不实践感觉这样实现不了,其实写出来就已经成功一半了,人的思想和程序的思想还是有些区别的。Private Sub EverthingOffline_Click() Dim onlinemrc As ADODB.Recordset Dim onlinetext A...原创 2019-12-22 10:50:27 · 253 阅读 · 6 评论 -
【机房收费系统】——上机状态查询
这个窗体整理的时间比较长,理清逻辑有点难,上图了~~Private Sub cmdok_Click() Dim txtsql As String Dim msgtext As String Dim mrc As ADODB.Recordset '初始查询 txtsql = "select * from online_I...原创 2019-12-16 17:09:01 · 245 阅读 · 6 评论 -
【机房收费系统】——下机
感觉这个下机有点难~废了老大的劲,没事就琢磨琢磨快下课了就打开这个窗体调试调试一直推推推,到今天不能推了一股劲做完了,过程中也有许多坎坷,画的流程图也不是很完整,看博客也看不进去完全在未知的领域凭着之前在网吧的经验,一步一步摸爬滚打删列去表到现在取得最后的成功~~ 感觉有好多东西没有必要,比如上机的基础扣费站在老板的角度想肯定要扣啊,凭我这么多年的经验没有一个网吧是没有基础扣费的,好啦,废话...原创 2019-12-11 19:32:36 · 234 阅读 · 4 评论 -
【机房收费系统】——正在值班教师
不知道为什么越到晚上工作效率越高,这个是不是程序员的通病呢~~ 这个窗体总的来说比较简单,没有什么表与表之间的联系~之前一直没有重视的电脑的用户名,今天看了一下还是挺简单的,不过我之前把那些东西从数据库里删除了,可能会有连锁反应,之前一直在这一块堵着现在有了解决的办法,就算报错也可以添加上去了!!!Private Sub Form_Load() Dim mrc...原创 2019-12-10 20:52:54 · 237 阅读 · 3 评论 -
【机房收费系统】——基础数据设定
在敲这个窗体的时候很多问题没有注意到,也是因为各种问题很多没有很好的深入进去,导致逻辑混乱,也忘了画流程图,做了有一天的时间。很难过,时间就是这么被浪费掉的~~~错误:1.文本框赋值到数据表缺三个数据2.数据应该是更新而不是写入3.窗体加载显示的基础数据应该是从数据表调用,而不是写入Private Sub Form_Load() Dim txtsql As St...原创 2019-12-10 20:20:35 · 148 阅读 · 5 评论 -
【机房收费系统】——上机
这个窗体有两个大功能所以分开来写~~~Private Sub cmdUp_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtsql As String Dim mrc1 As ADODB.Recordset Dim MsgText1 As String...原创 2019-12-08 21:28:19 · 173 阅读 · 5 评论 -
【机房收费系统】——修改密码
Private Sub cmdOk_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtsql As String If txtpassword.Text = "" Then MsgBox "请输入当前密码!", vbOKOnly + vbInfor...原创 2019-12-08 21:25:24 · 203 阅读 · 1 评论 -
【机房收费系统】——充值记录查询
查询的流程代码什么的都差不多,只是改几个值。Private Sub cmdOk_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String txtSQL = "select * from Line_Info where cardno ='" ...原创 2019-12-07 14:44:38 · 230 阅读 · 3 评论 -
【机房收费系统】——查询上机记录
敲了一天的代码,上上上!!!'限制特殊字符和字母Private Sub txtCardNumber_KeyPress(KeyAscii As Integer) Dim cTemp As String cTemp = "`~!@#$%^&*()-=_+[]{};:'\|<>/?.‘“”’、,。——+()《》?,~·……¥!:;【】" & ""...原创 2019-12-05 19:51:25 · 184 阅读 · 2 评论 -
【机房收费系统】——学生查看金额
这个窗体相对来说比较简单,可以直接写!!Private Sub cmdok_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String If Trim(txtCardNumber.Text = "") Then MsgBox ...原创 2019-12-05 16:35:18 · 139 阅读 · 2 评论 -
【机房收费系统】——收取金额查询
做这个窗体的时候在结束日期和当前日期对比时,花费了一些时间,一开始以为两个格式是一致的,再次统一格式后就解决了。Private Sub cmdok_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String Dim line As Integer '用...原创 2019-12-05 15:42:08 · 242 阅读 · 4 评论 -
【机房收费系统】——充值
做这个充值属实费劲,卡了得有三四天把,报出“多步oled”问题,最后改了两个表所有的数据类型和字段,才调试好。过程很是艰辛,不管怎么样现在做好了还是挺开心的。 这里会少一个最小金额的判断,因为还没有创建后面的表所以,后期再添加上。Option ExplicitPrivate Sub cmdok_Click() Dim mrc As ADODB.Recordset...原创 2019-12-03 20:58:04 · 138 阅读 · 3 评论 -
【机房收费系统】——注册
来了来了,来来来上上!!! 这次是注册Private Sub cmdStorage_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String txtSQL = "select * from student_Info " '查询学生表 Set...原创 2019-11-30 17:13:28 · 175 阅读 · 4 评论 -
【机房收费系统】——登录
终于到机房了,让我先哭一会,这个流程图看着简单,画着着实花费了一些时间,经过多次指导终于画出了第一章流程图,别看这一张小小的图也让我学习了不少的东西。 If Trim(txtName.Text = "") Then MsgBox "没有这个用户, 请重新输入用户名!", vbOKOnly + vbExclamation, "警告" tx...原创 2019-11-28 19:03:37 · 157 阅读 · 6 评论 -
第一次【机房收费系统】配置
太难了,终于到这了,不解释好吧,上车上车!!一、配置sql sever1.附加数据库。2.添加文件3.点击添加可能会出现以下情况4.这是因为用户权限不足的问题,点击所述文件属性二、配置文件DSN1.打开ODBC数据源2.创建新数据源3.这个密码一定要和登录sql server 的一致,不然会出错误4.后面按顺序点,最后测试数据源...原创 2019-11-24 09:53:33 · 228 阅读 · 8 评论