毕业论文-生学社团管理系统课程设计说明书.doc

合 肥 师 范 学 院
（本 科）

课程设计说明书

课 程
数据库原理

题 目
学生社团管理系统

姓 名

学 号

专业班级
2011级嵌入式应用技术班

指导教师

完成日期
2013
年
6
月
30
日

- 26 -

目 录

第一章 绪言……………………………………………………………………….2
1.1 系统开发的背景……………………………………………………………2
1.2 系统开发的意义…………………………………………………………….2
第二章 需求分析 ……………………………………………………………….3
2.1 系统功能分析……………………………………………………………….3
2.2 系统可行性分析……………………………………………………………3
第三章 数据库概念设计…………………………………………………………4
3.1 概念设计（E-R 图）………………………………………………………4
第四章 数据库的逻辑设计………………………………………………………4
4.1 逻辑设计（关系模式图）………………………………………………………4
第五章 系统设计 ……………………………………………………………………5
5.1 系统总体设计…………………………………………………………………5
5.2 系统的功能模块设计………………………………………………………….5
第六章 系统的实现与调试………………………………………………………6
6.1 系统的运行环境……………………………………………………………6
6.2 系统运行结果…………………………………………………………6
第七章 小结 ………………………………………………………………….14
7.1 系统的特点 ……………………………………………………………14
7.2 系统开发过程的特点 ……………………………………………………14
7.3 存在的问题与改进方向 …………………………………………………14
7.4 自我体会 ……………………………………………………………15
附录 …………………………………………………………………………16
附录1：部分程序源代码 ……………………………………………………16

第一章 绪言
1.1 系统开发背景
随着学校规模的不断扩大，学生数量急剧增加，为了适应多元化的文化环境。各种社团的数量也增加了很多。面对庞大的信息量，传统的人工方式管理会导致学生社团信息管理上的混乱，人力与物力过多浪费，管理费用的增加，从而使学校管理人员的负担过重，影响整个学校的运作和控制管理，因此，必须制定一套合理、有效，规范和实用的学生信息管理系统，对学生信息进行集中统一的管理。通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。

1.2 系统开发的意义

学生社团管理作为计算机应用的一个分支，有着手工管理无法比拟的优点，如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生社团信息管理的效率。因此，开发一套能够为用户提供充足的信息和快捷的查询手段的学生社团信息管理系统，将是非常必要的，也是十分及时的。
通过对管理系统模型的研究，提出一套构造学生社团信息管理系统模块的方法，并利用数据库，信息系统分析学的知识，结合其它学校管理业务知识，建立起相关数据模型，利用面向对象开发工具对其进行设计与开发，建立一套有效的学生社团信息管理系统，可以减少工作量，将管理工作科学化，规范化，提高学校管理的工作质量和工作效率。

第二章 需求分析

2.1系统功能分析
随着学生选社，退社的频率的增加，开发一个简单易用实用的社团管理系统对提高社团管理的效率显得尤为重要。此系统主要功能是实现学校社团的信息化管理，其设计要求随着大学生校园文化的不断丰富，各种学生社团应运而生，对所有学生社团进行统一管理。
系统需要实现的功能和操作，系统要求分权限管理，分两种管理权限，一般用户和管理员，一般用户可以对社团信息进行查询、浏览；管理员可以对社团信息进行查询，更新，删除和插入等，可以对社团成员进行增加、修改和删除，可以进行社团以及成员信息的查询、统计和生成报表等。查询：可以对学生所在的社团进行查询，也可根据具体输入进行查询。更新：由于要进行社团信息管理，用户需注册，填写有关信息，管理员可以增加社团，如果社员不再参加社团可以选择删除，从而从数据库中删除其有关记录。
该大学社团管理系统运用方便、操作简单、工作效率高。给学生提供了更多更及时的社团活动信息，便于学生了解社团动态，积极参加社团活动。同时也给学院社团管理提供了一个完善的信息拓展平台，方便发布活动公告以及社团财务、会员资料的管理，使社团在无形中构建一种团结友善的凝聚力。

