一.查询显示查询到的记录条数

       当我们点击查询的时候，比如说我数据库中有一个学号为1的人的信息，然后我输入学号为2，点击查询，窗体毫无反应，我们需要优化，来给用户提示，表示确实进行了查询操作，其实非常简单，在窗体中添加一个标签框，输入下面的代码就可以了。

 n = mrc.RecordCount
 Label1.Caption = "查询到" & n & "条记录"

二.修改密码后需重新登录程序

 MsgBox "修改密码成功！请重新登录", vbOKOnly + vbExclamation, "修改密码"
 Me.Hide
 frmmain.Hide
 Unload frmflogin
 frmflogin.Show

三.check控件

       在查询窗体中我们设置了查询条件后，单击查询，查询到结果后如果我们想再次查询的话，点击check框后，后面的text框中的内容不会自动清除，用户使用起来十分的不便，我们在check控件的单击事件中添加下列代码：

Private Sub Check1_Click()
If Not Check1.Value Then
    txtSID.Text = ""
End If
a = Check1.Value
 
  If a = 1 Then                 '当选中时候文本框可用
    txtSID.Text = ""
    txtSID.Enabled = True
    txtSID.SetFocus
  Else
 
    txtSID.Text = "
    txtSID.Enabled = False       '未选中时文本框不可用
  End If
End Sub

四.点击修改未修改内容点击更新提示更新成功

       在修改窗体中，我们点击修改按钮后直接点击更新按钮，它会提示修改记录成功，然而我们没有进行实际的修改操作，这时候我们需要写一个很长的SQL语句来判断记录的内容是否改变，代码如下：

txtSQL = "select*from student_info where student_ID='" & Trim(txtSID.Text) & "'and student_name='" & Trim(txtName.Text) & "' and student_Sex='" & Trim(comboSex.Text) & "' and born_Date='" & Trim(DTPicker1.Value) & "' and class_NO='" & Trim(comboClassNo.Text) & "' and tele_Number='" & Trim(txtTel.Text) & "' and ru_Date='" & Trim(DTPicker2.Value) & "' and address='" & Trim(txtAddress.Text) & "' and comment='" & Trim(txtComment.Text) & "'"
        Set mrs = ExecuteSQL(txtSQL, MsgText)

        If mrs.EOF = False Then
            MsgBox "记录重复，请重新输入", vbOKOnly + vbExclamation, "警告"
            mrs.Close
        Else

五.出生日期不能大于等于入校日期，入校日期不能大于系统当前日期

If DTPicker1.Value >= DTPicker2.Value Then
                    MsgBox "出生日期不能大于等于入校日期，请重新输入！", vbOKOnly + vbExclamation, "警告"
                    Exit Sub

Else
      If DTPicker2.Value >= Date Then
                        MsgBox "入校日期不能大于当前日期，请重新输入！", vbOKOnly + vbExclamation, "警告"
      Else

六.电话号码只能输入十一位数字

If Len(txtTel.Text) <> 11 Then
            MsgBox "请输入11位数字电话号码", vbOKOnly + vbExclamation, "警告"
            txtTel.Text = ""
            txtTel.SetFocus
            Exit Sub
End If


以及


Private Sub txtTel_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii '只能输入数字
        Case 8 '无变化，退格键
        Case 48 To 57
        Case Else '出来上边的都屏蔽
        KeyAscii = 0
    End Select
End Sub