ABC家教服务基础管理系统

杉家致蹶务传息管

理金院

学

院经济与管理学院

专

业物流管理

班

级04080701班

学

号

姓1

名

张佳昱

指

师

引教王晓斌

年7

目录

1引言........................................................................3

2总体设计...................................................................3

2.1系统重要功能...............................................3

2.2系统功能构造图.............................................5

3系统设％..................................................................5

3.1设计目的....................................................5

3.2开发及运营环境............................................6

3.3数据库设计..................................................6

3.3.1数据库概念构造设计....................................6

3.3.2数据库逻辑构造设计....................................6

3.3.3数据库物理设计........................................6

4重要功能模块设计...........................................................7

4.1主窗体设计..................................................7

4.2编辑模块....................................................8

4.3学员教员管理模块...........................................13

4.4服务信息管理模块...........................................20

4.5综合查询系统模块.................................................22

4.6新闻管理模块...............................................25

4.7系统维护模块......................................................26

1引言

引言

社会发展节奏的加快使得人们越来越趋向于信息化、数字化，老式的人工管

理信息模式己经不能满足社会发展的需求，由计算机实现的管理信息系统（MIS）

以其以便快捷的操作受到人们的亲睐，并将逐渐取代老式口勺人工管理。

管理信息系统是一种由人、计算机等构成的能进行信息日勺收集、传递、储存、

加工、维护和使用的系统，它运用计算机完毕对数据的操作，不仅能避免繁重的

业务量所导致的人为错误，大大提高工作质量和工作效率，还可运用信息共享加

快信息更新和发布的速度。除此之外，管理信息系统的面向对象化设计使系统简

便易行，操作人员不需很强日勺专业技术，只要通过简朴的培训即可纯熟使用系统。

而数据库技术是信息技术的基本，在信息高度发达的今天，数据库技术和数据库

应用显示出了极大的作用和发展潜力。

本文所探讨H'、JABC家教服务系统，如下简称家教网，在这里指H勺是为家长和

教师提供家教信息及其他个性化服务日勺网络产品网站。该网站应为教员和学员提

(5)新闻管理模块

新闻管理模块重要是更新家教网的近来新闻，如阶段性测试或收费等。

(6)系统维护模块

在此模块中学员或教员可以修改登录密码，默认密码为123456。

2.2系统功能构造图

3系统设计

3.1设计目的

结合目前家教服务系统的实际状况，按照面向数据的分析设计措施，得出本

系统日勺基本模块。

□系统运营稳定，安全可靠。

□界面设计美观，人机交互界面和谐。

□信息查询灵活、以便、快捷、精确，数据存储安全可靠。

□采用多种方式查询数据。

□操作员可以随时修改自己日勺口令。

□对顾客输入的数据，系统进行严格的J数据检查，尽量排除人为日勺

错误。

□数据保密性强，为每个顾客设立相应口勺权限级别。

3.2开发及运营环境

系统开发平台：MicrosoftVisualBasic6.0

运营平台：Windowsxp/Windows/Windows98

3.3数据库设计

本系统采用口勺是微软公司欢IMicrosoftOfficeAccess,因素如下：第一，

针对家教服务系统的发呈现状，Access数据库已经完全可以满足其管理需求；

第二，Access数据库操作简朴，很适合初学者应用，并且采用ADO数据连接技

术后，在Access的）使用基本上很容易上手譬如SQLserver、Oracle等大型网络

数据库。

3.3.1数据库概念构造设计

根据需求分析•，该家教服务系统中实体涉及：密码表、学员和教员。

3.3.2数据库逻辑构造设计

通过对设计出的家教系统的分析，导出数据H勺关系模型如下：

（1）密码表：（编号、username>password）

（2）学员：（编号、姓名、性别、年级、科目）

（3）教员：（编号、姓名、性别、学历、科目）

3.2.3数据库物理设计

根据以上的数据库系统功能分析，本着在使用以便H勺前提下尽量H勺减少数

据冗余的原则，在Access中建立了base数据库，并建立了如下三个基本表：

（1）密码表：用于顾客登录

