教师管理系统设计
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
教师表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
记录工号
2
姓名
文本
50
记录姓名
3
性别
文本
50
记录性别
4
年龄
文本
50
记录年龄
课程表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50Βιβλιοθήκη Baidu
记录工号
2
课号
文本
50
记录课号
3
课名
文本
50
记录课名
4
基本工资
数字
长整型
记录基本工资
职称表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
conn.Open
conn.Execute sql
conn.Close
End Sub
Public Sub endata(Keyasc As Integer)
If Keyasc = 13 Then '回车键的ASC码是13
SendKeys "{TAB}" '将回车键转换成Tab键
End If
End Sub
在用户登陆的时候，为了防止用户恶意登陆，采用了登陆次数的限制，代码如下：
Public n As Integer
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select * from oper where用户名='" & _
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()
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql '执行
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
(2)Visual Basic程序开发范例宝典、作者：明日科技、出版社：人民邮电出版社、
(3)Visual Basic+Access数据库开发与实例、作者：刘文涛、出版社：清华大学出版社
(4)Access2003数据库应用、作者：李佳，范俊弟，邓剑民、出版社：人民邮电出版社、
(5)Visual Basic数据库开发从入门到精通、作者：姚巍、出版社：人民邮电出版社
MsgBox "没有这个用户,继续登录", vbOKOnly + vbExclamation, "信息提示"
Text1(0).Text = ""
Text1(1).Text = ""
Text1(0).SetFocus
Else
MsgBox "已登录失败三次,退出系统", vbOKOnly + vbExclamation, "信息提示"
用VB对本系统进行具体开发时，我们采用了一个公共模块，这样很多窗体可以对所需要的函数进行调用，省掉了很多相同且烦琐的步骤。如下：
Public userlevel As String '保存用户级别
Public flag As Integer '用作记录操作标记
Public Num As Integer '用于保存报名号
Trim$(Text1(0).Text) & "'" & " And口令= '" & Trim$(Text1(1).Text) + "'"
Set mrc = exesql(txtsql)
If mrc.RecordCount = 0 Then '未找到用户记录
n = n + 1
If n < 3 Then
教师登录后的界面
登陆后的主菜单，如下图所示：
每个具体的选项界面
6、
本系统的开发着实花费了一段时间,原来用VB只做过一些简单的东西，没有完成过比较完整的系统，这次做了这个教师管理系统，虽然系统设计的比较简单，但是对我们来说也是一种挑战，同时也从中收获了很多东西，从系统的整体设计到每一个细小的环节，都有一定的收获，更重要的是对数据库理论知识和软件开发之间的联系有了更进一步的认识，当然也巩固了我们数据库和编程方面的知识。
课程：包括课程名称、课程号、课费
职称：包括基本工资,水电补助,偏远补助，房屋补助，电话补助
部门：包括机构，部门
工资：包括基本工资，课费，补助
3、
3.1数据库概念结构设计
由上面的数据项，可以设计出能满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。对本系统设计以下实体：管理信息实体、教师信息实体、院系（部门）信息实体、工资信息实体和课程信息实体
长整型
记录教师房屋补助
6
电话补助
数字
长整型
记录教师电话补助
部门表
序号
列名
数据类型
长度
字段说明
1
机构
文本
50
记录机构
2
部门名
文本
50
记录部门名
工资表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
记录工号
2
基本工资
数字
长整型
记录基本工资
3
课费
数字
长整型
记录课费
4
补助
数字
长整型
记录补助
5
工资总汇
数字
长整型
记录工资总汇
用户分系统管理员和一般操作员用户
一个机构包括多个部门。
一个部门包括多位教师。
一位教师有一个职称,一位教师可以教多门课程。
一种职称对应着一种工资
一门课程对应着一种课费
一位老师拿一份工资
经过对上述系统功能的分析和需求总结，设计如下所示的数据项：
管理员信息：包括用户名和口令。
教师：包括教师名、教师工号,职称，部门
1、
教师信息管理系统是一所院校在各种信息管理中的一部分，对于学校管理者来说是很重要的，所以所设计的系统应该能为管理者提供教师的基本信息管理手段和一些方便的查询方式。在过去，计算机不是很普及和计算机应用性不高的年代，人们使用人工的方法管理各式各样的档案，这种管理方式存在着很多缺点：效率底，保密性差，会产生大量的文件和数据，给查找，更新和维护信息都带来了相当大的困难。随着科学技术的不断发展，计算机科学日益成熟，其强大的计算功能已经被人们深刻地认识到，计算机发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对教师信息进行管理，具有人工方式所无法比拟的优越性。如，查找方便，可靠性高，存储容量大，保密性好，寿命长，成本低，维护十分方便等，这些优点能够极大得提高工作的效率，这也是学校的科学化，现代化，正规化的一点体现。
(6)大学VB程序设计实践教程、作者：沈建蓉，单贵、出版社：复旦大学出版社
8、
1，登陆系统
点击可执行程序“教师管理系统.exe”,打开登陆界面，不同权限的用户用各自的用户名和口令进行登陆。
2．管理员操作指南
登陆后的主菜单
教师信息个人资料的管理，点击“添加”，“修改”，“删除”即可进行相应的管理。
教师信息授课课程的管理，点击“添加”，“修改”，“删除”即可进行相应的管理。
开发环境：
VB 6.0企业版
Microsoft Office Access 2003
Windows 2003操作系统
1.1系统操作流程
2、
用户的需求具体体现在对各种信息的提供、保存、更新和查询，这就要求数据库能充分满足各种数据的输出和输入。通过对上述系统功能的分析，针对教师信息管理系统的需求总结出下列需求信息：
记录工号
2
职称
文本
50
记录职称
3
部门
文本
50
记录部门
4、
4.1系统功能模块
根据上面的分析，可以描述系统的功能模块图。下面分别从管理员登陆和教师登陆对功能模块进行描述。如下：
管理员的系统功能模块图
教师查询登陆模块图
5、
本系统的管理员登陆界面和教师登陆界面采用同一个登陆界面，如下图所示：
管理员登录后的界面
实体间的关系Ｅ－Ｒ图
教师用户信息实体E-R图
学生用户信息实体E-R图
部门信息实体E-R图
课程信息实体E-R图
3.2数据表设计
根据上面的需求分析教师信息管理系统数据库中各个表中的数据结果如下列表所示，每个表格表示在数据库中的一个表。
本系统管理员默认用户名和密码为wangxingang和123，教师用户可由管理员添加或统一用相同的用户名和密码，本系统采用统一的帐号和密码，默认帐号：jiaoshi,密码：123。
sql = Trim$(sql)
Set conn = New ADODB.Connection '定义一个Connection对象
Set rst = New ADODB.Recordset '定义一个Recordset对象
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db\teacher.mdb;Persist Security Info=False" '连接数据库的语句
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
评分表
成员学号
成员姓名
主要完成的工作
成绩(答辩)
总体设计，编写代码，文档编写
需求分析，数据库设计,文档编写
当然，由于水平和时间有限，本系统的功能还很不完善，同样也存在着很多缺陷。对于系统的管理员而言，除了教师姓名，年龄，职称等信息外，还应该添加教师的详细情况，如联系方式，获奖情况等，还有就是对教师的所有资料进行检索。当然了界面的设计也不够美观，这些都是该系统需要改进的地方。
7、
(1)Visual Basic 2005入门经典（第4版）、作者：（美）威利斯，（美）纽萨姆、出版社：清华大学出版社
职称信息各种补贴的管理，可以进行添加和删除的操作。
帐号的管理，可以进行帐号和口令和权限的各种操作。
3．教师操作指南
教师用统一的给定的用户名和密码登陆。
登陆后点击“职称信息”下的“收入汇总”，可以查询自己的信息。教师没有其他的管理查询权限。
9、
本教师管理系统使用VB6.0+AC2003开发，若使用及调试应安装VB6.0企业版及Microsoft Office Access 2003,以免出现不必要的错误。本系统是两层构架，可直接对数据库进行访问，开发调试过程比较简单。
End Function
Public 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=db\teacher.mdb;Persist Security Info=False" '同上
用户表
序号
列名
数据类型
长度
字段说明
1
用户名
文本
50
记录用户名字
2
口令
文本
50
记录用户密码
3
权限
文本
50
记录各用户的权限
补助表
序号
列名
数据类型
长度
字段说明
1
职称
文本
50
记录教师职称
2
基本工资
数字
长整型
记录教师基本工资
3
水电补助
数字
长整型
记录教师水电补助
4
偏远补助
数字
长整型
记录教师偏远补助
5
房屋补助
数字
Public condstr As String '条件字符串
Public recs As Integer '保存记录集中记录个数
Public sel As Boolean
Public Function exesql(ByVal sql As String) As ADODB.Recordset '用于执行sql语句，且返回执行结果
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
记录工号
2
姓名
文本
50
记录姓名
3
性别
文本
50
记录性别
4
年龄
文本
50
记录年龄
课程表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50Βιβλιοθήκη Baidu
记录工号
2
课号
文本
50
记录课号
3
课名
文本
50
记录课名
4
基本工资
数字
长整型
记录基本工资
职称表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
conn.Open
conn.Execute sql
conn.Close
End Sub
Public Sub endata(Keyasc As Integer)
If Keyasc = 13 Then '回车键的ASC码是13
SendKeys "{TAB}" '将回车键转换成Tab键
End If
End Sub
在用户登陆的时候，为了防止用户恶意登陆，采用了登陆次数的限制，代码如下：
Public n As Integer
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select * from oper where用户名='" & _
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()
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql '执行
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
(2)Visual Basic程序开发范例宝典、作者：明日科技、出版社：人民邮电出版社、
(3)Visual Basic+Access数据库开发与实例、作者：刘文涛、出版社：清华大学出版社
(4)Access2003数据库应用、作者：李佳，范俊弟，邓剑民、出版社：人民邮电出版社、
(5)Visual Basic数据库开发从入门到精通、作者：姚巍、出版社：人民邮电出版社
MsgBox "没有这个用户,继续登录", vbOKOnly + vbExclamation, "信息提示"
Text1(0).Text = ""
Text1(1).Text = ""
Text1(0).SetFocus
Else
MsgBox "已登录失败三次,退出系统", vbOKOnly + vbExclamation, "信息提示"
用VB对本系统进行具体开发时，我们采用了一个公共模块，这样很多窗体可以对所需要的函数进行调用，省掉了很多相同且烦琐的步骤。如下：
Public userlevel As String '保存用户级别
Public flag As Integer '用作记录操作标记
Public Num As Integer '用于保存报名号
Trim$(Text1(0).Text) & "'" & " And口令= '" & Trim$(Text1(1).Text) + "'"
Set mrc = exesql(txtsql)
If mrc.RecordCount = 0 Then '未找到用户记录
n = n + 1
If n < 3 Then
教师登录后的界面
登陆后的主菜单，如下图所示：
每个具体的选项界面
6、
本系统的开发着实花费了一段时间,原来用VB只做过一些简单的东西，没有完成过比较完整的系统，这次做了这个教师管理系统，虽然系统设计的比较简单，但是对我们来说也是一种挑战，同时也从中收获了很多东西，从系统的整体设计到每一个细小的环节，都有一定的收获，更重要的是对数据库理论知识和软件开发之间的联系有了更进一步的认识，当然也巩固了我们数据库和编程方面的知识。
课程：包括课程名称、课程号、课费
职称：包括基本工资,水电补助,偏远补助，房屋补助，电话补助
部门：包括机构，部门
工资：包括基本工资，课费，补助
3、
3.1数据库概念结构设计
由上面的数据项，可以设计出能满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。对本系统设计以下实体：管理信息实体、教师信息实体、院系（部门）信息实体、工资信息实体和课程信息实体
长整型
记录教师房屋补助
6
电话补助
数字
长整型
记录教师电话补助
部门表
序号
列名
数据类型
长度
字段说明
1
机构
文本
50
记录机构
2
部门名
文本
50
记录部门名
工资表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
记录工号
2
基本工资
数字
长整型
记录基本工资
3
课费
数字
长整型
记录课费
4
补助
数字
长整型
记录补助
5
工资总汇
数字
长整型
记录工资总汇
用户分系统管理员和一般操作员用户
一个机构包括多个部门。
一个部门包括多位教师。
一位教师有一个职称,一位教师可以教多门课程。
一种职称对应着一种工资
一门课程对应着一种课费
一位老师拿一份工资
经过对上述系统功能的分析和需求总结，设计如下所示的数据项：
管理员信息：包括用户名和口令。
教师：包括教师名、教师工号,职称，部门
1、
教师信息管理系统是一所院校在各种信息管理中的一部分，对于学校管理者来说是很重要的，所以所设计的系统应该能为管理者提供教师的基本信息管理手段和一些方便的查询方式。在过去，计算机不是很普及和计算机应用性不高的年代，人们使用人工的方法管理各式各样的档案，这种管理方式存在着很多缺点：效率底，保密性差，会产生大量的文件和数据，给查找，更新和维护信息都带来了相当大的困难。随着科学技术的不断发展，计算机科学日益成熟，其强大的计算功能已经被人们深刻地认识到，计算机发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对教师信息进行管理，具有人工方式所无法比拟的优越性。如，查找方便，可靠性高，存储容量大，保密性好，寿命长，成本低，维护十分方便等，这些优点能够极大得提高工作的效率，这也是学校的科学化，现代化，正规化的一点体现。
(6)大学VB程序设计实践教程、作者：沈建蓉，单贵、出版社：复旦大学出版社
8、
1，登陆系统
点击可执行程序“教师管理系统.exe”,打开登陆界面，不同权限的用户用各自的用户名和口令进行登陆。
2．管理员操作指南
登陆后的主菜单
教师信息个人资料的管理，点击“添加”，“修改”，“删除”即可进行相应的管理。
教师信息授课课程的管理，点击“添加”，“修改”，“删除”即可进行相应的管理。
开发环境：
VB 6.0企业版
Microsoft Office Access 2003
Windows 2003操作系统
1.1系统操作流程
2、
用户的需求具体体现在对各种信息的提供、保存、更新和查询，这就要求数据库能充分满足各种数据的输出和输入。通过对上述系统功能的分析，针对教师信息管理系统的需求总结出下列需求信息：
记录工号
2
职称
文本
50
记录职称
3
部门
文本
50
记录部门
4、
4.1系统功能模块
根据上面的分析，可以描述系统的功能模块图。下面分别从管理员登陆和教师登陆对功能模块进行描述。如下：
管理员的系统功能模块图
教师查询登陆模块图
5、
本系统的管理员登陆界面和教师登陆界面采用同一个登陆界面，如下图所示：
管理员登录后的界面
实体间的关系Ｅ－Ｒ图
教师用户信息实体E-R图
学生用户信息实体E-R图
部门信息实体E-R图
课程信息实体E-R图
3.2数据表设计
根据上面的需求分析教师信息管理系统数据库中各个表中的数据结果如下列表所示，每个表格表示在数据库中的一个表。
本系统管理员默认用户名和密码为wangxingang和123，教师用户可由管理员添加或统一用相同的用户名和密码，本系统采用统一的帐号和密码，默认帐号：jiaoshi,密码：123。
sql = Trim$(sql)
Set conn = New ADODB.Connection '定义一个Connection对象
Set rst = New ADODB.Recordset '定义一个Recordset对象
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db\teacher.mdb;Persist Security Info=False" '连接数据库的语句
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
评分表
成员学号
成员姓名
主要完成的工作
成绩(答辩)
总体设计，编写代码，文档编写
需求分析，数据库设计,文档编写
当然，由于水平和时间有限，本系统的功能还很不完善，同样也存在着很多缺陷。对于系统的管理员而言，除了教师姓名，年龄，职称等信息外，还应该添加教师的详细情况，如联系方式，获奖情况等，还有就是对教师的所有资料进行检索。当然了界面的设计也不够美观，这些都是该系统需要改进的地方。
7、
(1)Visual Basic 2005入门经典（第4版）、作者：（美）威利斯，（美）纽萨姆、出版社：清华大学出版社
职称信息各种补贴的管理，可以进行添加和删除的操作。
帐号的管理，可以进行帐号和口令和权限的各种操作。
3．教师操作指南
教师用统一的给定的用户名和密码登陆。
登陆后点击“职称信息”下的“收入汇总”，可以查询自己的信息。教师没有其他的管理查询权限。
9、
本教师管理系统使用VB6.0+AC2003开发，若使用及调试应安装VB6.0企业版及Microsoft Office Access 2003,以免出现不必要的错误。本系统是两层构架，可直接对数据库进行访问，开发调试过程比较简单。
End Function
Public 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=db\teacher.mdb;Persist Security Info=False" '同上
用户表
序号
列名
数据类型
长度
字段说明
1
用户名
文本
50
记录用户名字
2
口令
文本
50
记录用户密码
3
权限
文本
50
记录各用户的权限
补助表
序号
列名
数据类型
长度
字段说明
1
职称
文本
50
记录教师职称
2
基本工资
数字
长整型
记录教师基本工资
3
水电补助
数字
长整型
记录教师水电补助
4
偏远补助
数字
长整型
记录教师偏远补助
5
房屋补助
数字
Public condstr As String '条件字符串
Public recs As Integer '保存记录集中记录个数
Public sel As Boolean
Public Function exesql(ByVal sql As String) As ADODB.Recordset '用于执行sql语句，且返回执行结果