学生信息管理系统（三） 优化修改密码增加输入原密码

优化成这个样子，添加并检验一下原密码

在原来的代码基础上添加 一下，下面的代码就行了。
    If Trim(mrc.Fields(1)) <> Trim(Text2.Text) Then
        MsgBox "原密码输入不正确！", vbOKOnly + vbExclamation, "警告"
        Text2.SetFocus
        Text2.Text = ""
         Text1(1).Text = ""
          Text1(2).Text = ""

这个窗体，改完密码后，再进一下，还会显示你之前改的东西，所以最后得添加以下代码

 Text2.Text = ""
         Text1(1).Text = ""
          Text1(2).Text = ""

把内容清空。

还有一个优化也是清空内容的

当你点击完添加之后，再次点击 还会显示这个内容，就是数据库更新后，你没有清理 里面的内容，

  comboSex.Clear
    comboClassno.Clear
    txtSID.Text = ""
    txtName.Text = ""
    txtBorndate.Text = ""
    txtTel.Text = ""
    txtRudate.Text = ""
    txtAddress.Text = ""
    txtComment.Text = ""

添加下面代码再最后   combox 按钮的内容清空是clear 属性