学生社团信息管理系统

1、第一章 课题背景1.1开发背景随着校园文化的不断丰富，大学里各种社团越来越多，社团活动也越来越频繁，社员也越来越多，而且大学生退社，入社比较频繁，社团管理就显得非常繁琐而又复杂的的事情，如果采用人工管理，对管理员来说将是一件很头疼的事情。设计开发高效的社团管理系统就显得颇为重要。为了提高效率，充分利用计算机资源，同时也让我们把我们所学的只是运用到实际生活中，锻炼开发设计项目的经验，尤其是我们计算机专业大学生，由于缺乏具体项目经验，毕业之后普遍感到知识不能转化为能力。课程设计可以锻炼我们理论联系实际的能力，为今后工作做铺垫。社团管理系统中包含许多内容，有社员的基本信息录入，删除，新增社团，社员的

2、录入，社团信息的发布，统计报表的打印等等。社团管理系统是一种典型的信息管理系统（MIS），其开发主要包括后台的数据库的建立、维护以及前端的相应应用程序的开发两个方面的内容，数据库的建立和维护主要要求其管理数据的一致性、完整性、安全性等特点，而前台的应用程序开发则要求做到各项功能要完备、操作要简便、易学易用等特点。1.2选题说明信息资源已成为社会及高校重要的财富和资源，建立一个满足高校社团管理需要的信息系统，也是高校近年来不断壮大的迫切需要。长期以来，我校一直使用传统的人工记录方法管理社团，这种管理方式存在着许多缺点，如效率低，浪费时间，容易出错丢失等。且时间一长，将产生大量的文件和数据，这对于

3、查找、更新、维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。本系统最大的特点是通用性、简单操作性和方便性。随着学校社团的增多，社团管理人员的负担也越来越重，为提高工作效率，实现无纸化办公，使工作更有条理、更方便、更快捷，而开发出这套公社团管理系统。设计基本思路1实用性：最大限度地满足实际工作的需要、充分考虑各业务层次、各管理环节数据处理的实用性，把满足用户的操作作为第一要素进行考虑。用户接口和操作界面设计尽可能做到界面美观大方，操作简便易懂实用。2可扩展性与可维护性：为适应将来的发展，学生公社团

4、理信息系统应具有良好的可扩展性和可维护性。软件设计尽可能模块化、组件化，使应用系统可灵活配置，适应不同的情况。安全可靠性。3应用软件与数据库系统的设计要做到安全可靠，防止非法用户的入侵。数据库的备份策略恰当，以防灾难性事故发生。4用户界面舒适性：用户界面应当直观、明了、条理清晰。实现“傻瓜型”管理，易学、易用、易管理。数据库完整性5对于数据库的设计，遵循一致性、完整性、安全性、可伸缩性原则。6便捷性：社团管理员和学生可以根据自己的账号查询，从而保证系统便捷性。1.3.需求分析随着学生选社，退社的频率的增加，开发一个简单易用实用的社团管理系统对提高社团管理的效率显得尤为重要。本题目主要功能是实现

5、学校社团的信息化管理本系统设计要求随着大学生校园文化的不断丰富，各种学生社团应运而生，对所有学生社团进行统一管理。分两种管理权限，一般用户和管理员，一般用户可以对社团信息进行查询、浏览；管理员可以对社团信息进行录入和维护，可以对社团成员进行增加、修改和删除，可以进行社团以及成员信息进行查询、统计和生成报表等。系统需要实现的功能和操作，系统要求分权限管理，分两种管理权限，一般用户和管理员，一般用户可以对社团信息进行查询、浏览；管理员可以对社团信息进行录入和维护，可以对社团成员进行增加、修改和删除，可以进行社团以及成员信息进行查询、统计和生成报表等。查询：可以对学生所在的社团进行查询，也可根据具体

6、输入进行查询。更新：由于要进行社团信息管理，用户需注册，填写有关信息，管理员可以增加社团，如果社员不再参加社团可以选择删除，从而从数据库中删除其有关记录。第二章 设计简介及设计方案论述2.1总体设计2.1.1 流程图通过对需求分析的研究，可以得到如图2-1所示的社团管理系统总体流程图，其中通过验证身份分别给予用户不同的权限，普通用户只能查看和修改自己的个人信息，查看社团信息，管理员可以对社团和社员进行管理以及报表的生成。管理员拥有的功能流程图如图2-2所示，社员拥有功能如图2-3所示。图2-1主界面流程图图2-2管理员管理权限图查看我的信息社员界面退出系统修改我的信息查看我的社团图2-3社员管

