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