机房收费系统——总结（三）

过了一个年，回来就感冒了，是福不是祸，是祸躲不过啊！啥也不想了，现在只想尽快度过接下来的这个学期，因为这个学期将让我忙的连消极的时间都没有了，哈哈，开个玩笑，但是忙是真的忙，好了接下来老规矩，一起来回顾一下我遇到的问题兼学到的知识吧！

1.在进行“收取金额查询”窗体时，遇到了错误：

错误点：mrc.Fields(0) = mrc1.Fields(1)                   ‘学号

解决办法：可参考<https://blog.csdn.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图标，打开“属性”

选择“高级”，勾选“用管理员身份运行”

点击“确定”，即可。

时间飞逝，今天的分享就到这里了，有些比较普遍的内容在此就不再分享了，如有不足，还请各位及时与我沟通！