ABC家教服务管理系统

1、最新ABC家教效劳管理系统 ABC家教效劳信息管理系统学 院经济与管理学院专 业物流管理班 级04080701班学 号姓 名张佳昱指导教师王晓斌2022年7月日目 录 TOC o 1-3 h z u HYPERLINK l _Toc202234786 1 引言3 HYPERLINK l _Toc202234791 2 总体设计3 HYPERLINK l _Toc202234792 2.1 系统主要功能3 HYPERLINK l _Toc202234795 2.2 系统功能结构图5 HYPERLINK l _Toc202234799 3 系统设计5 HYPERLINK l _Toc2022348

2、00 3.1 设计目标5 HYPERLINK l _Toc202234806 3.2 开发及运行环境6 HYPERLINK l _Toc202234801 3.3 数据库设计6 HYPERLINK l _Toc202234802 3.3.1 数据库概念结构设计6 HYPERLINK l _Toc202234803 3.3.2 数据库逻辑结构设计6 HYPERLINK l _Toc202234804 3.3.3 数据库物理设计6 HYPERLINK l _Toc202234805 4 主要功能模块设计7 HYPERLINK l _Toc202234806 4.1 主窗体设计7 HYPERLINK

3、 l _Toc202234812 4.2 编辑模块8 HYPERLINK l _Toc202234814 4.3 学员教员管理模块13 HYPERLINK l _Toc202234814 4.4 效劳信息管理模块20 HYPERLINK l _Toc202234815 4.5 综合查询系统模块22 HYPERLINK l _Toc202234814 4.6 新闻管理模块25 HYPERLINK l _Toc202234815 4.7 系统维护模块261 引言引 言社会开展节奏的加快使得人们越来越趋向于信息化、数字化，传统的人工管理信息模式已经不能满足社会开展的需求，由计算机实现的管理信息系统M

4、IS以其方便快捷的操作受到人们的亲睐，并将逐渐取代传统的人工管理。管理信息系统是一个由人、计算机等组成的能进行信息的收集、传递、储存、加工、维护和使用的系统，它运用计算机完成对数据的操作，不仅能防止繁重的业务量所造成的人为错误，大大提高工作质量和工作效率，还可运用信息共享加快信息更新和发布的速度。除此之外，管理信息系统的面向对象化设计使系统简便易行，操作人员不需很强的专业技术，只要通过简单的培训即可熟练使用系统。而数据库技术是信息技术的根底，在信息高度兴旺的今天，数据库技术和数据库应用显示出了极大的作用和开展潜力。本文所探讨的ABC家教效劳系统，以下简称家教网，在这里指的是为家长和教师提供家教

5、信息及其它个性化效劳的网络产品网站。该网站应为教员和学员提供更为个性化的家教社区，为家教双方提供双向选择和文流的平台，学员教员可以方便的查询自己中意的教员，教员可以知道自己家教安排的状态等等从而真正实现家教信息网络化和个性化。2 总体设计2.1 系统主要功能根据网络家教效劳系统的实际情况，该系统需求的主要功能如下：编辑信息模块 编辑信息模块分为学员信息编辑和教员信息编辑，均可以添加、修改、删除、更新或者逐条查找信息。学员教员管理模块 学员教员管理模块分为学员管理模块和教员管理模块。学员管理模块可以根据学员姓名、性别、年级以及科目查询或统计学员信息。教员管理模块可以根据教员姓名、性别、学历以及科

6、目查询或统计教员信息。3效劳信息管理模块 效劳信息管理模块分为效劳体系和收费标准两个模块，主要介绍了家教网的收费标准以及师资力量等方面。(4)综合查询系统模块 综合查询系统模块分为教员信息查询系统模块以及学生信息查询系统模块。教员信息查询系统模块可以根据教员姓名、性别、学历和科目进行综合查询。学生信息查询系统模块是根据学生姓名、性别、科目、年级进行综合查询。在信息比拟模糊时可以选择综合查询系统。(5)新闻管理模块 新闻管理模块主要是更新家教网的最近新闻，如阶段性测试或收费等。(6)系统维护模块 在此模块中学员或教员可以修改登录密码，默认密码为123456。2.2系统功能结构图学员编辑修改密码系