2.2 系统可行性分析
学校都有许多学生社团。每个社团有一位学生负责人，但必须是该社团成员。每个学生都可以参加多个社团（也可以不参加）。凡参加社团的学生都以学号识别。所以必须开发一个数据库，对所有学生社团进行统一管理。学生社团管理的具体要求是：
(1) 各社团简况维护，包括社团名称、社团号、成立时间、近期活动。
(2)参加社团的成员简况维护，包括学号、姓名、性别、所在系别。不参加社团者不涉及。
(3)各社团成员加入和退出信息的输入。
(4)按社团查询该社团组成（即全部成员）情况。
(5)按学号、姓名查询该学生参加社团情况。
(6)打印包括所有社团在内的统计报表：社团编号、社团名称、成立日期等。 对于以上这些要求，必须进行完整设计与分析，创建所需的表、建立相应的查询和窗体，打印报表明细各社团成员的信息和各社团中部门间的关系。

第三章 数据库概念设计

3.1 概念设计（E-R 图）

参与社团活动
学 号
社团号

社团名

参社

姓 名
社 团
会 员
m n
成立时间

性 别

近期活动

所在系别

第四章 数据库逻辑设计

4.1 逻辑设计（关系模式图）
关系模式图
学生（学号，姓名，性别，所在系别）
社团（社团名称，成立时间，社团编号，近期活动）
选社（学号，社团编号，参与社团活动）

第五章 系统设计

5.1 系统总体设计

图5-1 系统功能图

5.2 系统功能模块设计

学院社团管理系统是一个典型的数据库开发应用程序，它有两个权限，分别管理员和普通会员，具体规划如下：
（1）管理员：
① 社团管理主要是对社团信息进行查询、增加、删除、修改。
② 会员管理主要是对会员信息进行查询、增加、删除、修改。
（2）会员：
①查询社团信息。
②查询本人信息，修改本人信息。

第六章 系统的实现与调试

6.1 系统运行环境
1) 硬件环境
服务端：计算机CPU Intel p4 3.0G、内存1G 以上的pc机、WINDOWS 2000操作系统。
客户端：Windows 7、CPU Intel p4 3.0G、内存512M 、Microsoft IE5.0以上的pc机。

2) 软件环境
操作系统:Windows2000及更高版本的操作系统；
测试支持软件工具：vfp。

6.2 系统运行结果

图6-1 登录界面

图6-2 管理员操作界面

图6-3 管理员按学号查询会员信息

图6-4 管理员按姓名查询会员信息

图6-5 管理员按社团号查询社团信息

图6-6 管理员按社团名查询社团信息

图6-7 管理员按社团号修改社团信息

图6-8 管理员按社团名修改社团信息

图6-9 管理员对社团信息维护

图6-10 管理员添加新社团

图6-11 管理员删除社团

图6-12 学生会员操作界面

图6-13 学生会员查看本人信息

图6-14 学生会员查看社团信息

图6-15 学生会员修改本人信息

第七章 小结
7.1 系统的特点
该系统用户界面友好、清楚明了、突出重点、而且容易美观实用；界面还必须能够提供尽量多的功能，以给顾客便捷的服务。系统需要实现的功能和操作，系统要求分权限管理，分两种管理权限，一般用户和管理员，一般用户可以对社团信息进行查询、浏览；管理员可以对社团信息进行查询，更新，删除和插入等，可以对社团成员进行增加、修改和删除，可以进行社团以及成员信息的查询、统计和生成报表等。查询：可以对学生所在的社团进行查询，也可根据具体输入进行查询。更新：由于要进行社团信息管理，用户需注册，填写有关信息，管理员可以增加社团，如果社员不再参加社团可以选择删除，从而从数据库中删除其有关记录。
7.2 系统开发过程的特点
学生社团管理作为计算机应用的一个分支，有着手工管理无法比拟的优点，如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生社团信息管理的效率。因此，开发一套能够为用户提供充足的信息和快捷的查询手段的学生社团信息管理系统，将是非常必要的，也是十分及时的。
通过对管理系统模型的研究，提出一套构造学生社团信息管理系统模块的方法，并利用数据库，信息系统分析学的知识，结合其它学校管理业务知识，建立起相关数据模型，利用面向对象开发工具对其进行设计与开发，建立一套有效的学生社团信息管理系统，可以减少工作量，将管理工作科学化，规范化，提高学校管理的工作质量和工作效率。

7.3 存在的问题与改进方向

该系统只能进行以上所描述的简单的功能，对系统内信息的安全性保护存在不足。另外，由于系统结构简单，无法使用户对该系统进行并发行操作。因此，我们还需要在该系统的基础上继续努力，不断完善该系统。

7.4 自我体会

