优化成这个样子,添加并检验一下原密码
在原来的代码基础上添加 一下,下面的代码就行了。
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 属性