教师管理系统

第一章 引言
对于一个学校来说，大量教师信息难于通过传统的方法进行管理；这就迫切需要利用计算机技术来帮助学校管理者来处理教师信息的日常管理.教师管理系统是管理信息系统的一个典型用例.
1.1背景
1.1.1教师管理系统
   如今随着教育事业的发展,学校对教师需求的增加,一个单位,教师人事信息,编制,排课工资等信息量将迅速的增加,传统的手工的处理方式已经跟不上信息爆炸般的扩增.所以开发一种可靠,高效的教师管理系统是很有必要的. think58.com

[资料来源：THINK58.com]

1.2 开发教师管理系统的目的与原则
教师管理系统的主要目的是服务与中小学,各高校的管理者,方便其管理本校教师信息的软件系统.其原则是做到,界面友好人性,操作简单,可靠.

1.3开发环境介绍
1.3.1开发平台
  本教师管理系统的开发平台为微软windows xp visual basic 6.0 以及微软的Access作为操作数据库.

[资料来源：http://think58.com]

1.3.2 数据库设计工具——ACCESS数据库管理系统
 Microsoft Access介绍:
使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。
   如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。
   如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。
   如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。
   如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。 think58好，好think58 [资料来源：www.THINK58.com]
第三章 系统界面设计
3.1系统界面设计
1.登陆界面
登陆界面代码设计:
Option Explicit

本文来自think58 [资料来源：http://THINK58.com]

[资料来源：THINK58.com]

'表示当前用户登录所选择的身份，即用户类型
'0--表示管理员类用户；1--表示教师类用户
Dim mnUserType As Integer copyright think58 [资料来源：http://www.THINK58.com]

Private Sub cboUserType_Change()
    mnUserType = cboUserType.ListIndex
End Sub 内容来自think58

[资料来源：http://www.THINK58.com]

Private Sub cboUserType_Click()
    mnUserType = cboUserType.ListIndex
End Sub

think58.com

[资料来源：THINK58.com]

Private Sub cmdCancel_Click()
    Unload Me
End Sub copyright think58

[来源：http://www.think58.com]

Private Sub cmdOK_Click()
    ''取得用户输入的用户名和密码
    Dim user As String, pwd As String
    user = txtUser
    pwd = txtPwd
       
    ''根据不同的身份，选择不同的表用以查询
    Dim r As New ADODB.Recordset
    Set r = DataEnv.rssqlSeek
    Dim strSQL As String
    Select Case mnUserType
        Case 0: '选择身份为管理员
            strSQL = "select * from admin where name='" & user & "' and pwd='" & pwd & "'"
        Case 1: '选择身份为教师
            strSQL = "select * from teacher where name='" & user & "' and serial='" & pwd & "'"
    End Select
   

    On Error Resume Next
    If r.State = adStateOpen Then r.Close
    r.Open strSQL
      
    ''用户密码错误的次数，如果错误次数超过3次，则退出系统
    Static nTryCount As Integer
   
    If r.EOF Then   ''登录失败
      MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
      txtUser.SetFocus
      txtUser.SelStart = 0
      txtUser.SelLength = Len(txtUser)
      nTryCount = nTryCount + 1
      If nTryCount >= 3 Then
         MsgBox "您无权操作本系统!再见！", vbCritical, "无权限"
         Unload Me
      End If
    Else            ''登陆成功

本文来自think58 [资料来源：www.THINK58.com]

      ''显示MDI窗体, 并将用户类型和用户名传到MDI窗体中
      Load MDIMain
      With MDIMain
        .mnUserType = cboUserType.ListIndex
        .msUserName = pwd
        .Show
      End With
      Unload Me
    End If
End Sub think58.com

Private Sub Form_Load()
    cboUserType.ListIndex = 0
End Sub

copyright think58 [版权所有：http://think58.com]

[资料来源：THINK58.com]