教师档案管理系统.docx
《教师档案管理系统.docx》由会员分享，可在线阅读，更多相关《教师档案管理系统.docx（38页珍藏版）》请在冰豆网上搜索。
教师档案管理系统
一、系统需求分析1
二、系统设计2
1.系统功能设计2
2.数据库设计3
三、系统实现4
１．数据库结构的实现4
2.教师档案管理系统主窗体的创建5
3.系统用户管理模块的创建7
4.教师基本信息管理模块的创建12
添加教师基本信息窗体的创建12
修改教师基本信息窗体的创建15
查询教师基本信息窗体的创建19
5.教师评价管理模块的创建21
添加评价信息窗体的创建21
修改评价信息窗体的创建25
查询评价信息窗体的创建26
教师档案管理系统
随着计算机和网络技术的普及，若建立一个C/S结构的教师档案管理系统，教师档案的管理通过计算机来实现，将使得管理工作系统化、规范化、自动化，从而达到提高学生信息管理的目的。
一、系统需求分析
为了提高系统的开发水平和应用效果，系统应符合学校信息管理的规定，满足学校对教师档案管理的需求，并努力做到直观、方便、实用、安全等要求。
系统采用模块化设计程序的方法，便于系统的组合和修改，以及扩充维护工作。
根据需求分析，本系统要实现以下基本功能：
（1）教师档案的查询功能：
通过不同的检索入口，查询职称信息、工资信息、任课信息。
（2）添加功能：
通过填写表格的形式输入教师的基本信息、评价信息、任课信息。
（3）修改功能：
对数据库中的信息进行修改。
系统能通过用户给出的查询条件找出需要修改的信息，并对修改后的信息进行保存，并自动判断是否为重复信息。
（4）删除功能：
对数据库进行删除操作。
系统能够通过用户给出的条件查询需要删除的信息，并提示是否确定删除，如果确定，则删除相关记录。
（5）汇总功能：
对信息进行汇总。
二、系统设计
1.系统功能设计
教师档案管理系统主要实现教师信息的增、删、改、查等功能。
该系统可分为5个主要功能模块，如图1所示
图1教师档案管理功能模块图
1职称信息管理模块
该模块主要实现对教师基本信息的录入、修改、删除和查询等操作。
录入教师的职工号、姓名、性别、聘用时间、出生日期、联系电话、家庭住址等信息，以职工号作为唯一关键字。
使用查询功能查询出需要修改/删除的记录，然后进行修改/删除操作，修改时要保证职工号的唯一性。
从教师个人信息表中的属性项任选其一查询教师信息，亦可同时输入多个属性项进行精确查询。
2工资信息管理模块
实现工资信息的录入、修改和删除。
3任课信息管理模块
实现教师任课信息的录入、修改和删除。
4用户管理模块
主要实现用户登录、添加用户和修改用户密码等功能。
2.数据库设计
1数据库概念结构设计
根据上述的设计规划出的实体有：
教师实体、课程实体、
图2实体之间联系的E-R图
2数据库逻辑结构设计
现在需要将上面的数据库概念结构转化为SQLServer2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。
在上面的实体及实体间联系的基础上，形成数据库中表以及各表之间的关系。
教师档案管理系统数据库中包含教师基本表、任课基本信息表、评价信息表和系统用户表。
各个数据表的设计如表1、表2、表3和表4所示。
每个表表示在数据库中的一个数据表。
表1teacher_info教师基本信息表
列名
数据类型
可否为空
说明
teacher_ID
Varchar（10）
NOTNULL
教师职工号（主键）
teacher_Name
Varchar（10）
NULL
教师姓名
teacher_Sex
Char
（2）
NULL
教师性别
born_date
DateTime（8）
NULL
出生日期
acdname
Varchar（50）
NULL
学院信息
telephone
Varchar（50）
NULL
联系电话
enroll_Date
DateTime（8）
NULL
聘用时间
wage
Int（8）
NULL
工资
comment
Varchar（200）
NULL
注释
表2Course_info课程基本信息表
列名
数据类型
可否为空
说明
course_NO
Varchar（10）
NOTNULL
课程编号（主键）
course_Name
Char（20）
NULL
课程名称
course_Credit
Int（4）
NULL
学分
course_DES
Varchar（200）
NULL
课程描述
表3Teacher_course_info评价信息表
列名
数据类型
可否为空
说明
Teacher_ID
Varchar（10）
NOTNULL
教师职工号
Course_NO
Varchar（10）
NULL
课程编号
Score
Int（4）
NULL
评价分数
Pingyu
Varchar（50）
NULL
评语
表4user_info系统用户表
列名
数据类型
可否为空
说明
user_ID
Char（10）
NOTNULL
用户名称（主键）
user_PSW
Char（10）
NULL
用户密码
user_DES
Varchar（200）
NULL
用户描述
三、系统实现
１．数据库结构的实现
经过需求分析和概念结构设计后，得到教师档案管理数据库的逻辑结构。
SQL
Server2000逻辑结构的实现，可以在企业管理器中或查询分析器中进行。
下面是使用查询分析器时所用的创建这些表格的SQL语句。
1创建系统用户表格 user_info
CREATETABLE[dbo].[user_info]（
[user_ID][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[user_PWD][char]（10）COLLATEChinese_PRC_CI_ASNULL,
[user_DES][varchar]（200）COLLATEChinese_PRC_CI_ASNULL,
）ON[PRIMARY]
2创建教师基本信息表 teacher_info
CREATETABLE[dbo].[teacher_info]（
[teacher_ID][varchar]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[teacher_Name][varchar]（10）COLLATEChinese_PRC_CI_ASNULL,
[teacher_Sex][char]
（2）COLLATEChinese_PRC_CI_ASNULL,
[born_date][datetime]NULL,
[acdName][varchar]（100）COLLATEChinese_PRC_CI_ASNULL,
[telephone][char]（20）COLLATEChinese_PRC_CI_ASNULL,
[enroll_Date][datetime]NULL,
[wage][int]NULL,
[comment][varchar]（200）COLLATEChinese_PRC_CI_ASNULL,
）ON[PRIMARY]
3创建课程基本信息表 course_info
CREATETABLE[dbo].[course_info]（
[course_NO][varchar]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[course_Name][char]（20）COLLATEChinese_PRC_CI_ASNULL,
course_CreditintNULL,
[course_DES][varchar]（200）COLLATEChinese_PRC_CI_ASNULL,
）ON[PRIMARY]
4创建教师评价信息表 teacher_course_info
CREATETABLE[dbo].[teacher_course_info]（
[teacher_ID][varchar]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[course_NO][varchar]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[score][int]COLLATEChinese_PRC_CI_ASNULL,
）ON[PRIMARY]
2.教师档案管理系统主窗体的创建
在SQLServer2000的查询分析器中执行了创建数据表的SQL语句后，有关数据结构的后端设计工作就完成了。
下面是用VisualBasic进行教师档案系统的功能模块和数据库系统的客户端程序的实现。
1创建工程项目 教师档案管理系统.vbp
启动VisualBasic后，单击“文件→新建工程”菜单，在图3-16所示的工程模板中选择“标准EXE”项。
单击“文件→保存工程”菜单，以教师档案管理系统.vbp为工程名保存工程。
如下图3
图3创建教师档案管理系统项目
2创建教师档案管理系统主窗体
在VisualBasic中，为了使程序更为美观、整齐有序，界面设计采用MDI多文档型。
选择“工程→添加MDI窗体”菜单项，添加一个多文档界面，单击工具栏中的“菜单编辑器”创建主窗体的菜单，生成一个如图3-17所示的主窗体frmmain，其Caption属性为“教师档案管理系统”，并以文件名frmmain.frm保存。
如下图：
图4程序主窗体
3创建公用模块
在VisualBasic中可以用公用模块来存放整个工程项目公用的函数、全局变量等。
整个工程项目中的任何地方都可以调用公用模块中的函数、变量，以提高代码的效率。
在“工程资源管理器”中添加一个Module，保存为Module1.bas，其程序如下：
Publicusername_OKAsString'记录登录用户名
'定义连接字符串函数
PublicFunctionConnectString（）AsString
ConnectString="Provider=SQLOLEDB.1;Password=sa;UserID=sa;"
+"InitialCatalog=pubs;DataSource=127.0.0.1"
'设置SQLServer2000数据库链接字符串，此字符串可保存在目录文件中
EndFunction
'ExecuteSQL函数执行SQL语句，返回结果集
PublicFunctionExecuteSQL（ByValSQLAsString,MsgStringAsString）_
AsADODB.Recordset
DimcnnAsADODB.Connection
DimrstAsADODB.Recordset
DimsTokens（）AsString
OnErrorGoToExecuteSQL_Error
sTokens=Split（SQL）
Setcnn=NewADODB.Connection
cnn.OpenConnectString
IfInStr（"INSERT,DELETE,UPDATE,EXECUTE",UCase$（sTokens（0）））Then
cnn.Execute（SQL）
MsgString=sTokens（0）&"querysuccessful"
Else
Setrst=NewADODB.Recordset
rst.OpenTrim$（SQL）,cnn,adOpenKeyset,adLockOptimistic
SetExecuteSQL=rst
MsgString="查询到"&rst.RecordCount&"条记录"
EndIf
ExecuteSQL_Exit:
Setrst=Nothing
Setcnn=Nothing
ExitFunction
ExecuteSQL_Error:
MsgString="查询错误:
"&Err.Description
ResumeExecuteSQL_Exit
EndFunction
函数ConnectString和ExecuteSQL在本实例中会频繁使用，ConnectString函数为连接SQLServer2000数据库的参数调用函数，ExecuteSQL函数执行SQL语句，如删除、更新、添加和查询，只有执行查询语句时才返回记录集对象。
3.系统用户管理模块的创建
1用户登录窗体设计
系统启动后，将首先出现如图3-18所示的用户登录窗体，用户输入正确的用户名和密码后才能进行系统。
图5用户登录窗体
用户登录窗体中放置两个文本框（TextBox），用来输入用户名和密码；两个按钮（CommandButton）用来进入或退出登录；3个标签（Label）用来显示窗体的信息。
这些控件的属性设置如表3-15所示。
表3-15登录窗体的控件及属性值
控件
属性
属性取值
说明
Register（Form）
Caption
登录
窗体
StartUpPosition
CenterScreen
窗体显示在屏幕中央
username
Name
username
文本框
userpassword
Name
username
文本框
PasswordChar
*
输入的密码显示为*
cmdok
Caption
登录
命令按钮
cmdcancel
Caption
退出
Label1
Caption
教师档案管理系统
提示
Label2
Caption
用户名：
Label3
Caption
用户密码：
当用户输入完用户名和用户密码后，单击“确定”按钮将对用户输入的信息进行判断。
cmdOK的Click事件代码如下：
PrivateSubcmdok_Click（）
DimtxtsqlAsString'用来存放SQL语句
DimmrcAsADODB.Recordset'用来存放返回记录集对象
DimmsgtextAsString'用来存放返回信息
Ifusername.Text=""Then
MsgBox"请输入用户名！
"
username.SetFocus
Else
txtsql="select*fromuser_infowhereuser_ID='"&username.Text&"'"
Setmrc=ExecuteSQL（txtsql,msgtext）'在用户表中查找用户
Ifmrc.EOF=TrueThen'没找到用户,回到用户名输入框
MsgBox"没有这个用户!
"
username.SetFocus
Else'找到用户，比较密码是否正确
IfTrim（mrc.Fields（"user_PWD"））=Trim（userpassword.Text）Then
username_OK=Trim（username.Text）'记录用户名
UnloadMe'密码正确，进行系统
frmmain.Show
Else'密码不对，重新输入
MsgBox"输入密码不对！
请重新输入"
userpassword.SetFocus
EndIf
EndIf
EndIf
EndSub
Cmdcancle的click事件：
PrivateSubcmdcancle_Click（）
End
EndSub
用户如果没有输入用户名，将出现消息框提示。
根据输入的用户名在表User_info中查找，如果没找到，提示没有这个用户，如果找到，则比较密码。
如果输入的密码和表格中的密码不一样，则提示密码不正确，否则进入教师档案管理系统。
2添加用户窗体的创建
进入系统后，选择菜单“系统→添加用户”就可以添加用户，出现如图3-19所示的窗体。
图3-19添加用户窗体frmAddUser
窗体frmAddUser中放置了三个文本框，用来输入用户名和密码；两个命令按钮用来添加用户和退出本窗体；三个标签用来标识文本框。
这些控件的设置如表3-16所示。
表3-16添加用户窗体的控件及属性值
控件名称
属性
属性值
控件名称
属性
属性值
Form
Name
frmAddUser
TextBox
Name
txtPassword1
caption
添加用户
PasswordChar
*
Label
Name
Label1
TextBox
Name
txtPassword2
Caption
请输入用户名
PasswordChar
*
Label
Name
Label2
CommandButton
Name
cmdOk
Caption
请输入密码
Caption
添加用户
Label
Name
Label3
CommandButton
Name
cmdExit
Caption
请确认密码
Caption
退出
TextBox
Name
txtUserName
用户需两次输入密码，用来保证输入密码的正确。
用户输入完信息后，单击“添加用户”按钮将触发Click事件，代码如下：
PrivateSubcmdok_Click（）
DimtxtsqlAsString
DimmrcAsADODB.Recordset
DimmsgtextAsString
IfTrim（txtUserName.Text）=""Then'判断输入用户名是否为空
MsgBox"请输入用户名称！
",vbOKOnly,"警告"
ExitSub
EndIf
'判断输入的密码是否一致
IfTrim（txtPassword1.Text）<>Trim（txtPassword2.Text）Then
MsgBox"两次输入密码不一样，请确认！
",vbOKOnly,"警告"
ExitSub
EndIf
IfLen（txtPassword1.Text）=0Then'判断输入密码是否为空
MsgBox"输入密码不能为空！
",vbOKOnly,"警告"
ExitSub
EndIf
'判断帐号在数据库中是否已存在
txtsql="select*fromuser_infowhereuser_ID='"&txtUserName.Text&"'"
Setmrc=ExecuteSQL（txtsql,msgtext）
Ifmrc.EOFThen
'为新的账号，加入数据库中
mrc.AddNew
mrc.Fields（"user_ID"）=Trim（txtUserName.Text）
mrc.Fields（"user_PWD"）=Trim（txtPassword1.Text）
mrc.Update
mrc.Close
MsgBox"添加用户成功！
",vbOKOnly,"添加用户"
Else
'账号在数据库已存在
MsgBox"用户已经存在，请重新输入用户名！
",vbOKOnly,"警告"
ExitSub
EndIf
EndSub
单击“退出”按钮将退出添加用户界面，代码如下：
PrivateSubcmdcancel_Click（）
UnloadMe
EndSub
3修改用户密码窗体的创建
用户可以修改自己的密码，选择菜单“系统→修改密码”，出现如图3-20所示的窗体。
图6修改密码窗体
在这个窗体中放置了两个文本框txtpassword1和txtpassword2，两个命令按钮“修改”（cmdmodify）和“退出”（cmdexit），两个标签“输入新密码”（label1）和“确认新密码”（label2）。
两次输入密码后，单击“修改”按钮，将触发Click事件来修改当前登录账号的密码。
代码如下：
PrivateSubcmdmodify_Click（）
Dimtxtsql,msgtextAsString
DimmrcAsADODB.Recordset
'判断密码输入是否一致
IfTrim（txtPassword1.Text）<>Trim（txtPassword2.Text）Then
MsgBox"密码输入不一致！
",vbOKOnly,"警告"
Else'对当前用户的密码进行修改
txtsql="select*fromuser_infowhereuser_ID='"&username_OK&"'"
Setmrc=ExecuteSQL（txtsql,msgtext）
mrc.Fields（"user_PWD"）=Trim（txtPassword1.Text）
mrc.Update
mrc.Close
MsgBox"密码修改成功",vbOKOnly,"修改密码"
EndIf
EndSub
PrivateSubcmdexit_Click（）
UnloadMe
EndSub
两次输入的密码一致时，数据库中的记录将更新
4.教师基本信息管理模块的创建
添加教师基本信息窗体的创建
选择“学籍管理→添加学籍信息”菜单，将出现如图3-21所示的窗体。
图7添加学籍信息窗体
在窗体中放置了8个文本框和下拉文本框，用来输入学籍信息；两个命令按钮用来确定添加学籍信息和退出；以入9个标签用来提示文本框内容。
这些控件的属性设置如表3-17所示。
表3-17添加学籍信息窗体的控件及属性设置
控件名称
属性
属性值
控件名称
属性
属性值
Form
Name
frmXJAdd
Label
Name
Label9
Caption
添加学籍信息
Caption
备注
Label
Name
Label1
TextBox
Name
txtNum
Caption
学号
TextBox
Name
txtName
Label
Name
Label2
TextBox
Name
txtBirthday
Caption
姓名
TextBox
Name
txt
升级会员 