数据库课程设计是一个复杂和有难度的任务，尽管如此，我始终坚信只要努力付出就会出现奇迹。因为以前没有学习过vfp软件的使用，所以这次从多种途径来学习并了解vfp软件，从图书馆借了大量的书籍进行自学。遇到问题的时候和小组成员讨论并请教老师同学，这样学会了很多知识，比如：如何实现一个项目，只需要前期的需求分析，概念模型，逻辑模型的构建，以及表单的建立，菜单的建立，项目管理器的作用等等。也吸收到了大量的知识。所以我想说一切的付出都是有回报的，当然其中不能缺少团队之间的默契以及合作。
通过这次的数据库课程设计收获到很多东西。首先老师叫我们用vfp的 软件来做课程设计，但是因为以前没有接触过该软件，所以完全不懂，还必须得从头自学，比如说通过向图书馆借书参考，学会了制作表单，报表，菜单，以及建立项目管理器等等。只有通过这些才能做出完整的课程设计，这不是一个简单的过程，其中要付出很大的精力和时间，但是当最终出现成果的时候还是很欣慰的，觉得都值了，还有团队分工合作也是很重要的一个方面。
通过这次课程设计让我受益匪浅，社团管理系统在大学中具有实用性，
本次课程设计运用了以前未接触过的vfp软件，因此在制作课程设计过
程中不仅要学会数据库的基础知识，还要了解vfp的相关知识，该系统
制作过程中在需求分析阶段，需要合理设计系统结构并形成概念模型和
逻辑结构。然后在vfp系统中逐步实现该系统的功能。由于没有接触过
vfp，在制作过程中遇到很多疑难问题，所以要多看书多请教老师同学。
培养了我的各种能力，收获很多。

附 录
附录1：部分程序代码
登陆界面
set exact on
i=i+1
select user
locate for alltrim(username)=alltrim(thisform.text1.text)
if found()and alltrim(password)=alltrim(thisform.text2.text)
if class=thisform.optiongroup1.value
do case
case class=1
do form form2.scx
thisform.release
case class=2
do form form3.scx
thisform.release
endcase
endif
else
if i<3
messagebox("用户名或密码错误，请重新输入",48,"系统警告")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
messagebox("三次错误，无权登陆",48,"系统警告")
thisform.release
endif
endif

社团信息表单
查找
if empty(thisform.Text1.value)=.f.
go top
a=thisform.Combo1.value
b=alltrim(thisform.Text1.value)
c=.f.
if a="社团号"
locate for 社团号=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
go top
return
else
c=.t.
endif
endif
if a="社团名"
locate for 社团名=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
go top
return
else
c=.t.
endif
endif

if c
thisform.Text1.enabled=.f.
go recno()
thisform.Text2.visible=.t.
thisform.Text2.enabled=.f.
thisform.Text3.visible=.t.
thisform.Text4.visible=.t.
thisform.Text5.visible=.t.

thisform.Label3.visible=.t.
thisform.label4.visible=.t.
thisform.Label5.visible=.t.
thisform.Label6.visible=.t.

thisform.Text2.value=社团.社团号
thisform.Text3.value=社团.社团名
thisform.Text4.value=社团.成立时间
thisform.Text5.value=社团.近期主要活动

thisform.grid1.setfocus
this.enabled=.f.
mand2.enabled=.t.
endif
else
messagebox("请输入要查找的内容！",16,"系统提示")
thisform.Text1.value=""
thisform.Text1.Setfocus
endif
thisform.refresh

修改
a=alltrim(thisform.Text3.value)
b=alltrim(thisform.Text4.value)
c=alltrim(thisform.Text5.value)
if empty(a)
messagebox("社团名不可以修改为空值",16,"系统提示")
return
endif
msg=messagebox('确定要修改记录吗？',32+4,'系统提示')
if msg=6
go recno()
replace 社团.社团名 with a,社团.成立时间 with b,社团.近期主要活动 with c
messagebox("修改记录成功",48,"系统提示")
thisform.grid1.refresh
mand1.enabled=.t.
thisform.Text1.enabled=.t.
this.enabled=.f.
thisform.Text2.visible=.f.
thisform.Text3.visible=.f.
thisform.Text4.visible=.f.
thisform.Text5.visible=.f.

thisform.Label3.visible=.f.
thisform.label4.visible=.f.
thisform.Label5.visible=.f.
thisform.Label6.visible=.f.

thisform.Text1.value=""
thisform.Text1.setfocus
endif

