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

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

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

        为了让用户在修改密码的时候确保修改的是自己的密码，所以要在原来的基础上再验证一下原来的密码，这样在验证完原密码之后才能修改新密码，代码如下
        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）学号、联系电话（如下图）

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

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

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

                  txtSID.SetFocus

                  Exit Sub

           End If

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

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

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

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

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

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

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

     一打开修改学籍信息窗体的时候，所有的信息是不能修改的，即所有的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

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