【机房收费系统】
@Herry
懒人
展开
-
SQL数据库连接问题
最开始的原因是机房给的文件打不开出现错误,然后更改了自己的计算机名称后出现了数据库连接不上以及无法配置ODBC的问题。 提示:如果想看我分析过程请看全部,如果只需要答案直接看第四步。一:“-2147217887错误”(机房登录不上问题)原创 2017-09-13 11:40:33 · 817 阅读 · 31 评论 -
机房收费--组合查询
前言:举例操作员查询案例,组合查询中因为涉及到很多的控件,可以设置控件组,并且需要考虑到组合过程中哪些控件不可以动以及不可以输入哪些字符。设置代码将组合语句屏蔽掉: If cboConnect1.Text "") Then cboField2.Enabled = True cboOpe2.Enabled = True cboCon原创 2018-01-01 21:25:49 · 339 阅读 · 1 评论 -
机房收费--学生上机状态
前言:本节中主要是下机的运用,查询只是调用其中的组合查询,显示全部只是将数据库中的内容显示出来。生成模式全部下线'让所有学生下线 Dim OnlineSQL As String, LineSQL As String, BasicDataSQL As String, studentSQL As String Dim mrcBasicData As ADODB.Re原创 2018-01-01 21:00:53 · 519 阅读 · 3 评论 -
机房收费--收取金额查询
生成窗体FormMe.Width = 11520 ‘初始大小 Me.Height = 11520查询 Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String Dim date1 As String Dim date2 As String'连接充值表原创 2018-01-01 20:25:20 · 363 阅读 · 0 评论 -
机房收费--上下机
上机判断为空、数字、注册、使用状态、上机、余额(不足弹出充值)更新在线表、上机人数,桌面内容。上机成功!下机判断为空、数字、注册、在线定义存储时间消费余额单价。计算余额。更新界面、清空界面、更新line、上机人数。重要代码判断余额:(上机)If mrc.Fields(7) .Fields(0) Then MsgBox "卡内余额不足原创 2018-01-01 20:08:52 · 285 阅读 · 0 评论 -
机房收费--结账
前言:详细介绍各个地方的逻辑书写,流程图以及重要代码。逻辑说明:结果图: from设置 1). 定义窗口大小 2)加载cbo中的所有相关人员 3)设置加载时候MSF的标题cbo控件书写 1)显示名字 2)调用过程结账修改记录 1)将学生、充值、退卡都换成已结账 2)清空文本框过程 1)结算所有价钱和记录放到MSF 中去 2)汇总到结账的页面的总表中每个控件设原创 2018-01-01 11:58:15 · 303 阅读 · 0 评论 -
机房收费总结--小小规范2
前言: 第一篇文章的延续,总结过程中遇到的问题以及代码总结。控件数组 就是说一个TextBox,在写其的代码的时候:比如说txtAnswer.text时,本来打到Answer.的时候后面就会出现显示,在菜单中就会有Text这一项,而我经常遇到这种情况,就是后面的提示只有四个:分别是Count Item LBound和UBound 请问这是为什么,应如何修改 此时Answe原创 2018-01-01 10:27:36 · 318 阅读 · 2 评论 -
SQL Server解决18456错误方案
原理是因为密码的错误原创 2017-09-07 17:52:55 · 1034 阅读 · 26 评论 -
机房收费总结--小小规范
前言:总结之前遗留问题!问题一: 错误定位: 解决办法: 1. 在公共模块中添加代码在公共模块中添加代码:1. Public Function Testtxt(txt As String) As Boolean ' Testtxt(TxtCardNO.Text) 2. 3. '判断输入内容是否为空 4. If Trim(txt) = ""原创 2017-12-31 11:09:31 · 296 阅读 · 13 评论 -
实时错误‘429’:ActiveX控件不能创建对象
错误源:解决办法:注册此控件:点击“开始”→“运行”输入以下:(regsvr32后有空格) regsvr32 “c:\program Files\common Files\Microsoft Shared\DAO\dao360.dllregsvr32 “C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll”Enter附: (如原创 2017-12-20 21:23:10 · 10589 阅读 · 33 评论 -
机房收费注册
前言: 注册窗体包括单纯的注册到学生表中和在学生表中激活不使用的卡号。注册流程图:细节:1. 设定文本框限定字符的使用2. 设定下拉框的限制3. 设定按钮的enter键重要代码:1. ‘设定只能输入数字Private Sub txtCash_keypress(KeyAscii As Integer)If KeyAscii = 8 Then Exit Sub '使用BackSpace删除字符If原创 2017-12-07 11:32:31 · 340 阅读 · 23 评论 -
机房收费--窗体代码命名
好的开始是一切成功的关键—–常人道 窗体命名:一般用户 GeneralUser学生查看余额 InquiryBalance 学生查看上机记录InquiryLineRecord 学生充值记录查询 InquiryRechargeRecord 学生上机状态查看 InquiryLineState 修改密码 ModifyPwd 退出 Exit操作员 Operator下边简原创 2017-12-05 16:30:52 · 574 阅读 · 27 评论 -
子窗体显示在MDI窗体上
1. 添加API函数 a. 添加API 外接程序管理器 b. 点击外界程序,API浏览器选择文件,加载文本文件c. 从外界管理器中打开API 阅读器,最后复制到模块中2. 在MDI窗体的显示其他子窗体中写以下代码:a) SetParent frmshanchuuser.hwnd, picture1.hwnd 3. 设置子窗体大小 a. 在子窗体from load 事件原创 2017-12-04 20:13:27 · 644 阅读 · 18 评论 -
机房登录91错误
91错误原因VB中91错误是对象变量或 With 块变量没有设置。创建对象变量有两个步骤。第一,必须先声明对象变量。然后必须用 Set 语句将一个正确的引用赋值给对象变量。同样地,With…End With 块必须先用 With 语句进入点来执行初始化。机房出现91原因数据库的连接中ODBC的配置出现问题。解决办法2. 重新配置ODBC到这个样子,其中请着重看数据库和服务器相对应,其他原创 2017-11-05 11:50:32 · 1117 阅读 · 27 评论 -
sql server 附加数据库 错误5123 解决办法
错误实例:解决办法:1. 修改权限: a: 将这个机房收费系统文件夹设置成完全原创 2017-09-14 10:46:25 · 12265 阅读 · 39 评论 -
机房收费--总结
感想机房收费系统共经历了四个月。前两个月没有学习心态的我慢慢的敲着走着,后两个月一个敲代码一个修改查询,发现学习已经慢慢的来到了我的身边。过程此次机房前两个月处于做与不做之间的难受,因为很多事情的忙碌,可能有刚刚毕业的困惑,并更老师的装换,或者还有之前的基础,种种原因让我学不下去,应该没有伙伴或者没有坚持的导致,在第三个月的时候和彬彬商定去小黑屋一起做,这下子有了一定的动力,并且相比相成慢慢有了欲望原创 2018-01-02 21:59:41 · 331 阅读 · 14 评论