【总结】学生信息管理系统问题总结（二）

       学生信息管理系统，我肯定是又敲到最后了，但是我没有因为慢二粗略什么东西，我想米老师还是不会因为我慢，而不要我的，所以我还是按照自己的进度来的，但是看来，我确实落伍了，得赶紧把进度追上来啊，终于，花费不到两天时间，完成了，这是我的的一些问题，我大概都总结出来了，有的懂有的不懂，但是有一点，都运行了！我想要不就先这样吧，看不懂的我就先挂着了!接下来看我的问题：

问题一：在登陆学生信息管理系统后，运行系统下的添加用户窗体弹出如图：

          

遇到这个问题，查了一下发现可能是工程内的类名无效（简单的说就是将窗体名或控件名写错了）这个问题，但是找了找没有发现有什么错误的，那到底是哪出了错误了呢？还是先了解一下sbStatusBar.Panels(1).Text = "添加用户"是什么意思吧。

StatusBar1是状态栏控件的名称；Panels(1).Text表示状态栏上第1个空格所显示的文本内容，Panels（1）代表状态栏控件的第一个窗格；Format(Date, "\yyyy年mm月dd日\")这是调用格式函数Format，设置文本格式，Format函数可以将信息设置成你所需要的显示形式（格式）。

应该怎么改呢？

第一种办法：删除sbStatusBar.Panels(1).Text = "添加用户"或者将它注释掉

第二种办法：新建form取名sbStatusBar，然后在这个窗体上新建个文本框取名Panels，并且文本框属性index为1就可以了。

问题二：

运行“修改学籍信息”时，提示：

遇到这个错误，我也不太明白，所以我就查询，经过查询，结果，最后决定是这样的：

Private Sub Form_Load()
'添加错误处理
    Dim txtSQL As String
    Dim MsgText As String
   
    txtSQL = "select * from class_Info"
    Set mrc = executesql(txtSQL, MsgText)       '得到student表，并显示出来
    On Error GoTo dateErr  '如果有错误直接执行dateErr那一步
    mrc.MoveFirst       '
    Call viewData
    myBookmark = mrc.Bookmark
    mcclean = True


dateErr:
     If Err = 3021 Then
         MsgBox "没有数据"
    End If

问题三：

在添加完学籍信息时，运行出现：

点击调试出现：

这里出现问题，我反复输入了几次有的可以成功，有的不能添加成功，我就在想：有点奇怪，我开始想到时输入的字符长度的原因，但是没有验证。后来问问姚朝霞同学，他也说是字符的长度原因，于是乎，我就修改表的长度，后来验证，果然可以。呼啦啦。。。

步骤：

设置完之后需要保存，这时候又出问题了，提示：

别担心，按照：工具——选项，然后如图：

将图中红框项的对勾去掉就可以了！

     这个问题我纠结了一个多小时了，最后这样，无语啊，，

问题四：

在运行修改学籍信息时，提示：

这又是怎么回事呢？经过查询，原来是这样的：选中myflexgrid控件，右击——属性——通用，然后将行与列修改为合适的行列，这样就搞定了！

问题五：

当运行修改班级信息时，点击“修改记录”，出现如图所示：

此时这里是有问题的，那么怎么解决这个问题呢，原来是

这里敲错了，应该是Frame1，我却写成了Frame2，哎，真是够粗心的，以后注意了！