fomer4 会员信息表单
查找
if empty(thisform.Text1.value)=.f.
go top
a=thisform.Combo1.value
b=alltrim(thisform.Text1.value)
c=.f.
if a="学号"
locate for 学号=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
go top
return
else
c=.t.
endif
endif
if a="姓名"
locate for 姓名=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
go top
return
else
c=.t.
endif
endif

if c
thisform.Text1.enabled=.f.
go recno()
thisform.Text2.visible=.t.
thisform.Text2.enabled=.f.
thisform.Text3.visible=.t.
thisform.Text4.visible=.t.
thisform.Text5.visible=.t.

thisform.Label3.visible=.t.
thisform.label4.visible=.t.
thisform.Label5.visible=.t.
thisform.Label6.visible=.t.

thisform.Text3.value=会员.学号
thisform.Text4.value=会员.姓名
thisform.Text5.value=会员.性别
thisform.Text6.value=会员.所在院系

thisform.grid1.setfocus
this.enabled=.f.
mand2.enabled=.t.
endif
else
messagebox("请输入要查找的内容！",16,"系统提示")
thisform.Text1.value=""
thisform.Text1.Setfocus
endif
thisform.refresh

修改
a=alltrim(thisform.Text3.value)
b=alltrim(thisform.Text4.value)
c=alltrim(thisform.Text5.value)
if empty(a)
messagebox("姓名不可以修改为空值",16,"系统提示")
return
endif
msg=messagebox('确定要修改记录吗？',32+4,'系统提示')
if msg=6
go recno()
replace 会员.姓名 with a,会员.性别 with b,会员.所在院系 with c
messagebox("修改记录成功",16,"系统提示")
thisform.grid1.refresh
mand1.enabled=.t.
thisform.Text1.enabled=.t.
this.enabled=.f.
thisform.Text2.visible=.f.
thisform.Text3.visible=.f.
thisform.Text4.visible=.f.
thisform.Text5.visible=.f.

thisform.Label3.visible=.f.
thisform.label4.visible=.f.
thisform.Label5.visible=.f.
thisform.Label6.visible=.f.
thisform.Text1.value=""
thisform.Text1.setfocus
endif

退出
thisform.release

form5管理员对社团信息维护表单（插入，删除，关闭）
第一条
select 社团
if bof()=.f. then
go top
thisform.Command1.enabled=.f.
thisform.Command2.enabled=.f.
thisform.Command3.enabled=.t.
thisform.Command4.enabled=.t.
endif
thisform.refresh

上一条
if bof()=.f. then
skip-1
thisform.Command1.enabled=.t.
thisform.Command3.enabled=.t.
thisform.Command4.enabled=.t.
else
messagebox("已经到达第一条记录",48,"提示")
thisform.Command1.enabled=.f.
thisform.Command2.enabled=.f.
endif
thisform.refresh

下一条
if eof()=.f. then
skip
thisform.Command1.enabled=.t.
thisform.Command2.enabled=.t.
thisform.Command4.enabled=.t.
else
messagebox("对不起，已经到达最后一条",48,"信息不全")
thisform.Command3.enabled=.f.
thisform.Command4.enabled=.f.
endif
thisform.refresh

添加
select 社团
if mand5.caption="添加"
go bottom

thisform.Command1.enabled=.f.
thisform.Command2.enabled=.f.
thisform.Command3.enabled=.f.
thisform.Command4.enabled=.f.
mand5.caption="保存"
mand8.caption="放弃"
thisform.Command6.enabled=.f.

thisform.Text1.enabled=.t.
thisform.Text2.enabled=.t.
thisform.Text3.enabled=.t.
thisform.Text4.enabled=.t.
thisform.Text1.value=""
thisform.Text2.value=""
thisform.Text3.value=""
thisform.Text4.value=""
thisform.Text1.readonly=.f.
thisform.Text2.readonly=.f.
thisform.Text3.readonly=.f.
thisform.Text4.readonly=.f.
else
append blank
skip
thisform.Command1.enabled=.f.
thisform.Command2.enabled=.f.
thisform.Command3.enabled=.f.
thisform.Command4.enabled=.f.

thisform.Command5.enabled=.t.
thisform.Command6.enabled=.t.
thisform.Text1.readonly=.f.
thisform.Text2.readonly=.f.
thisform.Text3.readonly=.f.
thisform.Text4.readonly=.f.
thisform.Text1.enabled=.f.
thisform.Text2.enabled=.f.
thisform.Text3.enabled=.f.
thisform.Text4.enabled=.f.
mand5.caption="添加"
mand8.caption="关闭"

