学生信息管理系统——问题汇总

• str$未定义

因为他是长整型，所以在前面dim str2$ 就可以了，$本身就是长整型。

数据类型 类型符：
Integer %
Long &
Single !
Double #
Currency @
String $

 

• 在敲修改班级窗体的时候遇到“子程序或函数未定义”

进行调试显示

这个问题是缺少代码，首先得定义函数'viewdata',然后就去定义他

Public Sub viewData()
    txtClassno.Text = mrc.Fields(0)
    comboGrade.Text = mrc.Fields(1)
    txtDirector.Text = mrc.Fields(2)
    txtclassroom.Text = mrc.Fields(3)
    
End Sub

就可以运行成功了。

• 实时错误 91

1. 在修改班级信息时“错误91”

点击调试显示

经过一天的资料查询和艰苦调试，发现多空格！！！！！！

我太难了！！！！！！！

2.再有一个就是在点击修改课程窗体是的“错误91”

点击调试

看到报的错误感觉应该是变量的问题，就去查看上面的变量

发现定义了两个，把下面的删除掉就可以继续运行了。

• 在修改课程信息时，出现编译错误：子程序、函数或属性，点击调试出现

在一番查询之后发现，txtSQL后缺少 "="

 

• 在修改信息的窗体删除信息报出错误“3021”

报出这个错误的主要原因是因为你的数据库表里没有东西了，这个时候只需要添加几行代码限制他就可以了。

在单击删除记录的开始添加代码：

On Error GoTo dateerr

 

在结尾添加代码，这样就可以解决了 。

dateerr:
    If Err = 3021 Then
     MsgBox "已经没有记录了!", vbOKOnly + vbExclamation, "提示"
    
     Unload Me
     End If
 End If

• 在修改记录时，把文本框里的东西删除掉，在点击取消修改弹出提示框但是数据没有恢复。

添加代码：

If Not mcclean Then
       
        Call viewData
    Else
        MsgBox "什么都没有修改，有什么好取消的！", vbOKOnly + vbExclamation, "警告"
    End If
    
    mcclean = True