学生信息管理系统之优化

1. 实时错误”3021“
   当数据库中没有数据的时候，进入修改信息窗体就会报错。
   
   这时我们在删除按钮的单击事件下加入以下代码就可以了：
   '记下当前记录位置
   myBookmark = mrc.Bookmark
   '提示是否删除
   str2$ = MsgBox(“是否删除当前记录？”, vbOKCancel, “删除当前记录”)
   '判断按钮类型
   If str2$ = vbOK Then
   If mrc.RecordCount = 1 Then
   str2$ = MsgBox(“这是最后一条记录，是否删除?”, vbOKCancel + vbExclamation, “警告”)
   If str2$ = vbOK Then
   mrc.Delete
   str2$ = MsgBox(“数据为空！”, vbOKOnly + vbExclamation, “提示”)
   If str2$ = vbOK Then
   Unload Me
   frmAddclassinfo.Show
   Exit Sub
   Else
   Unload Me
   frmAddclassinfo.Show
   Exit Sub
   End If
   Else
   Exit Sub
   End If
   Else
   mrc.Delete
   End If
   End If
2. 添加学籍信息时添加日期的文本框改成日历控件

添加方式：
工程–部件–Microsoft Windows Common Controls-2.6.0 --确定
与数据库结合：
DTPicker1.CustomFormat = “yyyy-mm-dd”
代码如下：

'检验出生和入校时间的关系
If DTBornDate.Value > DTRudate.Value Then
msgbox “出生日期必须大于入校时间”, vbOKCancel + vbExclamation, “警告”
Exit Sub
End If

'给控件变量赋初值
DTBornDate.MaxDate = Date
DTRudate.MaxDate = Date
If DTBornDate.MaxDate < DTBornDate.Value Then
msgbox “您还未出生！”, vbOKOnly + vbExclamation, “警告”
Exit Sub
End If

'判断时间
If DTRudate.MaxDate < DTRudate.Value Then
msgbox “您还未出生！”, vbOKOnly + vbExclamation, “警告”
DTRudate.Value = “”
DTRudate.SetFocus
Exit Sub
End If

3. 修改密码窗体添加当前用户名
   当我们登录系统修改密码时，看不到登录的用户名是哪个，很不方便，可以在窗体上添加一个标签框用来显示当前登录的用户名。添加以下代码：
   Private Sub Form_Load()
   Label4.Caption = frmLogin.txtUserName.Text
   End Sub