【学生信息管理系统】优化

落日映苍穹つ 2022-08-22 13:15 287阅读 0赞

今天给大家讲一讲学生信息管理系统的优化问题

1、“修改密码”窗体（如下图）

![SouthEast][]

为了让用户在修改密码的时候确保修改的是自己的密码，所以要在原来的基础上再验证一下原来的密码，这样在验证完原密码之后才能修改新密码，代码如下  
        If Trim(Text1(2).Text) <> Trim(mrc.Fields(1)) Then  
            MsgBox "原密码输入不正确！", vbOKOnly + vbExclamation, "警告"  
            Text1(2).SetFocus  
            Text1(2).Text = ""  
        Exit Sub  
      还有一种更为直观的方法，在“修改密码”这个窗体上添加一个label或者text 显示当前用户，代码如下  
  
        Private Sub Form\_Load()  
          Dim txtSQL As String  
          Dim MsgText As String  
          Dim mrc As ADODB.Recordset  
          Dim name As String  
  
          Me.Top = 0  
          Me.Left = 0  
  
         Text1(2).Text = ""  
  
         txtSQL = "select \* from user\_Info where user\_ID = '" & UserName & "' "  
         Set mrc = ExecuteSQL(txtSQL, MsgText)  
          name = Trim(mrc.Fields(0))  
  
          Label4.Caption = "当前用户名称为：" & name  
  
        End Sub

2、“添加学籍信息”窗体

（1）学号、联系电话（如下图）

![SouthEast 1][]

出于常识性，要保证学号和联系电话只能输入数字，代码如下（以学号为例）

If Not IsNumeric(Trim(txtSID.Text)) Then       '学号为数字

MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"

txtSID.SetFocus

Exit Sub

End If

而且要限制学号和联系电话输入的位数，只需修改一个属性（如下图）

![SouthEast 2][]

（2）性别、班号（如下图）

![SouthEast 3][]

出于人性化考虑，要限制性别和班号只能选不能输入，这个问题也只需修改一个属性（如下图）

![SouthEast 4][]

（3）出生日期、入校日期（如下图）

![SouthEast 5][]

为了方便出生日期和入校日期应该用日期控件，添加方式：工程→部件→microsoft windows common controls-2 6.0

同时出生日期和入校日期还应符合逻辑关系

3、修改学籍信息窗体（如下图）

![SouthEast 6][]

一打开修改学籍信息窗体的时候，所有的信息是不能修改的，即所有的text、comboBox都为灰色，代码如下

txtSID.Enabled = False  
    txtName.Enabled = False  
    comboSex.Enabled = False  
    txtBorndate.Enabled = False  
    ComboClassNo.Enabled = False  
    txtTel.Enabled = False  
    txtRudate.Enabled = False  
    txtAddress.Enabled = False  
    txtComment.Enabled = False

以下以修改记录为例，当点击修改记录的时候，查看学籍信息里面的所有按钮都应该是灰色的，代码如下

Private Sub editCommand\_Click() '"修改记录"按钮  
           mcclean = False            '标记编辑状态  
           Frame2.Enabled = False  
           firstCommand.Enabled = False  
           previousCommand.Enabled = False  
           nextCommand.Enabled = False  
           lastCommand.Enabled = False  
      
           txtSID.Enabled = True  
           txtName.Enabled = True  
           comboSex.Enabled = True  
           txtBorndate.Enabled = True  
           ComboClassNo.Enabled = True  
           txtRudate.Enabled = True  
           txtTel.Enabled = True  
           txtAddress.Enabled = True  
           txtComment.Enabled = True  
      
           myBookmark = mrc.Bookmark      '在编辑行做标记（自己的看法）  
           '每个记录都有Bookmark这个字段  
           '做标记，意味取值当前游标指向的记录中的Bookmark值  
      
    End Sub

以下所有的窗体修改都跟以上的方法一样，举例说明了在学生信息管理系统优化过程中比较常见的问题，在优化的过程中学到了很多知识，比如一些逻辑关系是要注意的，这些东西在机房收费系统的时候都要注意

[SouthEast]: /images/20220722/26ffa5691069444b80dfe118a2e12c12.png
[SouthEast 1]: /images/20220722/ef19c35ec27048ccb08501fb9dbbc9b7.png
[SouthEast 2]: /images/20220722/ed5ceb18d2e043c38bbe5e9c6c167507.png
[SouthEast 3]: /images/20220722/fac5dc0cc5be4ebaa7ad19c0119cadc1.png
[SouthEast 4]: /images/20220722/ff5c72d2783841339becba117c5aa0d6.png
[SouthEast 5]: /images/20220722/d7798b7efd11443d9e4d0001a2de8e29.png
[SouthEast 6]: /images/20220722/ed539577a04145e0a6793ca9ea566b50.png