a=alltrim(thisform.text1.value)
b=alltrim(thisform.text2.value)
c=alltrim(thisform.text3.value)
d=alltrim(thisform.text4.value)
if empty(a)
messagebox("社团号不可以为空值",16,"系统提示")
return
endif
msg=messagebox('确定要保存记录吗？',32+4,'系统提示')
if msg=6

replace 社团.社团号 with a,社团.社团名 with b,社团.成立时间 with c,近期主要活动 with d
messagebox("保存记录成功",48,"系统提示")
thisform.Command1.enabled=.t.
thisform.Command2.enabled=.t.
thisform.Command3.enabled=.t.
thisform.Command4.enabled=.t.

thisform.refresh
endif

endif
thisform.refresh

删除
USE 社团.dbf EXCLUSIVE
msg=messagebox('您确定要删除这条记录吗？',32+4,'系统提示')
if msg=6
delete for alltrim(社团.社团号)=alltrim(thisform.text1.text)
pack
messagebox("删除记录成功",16,"系统提示")
go top
thisform.refresh
endif

关闭
if mand8.caption="关闭" then
thisform.release
else
if mand5.caption="保存"
delete
pack
mand5.caption="添加"
mand8.caption="关闭"
select 社团
locate for 社团号=alltrim(thisform.text1.value)
社团名=alltrim(thisform.text2.value)
成立时间=alltrim(thisform.text3.value)
近期主要活动=alltrim(thisform.text4.value)
go top

thisform.Command1.enabled=.t.
thisform.Command2.enabled=.t.
thisform.Command3.enabled=.t.
thisform.Command4.enabled=.t.
thisform.Command6.enabled=.t.

thisform.Text1.readonly=.t.
thisform.Text2.readonly=.t.
thisform.Text3.readonly=.t.
thisform.Text4.readonly=.t.

endif
endif

form6：管理员对会员信息的维护（添加，删除，关闭）
第一条：
select 会员
if bof()=.f. then
go top
thisform.Command1.enabled=.f.
thisform.Command2.enabled=.f.
thisform.Command3.enabled=.t.
thisform.Command4.enabled=.t.
endif
thisform.refresh

上一条：
if bof()=.f. then
skip-1
thisform.Command1.enabled=.t.
thisform.Command3.enabled=.t.
thisform.Command4.enabled=.t.
else
messagebox("已经到达第一条记录",48,"提示")
thisform.Command1.enabled=.f.
thisform.Command2.enabled=.f.
endif

下一条
if eof()=.f. then
skip
thisform.Command1.enabled=.t.
thisform.Command2.enabled=.t.
thisform.Command4.enabled=.t.
else
messagebox("对不起，已经到达最后一条",48,"信息不全")
thisform.Command3.enabled=.f.
thisform.Command4.enabled=.f.
endif
thisform.refresh

添加
select 会员
if mand5.caption="添加"
go bottom

thisform.Command1.enabled=.f.
thisform.Command2.enabled=.f.
thisform.Command3.enabled=.f.
thisform.Command4.enabled=.f.
mand5.caption="保存"
mand8.caption="放弃"
thisform.Command6.enabled=.f.

thisform.Text1.enabled=.t.
thisform.Text2.enabled=.t.
thisform.Text3.enabled=.t.
thisform.Text4.enabled=.t.
thisform.Text1.value=""
thisform.Text2.value=""
thisform.Text3.value=""
thisform.Text4.value=""
thisform.Text1.readonly=.f.
thisform.Text2.readonly=.f.
thisform.Text3.readonly=.f.
thisform.Text4.readonly=.f.
else
append blank
skip
thisform.Command1.enabled=.f.
thisform.Command2.enabled=.f.
thisform.Command3.enabled=.f.
thisform.Command4.enabled=.f.
thisform.Command5.enabled=.t.
thisform.Command6.enabled=.t.
thisform.Text1.readonly=.f.
thisform.Text2.readonly=.f.
thisform.Text3.readonly=.f.
thisform.Text4.readonly=.f.
thisform.Text1.enabled=.f.
thisform.Text2.enabled=.f.
thisform.Text3.enabled=.f.
thisform.Text4.enabled=.f.
mand5.caption="添加"
mand8.caption="关闭"

a=alltrim(thisform.text1.value)
b=alltrim(thisform.text2.value)
c=alltrim(thisform.text3.value)
d=alltrim(thisform.text4.value)
if empt