ABC家教服务管理系统.docx
《ABC家教服务管理系统.docx》由会员分享，可在线阅读，更多相关《ABC家教服务管理系统.docx（34页珍藏版）》请在冰豆网上搜索。
ABC家教服务管理系统
ABC家教服务管理系统
1引言
引言
社会发展节奏的加快使得人们越来越趋向于信息化、数字化，传统的人工管理信息模式已经不能满足社会发展的需求，由计算机实现的管理信息系统（MIS）以其方便快捷的操作受到人们的亲睐，并将逐渐取代传统的人工管理。
管理信息系统是一个由人、计算机等组成的能进行信息的收集、传递、储存、加工、维护和使用的系统，它运用计算机完成对数据的操作，不仅能避免繁重的业务量所造成的人为错误，大大提高工作质量和工作效率，还可运用信息共享加快信息更新和发布的速度。
除此之外，管理信息系统的面向对象化设计使系统简便易行，操作人员不需很强的专业技术，只要通过简单的培训即可熟练使用系统。
而数据库技术是信息技术的基础，在信息高度发达的今天，数据库技术和数据库应用显示出了极大的作用和发展潜力。
本文所探讨的ABC家教服务系统，以下简称家教网，在这里指的是为家长和教师提供家教信息及其它个性化服务的网络产品网站。
该网站应为教员和学员提供更为个性化的家教社区，为家教双方提供双向选择和文流的平台，学员教员可以方便的查询自己中意的教员，教员可以知道自己家教安排的状态等等从而真正实现家教信息网络化和个性化。
2总体设计
2.1系统主要功能
根据网络家教服务系统的实际情况，该系统需求的主要功能如下：
（1）编辑信息模块
编辑信息模块分为学员信息编辑和教员信息编辑，均可以添加、修改、删除、更新或者逐条查找信息。
（2）学员教员管理模块
学员教员管理模块分为学员管理模块和教员管理模块。
学员管理模块可以根据学员姓名、性别、年级以及科目查询或统计学员信息。
教员管理模块可以根据教员姓名、性别、学历以及科目查询或统计教员信息。
（3）服务信息管理模块
服务信息管理模块分为服务体系和收费标准两个模块，主要介绍了家教网的收费标准以及师资力量等方面。
（4）综合查询系统模块
综合查询系统模块分为教员信息查询系统模块以及学生信息查询系统模块。
教员信息查询系统模块可以根据教员姓名、性别、学历和科目进行综合查询。
学生信息查询系统模块是根据学生姓名、性别、科目、年级进行综合查询。
在信息比较模糊时可以选择综合查询系统。
（5）新闻管理模块
新闻管理模块主要是更新家教网的最近新闻，如阶段性测试或收费等。
（6）系统维护模块
在此模块中学员或教员可以修改登录密码，默认密码为123456。
2.2系统功能结构图
3系统设计
3.1设计目标
结合目前家教服务系统的实际情况，按照面向数据的分析设计方法，得出本系统的基本模块。
❑系统运行稳定，安全可靠。
❑界面设计美观，人机交互界面友好。
❑信息查询灵活、方便、快捷、准确，数据存储安全可靠。
❑采用多种方式查询数据。
❑操作员可以随时修改自己的口令。
❑对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。
❑数据保密性强，为每个用户设置相应的权限级别。
3.2开发及运行环境
系统开发平台：
MicrosoftVisualBasic6.0
运行平台：
Windowsxp/Windows2000/Windows98
3.3数据库设计
本系统采用的是微软公司的MicrosoftOfficeAccess，原因如下：
第一，针对家教服务系统的发展现状，Access数据库已经完全可以满足其管理需求；第二，Access数据库操作简单，很适合初学者应用，并且采用ADO数据连接技术后，在Access的使用基础上很容易上手譬如SQLserver、Oracle等大型网络数据库。
3.3.1数据库概念结构设计
根据需求分析，该家教服务系统中实体包括：
密码表、学员和教员。
3.3.2数据库逻辑结构设计
通过对设计出的家教系统的分析，导出数据的关系模型如下：
（1）密码表：
（编号、username、password）
（2）学员：
（编号、姓名、性别、年级、科目）
（3）教员：
（编号、姓名、性别、学历、科目）
3.2.3数据库物理设计
根据以上的数据库系统功能分析，本着在使用方便的前提下尽可能的减少数据冗余的原则，在Access中建立了base数据库，并建立了以下三个基本表：
（1）密码表：
用于用户登录
字段名称
数据类型
编号
自动编号
username
文本型
password
文本型
（2）学员信息表：
用于存放学员的基本信息
字段名称
数据类型
编号
自动编号
姓名
文本型
性别
文本型
年级
文本型
科目
文本型
（3）教员信息表：
用于存放教员的基本信息
字段名称
数据类型
编号
自动编号
姓名
文本型
性别
文本型
学历
文本型
科目
文本型
4主要功能模块设计
4.1主窗体设计
主界面是登陆后程序运行的第一个界面，应该清晰有条理的显示系统的所有功能模块。
本系统是一个家教服务系统，按照应用需求，将该系统设计分为六大主要模块：
编辑、学员/教员管理、服务信息管理、综合查询系统、新闻管理、系统维护六个功能模块，主界面拟采用菜单资源显示各个基本模块，用户单击某个菜单项，就能弹出某个功能的界面。
系统主界面如图4.1.1,4.1.2，4.1.3所示：
图4.1.1
图4.1.2
图4.1.3
4.2编辑模块
编辑信息模块分为学员信息编辑和教员信息编辑，均可以添加、修改、删除、更新或者逐条查找信息。
（1）学员编辑模块，运行界面如图4.2.1所示：
图4.2.1
程序代码：
PrivateSubCommand1_Click（IndexAsInteger）
SelectCaseIndex
Case0首记录
Adodc1.Recordset.MoveFirst
Command1
（1）.Enabled=False
Command1
（2）.Enabled=True
Case1上一条
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
Command1
（2）.Enabled=True
Case2下一条
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
Command1
（1）.Enabled=True
Case3尾记录
Adodc1.Recordset.MoveLast
Command1
（2）.Enabled=False
Command1
（1）.Enabled=True
Case4返回学员查询系统
Form13.Show
Form16.Hide
EndSelect
EndSub
PrivateSubCommand2_Click（IndexAsInteger）
DimaskAsInteger
SelectCaseIndex
Case0添加
Adodc1.Recordset.AddNew
Case1修改
ask=MsgBox（"删除否？
",vbYesNo）
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
Case2删除
Adodc1.Recordset.Update
Case3更新
Adodc1.Recordset.CancelUpdate
Case4返回主菜单
Form3.Show
Form16.Hide
EndSelect
EndSub
（2）教员编辑模块，运行界面如图4.2.2所示：
图4.2.2
程序代码：
PrivateSubCommand1_Click（IndexAsInteger）
SelectCaseIndex
Case0首记录
Adodc1.Recordset.MoveFirst
Command1
（1）.Enabled=False
Command1
（2）.Enabled=True
Case1上一条
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
Command1
（2）.Enabled=True
Case2下一条
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
Command1
（1）.Enabled=True
Case3尾记录
Adodc1.Recordset.MoveLast
Command1
（2）.Enabled=False
Command1
（1）.Enabled=True
Case4返回教员查询系统
Form14.Show
Form17.Hide
EndSelect
EndSub
PrivateSubCommand2_Click（IndexAsInteger）
DimaskAsInteger
SelectCaseIndex
Case0添加
Adodc1.Recordset.AddNew
Case1修改
ask=MsgBox（"删除否？
",vbYesNo）
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
Case2删除
Adodc1.Recordset.Update
Case3更新
Adodc1.Recordset.CancelUpdate
Case4返回主菜单
Form3.Show
Form17.Hide
EndSelect
EndSub
4.3学员教员管理模块
学员教员管理模块分为学员管理模块和教员管理模块。
（1）教员管理模块：
教员管理模块可以根据教员姓名、性别、学历以及科目查询统计教员信息。
查询统计运行界面分别如图4.3.1.1和4.3.1.2所示：
图4.3.1.1
图4.3.1.2
查询代码：
PrivateSubCommand1_Click（）按姓名查询
xm=Trim（Text1）
Adodc1.RecordSource="select*from教员信息where姓名='"&xm&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click（）按性别查询
xb=Trim（Text1）
Adodc1.RecordSource="select*from教员信息where性别='"&xb&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand3_Click（）按学历查询
xl=Trim（Text1）
Adodc1.RecordSource="select*from教员信息where学历='"&xl&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand4_Click（）按科目查询
km=Trim（Text1）
Adodc1.RecordSource="select*from教员信息where科目='"&km&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand5_Click（）返回教员教员
Form4.Show
Form1.Hide
Form3.Hide
Form2.Hide
Form5.Hide
Form6.Hide
Form7.Hide
Form8.Hide
Form9.Hide
Form10.Hide
Form11.Hide
Form12.Hide
Form13.Hide
EndSub
PrivateSubCommand6_Click（）退出
End
EndSub
统计代码：
PrivateSubCommand1_Click（）统计各科教员人数
Adodc1.RecordSource="select科目,count（*）as人数from教员信息GROUPBY科目"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click（）按教员性别统计
Adodc1.RecordSource="select性别,count（*）as人数from教员信息GROUPBY性别"
Adodc1.Refresh
EndSub
PrivateSubCommand3_Click（）返回教员管理
Form4.Show
Form1.Hide
Form2.Hide
Form3.Hide
Form9.Hide
Form5.Hide
Form6.Hide
Form7.Hide
Form8.Hide
Form10.Hide
Form11.Hide
Form12.Hide
Form13.Hide
EndSub
PrivateSubCommand4_Click（）退出
End
EndSub
（2）学员管理模块可以根据学员姓名、性别、年级以及科目查询或统计学员信息。
查询和统计运行界面分别如图4.3.2.1和4.3.2.2所示：
查询代码：
PrivateSubCommand1_Click（）按姓名查询
xm=Trim（Text1）
Adodc1.RecordSource="select*from学员信息where姓名='"&xm&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click（）按性别查询
xb=Trim（Text1）
Adodc1.RecordSource="select*from学员信息where性别='"&xb&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand3_Click（）按年级查询
nj=Trim（Text1）
Adodc1.RecordSource="select*from学员信息where年级='"&nj&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand4_Click（）按科目查询
km=Trim（Text1）
Adodc1.RecordSource="select*from学员信息where科目='"&km&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand5_Click（）返回学员管理
Form7.Show
Form1.Hide
Form2.Hide
Form3.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form9.Hide
Form8.Hide
Form10.Hide
Form11.Hide
Form12.Hide
Form13.Hide
EndSub
PrivateSubCommand6_Click（）退出
End
EndSub
统计代码：
PrivateSubCommand3_Click（）按科目统计
Adodc1.RecordSource="select科目,count（*）as人数from学员信息GROUPBY科目"
Adodc1.Refresh
EndSub
PrivateSubCommand4_Click（）返回学员管理
Form7.Show
Form1.Hide
Form3.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form2.Hide
Form8.Hide
Form9.Hide
Form10.Hide
Form11.Hide
Form12.Hide
Form13.Hide
EndSub
PrivateSubCommand1_Click（）按性别统计
Adodc1.RecordSource="select性别,count（*）as人数from学员信息GROUPBY性别"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click（）按年级统计
Adodc1.RecordSource="select年级,count（*）as人数from学员信息GROUPBY年级"
Adodc1.Refresh
EndSub
PrivateSubCommand5_Click（）退出
End
EndSub
图4.3.2.1
图4.3.2.2
4.4服务信息管理模块
服务信息管理模块分为服务体系和收费标准两个模块。
（1）服务体系模块主要介绍了家教网的师资力量等方面，运行界面如图4.4.1所示：
图4.4.1
（2）收费标准模块主要介绍了家教网不同年级的收费情况，运行界面如图4.4.2所示：
图4.4.2
运行代码：
PrivateSubCommand1_Click（）小学
Text1="20元/小时"
EndSub
PrivateSubCommand2_Click（）初中
Text2="40元/小时"
EndSub
PrivateSubCommand3_Click（）高中
Text3="60元/小时"
EndSub
PrivateSubCommand4_Click（）返回主菜单
Form3.Show
Form1.Hide
Form2.Hide
Form9.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
Form8.Hide
Form10.Hide
Form11.Hide
Form12.Hide
Form13.Hide
EndSub
PrivateSubCommand5_Click（）退出
End
4.5综合查询系统模块
综合查询系统模块分为教员信息查询模块和学员信息查询模块。
（1）教员信息查询系统模块可以根据教员姓名、性别、学历和科
进行综合查询，运行界面如图4.5.1所示：
图4.5.1
程序代码：
PrivateSubCommand1_Click（）
sql_str="select*from教员信息"
n=0
IfCheck1.Value=1Then
sql_str=sql_str+"where姓名='"&Combo1&"'"
n=1
EndIf
IfCheck2.Value=1Then
Ifn=1Then
Else
sql_str=sql_str+"where性别='"&Combo2&"'"
EndIf
n=1
EndIf
IfCheck3.Value=1Then
Ifn=1Then
sql_str=sql_str+"and学历='"&Combo3&"'"
Else
sql_str=sql_str+"where学历='"&Combo3&"'"
EndIf
n=1
EndIf
IfCheck4.Value=1Then
Ifn=1Then
sql_str=sql_str+"and科目='"&Combo4&"'"
Else
sql_str=sql_str+"where科目='"&Combo4&"'"
EndIf
EndIf
Adodc1.RecordSource=sql_str
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubCommand3_Click（）
Form3.Show
Form1.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
Form8.Hide
Form9.Hide
Form2.Hide
Form11.Hide
Form12.Hide
EndSub
PrivateSubCommand4_Click（）
Form17.Show
Form14.Hide
EndSub
（2）学生信息查询系统模块是根据学生姓名、性别、科目、年级进行综合查询，运行界面如图4.5.2所示：
图4.5.2
程序代码：
PrivateSubCommand1_Click（）
sql_str="select*from学员信息"
n=0
IfCheck1.Value=1Then
sql_str=sql_str+"where姓名='"&Combo1&"'"
n=1
EndIf
IfCheck2.Value=1Then
Ifn=1Then
sql_str=sql_str+"and性别='"&Combo2&"'"
Else
sql_str=sql_str+"where性别='"&Combo2&"'"
EndIf
n=1
EndIf
IfCheck3.Value=1Then
Ifn=1Then
sql_str=sql_str+"and科目='"&Combo3&"'"
Else
sql_str=sql_str+"where科目='"&Combo3&"'"
EndIf
n=1
EndIf
IfCheck4.Value=1Then
Ifn=1Then
sql_str=sql_str+"and年级='"&Combo4
升级会员 