电子教务管理系统vb(一)毕业论文

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

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

摘    要 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

引言
 
 对于一个学校来说，大量教师信息,学生管理信息,教职工日常工资管理,学生成绩管理,以及学生评语的生成还有基本数据的维护都难于通过传统的方法进行管理；这就迫切需要利用计算机技术来帮助学校管理者来处理这些日常管理.电子教务管理系统是管理信息系统的一个典型用例.
 
 
1.1背景
1.1.1电子教务管理系统

 开发电子教务管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教务管理实践活动两者之间架设桥梁。

1.2开发电子教务管理系统的目的和原则

  电子教务系统只要服务于高校管理者方便管理本校教职员工,学生的基本信息如教师工资福利,学生成绩信息学籍管理等.

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

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

2.1 系统分析
本电子教务管理系统主要由以下几大模块构成.
通用模块(教工信息管理,学生信息管理,评语管系统,管理系统,基础数据维护,窗口,操作员命令)
.超级信史,系统助手

2.2 系统流程和操作方式设计
窗口

系统界面设计
3.1系统界面设计
1.登陆界面

代码设计:

Private Sub CmbUser_KeyPress(KeyAscii As Integer)

（科教范文网http://fw.ΝsΕΑc.com编辑）

Private Sub cmdCancel_Click()
   Me.Hide
End Sub

Private Sub cmdOK_Click()
  Dim txtSQL As String
  Set mrc = New ADODB.Recordset
 
    If Trim(CmbUser.Text) = "" Then
        CmbUser.SetFocus
    Else
      txtSQL = "select * from Login where 登录姓名 = '" & CmbUser.Text & "'"
      mrc.Open Trim$(txtSQL), Con, adOpenKeyset, adLockOptimistic
      Set ExecuteSQL = mrc