学生信息管理系统----优化问题总结（上）

今天药忘吃喽~ 2022-05-19 11:08 216阅读 0赞

# 问题一：关于子窗体在MDI窗体中位置的问题 #

对于学生有一个细节的问题大家可能都会有疑问，同样小编在今天之前也有很大的疑问，那就是我们的大多数窗体为什么都要设置为MDI的子窗体？ 感觉好像也没什么区别。

今天我在通过百度了解之后和大家分享，我们为什么设置主窗体和子窗体：  
如果你仔细观察就会发现：如果我们不设置子窗体，那么当你关闭程序的主窗体的时候，那个子窗体还任然显示。如果用一个生活中的例子来说就是：当你把一个软件关闭后，它其中的一些功能任然可以运行，这是不是很离谱？  
但是今天关于窗体优化的时候遇到一个问题：  
子窗体的位置不可以通过属性：startupposition 来设置  
![这里写图片描述][70]

###### 现在问题出来了，我的所有窗体几乎都是在左上角，既然是优化，就要保证程序的美观，肯定需要将他放在正中间，后来我用代码实现了这个功能 ######

代码：
    Private Sub form_resize()
    Me.Left = (FrmMain.Width - Me.Width) / 2            
    Me.Top = (FrmMain.Height - Me.Height) / 2
    Me.Width = 10000
    Me.Heigt = 7000      
    endsub

但是这个时候又出现一个  
![这里写图片描述][70 1]  
小编通过百度了解到：

###### 这个问题的意思就是加载的过程中MDI窗体加载之后没有删除就又加载了一次，然而在一个工程中是不可以同时加载俩个MDI窗体的 ######

我们可以找到“公共模块”将下面这个语句块中的一个代码语句改成注释，也就是删除之后，那么就不会出现这个问题。  
![这里写图片描述][70 2]

Sub main()
    Dim fLogin As New frmLogin
    '显示登陆窗口
    fLogin.Show vbModal
    '判断是否授权用户
    If Not fLogin.OK Then
    'OK为fMainForm类的成员
        'Login Failed so exit app
        End
    End If
    Unload fLogin
    '判断是将进入系统
    'Set fMainForm = New FrmMain
    FrmMain.Show

End Sub

最后  
题解决

## 问题二：添加班级信息窗体—-bug ##

### 当数据库中没有任何关于班级信息的数据时，点击“添加班级信息窗体”会出错 ###

在优化的时候我把数据库中表中的数据全部删除了，重新开始梳理，但当我运行”添加班级信息窗体” 的时候发现报错：  
![这里写图片描述][70 3]

当时提示错误的代码：  
![这里写图片描述][70 4]

这个时候我猜测 一定是mrc 的问题： 于是我将鼠标放在 MsgText 之后显示0条记录  
所以这说明mrc中是没有数据的，那么整个过程中所有关于mrc的操作的无效的，所以才会出现错误的提示！  
![这里写图片描述][70 5]

##### 解决办法的思路： #####

###### 如果mrc数据集中没有数据，那么我们就让程序跳过这个关于mrc的操作！ ######

#### 即用一个if 判断语句就可以实现： ####

![这里写图片描述][70 6]

#### 具体代码： ####

具体代码：
    Private Sub Command1_Click()
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    Dim txtSQL As String
    '判断内容是否为空
    If Not Testtxt(txtClassno.Text) Then
        MsgBox "请输入班号！", vbOKOnly + vbExclamation, "警告"
        txtClassno.SetFocus
        Exit Sub
    End If
    If Not Testtxt(txtDirector.Text) Then
        MsgBox "请输入班主任！", vbOKOnly + vbExclamation, "警告"
        txtDirector.SetFocus
        Exit Sub
    End If
    If Not Testtxt(txtClassroom.Text) Then
        MsgBox "请输入教室！", vbOKOnly + vbExclamation, "警告"
        txtClassroom.SetFocus
        Exit Sub
    End If
    If Not Testtxt(combograde.Text) Then
        MsgBox "请输入年级！", vbOKOnly + vcexclamation, "警告"
        combograde.SetFocus
        Exit Sub
    End If
    '返回数据库中所有记录
    txtSQL = "select*from class_info"
    '执行查询语言
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = True Then
    
    
        mrc.AddNew
        mrc.Fields(0) = Trim(txtClassno.Text)
        mrc.Fields(1) = Trim(combograde.Text)
        mrc.Fields(2) = Trim(txtDirector.Text)
        mrc.Fields(3) = Trim(txtClassroom.Text)
        '更新数据库
        mrc.Update
        '关闭数据库对象
        mrc.Close
        MsgBox "添加班级信息成功！", vbOKOnly + vbExclamation, "添加班级信息”"
    Else
    
    '移动到第一条语句
    mrc.MoveFirst
    '开始循环结构的条件是：判断是否到数据集最后
    '-----------------------------------------------------------
    While (mrc.EOF = False)
        '判断班号是否重复
        If (Trim(mrc.Fields(0)) = Trim(txtClassno.Text)) Then
            MsgBox "班号已经存在，请重新输入班号！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
            txtClassno.Text = ""
            txtClassno.SetFocus
        Else
            '移动到下一条记录
            mrc.MoveNext
        End If
    Wend
    '_______________________________________________________________
    '把当前的内容添加到数据库中
    mrc.AddNew
    mrc.Fields(0) = Trim(txtClassno.Text)
    mrc.Fields(1) = Trim(combograde.Text)
    mrc.Fields(2) = Trim(txtDirector.Text)
    mrc.Fields(3) = Trim(txtClassroom.Text)
    '更新数据库
    mrc.Update
    '关闭数据库对象
    mrc.Closf
    
    MsgBox "添加班级信息成功！", vbOKOnly + vbExclamation, "添加班级信息”"
    End If

