——【第一次机房收费系统】
TGB-Earnest
一位热爱英语的人
展开
-
【机房收费系统之装设】
一、装设步骤配置ODBC二、注意事项在注册文件“机房收费系统所需素材”中的3个控件时,需要注意一下几点:1.多换几次路径,进行尝试。2.配置3个控件有两种办法:[(1)文档(2)直接进行CMD](https://blog.csdn.net/lj251948/article/details/81144441)3.心态要好三、机房程序打不开这个问题可能是ODBC的密码和数据库的...原创 2018-10-02 16:01:23 · 300 阅读 · 2 评论 -
【第一次机房收费系统】-总结
一、总结(一)上机(二)基本数据设定(三)如何获取当前电脑时间(四)GetUserName函数(五)下机(六)退卡(七)添加和删除用户(八)修改密码(九)学生查看上机记录(十)收取金额查询(十一)组合查询(十二)结账(十三)登录窗口优化二、心得体会做项目真的会让自己成长很多,确实是挺有意思的,在最开始的时候,看梁佳宝做机房感觉好厉害,现在看看也挺厉害,他告诉我一定要按...原创 2018-11-16 20:31:28 · 352 阅读 · 12 评论 -
【第一次机房收费系统】-结账
一、思路结账目的:为了给管理人员查看,更加直观。含义:经过分析,我们可知道,这就是管理员看操作员一天的工作明细,即售卡,充值,退卡的情况。1、 购卡:就是在student_info表总查询没有结账的那些新注册的学生卡号等信息。2、 充值:在recharge_info表中查询未结账的充值信息。3、 退卡:在cancelCard_info中查询未结账的退卡信息。4、 临时用户:在s...原创 2018-11-16 20:16:37 · 304 阅读 · 3 评论 -
【第一次机房收费系统】—组合查询(操作员工记录、学生基本信息维护)
一、思维导图(以操作员工记录为例)二、思路(1)往窗体里面添加数据 这里最好定义数组如:`在这里插Private Sub Form_Load()Dim i As IntegerDim j As IntegerDim n As Integer'打开窗体时的加载内容For i = 0 To 2 comboField(i).AddItem "教师" comboField...原创 2018-11-16 20:10:03 · 422 阅读 · 5 评论 -
【第一次机房收费系统】-错误集(一)
一、实时错误94解决方法:(1)在字段后面加 & “”(2)允许空值二、实时错误91问题原因及解决方法:txtSQL = “select * from online_info where cardno=’” & Trim(myFlexGrid.TextMatrix(Val(j), 0))txtSQL = “select * from student_inf...原创 2018-11-16 19:56:24 · 267 阅读 · 5 评论 -
【第一次机房收费系统优化】-登录窗体
一、重点这个窗体增加了判断用户的类别(操作员、一般用户、管理员)。二、控件优化label为空白:Label1.BackStyle = 0command添加图片:(1)将Command控件的Style设置为1 - Graphical (2)在Command控件的Picture中,点浏览,选择一张图片。三、优化区域不能输入特殊符号Select Case KeyAscii 1. Ca...原创 2018-11-14 20:55:25 · 1269 阅读 · 12 评论 -
【第一次机房收费系统】-收取金额查询
一、思维导图二、如何导图Excel三、代码展示Private Sub cmdInquiry_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String '查询选定范围里的数据 txtSQL = "select * from Recharge_In...原创 2018-11-10 15:49:19 · 456 阅读 · 5 评论 -
【第一次机房收费系统】—学生查看上机记录
一、思维导图三、[VB MSHFlexGrid控件:CellAlignment 属性]二、代码Private Sub cmdInquiry_Click() Dim txtSQL As String Dim msgtext As String Dim mrc As ADODB.Recordset txtSQL = "select * from stu...原创 2018-11-03 20:58:28 · 704 阅读 · 11 评论 -
【第一次机房收费系统】—修改密码
一、思维导图这个容易理解,就不写了哈。二、代码Private Sub cmdOk_Click() Dim txtSQL As String Dim msgtext As String Dim mrc As ADODB.Recordset Dim updatemrc As ADODB.Recordset '判断输入的旧口令是否为空 ...原创 2018-11-03 19:27:48 · 388 阅读 · 10 评论 -
【第一次机房收费系统】-添加和删除用户
一、二、MSHflexgrid控件MSHflexgrid控件的使用:https://blog.csdn.net/lxl51666/article/details/52663989三、理解这个界面就不画思维导图了,很好理解。但是更新这个按钮有点意思:添加是添加用户的,添加完用户直接就添加到数据库了。同样删除也是直接添加到数据库,那么更新的作用呢?更新有两种:(一)是把客户的添加和删...原创 2018-11-03 16:39:38 · 463 阅读 · 9 评论 -
【第一次机房收费系统】-退卡
一、思维导图二、代码Private Sub cmdOk_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset Dim mrc1 As ADODB.Recordset Dim mrc2 As ADODB.Recordset '判断是否输入卡号 ...原创 2018-11-03 16:26:54 · 583 阅读 · 11 评论 -
【第一次机房系统】-下机(DateDiff函数计算两个日期之间的时间差)
一、思维导图(一)、主要是准备工作(二)、主要是计算(timeoff函数)二、函数计算时间差:DateDiff(timeinterval,date1,date2[,firstdayofweek[,firstweekofyear]])函数返回值为从date1到date2所经历的时间,timeinterval表示相隔时间的类型(即时间的度量单位),分别为:年份 yyyy季度 q月...原创 2018-11-03 16:19:03 · 441 阅读 · 3 评论 -
【VB】GetUserName函数
一、用途:获取当前用户的名称二、如何获取:第一步:加载第二步:选择第三步:最终完成三、参数含义:IpBuffer:string型,一个字符串的缓冲区,预先初始化成有nsize指定的程度,他将用于容纳用户。(其实就是一个预备地方)bsuze:long,初始化成lpBuffer的长度,返回以后,它会包含载入IpBuffer字符数量(对这个预备地方重新定义)返回值long,T...原创 2018-11-03 15:58:11 · 1172 阅读 · 7 评论 -
【第一次机房收费系统】-实时错误“381” 下标越限
一、实时错误二、解决方法总:这是容器太小了(1)解决一设置合适的行和列。(2)解决二这里+指的是往下,+和-一定要弄清楚。原创 2018-11-02 21:37:55 · 341 阅读 · 3 评论 -
【VB】如何获取当前电脑系统时间
一、工具Timer Form 窗体 Label二、设置Timer: 设置Timer的InterVal属性timer控件触发的时间间隔。假如timer1.interval=4000,即4秒触发一次Form :三、编写Timer1的代码hh:mm:ss 表示当前的时间yyyy-mm-dd表示当前日期这些字母分别表示英语单词的缩写,所以很容易。Date函数:返回系统的日期Now函...原创 2018-11-02 20:03:55 · 6068 阅读 · 4 评论 -
【第一次机房收费系统】-上机
一、思维导图二、核心上机就是将数据从student表中写入online表中,然后再line表中写上一部分内容。三、实时错误出现91问题,最大的可能就是数据库连接问题,首先检查自己的SQL语句是不是写正确了。在这个错误里面cardno后面的逗号有没有空格都无所谓,使用后面的逗号必须是英文,千万不能打错了。...原创 2018-11-02 19:44:54 · 366 阅读 · 5 评论 -
【第一次机房收费系统】-基本数据设定
一、思维导图二、各个文本框的含义https://blog.csdn.net/mxx1529/article/details/52233741三、心得体会这个窗体的思维很简单,一定要先把思路弄出来,然后再看代码,对照着数据库,应该就没什么问题了。...原创 2018-11-02 08:52:01 · 377 阅读 · 7 评论 -
【第一次机房收费系统】—子窗体被父窗体覆盖问题
在做机房的时候,MDI窗体里面添加了图片框,这个导致子窗体总是在图片框的后面,那么如何解决呢?首先打开外界程序(A)然后打开外界程序里面的外界程序资源管理器然后再次打开外界程序,会看到API浏览器,打开插入到模块中然后找到父窗体代码窗口中找到显示子窗体的代码这样写:Private sub 子窗体_Clickfrm子窗体.ShowCall set Parent (frm子窗体...原创 2018-11-01 21:15:41 · 332 阅读 · 10 评论 -
【第一次机房收费系统】—数据库中上下机信息不全问题
在做上下机的时候,发现了一个很大的问题,那就是上机信息可以记录,下机的信息没有反应到数据库里面。如何解决此问题?1.想主键。当你的主键只有卡号的时候,他能不能只通过卡号反应到你数据库中呢?答案是不能,因为你数据库中下机的信息有很多,同一个卡号可能有多个上下机记录,怎么只能通过卡号来确定你的下机呢。2.主键+上机时间+上机日期。利用主键+上机时间+上机日期行不?txtsqlline ...原创 2018-11-25 21:04:49 · 1895 阅读 · 11 评论