7、统维护编辑信息ABC家教效劳管理系统学员教员管理效劳信息管理综合查询系统新闻管理教员编辑学员管理教员管理效劳体系收费标准教员信息查询系统学员信息查询系统家教新闻登录家教网3系统设计3.1 设计目标结合目前家教效劳系统的实际情况，按照面向数据的分析设计方法，得出本系统的根本模块。系统运行稳定，平安可靠。界面设计美观，人机交互界面友好。信息查询灵活、方便、快捷、准确，数据存储平安可靠。采用多种方式查询数据。操作员可以随时修改自己的口令。对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。数据保密性强，为每个用户设置相应的权限级别。3.2 开发及运行环境系统开发平台：Microsoft

8、Visual Basic 6.0运行平台：Windows xp/Windows 2000/Windows 983.3数据库设计本系统采用的是微软公司的Microsoft Office Access，原因如下：第一，针对家教效劳系统的开展现状，Access数据库已经完全可以满足其管理需求；第二，Access数据库操作简单，很适合初学者应用，并且采用ADO数据连接技术后，在Access的使用根底上很容易上手譬如SQL server、Oracle等大型网络数据库。3.3.1 数据库概念结构设计根据需求分析，该家教效劳系统中实体包括：密码表、学员和教员。3.3.2 数据库逻辑结构设计 通过对设计出的家

9、教系统的分析，导出数据的关系模型如下：密码表：编号、username、password学员：编号、姓名、性别、年级、科目教员：编号、姓名、性别、学历、科目3.2.3 数据库物理设计 根据以上的数据库系统功能分析，本着在使用方便的前提下尽可能的减少数据冗余的原那么，在Access中建立了base数据库，并建立了以下三个根本表：1 密码表：用于用户登录字段名称数据类型编号自动编号username文本型password文本型学员信息表：用于存放学员的根本信息字段名称数据类型编号自动编号姓名文本型性别文本型年级文本型科目文本型教员信息表：用于存放教员的根本信息字段名称数据类型编号自动编号姓名文本型性别

10、文本型学历文本型科目文本型4 主要功能模块设计4.1主窗体设计主界面是登陆后程序运行的第一个界面，应该清晰有条理的显示系统的所有功能模块。本系统是一个家教效劳系统，按照应用需求，将该系统设计分为六大主要模块：编辑、学员/教员管理、效劳信息管理、综合查询系统、新闻管理、系统维护六个功能模块，主界面拟采用菜单资源显示各个根本模块，用户单击某个菜单项，就能弹出某个功能的界面。系统主界面如图4.1所示：4.2编辑模块编辑信息模块分为学员信息编辑和教员信息编辑，均可以添加、修改、删除、更新或者逐条查找信息。学员编辑模块，运行界面如图4.2.1所示：程序代码：Private Sub Command1_Cl

11、ick(Index As Integer) Select Case Index Case 0 首记录 Command1(1).Enabled = False Command1(2).Enabled = True Case 1 上一条 Command1(2).Enabled = True Case 2 下一条 Command1(1).Enabled = True Case 3 尾记录 Command1(2).Enabled = False Command1(1).Enabled = True Case 4 返回学员查询系统 Form13.Show Form16.Hide End SelectEn

12、d SubPrivate Sub Command2_Click(Index As Integer) Dim ask As Integer Select Case Index Case 0 添加 Case 1 修改 ask = MsgBox(删除否？, vbYesNo) If ask = 6 Then End If Case 2 删除 Case 3 更新 Case 4 返回主菜单 Form3.Show Form16.Hide End SelectEnd Sub教员编辑模块，运行界面如图4.2.2所示：程序代码：Private Sub Command1_Click(Index As Integer

13、) Select Case Index Case 0 首记录 Command1(1).Enabled = False Command1(2).Enabled = True Case 1 上一条 Command1(2).Enabled = True Case 2 下一条 Command1(1).Enabled = True Case 3 尾记录 Command1(2).Enabled = False Command1(1).Enabled = True Case 4 返回教员查询系统 Form14.Show Form17.Hide End SelectEnd SubPrivate Sub Com

