学生优化篇（三）

一.三次输入密码错误，程序关闭

If Trim(mrc.Fields(1)) = Trim(txtpassword.Text) Then
              ok = True
              mrc.Close
              Me.Hide
              
              frmmain.Show
              username = Trim(txtusername.Text)
          Else
              a = a + 1
              If a = 1 Then
                    MsgBox "密码错误，您还有两次机会哦^_^", 48, "温馨提示："
                    txtpassword.SetFocus
                    txtpassword.Text = ""
                    Exit Sub
                End If

                If a = 2 Then
                
                    MsgBox "密码错误，您还有一次机会哦^_^", 48, "温馨提示："
                    txtpassword.SetFocus
                txtpassword.Text = ""
                    Exit Sub
                End If

                If a = 3 Then
                    MsgBox "很遗憾，程序即将关闭!", 48, "温馨提示:"
                    Unload Me
                    End

                End If

二.点击退出程序时取消退出

在frmmain窗体中写下下列代码可以在点击退出程序时有一个取消的按钮

Private Sub end_Click()
If MsgBox("是否退出程序? ", vbOKCancel, "请选择") = vbOK Then
    Unload Me
  End If
    
End Sub

三.下拉框不允许输入

        学生中有很多的combobox控件，它在运行时可以直接输入值，这种操作是不可以的，我们需要在combobox控件的keypress事件中写如下代码：

Private Sub comboGrade_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

四.每一个窗体一样大，并且都居中

       为了美观，我们需要让每一个窗体都一样大，并且显示在父窗体的中间，我们只需要在每一个窗体的加载事件中写如下代码，窗体的宽度和高度看自己情况，只要每一个窗体的都相等就好了

Me.Height = 8000
Me.Width = 10000
Me.Move frmmain.Left + (frmmain.Width - Me.Width) \ 2, frmmain.Top + (frmmain.Height - Me.Height) \ 2

五.修改窗体中点击上一条记录或下一条记录会提示最后一条记录，不会一直循环下去

       按照源码敲的话，在修改窗体中点击上一条记录或下一条记录的话，它会一直循环，没有头尾，我们需要在点到第一条或者最后一条时给用户一个提示，代码如下：

Private Sub cmdPrevious_Click()
    '移动到数据集的上一条记录
    mrc.MovePrevious
 
    '判断是否到起始位置
    If mrc.BOF Then
        MsgBox "已经是第一条记录了!", vbOKOnly + vbExclamation, "温馨提示:"
        mrc.MoveNext
    End If
    '调用显示函数
    Call viewdata
End Sub
Private Sub cmdNext_Click()
   
 '数据集向后移动
 mrc.MoveNext
'判断指针是否到末尾位置
If mrc.EOF Then
 MsgBox "已经是最后一条记录了!", vbOKOnly + vbExclamation, "温馨提示:"
 mrc.MovePrevious
 End If
'调用显示函数
Call viewdata
End Sub