第一次机房收费系统
第一次机房收费系统
会开飞机的尼克斯
这个作者很懒,什么都没留下…
展开
-
机房收费系统——实时错误‘3021’
问题实时错误‘3021’:BOF或EOF中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录我出现该问题的位置是在修改密码这个窗体中,在旧密码输入不正确然后提醒用户“原密码不正确”之后就会出现这个错误。解决方法当遇到这个问题时我的解决办法是运用一个If语句,让程序直接进行下一步'判断原密码是否正确If mrc.EOF And mrc.BOF Then '没有记录 MsgBox "原密码不正确或无记录,请重新输入!", vbOKOnly + vbEx原创 2020-05-27 09:46:24 · 362 阅读 · 5 评论 -
机房收费系统——权限判断
机房收费系统——优化原创 2020-05-26 20:45:54 · 271 阅读 · 1 评论 -
机房收费系统——选中下机
“学生上机状态查看”窗体中相对较难的部分是选中下机,而选中下机的重点在于如何实现“选中”的,以下是我的流程图和部分代码☟☟☟全部下机和选中下机流程图MSFlexGrid控件-选中行Private Sub myflexgrid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim col As Integer '选中相应行时,在选中行的第6列显示√ If myflex原创 2020-05-26 17:26:12 · 146 阅读 · 2 评论 -
机房收费系统——下机
流程图部分代码计算消费时间 '计算上机时间 intLineTime = (Date - DateValue(onw!ondate)) * 1440 + (Hour(Time) - _ Hour(TimeValue(onw!OnTime))) * 60 + (Minute(Time) - _ Minute(TimeValue(onw!OnTime))) '计算机上原创 2020-05-24 16:53:17 · 210 阅读 · 1 评论 -
机房收费系统——上机
还在敲学生信息管理系统的时候,就被师哥师姐告知机房有点儿难,尤其是什么上下机,动态显示金额还有强制下机部分。所以开始机房收费系统之后,我就先把上下机这几部分跳过了,等把别的窗体敲完调试好之后,发现上下机中,实际上上机还是比较简单的,就是逻辑性相对于其他窗体来说强一点,但是如果我们把上机的流程画到图上可能更清楚一些。部分代码展示:逻辑流程 '查询卡号是否存在 Dim onsql As String Dim onmrc As ADODB.Recor原创 2020-05-23 21:00:04 · 344 阅读 · 1 评论 -
机房收费系统——获取计算机名
在机房收费系统的某些窗体中,我们需要获取计算机名,通过各种搜索,终于在巨人的博客中找到了解决方法,emmmm,现在我也来总结一下下叭☟☟:使用API函数来获取计算机名:'定义获取当前计算机名的函数Public Function ComputerName() As StringDim CoName As String'将ASCII值转换为字符串CoName = String(255, Chr$(0))GetComputerName CoName, 255'返回goname中从左至InSt原创 2020-05-23 17:20:31 · 189 阅读 · 1 评论 -
机房收费系统——添加和删除用户
“添加和删除用户”这个窗体看起来并不难,但是我们还是要注意一些细节的。昨天被小伙伴安利了一个做流程图的网页,确实在敲代码之前画一画流程图可以让自己的逻辑更加清晰☟☟☟问题实时错误‘91’对象变量或with块变量未设置想必这个错误大家再熟悉不过了,但是这次一开始我真的不知道错在哪儿,后来通过师哥的博客发现原来在模块中,有限制如果有INSERT、DELECT、UPDATE语句,则会执行错误类型判断语句,查询错误。将DELECT删除掉就可以解决这个问题啦~补充...原创 2020-05-18 14:48:07 · 224 阅读 · 2 评论 -
机房收费系统——实时错误“3704”
昨儿,敲完“机房收费系统——添加和删除用户”窗体之后运行的时候,出现了下图所示的错误,怎么shuo呢,还是太马虎。问题实时错误“3704”对象关闭时,不允许操作。解决方法:看到下图报错的位置,用jio指头想想都知道肯定是数据库的问题(昨儿可能是用jio后跟想的叭~),而在这个窗体中可能出现的关于数据库的问题无非就是SQL语句写错了,可能是查询的相关数据表的列名与数据库中表的列名不同,例如:数据库中的表中是userID,而在txtSQL = "select * from user_In原创 2020-05-18 09:18:43 · 381 阅读 · 1 评论 -
机房收费系统——组合框查询
在机房收费系统中,有好几个窗体都涉及到了组合查询,那么就以“学生上机统计信息查询”窗体为例,只有理清思路,弄清楚它的逻辑关系,我们才能够更好的完成这类窗体。当我们对示例窗体运行一遍后,我们可以大致了解到组合框之间的关系,即当只有一层查询时,没有组合关系 第一个下拉框和第二个下拉框选中相关内容时,为第一个组合关系,组合关系为“与”或者是“或”关系 三个下拉框都选中时,为第二个组合关系,组合关系为“与与”、“与或”、“或与”或者是“或或”关系组合查询代码:...原创 2020-05-13 20:45:23 · 163 阅读 · 1 评论 -
机房收费系统——导出为Excel✿
在机房收费系统中,我们可以看到有很多很多的查询窗体,而在这些查询窗体中我们用到从MSFlexGrid记录导出为Excel,跟之前接触的学生信息管理系统的查询窗体相比,多了一步,即:将网格控件中的数据导出到Excel中。处理这个问题时,我找到了两种可行的解决方法第一种方法:工程引用——勾选Microsoft Excel 16.0 Object Library当然在引用之前,我们一定要保证电脑上有Office应用程序,(有时有该应用程序,但是在直接勾选时会出现问题)出现问题时我们可以采用以下方式原创 2020-05-09 17:02:19 · 200 阅读 · 2 评论 -
模式窗体和非模式窗体
模式窗体模式窗体也可称为模态窗口,即用户必须在完成该窗体上的操作或关闭窗体后才能返回打开此窗体外的窗体。也就是说,在模式窗体下,如果我们想对其他窗体进行操作,必须要先完成该模式窗体相对应的操作。我们经常使用到的一种模式窗体是msgbox(警示框),警示框中一般会有两个基本按钮,一个“确定”按钮用来提交,另一个“取消”按钮用来撤销提交,强迫用户完成该窗体上的相对应的操作,才可以切换到其他界面。...原创 2020-05-05 21:19:24 · 1849 阅读 · 1 评论 -
运行时错误‘-2147217887(80040e21)’
在机房收费系统登录的时候产生了如下图所示错误:产生错误的原因:计算机的名称太长,超过了数据库中允许的计算机名字的长度此时我们需要更改计算机的名称,此电脑——属性——更改设置——重新命名这台计算机具体操作如下图:更改完名称之后,可能要重启计算机,重新启动后,需要再次配置一下数据库...原创 2020-05-05 11:32:47 · 1887 阅读 · 1 评论 -
机房收费系统------注册文件
在机房收费系统使用说明中,有一条之前没有接触过的内容,如下图框框中。。在搜索框输入“cmd”——以管理员身份运行——按照上图输入命令,输入命令之后可能会出现下图中的错误:通过查看师哥的博客,找到了解决办法,我们可以将这几个控件复制到C盘中,然后重新操作即可注册成功...原创 2020-05-05 11:00:18 · 121 阅读 · 1 评论