7、理权限图2.2数据库设计2.2.1数据库ER图通过以上分析，可以知道学生所拥有的属性为学号、姓名、性别、年龄、系院、电话号码、操作权限，社团所有的属性为社团编号、社团名称、成立时间、主要活动，其中学生和社团通过选社建立联系，可以用学号和社团编号来建立次联系。具体ER图如2-4所示。性别姓名所在社团社团名称年龄学号成立时间选社社团社团编号学生电话号码系院操作权限主要活动图2-4数据库ER图2.2.2数据库详细设计按要求可以设计三个表，分别为学生信息表，社团信息表，和学生选社团表，在学生信息表中存放着学生的基本信息，包括学号，姓名，性别，年龄，所在系院，拥有权限，电话号码，具体表结构如表2-1所示

8、。社团信息表中存放着社团的基本信息，包括社团编号，社团名称，成立时间，主要活动，具体设计结构如表2-2所示。学生选社团表包括学生的学号和所选社团的编号两项，具体设计如表2-3所示。其中学生信息表、社团信息表和学生选社团表之间通过学生信息表中的学号字段，社团信息表中的社团编号字段建立联系。具体数据库学生表信息如图2-5所示，社团表信息如图2-6所示，学生选社团数据库信息如图2-7所示。表2-1学生信息结构表字段名字段说明类型宽度备注userID学号数字型4设为主码username姓名字符型40不能为空usersex性别字符型4只能为男或女userage年龄数字型4不能为空userdep所在系院字

9、符型40不能为空userright拥有权限数字型20表示普通用户1表示管理员usertel电话号码数字型20不能为空图2-5学生表截图表2-2社团信息结构表字段名字段说明类型宽度备注ST_DI社团编号数字型4作为主码ST_NAME社团名称字符型40不允许重名ST_TIME社团成立时间数字型4不允许为空ST_EVENTS主要活动字符型400不允许为空图2-6社团表截图字段名字段说明类型宽度备注ST_ID社团编号数字型4和userID共同作为主码userID学生编号数字型4和ST_ID共同作为主码表2-3学生选课结构表图2-7学生选课表截图2.3系统方案论述通过对系统要实现的功能及数据库的设计，该

10、系统可已使用Microsoft Visual C+ 6.0作为开发环境，数据库使用Microsoft SQL Server开发。第三章 详细设计3.1 整体功能模块设计整体功能包括权限的设置，用以呈现给社员和管理员以不同的界面，相应的拥有不同的权限。其中通过判断学生信息表中的权限值来查看该用户拥有的权限。当管理员登录到系统的时候，将拥有社团管理，社员管理以及报表生成等权限，而当社员登录到系统的时候其只能查看自己的信息，修改自己的信息和查看自己所选的社团等功能。3.1.1 登录设计l 数据库设计通过建立一个学生信息表命名为admin给其中添加信息，其中userright属性有两个值，当其为1时认

11、定为管理员，当其为00时认定为普通用户，学生表具体参数设计如图3-1所示，社团表具体参数设计如图3-2所示，学生选社表具体参数设计如图3-3所示。图3-1 学生表参数图3-2 社团表参数图3-3学生选社团表参数l 界面设计利用Microsoft Visual C+ 6.0来作为开发工具，具体登录界面如图3-4所示。图3-4登陆界面图3.1.2用户操作界面设计社员拥有的操作很有限，只能对自己的信息进行查看和修改，以及社团信息的查看，具体界面如图3-5所示。图3-5用户操作界面图3.1.3管理员操作界面设计管理员可以对社团信息进行录入和维护，可以对社团成员进行增加、修改和删除，可以进行社团以及成员

12、信息进行查询、统计和生成报表等。其中在社团管理中管理员可以查看社团信息，添加新社团，修改社团信息，和删除社团，在社员管理中管理员可以查看社团社员信息，给社团添加新社员和删除社员等权限。当管理员登录到系统的时候将给管理员呈现的界面如图3-6所示。当管理员进入社团管理界面的时候将呈现的界面如图3-7所示，当管理员进入社员管理的时候将给管理员呈现的界面如图3-8所示。图3-6 管理员登录窗体图3-7 管理员管理社团图3-8 管理员管理社员第四章 设计结果及分析4.1 登陆结果通过查看学生表里的权限值来呈现不同的窗体，拥有不同的操作，具体及代码如下，可能出现的结果如图4-1所示。Adodc1.Conn

