一.三次输入密码错误,程序关闭
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