教师信息管理系统课程设计(15)

教师信息管理系统课程设计

n = n + 1

If n < 3 Then

MsgBox "没有这个用户,继续登录", vbOKOnly + vbExclamation, "信息提示" Text1(0).Text = "" Text1(1).Text = "" Text1(0).SetFocus

Else

MsgBox "已登录失败三次,退出系统", vbOKOnly + vbExclamation, "信息提示" mrc.Close Unload Me

End If

Else '找到合法用户记录 userlevel = Trim(mrc.Fields("权限")) mrc.Close

Unload Me

menu.Show '调用main窗体 End If End Sub

Private Sub Command2_Click() Unload Me

End Sub

Private Sub Form_Load()

n = 0 'n保存登录的次数 End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii) End Sub

当然，由于水平和时间有限，本系统的功能还很不完善，同样也存在着很多缺陷。对于系统的管理员而言，除了教师姓名，年龄，职称等信息外，还应该添加教师的详细情况，如联系方式，获奖情况等，还有就是对教师的所有资料进行检索。当然了界面的设计也不够美观，这些都是该系统需要改进的地方。