必要的信息提示框——学生管理系统之用户体验

一、添加信息：

1、没有信息时，添加提示，并且限制输入

未修改前：

Private Sub Form_Load()

   Dim txtSQL As String

   Dim MsgText As String

   'SQL语句

   txtSQL = "select * from class_Info"

    '执行查询操作

   Set mrc = ExecuteSQL(txtSQL, MsgText)

    '移动第一条记录

   mrc.MoveFirst

    '显示数据

   Call viewData

    '记下当前记录的位置

   myBookmark = mrc.Bookmark

    '给标志赋初值

   mcclean = True

End Sub

修改之后：

Private Sub Form_Load()

   Dim txtSQL As String

   Dim MsgText As String

   'SQL语句

   txtSQL = "select * from class_Info"

    '执行查询操作

   Set mrc = ExecuteSQL(txtSQL, MsgText)

   Ifmrc.RecordCount = 0 Then

       MsgBox "没有记录，请添加记录！"

       cmdFirst.Enabled = False

       cmdPrevious.Enabled = False

       cmdNext.Enabled = False

       cmdLast.Enabled = False

       

       cmdEdit.Enabled = False

       cmdUpdate.Enabled = False

       cmdCancel.Enabled = False

       cmdDelete.Enabled = False

   Else

       mrc.MoveFirst

       Call viewData

       myBookmark = mrc.Bookmark

   End If

    '给初值

   mcclean = True

End Sub

2、有信息，提示是否已经是第一条或最后一条

Private Sub cmdNext_Click()

   mrc.MoveNext

    cmdPrevious.Enabled = True

   If mrc.EOF Then

       MsgBox "已经是最后一条了"

       cmdNext.Enabled = False

       mrc.MoveLast

   End If

   Call viewData

End Sub

更改了BOF 为EOF

Private Sub cmdPrevious_Click()

   mrc.MovePrevious

   cmdNext.Enabled = True

   If mrc.BOF Then

       MsgBox "已经是第一条了。"

       cmdPrevious.Enabled = False

       mrc.MoveLast

   End If

   Call viewData

End Sub

二、删除信息：