实体间的关系Ｅ－Ｒ图
教师用户信息实体E-R图
学生用户信息实体E-R图
部门信息实体E-R图
课程信息实体E-R图
3.2数据表设计
根据上面的需求分析教师信息管理系统数据库中各个表中的数据结果如下列表所示，每个表格表示在数据库中的一个表。
本系统管理员默认用户名和密码为wangxingang和123，教师用户可由管理员添加或统一用相同的用户名和密码，本系统采用统一的帐号和密码，默认帐号：jiaoshi,密码：123。
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()
开发环境：
VB 6.0企业版
Microsoft Office Access 2003
Windows 2003操作系统
1.1系统操作流程
2、
用户的需求具体体现在对各种信息的提供、保存、更新和查询，这就要求数据库能充分满足各种数据的输出和输入。通过对上述系统功能的分析，针对教师信息管理系统的需求总结出下列需求信息：
(6)大学VB程序设计实践教程、作者：沈建蓉，单贵、出版社：复旦大学出版社
8、
1，登陆系统
点击可执行程序“教师管理系统.exe”,打开登陆界面，不同权限的用户用各自的用户名和口令进行登陆。
2．管理员操作指南
登陆后的主菜单
教师信息个人资料的管理，点击“添加”，“修改”，“删除”即可进行相应的管理。
教师信息授课课程的管理，点击“添加”，“修改”，“删除”即可进行相应的管理。
在用户登陆的时候，为了防止用户恶意登陆，采用了登陆次数的限制，代码如下：
Public n As Integer
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select * from oper where用户名='" & _
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
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" '同上
课程：包括课程名称、课程号、课费
职称：包括基本工资,水电补助,偏远补助，房屋补助，电话补助
部门：包括机构，部门
工资：包括基本工资，课费，补助
3、
3.1数据库概念结构设计
由上面的数据项，可以设计出能满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。对本系统设计以下实体：管理信息实体、教师信息实体、院系（部门）信息实体、工资信息实体和课程信息实体
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
教师表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
记录工号
2
姓名
文本
50
记录姓名
3
性别
文本
50
记录性别
4
年龄
文本
50
记录年龄
课程表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
记录工号
2
课号
文本
50
记录课号
3
课名
文本
50
记录课名
4
基本工资
数字
长整型
记录基本工资
职称表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
长整型
记录教师房屋补助
6
电话补助
数字
长整型
记录教师电话补助
部门表
序号
列名
数据类型
长度
字段说明
1
机构
文本
50
记录机构
2
部门名
文本
50
记录部门名
工资表
序号
列名
数据类型
长度
字段说明
1
工号
文本
50
记录工号
2
基本工资
数字
长整型
记录基本工资
3
课费
数字
长整型
记录课费
4
补助
数字
长整型
记录补助
5
工资总汇
数字
长整型
记录工资总汇
用VB对本系统进行具体开发时，我们采用了一个公共模块，这样很多窗体可以对所需要的函数进行调用，省掉了很多相同且烦琐的步骤。如下：
Public userlevel As String '保存用户级别
Public flag As Integer '用作记录操作标记
Public Num As Integer '用于保存报名号
MsgBox "没有这个用户,继续登录", vbOKOnly + vbExclamation, "信息提示"
Text1(0).Text = ""
Text1(1).Text = ""
Text1(0).SetFocus
Else
MsgBox "已登录失败三次,退出系统", vbOKOnly + vbExclamation, "信息提示"
教师登录后的界面
登陆后的主菜单，如下图所示：
每个具体的选项界面
6、
本系统的开发着实花费了一段时间,原来用VB只做过一些简单的东西，没有完成过比较完整的系统，这次做了这个教师管理系统，虽然系统设计的比较简单，但是对我们来说也是一种挑战，同时也从中收获了很多东西，从系统的整体设计到每一个细小的环节，都有一定的收获，更重要的是对数据库理论知识和软件开发之间的联系有了更进一步的认识，当然也巩固了我们数据库和编程方面的知识。
当然，由于水平和时间有限，本系统的功能还很不完善，同样也存在着很多缺陷。对于系统的管理员而言，除了教师姓名，年龄，职称等信息外，还应该添加教师的详细情况，如联系方式，获奖情况等，还有就是对教师的所有资料进行检索。当然了界面的设计也不够美观，这些都是该系统需要改进的地方。
7、
(1)Visual Basic 2005入门经典（第4版）、作者：（美）威利斯，（美）纽萨姆、出版社：清华大学出版社
(2)Visual Basic程序开发范例宝典、作者：明日科技、出版社：人民邮电出版社、
(3)Visual Basic+Access数据库开发与实例、作者：刘文涛、出版社：清华大学出版社
(4)Access2003数据库应用、作者：李佳，范俊弟，邓剑民、出版社：人民邮电出版社、
(5)Visual Basic数据库开发从入门到精通、作者：姚巍、出版社：人民邮电出版社
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" '连接数据库的语句
记录工号
2
职称
文本
50
记录职称
3
部门
文本
50
记录部门
4、
4.1系统功能模块
根据上面的分析，可以描述系统的功能模块图。下面分别从管理员登陆和教师登陆对功能模块进行描述。如下：
管理员的系统功能模块图
教师查询登陆模块图
5、
本系统的管理员登陆界面和教师登陆界面采用同一个登陆界面，如下图所示：
管理员登录后的界面
conn.Open