### 所以这个时候即使mrc数据集为空，也不怕程序出现错误提示了 ###

通过if 判断语句执行：

mrc.AddNew
        mrc.Fields(0) = Trim(txtClassno.Text)
        mrc.Fields(1) = Trim(combograde.Text)
        mrc.Fields(2) = Trim(txtDirector.Text)
        mrc.Fields(3) = Trim(txtClassroom.Text)
        '更新数据库
        mrc.Update
        '关闭数据库对象
        mrc.Close
        MsgBox "添加班级信息成功！", vbOKOnly + vbExclamation, "添加班级信息”"

![这里写图片描述][70 7]

### 这块小代码运行的前提只是当数据集mrc为空，防止程序运行关于空的mrc的操作！避免出现错误提示！！ 如果mrc不为空，那么就可以正常运行之前的代码。 ###

## 问题三：修改班级信息— ##

### 这个bug和上一个窗体的bug有点相似： ###

#### 当class中的数据为空的时候你点击修改班级信息，就会弹出错误提示 ####

![这里写图片描述][70 8]  
经过调试发现任然是由于数据库中没有数据，然后导致mrc为空，里面有很多关于mrc的操作语句

这个就可以用一个完美的提示来盖住这个错误，其实是用一个 if 的判断语句来 避开关于mrc的操作语句，这样就不会有错误提示了~  
总是听别人说良好的用户体验至关重要！

当你用到一个软件突然报错了，你会不会有点慌？  
但是如果这个时候用一个完美的提示来代替这个错误提示，会不会更好?

Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    'sql语句
    txtSQL = "select * from class_info"
    '执行查询语言
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = True Then
        MsgBox "您的数据中没有添加班级信息，所以无法修改信息，请先添加班级信息再来修改信息！", vbOKOnly + vbExclamation, "警告"
        Mrc.close
    Else
    '移动到第一条记录
    mrc.MoveFirst
    '显示数据
    Call viewdata
    '记录当前记录的位置
    mcbookmark = mrc.Bookmark
    '给标志赋初值
    mcclean = True
    '把数据库中的数据添加到列表框中
    For i = 1 To mrc.RecordCount
        combograde.AddItem mrc.Fields(3)
        mrc.MoveNext
    Next i
      End If
      End Sub

我向窗体的load 事件中添加了一个if 判断语句，判断mrc数据集是否为空，如果是空，那么就提示用户无数据信息，并且关闭数据集。这个就不会提示错误的信息，导致降低程序的用户体验。

其实最开始的时候我用的不是  
Mrc.close  
而是 unload me , 我想直接退出来，  
但是发现错误  
![这里写图片描述][70 9]

##### 百度一查发现 在窗体的load 事件中不能添加unload me 事件。 #####

[70]: /images/20220519/22bc0cd5097e436695a0d39a54db3c32.png
[70 1]: /images/20220519/64fb0e50d359405999d80278be11602d.png
[70 2]: /images/20220519/50346d557f764cc9bd342b98b1ff5bc4.png
[70 3]: /images/20220519/4c41b4ffb2ec4fbf866b264ac6e1ee6c.png
[70 4]: /images/20220519/9acaf452816c45189a6b39f719fcec43.png
[70 5]: /images/20220519/2c062e16c8b247d58c9aa730d07b3fb5.png
[70 6]: /images/20220519/3ee77b49eb7e476cbd8a3d58010d1d57.png
[70 7]: /images/20220519/37cd86fd70e64f8db3747453cdba151f.png
[70 8]: /images/20220519/c3f99e1d0997415f9253d98adc28fbf2.png
[70 9]: /images/20220519/bf64ffcb2db44b50bc7cab252184dc83.png