14、mand2_Click(Index As Integer) Dim ask As Integer Select Case Index Case 0 添加 Case 1 修改 ask = MsgBox(删除否？, vbYesNo) If ask = 6 Then End If Case 2 删除 Case 3 更新 Case 4 返回主菜单 Form3.Show Form17.Hide End SelectEnd Sub4.3 学员教员管理模块学员教员管理模块分为学员管理模块和教员管理模块。教员管理模块：教员管理模块可以根据教员姓名、性别、学历以及科目查询统计教员信息。查询统计运行界面分别如图4

15、.3.1.1和4.3.1.2所示：查询代码：Private Sub Command1_Click() 按姓名查询xm = Trim(Text1)Adodc1.RecordSource = select * from 教员信息 where 姓名= & xm & Adodc1.RefreshEnd SubPrivate Sub Command2_Click() 按性别查询xb = Trim(Text1)Adodc1.RecordSource = select * from 教员信息 where 性别= & xb & Adodc1.RefreshEnd SubPrivate Sub Command3

16、_Click() 按学历查询xl = Trim(Text1)Adodc1.RecordSource = select * from 教员信息 where 学历= & xl & Adodc1.RefreshEnd SubPrivate Sub Command4_Click() 按科目查询km = Trim(Text1)Adodc1.RecordSource = select * from 教员信息 where 科目= & km & Adodc1.RefreshEnd SubPrivate Sub Command5_Click() 返回教员教员Form4.ShowForm1.HideForm3.H

17、ideForm2.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideEnd SubPrivate Sub Command6_Click() 退出EndEnd Sub统计代码：Private Sub Command1_Click() 统计各科教员人数Adodc1.RecordSource = select 科目,count(*) as 人数 from 教员信息 GROUP BY 科目Adodc1.RefreshEnd SubPrivate Sub Co

18、mmand2_Click() 按教员性别统计Adodc1.RecordSource = select 性别,count(*) as 人数 from 教员信息 GROUP BY 性别Adodc1.RefreshEnd SubPrivate Sub Command3_Click() 返回教员管理Form4.ShowForm1.HideForm2.HideForm3.HideForm9.HideForm5.HideForm6.HideForm7.HideForm8.HideForm10.HideForm11.HideForm12.HideForm13.HideEnd SubPrivate Sub C

19、ommand4_Click() 退出EndEnd Sub学员管理模块可以根据学员姓名、性别、年级以及科目查询或统计学员信息。查询和统计运行界面分别如图4.3.2.1和4.3.2.2所示：查询代码：Private Sub Command1_Click() 按姓名查询xm = Trim(Text1)Adodc1.RecordSource = select * from 学员信息 where 姓名= & xm & Adodc1.RefreshEnd SubPrivate Sub Command2_Click() 按性别查询xb = Trim(Text1)Adodc1.RecordSource = s

20、elect * from 学员信息 where 性别= & xb & Adodc1.RefreshEnd SubPrivate Sub Command3_Click() 按年级查询nj = Trim(Text1)Adodc1.RecordSource = select * from 学员信息 where 年级= & nj & Adodc1.RefreshEnd SubPrivate Sub Command4_Click() 按科目查询km = Trim(Text1)Adodc1.RecordSource = select * from 学员信息 where 科目= & km & Adodc1.

21、RefreshEnd SubPrivate Sub Command5_Click() 返回学员管理Form7.ShowForm1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm9.HideForm8.HideForm10.HideForm11.HideForm12.HideForm13.HideEnd SubPrivate Sub Command6_Click() 退出EndEnd Sub统计代码：Private Sub Command3_Click() 按科目统计Adodc1.RecordSource = select 科

22、目,count(*) as 人数 from 学员信息 GROUP BY 科目Adodc1.RefreshEnd SubPrivate Sub Command4_Click() 返回学员管理Form7.ShowForm1.HideForm3.HideForm4.HideForm5.HideForm6.HideForm2.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideEnd SubPrivate Sub Command1_Click() 按性别统计Adodc1.RecordSource = select 性别