字段名称数据类型

编号自动编号

username文本型

password文本型

（2）学员信息表：用于寄存学员的基本信息

字段名称数据类型

编号自动编号

姓名文本型

性别文本型

年级文本型

科目文本型

（3）教员信息表：用于寄存教员的基本信息

字段名称数据类型

编号自动编号

姓名文本型

性别文本型

学历文本型

科目文本型

4重要功能模块设计

4.1主窗体设计

主界面是登陆后程序运营H勺第一种界面，应当清晰有条理H勺显示系统的所有

功能模块。本系统是一种家教服务系统，按照应月需求，将该系统设计分为六大

重要模块：编辑、学员/教员管理、服务信息管理、综合查询系统、新闻管理、

系统维护六个功能模块，主界面拟采用菜单资源显示各个基本模块，顾客单击某

个菜单项，就能弹出某个功能的界面。系统主界面如图4.1.1,4.1.2,4.1.3所

示：

图4.L1

图4.L2

图4.1.3

4.2编辑模块

编辑信息模块分为学员信息编辑和教员信息编辑，均可以添加、修改、删除、

更新或者逐条查找信息。

（1）学员编辑模块，运营界面如图4.2.1所示:

图4.2.1

程序代码：

PrivateSubCommand1_Click(IndcxAsInteger)

SelectCaseIndex

CaseO首记录

Adodc1.Recordset.MoveFirst

Command1(1).Enablcd=False

Commandl(2).Enabled=True

Case1上一条

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThenAdodc1.Rccordsct.MovcFirst

Commandl(2).Enablcd=True

Case2下一条

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

Command1(1).Enabled=Tnie

Case3尾记录

Adodc1.Recordset.MoveLast

Command】⑵.Enabled=False

Command1(1).Enabled=Tnie

Case4返回学员查询系统

Form13.Show

Form16.Hide

EndSelect

EndSub

PrivateSubCommand2_C1ick(IndexAsInteger)

DimaskAsInteger

SelectCaseIndex

Case0添加

Adodc1.Recordset.AddNew

Case1彳修改

