《教师管理系统的设计》由会员分享，可在线阅读，更多相关《教师管理系统的设计（17页珍藏版）》请在金锄头文库上搜索。
1、精选优质文档-倾情为你奉上1、 概述 教师信息管理系统是一所院校在各种信息管理中的一部分，对于学校管理者来说是很重要的，所以所设计的系统应该能为管理者提供教师的基本信息管理手段和一些方便的查询方式。在过去，计算机不是很普及和计算机应用性不高的年代，人们使用人工的方法管理各式各样的档案，这种管理方式存在着很多缺点：效率底，保密性差，会产生大量的文件和数据，给查找，更新和维护信息都带来了相当大的困难。随着科学技术的不断发展，计算机科学日益成熟，其强大的计算功能已经被人们深刻地认识到，计算机发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对教师信息进行管理，具有人工方式所无法比拟的优越性。
2、如，查找方便，可靠性高，存储容量大，保密性好，寿命长，成本低，维护十分方便等，这些优点能够极大得提高工作的效率，这也是学校的科学化，现代化，正规化的一点体现。开发环境：VB 6.0 企业版 Microsoft Office Access 2003Windows 2003 操作系统1.1系统操作流程 2、 需求分析用户的需求具体体现在对各种信息的提供、保存、更新和查询，这就要求数据库能充分满足各种数据的输出和输入。通过对上述系统功能的分析，针对教师信息管理系统的需求总结出下列需求信息：用户分系统管理员和一般操作员用户一个机构包括多个部门。一个部门包括多位教师。一位教师有一个职称, 一位教师可以教
3、多门课程。一种职称对应着一种工资一门课程对应着一种课费一位老师拿一份工资经过对上述系统功能的分析和需求总结，设计如下所示的数据项：管理员信息： 包括用户名和口令。教师： 包括教师名、教师工号,职称，部门课程： 包括课程名称、课程号、课费职称： 包括基本工资,水电补助,偏远补助，房屋补助，电话补助部门： 包括机构，部门工资： 包括基本工资，课费，补助3、 数据库逻辑设计3.1数据库概念结构设计由上面的数据项，可以设计出能满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。对本系统设计以下实体：管理信息实体、教师信息
4、实体、院系（部门）信息实体、工资信息实体和课程信息实体实体间的关系图教师用户信息实体E-R图学生用户信息实体E-R图 部门信息实体E-R图 课程信息实体E-R图3.2数据表设计根据上面的需求分析教师信息管理系统数据库中各个表中的数据结果如下列表所示，每个表格表示在数据库中的一个表。本系统管理员默认用户名和密码为wangxingang和123，教师用户可由管理员添加或统一用相同的用户名和密码，本系统采用统一的帐号和密码，默认帐号：jiaoshi,密码：123。用户表序号列名数据类型长度字段说明1用户名文本 50记录用户名字2口令文本 50记录用户密码3权限文本 50记录各用户的权限 补助表序号列
5、名数据类型长度字段说明1职称文本50记录教师职称2基本工资数字长整型记录教师基本工资3水电补助数字长整型记录教师水电补助4偏远补助数字长整型记录教师偏远补助5房屋补助数字长整型记录教师房屋补助6电话补助数字长整型记录教师电话补助 部门表序号列名数据类型长度字段说明1机构文本50记录机构2部门名文本50 记录部门名 工资表序号列名数据类型长度字段说明1工号文本50记录工号2基本工资数字长整型记录基本工资3 课费数字长整型记录课费4补助数字长整型记录补助5工资总汇数字长整型记录工资总汇 教师表序号列名数据类型长度字段说明1工号文本50记录工号2姓名文本50记录姓名3性别文本50记录性别4年龄文本5
6、0记录年龄 课程表序号列名数据类型长度字段说明1工号文本50记录工号2课号文本50记录课号3课名文本50记录课名4基本工资数字长整型记录基本工资 职称表序号列名数据类型长度字段说明1工号文本50记录工号2职称文本50记录职称3部门文本50记录部门 4、 软件功能设计4.1 系统功能模块根据上面的分析，可以描述系统的功能模块图。下面分别从管理员登陆和教师登陆对功能模块进行描述。如下： 管理员的系统功能模块图 教师查询登陆模块图5、 界面设计本系统的管理员登陆界面和教师登陆界面采用同一个登陆界面，如下图所示：管理员登录后的界面教师登录后的界面登陆后的主菜单，如下图所示：每个具体的选项界面6、 结束
7、语本系统的开发着实花费了一段时间,原来用VB只做过一些简单的东西，没有完成过比较完整的系统，这次做了这个教师管理系统，虽然系统设计的比较简单，但是对我们来说也是一种挑战，同时也从中收获了很多东西，从系统的整体设计到每一个细小的环节，都有一定的收获，更重要的是对数据库理论知识和软件开发之间的联系有了更进一步的认识，当然也巩固了我们数据库和编程方面的知识。用VB对本系统进行具体开发时，我们采用了一个公共模块，这样很多窗体可以对所需要的函数进行调用，省掉了很多相同且烦琐的步骤。如下：Public userlevel As String 保存用户级别Public flag As Integer 用作记
8、录操作标记Public Num As Integer 用于保存报名号Public condstr As String 条件字符串Public recs As Integer 保存记录集中记录个数Public sel As BooleanPublic Function exesql(ByVal sql As String) As ADODB.Recordset 用于执行sql语句，且返回执行结果 sql = Trim$(sql) Set conn = New ADODB.Connection 定义一个Connection对象 Set rst = New ADODB.Recordset 定义一个R
9、ecordset对象 conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbteacher.mdb;Persist Security Info=False 连接数据库的语句 conn.Open Set rst.ActiveConnection = conn rst.LockType = adLockOptimistic rst.CursorType = adOpenKeyset rst.Open sql 执行 Set exesql = rst Set rst = Nothing Set conn = Not
10、hingEnd FunctionPublic Sub deldata(ByVal tn As String) 删除指定表中所有记录 Dim sql As String sql = delete * from & Trim$(tn) Set conn = New ADODB.Connection 同上 conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbteacher.mdb;Persist Security Info=False 同上 conn.Open conn.Execute sql conn.Clo
11、seEnd SubPublic Sub endata(Keyasc As Integer) If Keyasc = 13 Then 回车键的ASC码是13 SendKeys TAB 将回车键转换成Tab键 End IfEnd Sub在用户登陆的时候，为了防止用户恶意登陆，采用了登陆次数的限制，代码如下：Public n As IntegerPrivate Sub Command1_Click() Dim mrc As ADODB.Recordset txtsql = select * from oper where 用户名= & _ Trim$(Text1(0).Text) & & And 口
12、令 = & Trim$(Text1(1).Text) + Set mrc = exesql(txtsql) If mrc.RecordCount = 0 Then 未找到用户记录 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 IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() n = 0 n保存登
