机房收费系统——总结(三)
过了一个年,回来就感冒了,是福不是祸,是祸躲不过啊!啥也不想了,现在只想尽快度过接下来的这个学期,因为这个学期将让我忙的连消极的时间都没有了,哈哈,开个玩笑,但是忙是真的忙,好了接下来老规矩,一起来回顾一下我遇到的问题兼学到的知识吧!
1.在进行“收取金额查询”窗体时,遇到了错误:
错误点:mrc.Fields(0) = mrc1.Fields(1) ‘学号
解决办法:可参考<https://blog.****.net/ywq1016243402/article/details/79988917>
2.在进行“金额返还信息查询”,在点击运行时,VB卡死了,问了同学才知道是在加载时出现了死循环,自己在单步调试的时候也发现一直循环,总以为是数据太多,后来经小伙伴操作才发现是一条单独循环·····大概就是这样子吧,但是又不知道是哪里出错,和之前的“收取金额查询”对比一点毛病也没有,代码copy过来进行修改后再运行也没有问题,但是之前的代码就是不行,这怎么能行,虽然时间紧也绝不将就,找度娘才知道,用Exit Do退出循环,VB死循环主要有两种形式:
第一种:
Do While True
'语句
Loop
第二种:
Do
'语句
While Loop True
后来自己摸索着修改,结果如下:
' 数据逐个加载
With MSHFlexGrid
.Rows = 1
.CellAlignment = 4
.TextMatrix(0, 0) = "卡号"
.TextMatrix(0, 1) = "退还日期"
.TextMatrix(0, 2) = "退还时间"
.TextMatrix(0, 3) = "退还金额"
.TextMatrix(0, 4) = "结账老师"
.TextMatrix(0, 5) = "结账状态"
Do While Not mrc.EOF
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = mrc!cardno
.TextMatrix(.Rows - 1, 1) = mrc!Date
.TextMatrix(.Rows - 1, 2) = mrc!Time
.TextMatrix(.Rows - 1, 3) = mrc!CancelCash
.TextMatrix(.Rows - 1, 4) = mrc!UserID
.TextMatrix(.Rows - 1, 5) = mrc!Status
If .Rows = .Rows + 1 Then Exit Do
mrc.MoveNext
Loop
End With
3.过程声明与同名事件或过程的描述不匹配:
这种情况一般发生在控件数组却用了非控件数组的事件过程描述,比如Command1是控件数组,那么它的Click事件就是这样的:Private Sub Command1_Click(Index As Integer);如果仍然用非控件数组的Click事件:Private Sub Command1_Click()就会发生“过程声明与同名事件或过程的描述不匹配”这样的错误了。
通常这种错误发生的原因是这样的:先建立了一个控件(比如Command1),并且写好了该控件的事件过程代码,后来发现建立控件数组会比较好,就把Command1改为控件数组,但是却忘了修改该控件的事件过程描述,这样就肯定出错了。
4.在进行“添加或删除用户”,在删除登录用户时,直接跳过删除操作,且无提示:
If Trim(MSHFlexGrid.TextMatrix(.RowSel, 0)) = Trim(UserName) Then
MsgBox "该用户正在登录,不能删除!", 48, "警告"
Exit Sub
Else
a = MsgBox("确定要删除该用户吗?", vbYesNo, "提示")
If a = 6 Then
MSHFlexGrid.RemoveItem .RowSel
Else
Exit Sub
End If
End If
原因是:自己在登录窗体判断密码是否正确时,没有进行赋值。如下:
'判断密码是否输入正确
If Trim(mrc.Fields(1)) = Trim(txtPWD.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserID.Text)
frmMain.Show
Else
MsgBox "密码输入不正确,请重新输入!", 0 + 48, "警告"
txtPWD.SetFocus
txtPWD.Text = ""
Exit Sub
End If
之前也遇到类似的问题,可以在数据库中调用,自己就在数据库中调用了
5.在进行“日结帐单”时,VB添加部件时访问系统注册表错误:
解决方法:关掉VB6.0,右击VB图标,打开“属性”
选择“高级”,勾选“用管理员身份运行”
点击“确定”,即可。
时间飞逝,今天的分享就到这里了,有些比较普遍的内容在此就不再分享了,如有不足,还请各位及时与我沟通!