23、,count(*) as 人数 from 学员信息 GROUP BY 性别Adodc1.RefreshEnd SubPrivate Sub Command2_Click() 按年级统计Adodc1.RecordSource = select 年级,count(*) as 人数 from 学员信息 GROUP BY 年级Adodc1.RefreshEnd SubPrivate Sub Command5_Click() 退出EndEnd Sub4.4 效劳信息管理模块效劳信息管理模块分为效劳体系和收费标准两个模块。效劳体系模块主要介绍了家教网的师资力量等方面，运行界面如图4.4.1所示：收费标准模

24、块主要介绍了家教网不同年级的收费情况，运行界面如图4.4.2所示：运行代码：Private Sub Command1_Click() 小学Text1 = 20元/小时End SubPrivate Sub Command2_Click() 初中Text2 = 40元/小时End SubPrivate Sub Command3_Click() 高中Text3 = 60元/小时End SubPrivate Sub Command4_Click() 返回主菜单Form3.ShowForm1.HideForm2.HideForm9.HideForm4.HideForm5.HideForm6.HideFo

25、rm7.HideForm8.HideForm10.HideForm11.HideForm12.HideForm13.HideEnd SubPrivate Sub Command5_Click() 退出End4.5 综合查询系统模块 综合查询系统模块分为教员信息查询模块和学员信息查询模块。教员信息查询系统模块可以根据教员姓名、性别、学历和科进行综合查询，运行界面如图4.5.1所示：程序代码：Private Sub Command1_Click()sql_str = select * from 教员信息n = 0If Check1.Value = 1 Then sql_str = sql_str

26、+ where 姓名= & Combo1 & n = 1End IfIf Check2.Value = 1 Then If n = 1 Then Else sql_str = sql_str + where 性别= & Combo2 & End If n = 1End IfIf Check3.Value = 1 Then If n = 1 Then sql_str = sql_str + and 学历= & Combo3 & Else sql_str = sql_str + where 学历= & Combo3 & End If n = 1End IfIf Check4.Value = 1 T

27、hen If n = 1 Then sql_str = sql_str + and 科目= & Combo4 & Else sql_str = sql_str + where 科目= & Combo4 & End IfEnd IfAdodc1.RecordSource = sql_strAdodc1.RefreshEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Form3.ShowForm1.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.Hid

28、eForm9.HideForm2.HideForm11.HideForm12.HideEnd SubPrivate Sub Command4_Click()Form17.ShowForm14.HideEnd Sub学生信息查询系统模块是根据学生姓名、性别、科目、年级进行综合查询，运行界面如图4.5.2所示：程序代码：Private Sub Command1_Click()sql_str = select * from 学员信息n = 0If Check1.Value = 1 Then sql_str = sql_str + where 姓名= & Combo1 & n = 1End IfIf

29、Check2.Value = 1 Then If n = 1 Then sql_str = sql_str + and 性别= & Combo2 & Else sql_str = sql_str + where 性别= & Combo2 & End If n = 1End IfIf Check3.Value = 1 Then If n = 1 Then sql_str = sql_str + and 科目= & Combo3 & Else sql_str = sql_str + where 科目= & Combo3 & End If n = 1End IfIf Check4.Value = 1

30、 Then If n = 1 Then sql_str = sql_str + and 年级= & Combo4 & Else sql_str = sql_str + where 年级= & Combo4 & End IfEnd IfAdodc1.RecordSource = sql_strAdodc1.RefreshEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Form3.ShowForm13.HideEnd SubPrivate Sub Command4_Click()Form16.Show

31、Form13.HideEnd Sub4.6 新闻管理模块所示：4.7 系统维护模块在此模块中学员或教员可以修改登录密码，默认密码为123456，运行界面如图4.7.1所示：运行代码：Private Sub Command1_Click()If Text1 = Then MsgBox 用户名不能为空, , 提示 Text1.SetFocus ElseIf Text2 = Then MsgBox 请输入原始密码！, , 提示 Text2.SetFocus ElseIf Text3 = Then MsgBox 请输入新密码！, , 提示 Text3.SetFocus ElseIf Text4 = Then MsgBox 请输入确认密码, , 提示 Text4.SetFocusElseIf Text3 Text4 Then MsgBox 确认密码和新密码必须保持一致！, , 提示Else Dim MPassword As String