VB教师管理系统vb+access

目   录 think58

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

摘    要 I
ABSTRACT II
第一章  引言 1
1.1 背景 1
1.1.1教师管理系统 1
1.2开发教师管理系统的目的和原则 3
1.3开发环境介绍 3
1.3.1 开发平台 4
1.3.2数据库设计工具——ACCESS数据库管理系统 7
第二章  系统设计 9
2.1 系统分析 9
2.2 系统流程和操作方式设计 11
第三章  系统界面设计 12
3.1系统界面设计以及代码分析 12
第四章 数据库的设计 30
4.1数据库设计 30
4.2 数据库概念和发展 30
4.3系统测试与评价 38
总   结 39
致  谢 40
参考文献 41 think58 [资料来源：THINK58.com]

       
摘  要
20世纪以来，社会生产力迅速发展，科学技术突飞猛进，人们进行信息交流的深度与广度不断增加，信息量急剧增长，传统的信息处理与决策的手段已不能适应社会的需要，信息的重要性和信息处理问题的紧迫性空前提高了，面对着日益复杂和不断发展，变化的社会环境，特别是企业间日趋剧烈的竞争形势，一个人、一个企业要在现代社会中求生存，求发展，必须具备足够的信息和强有力的信息收集与处理手段。
对于一个学校来说，大量教师信息难于通过传统的方法进行管理；这就迫切需要利用计算机技术来帮助学校管理者来处理教师信息的日常管理.教师管理系统是管理信息系统的一个典型用例.
管理信息系统是一个集信息技术、经济管理理论、统计学与运筹学、数据库技术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的项目。我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。
开发学校教师管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教师管理实践活动两者之间架设桥梁。 内容来自think58

关键字:教师管理,管理信息系统,数据库,计算机管理

第二章 系统设计 think58

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

2.1 系统分析
   本教师管理系统主要由以下几大模块构成.
一. 通用模块(教师管理,教师查询,重新登陆,退出)
二. .帮助模块
2.2 系统流程和操作方式设计
  内容来自think58 [版权所有：http://think58.com]

第三章 系统界面设计
3.1系统界面设计
1.登陆界面
 
登陆界面代码设计:
Option Explicit 内容来自think58 [资料来源：http://think58.com]

'表示当前用户登录所选择的身份，即用户类型
'0--表示管理员类用户；1--表示教师类用户
Dim mnUserType As Integer think58好，好think58

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

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

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

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

内容来自think58 [来源：http://think58.com]

[资料来源：THINK58.com]

Private Sub cmdCancel_Click()
    Unload Me
End Sub 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
    本文来自think58

    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            ''登陆成功 [资料来源：http://www.THINK58.com]
      ''显示MDI窗体, 并将用户类型和用户名传到MDI窗体中
      Load MDIMain
      With MDIMain
        .mnUserType = cboUserType.ListIndex
        .msUserName = pwd
        .Show
      End With
      Unload Me
    End If
End Sub [来源：http://www.think58.com]

参考文献

think58.com

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

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

1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302
6 Steve Teixeira，Xaviver Pacheco著，龙劲松，王瑜，谢尚书译 . visual basic 6.0开发人员指南 . 机械工业出版社 .2003
think58

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