13、ectionString = s1Adodc1.RecordSource = "select * from admin where username='" & Trim(txtUserName.Text) & "'"Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 ThenIf Adodc1.Recordset.Fields(0) <> txtPassword.Text ThenMsgBox "密码错误，请重新输入！", vbOKOnl

14、y + vbExclamation, "警告"txtPassword.Text = ""txtPassword.SetFocusElses = txtUserName.TextMsgBox "登录成功！", vbOKOnly + vbExclamation, "成功"If Adodc1.Recordset.Fields(5) ThenUnload MeForm6.ShowElseForm4.ShowUnload MeEnd IfEnd IfElseMsgBox "用户不存在", vbOKOnly

15、 + vbExclamation, "警告"txtUserName.Text = ""txtPassword.Text = ""txtUserName.SetFocusEnd If图4-1 登录时程序可能出现的结果4.2 查寻结果通过用户输入的值在具体的表中找出相应的结果并输出，以供用户查看具体代码如下，图4-2为当在文本框中输入王文鹏后的查询结果。If Text1.Text = "" ThenMsgBox "输入不能为空", vbOKOnly + vbinfromationText1.SetF

16、ocusDataGrid1.Visible = FalseExit SubEnd IfIf IsNumeric(Text1) ThenAdodc1.RecordSource = "select admin.username,Shetuan.ST_NAME, Shetuan.ST_EVENTS from sa full join admin on sa.userId=admin.userId full join Shetuan on Shetuan.ST_ID =sa.ST_ID where admin.userid='" & Trim(Text1.Text)

17、 & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1.RecordsetDataGrid1.RefreshElseAdodc1.RecordSource = "select admin.username,Shetuan.ST_NAME, Shetuan.ST_EVENTS from sa full join admin on sa.userId=admin.userId full join Shetuan on Shetuan.ST_ID =sa.ST_ID where admin.userna

18、me='" & Trim(Text1.Text) & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1.RecordsetDataGrid1.RefreshIf Adodc1.Recordset.RecordCount = 0 ThenAdodc1.RecordSource = "select Shetuan.ST_NAME, Shetuan.ST_EVENTS,admin.username from sa full join admin on sa.userId=adm

19、in.userId full join Shetuan on Shetuan.ST_ID =sa.ST_ID where Shetuan.ST_NAME='" & Trim(Text1.Text) & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1.RecordsetDataGrid1.RefreshElseDataGrid1.Visible = TrueEnd IfEnd IfIf Adodc1.Recordset.RecordCount > 0 ThenDataGrid

20、1.Visible = TrueEnd IfIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox "找不到你要的记录", vbOKOnly + vbinfromationEnd IfText1.Text = ""Text1.SetFocus图4-2 查询操作4.3 添加记录 管理员可以添加社团或社员，通过程序可以对数据库里的表实现增删改查，具体增加记录代码如下，管理员添加了一个新社员的截图如图4-3所示。Adodc1.CommandType = adCmdTableAdodc1.RecordSource = &qu

21、ot;admin"Adodc1.RefreshAdodc1.Recordset.Fields("userID").Value = Trim(Text5.Text)Adodc1.Recordset.Fields("username").Value = Trim(Text6.Text)If Text3.Text <> "" ThenAdodc1.Recordset.Fields("userage").Value = Trim(Text7.Text)End IfIf Option1.Value Th

22、enAdodc1.Recordset.Fields("usersex").Value = "男"ElseAdodc1.Recordset.Fields("usersex").Value = "女"End IfAdodc1.Recordset.Fields("userdep").Value = Trim(Text8.Text)Adodc1.Recordset.Fields("usertel").Value = Trim(Text9.Text)MsgBox "注册成功！

23、"Adodc1.CommandType = adCmdTableAdodc1.RecordSource = "sa"Adodc1.RefreshAdodc1.Recordset.Fields("ST_ID").Value = Trim(Text5.Text)Adodc1.Recordset.Fields("userID").Value = Trim(Text10.Text)MsgBox "社员添加成功！"End If图4-3 添加社员4.4 修改记录 管理员可以修改社团活动，通过程序可以对数据库里的表实现

24、增删改查，具体修改社团代码如下，修改图如图4-4所示。Adodc1.ConnectionString = s1Adodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from Shetuan where Shetuan.ST_NAME='" & Trim(Text7.Text) & "'"Adodc1.RefreshAdodc1.Recordset.Fields("ST_TIME").Value = Trim(Text4.Text)Adodc1.Recordset.Fields("ST_EVENTS").Value = Trim(Text5.Text)Adodc1.RefreshMsgBox "修