ask=MsgBox("删除否？“，vbYesNo)

Ifask=6Tlien

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

IfAdodc1RecordsetFOFThenAdodcIRecordsetMove!asl

EndIf

Case2删除

Adodc1.Rccordset.Updatc

Case3更新

Adodc1.Recordset.CancelUpdate

Case4返回主菜单

Form3.Show

Form16.Hide

EndSelect

EndSub

（2）教员编辑模块，运营界面如图4.2.2所示:

图4.2.2

程序代码：

PrivateSubCommand1_Click(IndexAsInteger)

SelectCaseIndex

Case0首记录

Adodcl.Recordset.MoveFirst

Command1(1).Enabled=False

Command1(2).Enabled=True

Case1上一条

Adodcl.Recordset.MovcPrevious

IfAdodc1.Recordset.BOFThenAdodc1.Recordsct.MoveFirst

Command1(2).Enabled=True

Case2下一条

Adodcl.Rccordsel.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

Command1(1).Enabled=True

Case3尾记录

Adodc1.Recordsei.MoveLast

Command1(2).Enabled=False

Command1(1).Enabled=True

Case4返回教员查询系统

Form14.Show

Forml7.Hidc

EndSelect

EndSub

PrivateSubCommand2_Click(IndexAsInteger)

DimaskAsInteger

SelectCaseIndex

Case0添加

Adodcl.Recordset.AddNew

Case1修改

ask=MsgBox("删除否？“，vbYesNo)

Ifask=6Then

Adodc1.Recordset.Delete

AdodcI.Rccordset.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

EndIf

Case2删除

Adodcl.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

图43.1.2

查询代码:

PrivateSubCommand1_Click()按姓名查询

xm=Trim(Textl)

Adodc1.RecordSource="select*from教员信息where姓名…

Adodcl.Refresh

EndSub

PrivateSubCommand2_Click()按性别杳询

xb=Trim(Textl)

AdodcI.RecordSource="select*from教员信息where性别廿&xb&

Adodcl.Refresh

EndSub

PrivateSubCommand3_Click()按学历查询

xl=Trim(Textl)

Adodc1.RecordSource="select*from教员信息where学历&xl&

Adodcl.Refresh

EndSub

PrivateSubCommand4click()按下斗目直询

km=Trim(Textl)

AdodcI.RecordSource="select*from教员信息where科目="'&km&",H

Adodcl.Refresh

EndSub

PrivateSubCommand5_Click()返回教员教员

Form4.Show

Form1.Hide

Form3.Hide

Fonn2.Hidc

Form5.IIide

Form6.Hidc

Form7.Hide

Fonn8.Hide

Form9.IIide

Form10.Hide

Form11.Hide

Form12.Hide

Form13.Hide

EndSub

PrivateSubCommand6_Click()退出

End

EndSub

记录代码：

PrivateSubCommandl_Click()记录各科教员人数

Adodc1.RecordSource="select科目,count(*)as人数from教员信息GROUPBY科目”

AdodcI.Refresh

EndSub

PrivateSubCommand2_Click()按教员性别记录

Adodc1.RecordSource="selectttSJ,count(*)as人数from教员信息GROUPBY性别"

Adodc1.Refresh

EndSub

PrivateSubCommand3_Click()返回教员管理

Fonn4.Show

Form1.Hide

Form2.Hide

Form3.Hide

Form9.Hide

Form5.Hide

Form6.Hide

Fonn7.Hide

Form8.Hide

FonnlO.Hide

Form11.Hide

Form12.Hide

Form13.Hide

EndSub

PrivateSubCommand4_Click()退出

End

EndSub

(2)学员管理模块可以根据学员姓名、性别、年级以及科目查询或记录学员信息。

查询和记录运营界面分别如图4.3.2.1和4.322所示：

查询代码：

PrivateSubCommandl_Click()按姓名查询

xm=Trim(Textl)

Adodc1.RccordSourcc="select*from学员信息where姓名="'&xm&"n,

Adodcl.Refresh

EndSub

PrivateSubCommand2_Click()按性别查询

xb=Trim(Textl)

Adodc1.RecordSource="select*from学员信息where性别&xb&

Adodcl.Refresh

EndSub

PrivateSubCommand3_Click()按年级查询

nj=Trim(Textl)

Adodc1.RccordSourcc="select*from学员信息where年级=，"&nj&n'"

Adodcl.Refresh

EndSub

PrivateSubCommand4click()按科目查询

km=Trim(Textl)

AdodcI.Recordsource="select*from学员信息where科目='"&km&

Adodcl.Refresh

EndSub

PrivateSubCommand5_Click()返回学员管理

Form7.Show

Form1.Hide

Form2.Hide

Form3.Hidc

Form4.Hide

Fonn5.Hidc

Form6.IIide

Fonn9.Hide

Form8.IIide

Form10.Hide

Formll.Hide

Form12.Hide

Form13,Hide

EndSub

PrivateSubCommand6_Click()退出

End

EndSub

记录代码：

PrivateSubCommand3_Click()按科目记录

Adodcl.RecordSource="select科目,count(*)as人数from学员信息GROUPBY科目”

Adodcl.Refresh

EndSub

PrivateSubCommand4_Click()返回学员管理

Form7.Show

Form1.Hide

Fonn3.Hide

Form4.IIide

Form5.Hide

Forni6.Hide

Fonn2.IIide

Form8.Hide

Fonn9.Hide

Form10.Hide

Form11.Hide

Form12.Hide

Form13.Hide

EndSub

PrivateSubCommandl_Click()按性别记录

Adodcl.RecordSource="selectttt^ij,count(*)as人数from学员信息GROUPBY性别”

AdodclRefresh

EndSub

PrivateSubCommand2_Click()按年级记录

AdodcI.RecordSource="select年级,count(*)as人数from学员信息GROUPBY年级”

Adodcl.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

运营代码：

PrivateSubCommandl_Click()小学

Textl="2O元/小时”

EndSub

PrivateSubCommand2_Click()初中

Tcxt2="40元/小时”

EndSub

PrivateSubCommand3_Click()高中

Tcxt3="60元/小时”

EndSub

PrivateSubCommand4_Click()返回主菜单

Fonn3.Show

Form1.Hide

Fonn2.Hide

Form9.Hidc

Form4.Hide

Form5.Hidc

Form6.Hide

Form7.Hidc

Form8.Hide

Form10.Hide

FormIl.Hide

Form12.Hide

Form13.Hide

EndSub

PrivateSubCommand5_Click()退出

End

4.5综合查询系统模块

综合查询系统模块分为教员信息查询模块和学员信息查询模块。

(1)教员信息查询系统模块可以根据教员姓名、性别、学历和科

进行综合查询，运营界面如图4.5.1所示:

姓名

张

敦员

杨

敦员

二

厂

二

范

4敦员

4

顾

-Jd敦员

w

付

学历敦员

三

尸

二

王

敦员

黄

4敦员

4

刘

4教员

4

查询*

图4.5.1

程序代码：

PrivateSubCommandl_Click()

sqlstr="select*from教员信息"

n=0

IfCheck1.Value=1Then

sqlstr=sqlstr+nwhere姓名="'&Combo1&",H

n=1

EndIf

IfCheck2.Value=1Then

Ifn=1Then

Else

sql_str=sql_str+Hwhere性别廿&Combo2&

EndIf

n=1

EndIf

IfChcck3.Value=1Then

Ifn=1Then

sql_str=sql_str+'*and学历廿&Combo3&,im

Else

sql_str=sql_str+nwhere学历="'&Combo3&,,,n

EndIf

n=1

EndIf

IfChcck4.Value=1Then

Ifn=1Then

sql_str=sqlstr+”and科目&Combo4&

Else

sql_str=sqlstr+Hwhere科目="'&Combo4&

EndIf

EndIf

Adodc1.RecordSource=sqlstr

Adodcl.Refresh

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubCommand3_Click()

Fonn3.Show

Form1.Hide

Form4.Hidc

Korm5.Hide

Form6.Hide

Form7.Hide

Form8.Hide

Form9.Hide

Form2.Hidc

Form11.Hide

Form12.Hide

EndSub

PrivateSubCommand4click()

Form17.Show

Form14.Hide

EndSub

(2)学生信息查询系统模块是根据学生姓名、性别、科目、年级进

行综合查询，运营界面如图4.5.2所示:

图4.5.2

程序代码：

PrivateSubCommandIClick()

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

IfChcck3.Value=1Then

Ifn=IThen

sql_str=sqlstr+"and科目&Combo3&

Else

sql_str=sqlstr+nwhere科目&Combo3&"n,

EndIf

n=1

EndIf

IfChcck4.Value=1Then

Ifn=IThen

sql_str=sqlstr+"and年级="'&Combo4&

Else

sql_str=sqlstr+”where年级廿&Combo4&”中

EndIf

EndIf

AdodcI.RecordSource=sq]_str

Adodcl.Refresh

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubCommand3_Click()

Form3.Show

Form13.Hide

EndSub

PrivateSubCommand4Click()

Form16.Show

Form13.Hide

EndSub

4.6新闻管理模块

新闻管理模块重要是更新家教网的近来新闻，如阶段性测试或收费等，运

营界面如图4.6.1所示：

立我*闻

测试通知42011.07.03

凉教部将于本月7日进行船段萌又

测试通知3

测试通知2

|塞数SJ格于本月未通行前段前T丁受用如，

测试通知12011.05.30

返回主菜单

退出

图4.6・1

4.7系统维护模块

在此模块中学员或教员可以修改登录密码，默认密码为123456,运营界面

如图4.7.1所示：

图4.7.1

运营代码：

PrivateSuhCommand1Click()

IfText1=,H,Then

MsgBox”顾客名不能为空”,，“提示”

Textl.SetFocus

ElselfText2=,,nThen

MsgBox”请输入原始密码!提示”

Text2.SetFocus

ElsclfTcxt3"Then

MsgBox”请输入新密码！”,，"提示"

Tcxt3.Se