ABC家教服务管理系统

年4月19日ABC家教服务管理系统文档仅供参考ABC家教服务信息管理系统学院经济与管理学院专业物流管理班级04080701班学号1姓名张佳昱指导教师王晓斌年7月日目录1引言 32总体设计 32.1系统主要功能 32.2系统功能结构图 53系统设计 53.1设计目标 53.2开发及运行环境 63.3数据库设计 63.3.1数据库概念结构设计 63.3.2数据库逻辑结构设计 63.3.3数据库物理设计 64主要功能模块设计 74.1主窗体设计 74.2编辑模块 84.3学员教员管理模块 134.4服务信息管理模块 204.5综合查询系统模块 224.6新闻管理模块 254.7系统维护模块 261引言引言社会发展节奏的加快使得人们越来越趋向于信息化、数字化，传统的人工管理信息模式已经不能满足社会发展的需求，由计算机实现的管理信息系统（MIS）以其方便快捷的操作受到人们的亲睐，并将逐渐取代传统的人工管理。管理信息系统是一个由人、计算机等组成的能进行信息的收集、传递、储存、加工、维护和使用的系统，它运用计算机完成对数据的操作，不但能避免繁重的业务量所造成的人为错误，大大提高工作质量和工作效率，还可运用信息共享加快信息更新和发布的速度。除此之外，管理信息系统的面向对象化设计使系统简便易行，操作人员不需很强的专业技术，只要经过简单的培训即可熟练使用系统。而数据库技术是信息技术的基础，在信息高度发达的今天，数据库技术和数据库应用显示出了极大的作用和发展潜力。本文所探讨的ABC家教服务系统，以下简称家教网，在这里指的是为家长和教师提供家教信息及其它个性化服务的网络产品网站。该网站应为教员和学员提供更为个性化的家教社区，为家教双方提供双向选择和文流的平台，学员教员能够方便的查询自己中意的教员，教员能够知道自己家教安排的状态等等从而真正实现家教信息网络化和个性化。2总体设计2.1系统主要功能根据网络家教服务系统的实际情况，该系统需求的主要功能如下：编辑信息模块编辑信息模块分为学员信息编辑和教员信息编辑，均能够添加、修改、删除、更新或者逐条查找信息。学员教员管理模块学员教员管理模块分为学员管理模块和教员管理模块。学员管理模块能够根据学员姓名、性别、年级以及科目查询或统计学员信息。教员管理模块能够根据教员姓名、性别、学历以及科目查询或统计教员信息。（3）服务信息管理模块服务信息管理模块分为服务体系和收费标准两个模块，主要介绍了家教网的收费标准以及师资力量等方面。(4)综合查询系统模块综合查询系统模块分为教员信息查询系统模块以及学生信息查询系统模块。教员信息查询系统模块能够根据教员姓名、性别、学历和科目进行综合查询。学生信息查询系统模块是根据学生姓名、性别、科目、年级进行综合查询。在信息比较模糊时能够选择综合查询系统。(5)新闻管理模块新闻管理模块主要是更新家教网的最近新闻，如阶段性测试或收费等。(6)系统维护模块在此模块中学员或教员能够修改登录密码，默认密码为123456。2.2系统功能结构图学员编辑修改密码系统维护编辑信息ABC家教服务管理系统学员教员管理服务信息管理综合查询系统新闻管理教员编辑学员管理教员管理学员编辑修改密码系统维护编辑信息ABC家教服务管理系统学员教员管理服务信息管理综合查询系统新闻管理教员编辑学员管理教员管理服务体系收费标准教员信息查询系统学员信息查询系统家教新闻登录家教网3系统设计3.1设计目标结合当前家教服务系统的实际情况，按照面向数据的分析设计方法，得出本系统的基本模块。系统运行稳定，安全可靠。界面设计美观，人机交互界面友好。信息查询灵活、方便、快捷、准确，数据存储安全可靠。采用多种方式查询数据。操作员能够随时修改自己的口令。对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。数据保密性强，为每个用户设置相应的权限级别。3.2开发及运行环境系统开发平台：MicrosoftVisualBasic6.0运行平台：Windowsxp/Windows/Windows983.3数据库设计本系统采用的是微软公司的MicrosoftOfficeAccess，原因如下：第一，针对家教服务系统的发展现状，Access数据库已经完全能够满足其管理需求；第二，Access数据库操作简单，很适合初学者应用，而且采用ADO数据连接技术后，在Access的使用基础上很容易上手譬如SQLserver、Oracle等大型网络数据库。3.3.1数据库概念结构设计根据需求分析，该家教服务系统中实体包括：密码表、学员和教员。3.3.2数据库逻辑结构设计经过对设计出的家教系统的分析，导出数据的关系模型如下：密码表：（编号、username、password）学员：（编号、姓名、性别、年级、科目）教员：（编号、姓名、性别、学历、科目）3.2.3数据库物理设计根据以上的数据库系统功能分析，本着在使用方便的前提下尽可能的减少数据冗余的原则，在Access中建立了base数据库，并建立了以下三个基本表：（1）密码表：用于用户登录字段名称数据类型编号自动编号username文本型password文本型学员信息表：用于存放学员的基本信息字段名称数据类型编号自动编号姓名文本型性别文本型年级文本型科目文本型教员信息表：用于存放教员的基本信息字段名称数据类型编号自动编号姓名文本型性别文本型学历文本型科目文本型4主要功能模块设计4.1主窗体设计主界面是登陆后程序运行的第一个界面，应该清晰有条理的显示系统的所有功能模块。本系统是一个家教服务系统，按照应用需求，将该系统设计分为六大主要模块：编辑、学员/教员管理、服务信息管理、综合查询系统、新闻管理、系统维护六个功能模块，主界面拟采用菜单资源显示各个基本模块，用户单击某个菜单项，就能弹出某个功能的界面。系统主界面如图4.1.1,4.1.2，4.1.3所示：图4.1.1图4.1.2图4.1.34.2编辑模块编辑信息模块分为学员信息编辑和教员信息编辑，均能够添加、修改、删除、更新或者逐条查找信息。学员编辑模块，运行界面如图4.2.1所示：图4.2.1程序代码：PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0首记录Adodc1.Recordset.MoveFirstCommand1(1).Enabled=FalseCommand1(2).Enabled=TrueCase1上一条Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCommand1(2).Enabled=TrueCase2下一条Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCommand1(1).Enabled=TrueCase3尾记录Adodc1.Recordset.MoveLastCommand1(2).Enabled=FalseCommand1(1).Enabled=TrueCase4返回学员查询系统Form13.ShowForm16.HideEndSelectEndSubPrivateSubCommand2_Click(IndexAsInteger)DimaskAsIntegerSelectCaseIndexCase0添加Adodc1.Recordset.AddNewCase1修改ask=MsgBox("删除否？",vbYesNo)Ifask=6ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfCase2删除Adodc1.Recordset.UpdateCase3更新Adodc1.Recordset.CancelUpdateCase4返回主菜单Form3.ShowForm16.HideEndSelectEndSub教员编辑模块，运行界面如图4.2.2所示：图4.2.2程序代码：PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0首记录Adodc1.Recordset.MoveFirstCommand1(1).Enabled=FalseCommand1(2).Enabled=TrueCase1上一条Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCommand1(2).Enabled=TrueCase2下一条Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCommand1(1).Enabled=TrueCase3尾记录Adodc1.Recordset.MoveLastCommand1(2).Enabled=FalseCommand1(1).Enabled=TrueCase4返回教员查询系统Form14.ShowForm17.HideEndSelectEndSubPrivateSubCommand2_Click(IndexAsInteger)DimaskAsIntegerSelectCaseIndexCase0添加Adodc1.Recordset.AddNewCase1修改ask=MsgBox("删除否？",vbYesNo)Ifask=6ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfCase2删除Adodc1.Recordset.UpdateCase3更新Adodc1.Recordset.CancelUpdateCase4返回主菜单Form3.ShowForm17.HideEndSelectEndSub4.3学员教员管理模块学员教员管理模块分为学员管理模块和教员管理模块。教员管理模块：教员管理模块能够根据教员姓名、性别、学历以及科目查询统计教员信息。查询统计运行界面分别如图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.RefreshEndSubPrivateSubCommand2_Click()按性别查询xb=Trim(Text1)Adodc1.RecordSource="select*from教员信息where性别='"&xb&"'"Adodc1.RefreshEndSubPrivateSubCommand3_Click()按学历查询xl=Trim(Text1)Adodc1.RecordSource="select*from教员信息where学历='"&xl&"'"Adodc1.RefreshEndSubPrivateSubCommand4_Click()按科目查询km=Trim(Text1)Adodc1.RecordSource="select*from教员信息where科目='"&km&"'"Adodc1.RefreshEndSubPrivateSubCommand5_Click()返回教员教员Form4.ShowForm1.HideForm3.HideForm2.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideEndSubPrivateSubCommand6_Click()退出EndEndSub统计代码：PrivateSubCommand1_Click()统计各科教员人数Adodc1.RecordSource="select科目,count(*)as人数from教员信息GROUPBY科目"Adodc1.RefreshEndSubPrivateSubCommand2_Click()按教员性别统计Adodc1.RecordSource="select性别,count(*)as人数from教员信息GROUPBY性别"Adodc1.RefreshEndSubPrivateSubCommand3_Click()返回教员管理Form4.ShowForm1.HideForm2.HideForm3.HideForm9.HideForm5.HideForm6.HideForm7.HideForm8.HideForm10.HideForm11.HideForm12.HideForm13.HideEndSubPrivateSubCommand4_Click()退出EndEndSub学员管理模块能够根据学员姓名、性别、年级以及科目查询或统计学员信息。查询和统计运行界面分别如图4.3.2.1和4.3.2.2所示：查询代码：PrivateSubCommand1_Click()按姓名查询xm=Trim(Text1)Adodc1.RecordSource="select*from学员信息where姓名='"&xm&"'"Adodc1.RefreshEndSubPrivateSubCommand2_Click()按性别查询xb=Trim(Text1)Adodc1.RecordSource="select*from学员信息where性别='"&xb&"'"Adodc1.RefreshEndSubPrivateSubCommand3_Click()按年级查询nj=Trim(Text1)Adodc1.RecordSource="select*from学员信息where年级='"&nj&"'"Adodc1.RefreshEndSubPrivateSubCommand4_Click()按科目查询km=Trim(Text1)Adodc1.RecordSource="select*from学员信息where科目='"&km&"'"Adodc1.RefreshEndSubPrivateSubCommand5_Click()返回学员管理Form7.ShowForm1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm9.HideForm8.HideForm10.HideForm11.HideForm12.HideForm13.HideEndSubPrivateSubCommand6_Click()退出EndEndSub统计代码：PrivateSubCommand3_Click()按科目统计Adodc1.RecordSource="select科目,count(*)as人数from学员信息GROUPBY科目"Adodc1.RefreshEndSubPrivateSubCommand4_Click()返回学员管理Form7.ShowForm1.HideForm3.HideForm4.HideForm5.HideForm6.HideForm2.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideEndSubPrivateSubCommand1_Click()按性别统计Adodc1.RecordSource="select性别,count(*)as人数from学员信息GROUPBY性别"Adodc1.RefreshEndSubPrivateSubCommand2_Click()按年级统计Adodc1.RecordSource="select年级,count(*)as人数from学员信息GROUPBY年级"Adodc1.RefreshEndSubPrivateSubCommand5_Click()退出EndEndSub图4.3.2.1图4.3.2.24.4服务信息管理模块服务信息管理模块分为服务体系和收费标准两个模块。服务体系模块主要介绍了家教网的师资力量等方面，运行界面如图4.4.1所示：图4.4.1收费标准模块主要介绍了家教网不同年级的收费情况，运行界面如图4.4.2所示：图4.4.2运行代码：PrivateSubCommand1_Click()小学Text1="20元/小时"EndSubPrivateSubCommand2_Click()初中Text2="40元/小时"EndSubPrivateSubCommand3_Click()高中Text3="60元/小时"EndSubPrivateSubCommand4_Click()返回主菜单Form3.ShowForm1.HideForm2.HideForm9.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm10.HideForm11.HideForm12.HideForm13.HideEndSubPrivateSubCommand5_Click()退出End4.5综合查询系统模块综合查询系统模块分为教员信息查询模块和学员信息查询模块。教员信息查询系统模块能够根据教员姓名、性别、学历和科进行综合查询，运行界面如图4.5.1所示：图4.5.1程序代码：PrivateSubCommand1_Click()sql_str="select*from教员信息"n=0IfCheck1.Value=1Thensql_str=sql_str+"where姓名='"&Combo1&"'"n=1EndIfIfCheck2.Value=1ThenIfn=1ThenElsesql_str=sql_str+"where性别='"&Combo2&"'"EndIfn=1EndIfIfCheck3.Value=1ThenIfn=1Thensql_str=sql_str+"and学历='"&Combo3&"'"Elsesql_str=sql_str+"where学历='"&Combo3&"'"EndIfn=1EndIfIfCheck4.Value=1ThenIfn=1Thensql_str=sql_str+"and科目='"&Combo4&"'"Elsesql_str=sql_str+"where科目='"&Combo4&"'"EndIfEndIfAdodc1.RecordSource=sql_strAdodc1.RefreshEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()Form3.ShowForm1.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm2.HideForm11.HideForm12.HideEndSubPrivateSubCommand4_Click()Form17.ShowForm14.HideEndSub学生信息查询系统模块是根据学生姓名、性别、科目、年级进行综合查询，运行界面如图4.5.2所示：图4.5.2程序代码：PrivateSubCommand1_Click()sql_str="select*from学员信息"n=0IfCheck1.Value=1Thensql_str=sql_str+"where姓名='"&Combo1&"'"n=1EndIfIfCheck2.Value=1ThenIfn=1Thensql_str=sql_str+"and性别='"&Combo2&"'"Elsesql_str=sql_str+"where性别='"&Combo2&"'"EndIfn=1EndIfIfCheck3.Value=1ThenIfn=1Thensql_str=sql_str+"and科目='"&Combo3&"'"Elsesql_str=sql_str+"where科目='"&Combo3&"'"EndIfn=1EndIfIfCheck4.Value=1ThenIfn=1Thensql_str=sql_str+"and年级='"&Combo4&"'"Elsesql_str=sql_str+"where年级='"&Combo4&"'"EndIfEndIfAdodc1.RecordSource=sql_strAdodc1.RefreshEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()Form3.ShowForm13.HideEndSubPrivateSubCommand4_Click()Form16.ShowForm13.HideEndSub4.6新闻管理模块新闻管理模块主要是更新家教网的最近新闻，如阶段性测试或收费等，运行界面如图4.6.1所示：图4.6.14.7系统维护模块在此模块中学员或教员能够修改登录密码，默认密码为123456，运行界面如图4.7.1所示：图4.7.1运行代码：PrivateSubCommand1_Click()IfText1=""ThenMsgBox"用户名不能为空",,"提示"Text1.SetFocusElseIfText2=""ThenMsgBox"请输入原始密码！",,"提示"Text2.SetFocusElseIfText3=""ThenMsgBox"请输入新密码！",,"提示"Text3.SetFocusElseIfText4=""ThenMsgBox"请输入确认密码",,"提示"Text4.SetFocusElseIfText3<>Text4ThenMsgBox"确认密码和新密码必须保持一致！",,"提示"ElseDimMPasswordAsStringAdodc1.RecordSource="select*from密码表whereusername='"&Text1.Text&"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenMPassword=Adodc1.Recordset.Fields("password")