课程设计（论文）-陕西师范大学社团管理系统软件设计说明书..doc

陕西师范大学社团管理系统摘 要：在陕西师范大学校园里，有这样一道亮丽的风景丰富多彩的社团活动。学生社团形式多种多样，如学术科技类社团-挑战科协、兴趣爱好类社团-鼎沸足球俱乐部、公益服务类社团-海燕爱心社、文娱体育类社团-大学生“红烛”艺术团、理论学习类社团-马列理论读书社、社会实践类社团-新闻学社等，共计六大类130多个学生社团，囊括体育、音乐、美术、舞蹈、文学、历史、科技等多个方面，创建了高质量、有特设的校园生活。陕师大学生社团管理系统主要是为了给校领导、教师及学生提供社团的各方面信息，系统开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。本系统主要完成对指导老师、社联主要成员、组织机构、社团信息、社团风采、社团公告及文件中心五个方面。系统可以完成对各类信息的浏览、查询、添加、修改、删除等功能。由于系统数据的组成对存储安全性要求较高，因此系统的开发工具选择了Microsoft Visual Basic2010和Microsoft Access2003数据库，利用Microsoft Visual Basic2010可视化编程的特点，Microsoft Access强大的数据处理功能，再通过对用户的需求分析，开发出适用于社团的管理系统。软件设计说明书目录摘 要I目 录II第一章 绪论1第二章 系统分析22.1 开发背景22.2 问题识别22.3 系统需求分析22.4 系统设计分析3第三章 系统设计43.1 系统概要43.2 系统的开发环境43.3 系统结构图53.4 系统流程图5第四章 数据库设计64.1 数据库需求分析64.2 数据库中表的设计8第五章 用户界面的实现12第六章 设计总结17第七章 致谢18第一章 绪论随着信息技术在管理上越来越深入而广泛的应用，管理系统的实施在技术上已逐步成熟。管理系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理系统。目前，经过全校师生的共同努力，学校的规模不断的扩大，从院系管理的普及，学校的学生社团也越来越多，如何充分让大家了解校园社团，从繁杂的社团中找到自己所要的信息，既要提高社团的科学管理水平，又要减轻校团委领导的工作，使学校社团更加规范、有序。使用数据库与软件的结合可以高速，快捷地完成以上工作。数据库技术发展突飞猛进，各种数据库开发国家也就应运而生了。大多数编程语言都能进行数据库开发。目前在PC机上流行的有VC+、C、C+、C#、PB、VB。下面我就本次设计涉及到的知识平台、工具中的两个主要的开发工具Microsoft Visual Basic 2010 和 Microsoft Access 2003作简要的介绍，Microsoft Visio只是用来画图不做过多介绍，其中本学期开设的软件工程导论课程对我们此次完成设计说明文档和使用说明书起到了极大的作用。第二章 系统分析2.1 开发背景由于本人一直参加学生社团工作，频繁接触到一些社团信息，一直想要做个系统来方便对学生社团信息的管理，刚好借这次课程设计的机会开发一个简单的管理系统，以实现对社团基本信息管理。2.2 系统需求分析陕师大学生社团管理主要是社团基本信息（社团信息、社团公告）的管理。所以本系统主要包括如下几个功能：信息查询功能、数据维护功能、系统维护功能。各功能的具体作用如下：1. 信息查询功能可以查询所有社团的基本信息，主要分为按社团编号查询，按社团名称查询，按负责人姓名查询，按指导老师查询。2. 数据维护功能主要是维护社团基本信息包括向数据库添加、修改、删除社团各项信息。 原打算实现社团信息打印的功能，因时间关系以及其复杂度，本系统没有实现此项功能。3. 系统维护功能管理员可以对社团基本信息进行管理（添加、删除、修改），但是用户不具备此功能，因为此信息较为重要用户不得随意修改。但是对于社团公告一栏，为了便于各社长能够及时把本社团最近要举办的活动挂到网上（学生能够第一时间了解到活动的概况），所以社团公告可以进行添加、删除、修改。4. 身份验证功能由于本系统主要实现的功能是把社团的信息更加详细的展现给老师以及学生，所以管理机制很简单，管理员与用户，管理员可以对本系统所有的功能进行操作，特别是社团基本信息的添加和删除、修改等管理； 而用户，只具有一般的信息查询能力。当然，管理员的用户名和密码是唯一的，加强了可靠性。5. 视频观看与图片浏览功能这以模块也是本系统的一大亮点，历年来上一届的社团总会留下很多值得新一届纪念和学习的东西，比如说视频和照片，本系统采用相关控件实现对这两部分的展现，为更多的学生提供第一手参考资料。2.3 系统设计分析1. 系统设计原则可靠性：系统应保证长期安全地进行。系统中的软硬件及信息资源应满足可靠性设计要求。安全性：系统应具有必要的安全保护和保密措施。容错性：系统应具有较高的容错能力，有较强的抗干扰性。对各类用户的误操作应有提示或自动消除的能力。可扩充性：系统的软硬件应具有扩充升级的余地，不可因为软硬件扩充或改型而使原有系统失去作用。适应性：系统应对不断发展的信息处理方法具有广泛的适应性。实用性：注重采用成熟和实用的技术。易操作性：贯彻面向最终用户的原则，建立友好的用户界面，使用户操作简单直观，易于学习掌握。2. 系统概要设计数据库的设计是信息系统的基础和核心，数据库设计的质量将在很大程度上决定系统的质量和成功与否。通过分析本系统的数据库数据主要包括四部分 。社团信息、智囊团（主要学生干部）的信息、指导老师信息、公告信息。第三章 系统设计3.1 系统概要社团是一个学校校园生活必不可少的一部分，社团管理系统虽然没有很强大,但是对于规范管理社团一定能够起到推动社团发展的作用。搞学生社团工作的同学首先要明确社团宗旨，规范社团章程、管理制度，这样才有助于加强社团的凝聚力。社团活动要健康、向上，要能体现当代学生的时代风貌。学生需要什么样的活动，如何让学生体现自己的特长，怎样让学生锻炼自己的能力，这是任何一个社团都必须考虑的问题。而社团活动要提高个人素质和全作能力，敢于寻求社团新的管理方法；社团之间要加强合作。很多社团在这方面很欠缺，我校已成立学生社团联合会，对社团之间交流合作、为我校社团提供活动的平台、提供第一手的服务起到很重要的作用。所以社团联合会要把最新的材料提供给广大师生，以便于直接沟通。3.2 系统的开发环境结合所要开发的系统的特点，系统将使用Microsoft Visual Basic 2010中文企业版和Microsoft Visio来作为开发工具，后台数据库则采用Access 2003。本章将会根据“陕西师范大学社团管理系统”的需求说明和模块设计着意于如何实现各个模块的基本功能，很多功能由于时间的关系没有实现，但是如果能够应用到学校平台上，大可在进行修改和补充。 设计本系统的系统环境是：（1）硬件环境：CPU：Pentium Dual-Core内存：2G显卡：NVIDA Geforce 310M（2）软件环境：操作系统：Windows 2007软件：Microsoft Visual Basic 2010中文企业、Microsoft Visio3.3 系统结构图3.4系统流程图进入系统主窗体 选择要查询的信息点击进入社团信息系统主窗体 管理员用密码进入注册 用户查找进入注册窗体可以进行添加、删除、修改、查询、清空等操作。查找基本信息 （图一）进入系统主窗体 选择要查询的信息点击进入社团公告系统主窗体 社团负责人操作 用户进入注册窗体可以进行添加、删除、修改、查询、等操作。基本信息了解 （图二）（备注：其他功能类似于以上两个）3.5系统功能具体实现1、主界面主要用到的控件有：Button(点击进入下个窗体)、menustrip（文件、帮助、退出）、 Linklable（使用了一个超链接）、 Lable2.指导老师主要代码: BindingManagerBase实现与数据库的连接，一一对应到每个textbox里Public Class frmTeacher Dim Bm As BindingManagerBase Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() start.Show() End Sub Private Sub frmTeacher_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MessageBox.Show(adf ) Dim selectCmd As String = select * From teacher Dim connStr As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=community2.mdb Dim conn As OleDbConnection, myAdapter As OleDbDataAdapter Dim myDataSet As DataSet = New DataSet() conn = New OleDbConnection(connStr) conn.Open() myAdapter = New OleDbDataAdapter(selectCmd, conn) myAdapter.Fill(myDataSet, teacher) Dim bindName As Binding = New Binding(Text, myDataSet, ) Dim bindSex As Binding = New Binding(Text, myDataSet, teacher.sex) Dim bindHometown As Binding = New Binding(Text, myDataSet, teacher.hometown) Dim bindEdu_back As Binding = New Binding(Text, myDataSet, _back) Dim bindGraduate As Binding = New Binding(Text, myDataSet, teacher.graduate sch) Dim bindWord As Binding = New Binding(Text, myDataSet, teacher.word) txtName.DataBindings.Add(bindName) txtSex.DataBindings.Add(bindSex) txtHometown.DataBindings.Add(bindHometown) txtEdu_back.DataBindings.Add(bindEdu_back) txtGraduate.DataBindings.Add(bindGraduate) txtWord.DataBindings.Add(bindWord) Bm = Me.BindingContext(myDataSet, teacher) CheckBm()以上代码实现数据库的连接 End Sub Private Function CheckBm() If Bm.Position = 0 Then btnFirst.Enabled = False btnPrve.Enabled = False btnNext.Enabled = True btnLast.Enabled = True ElseIf Bm.Position = Bm.Count - 1 Then btnFirst.Enabled = True btnPrve.Enabled = True btnNext.Enabled = False btnLast.Enabled = False Else btnFirst.Enabled = True btnPrve.Enabled = True btnNext.Enabled = True btnLast.Enabled = True End If Return (0) End Function Private Sub btnPrve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrve.Click If Bm.Position 0 Then Bm.Position -= 1 End If CheckBm() End Sub Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click If Bm.Position Bm.Count - 1 Then Bm.Position += 1 End If CheckBm() End Sub Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click Bm.Position = 0 CheckBm() End Sub Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click Bm.Position = Bm.Count - 1 CheckBm() End Sub以上代码实现“上一个、下一个、第一个、最后一个”的切换。3.智囊团类似于上一个窗体，基本上实现了数据库与窗体上控件的绑定，以及利用Button 来控制数据的显示。具体代码可以参考上面。两个窗体都用到了Picturebox控件，用来美化窗体，都显示了一张精美的图片。主要代码：同上4.社团信息 这个界面主要用到的控件有：Lable、GroupBox、DataGridView、ComboBox Textbox。DataGridView用来显示整个表格状的信息登记表，用来放置它的组件是ComboBox。通过密码和账户进入下一个界面。主要代码：DataGridView1.DataSource = myDataSet.Tables(community) DataGridView1.DataSource = myDataSet.Tables(community).DefaultView （注册界面）添加的主要代码： Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click Dim connStr, insertCmd As String connStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=community2.mdb insertCmd = Insert Into community Values ( & Val(TextBox9.Text) & , & TextBox1.Text & , & TextBox2.Text & , & GetSqlStr(TextBox3.Text) & , & GetSqlStr(TextBox4.Text) & , & GetSqlStr(TextBox5.Text) & , & GetSqlStr(TextBox6.Text) & , & GetSqlStr(TextBox7.Text) & , & GetSqlStr(TextBox8.Text) & , & GetSqlStr(TextBox10.Text) & ) Dim conn As OleDbConnection, cmd As OleDbCommand conn = New OleDbConnection(connStr) conn.Open() cmd = New OleDbCommand(insertCmd, conn) cmd.ExecuteNonQuery() conn.Close() MessageBox.Show(新?增?社?团?信?息成功|！?) ShowData()End Sub删除主要代码： Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click Dim connStr, delCmd As String connStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=community2.mdb delCmd = Delete From community Where 社?团?名?称? = & GetSqlStr(TextBox1.Text) & Dim conn As OleDbConnection, cmd As OleDbCommand conn = New OleDbConnection(connStr) conn.Open() cmd = New OleDbCommand(delCmd, conn) cmd.ExecuteNonQuery() conn.Close() MsgBox(删?除y社?团?信?息成功|！?) ShowData()End Sub修改的主要代码： Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Dim connStr, updateCmd As String connStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=community2.mdb updateCmd = UPDATE Member SET Team = & GetSqlStr(txt_Pteam.Text) & , Position = & GetSqlStr(txt_position.Text) & , Birthday = & GetSqlStr(txt_birth.Text) & , Pay = & GetSqlStr(txt_pay.Text) & ,Height= & GetSqlStr(txt_height.Text) & ,Socre= & GetSqlStr(txt_score.Text) & ,Stay= & GetSqlStr(txt_1year.Text) & WHERE (PlayerName = & GetSqlStr(txt_playeraname.Text) & ) updateCmd = UPDATE community set id_no = & Val(TextBox9.Text) & , 所属?院o部? = & GetSqlStr(TextBox2.Text) & , 社?团?属?性? = & GetSqlStr(TextBox3.Text) & , 负o责e人? = & GetSqlStr(TextBox4.Text) & , 联a系电?话 = & GetSqlStr(TextBox5.Text) & , 成立日?期 = & GetSqlStr(TextBox6.Text) & , 指?导?老?师| = & GetSqlStr(TextBox7.Text) & , 精?品活?动 = & GetSqlStr(TextBox8.Text) & , 社?团?简介 = & GetSqlStr(TextBox10.Text) & WHERE 社?团?名?称? = & GetSqlStr(TextBox1.Text) & updateCmd = UPDATE adminuser SET team = & GetSqlStr(txt_team.Text) & , player = & GetSqlStr(txt_player.Text) & , password = & GetSqlStr(txt_pwd.Text) & , truename = & GetSqlStr(txt_truename.Text) & WHERE (username = & GetSqlStr(txt_username.Text) & ) Dim conn As OleDbConnection, cmd As OleDbCommand conn = New OleDbConnection(connStr) conn.Open() cmd = New OleDbCommand(updateCmd, conn) cmd.ExecuteNonQuery() conn.Close() MsgBox(社?团?信?息修T改?成功|！?) ShowData() End Sub Private Sub zhuce_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connStr, selectCmd As String connStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Application.StartupPath() & community2.mdb selectCmd = Select * from community Dim conn As OleDbConnection, myAdapter As OleDbDataAdapter Dim myDataSet As DataSet = New DataSet() conn = New OleDbConnection(connStr) conn.Open() myAdapter = New OleDbDataAdapter(selectCmd, conn) myAdapter.Fill(myDataSet, community) DataGridView1.DataSource = myDataSet.Tables(community) DataGridView1.DataSource = myDataSet.Tables(community).DefaultViewEnd Sub清空的主要代码： Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox7.Text = TextBox8.Text = TextBox9.Text = TextBox10.Text = TextBox1.Focus() End SubEnd Class以上通过删除、修改、添加实现对数据库的更新（对社团基本信息的更新）通过控件 DataGridView 来展示及时更新的信息。6. 组织机构对于这个界面，主要实现的功能是把校社联六大部门的主要职能提供给用户，简洁明了，美观大方。仅仅使用了Richtextbox控件。背景色调以粉色为主，用户看了很温馨。通过返回则回到主界面。7. 社团风采该界面貌似于主题有点不合，但是很有时尚潮流质感，大学生本身是个年轻的群体，所以明星“周杰伦”作为界面，给人耳目一新的感觉，另外这个模块主要是实现视频的观看和社团照片的浏览，很符合主题。用到了控件AxWindowsMediaPlayer、ToolStripMenuItem以及Combobox，通过部分代码巧妙的实现了边看视频和边浏览图片的功能，而且能够播放多种格式的视频，同时可以播放自己文件夹里的视频，倘若您的计算机上没有安装视频播放器，该软件的安装为用户提供了极大地便利。主要代码： Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub 查看图片ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查看图片ToolStripMenuItem.Click OpenFileDialog1.ShowDialog() PictureBox1.Load(OpenFileDialog1.FileName) PictureBox1.Visible = True pb.Visible = False AxWindowsMediaPlayer1.Visible = True End Sub Private Sub 观看视频ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 观看视频ToolStripMenuItem.Click OpenFileDialog1.ShowDialog() AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName pb.Visible = False AxWindowsMediaPlayer1.Visible = True PictureBox1.Visible = True End Sub Private Sub frmFengcai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AxWindowsMediaPlayer1.Visible = False pb.BackgroundImage = System.Drawing.Image.FromFile(ZJL.image) End Sub Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked End Sub Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click MessageBox.Show(点?击文?件t选?择?视频或图?片?,看完视频后，?请?点?击停止1) End Sub Private Sub EToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EToolStripMenuItem.Click Me.Hide() start.Show() End Sub Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click End Sub Private Sub AxWindowsMediaPlayer1_Enter_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter End SubEnd Class8. 社团公告这个模块也许才真正实现了交互性，主要用来实现的功能是：社团负责人及时把本社团最近要举办活动的信息及时公布在网上，以便及时让广大同学了解到，实现网络的宣传。同样用到了添加、删除、修改、清空等功能，具体的代码类似于社团注册模块。8.文件中心该模块的主要用途是：社团联合会及时发布一些文件，包括发给各社团负责人的、以及发给内部成员的文件。同样要突出，文件的及时性。便于及时把文件传达给各位同学。主要代码：Imports System.DataImports System.Data.OleDbImports System.IOImports System.Text.EncodingPublic Class wenjian Dim read As StreamReader Private Sub TabPage3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage3.Click End Sub Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click End Sub Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click End Sub Private Sub wenjian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TabControl1_Selected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TabControlEventArgs) Handles TabControl1.Selected read = New StreamReader(Path.GetFullPath(fzlt.txt), GetEncoding(gb2312) rtbfzlt.Text = read.ReadLine() rtbfzlt.Text += read.ReadLine() rtbfzlt.Text += read.ReadToEnd read = New StreamReader(Path.GetFullPath(yyby.txt), GetEncoding(gb2312) rtbyyby.Text = read.ReadLine() rtbyyby.Text += read.ReadToEnd read = New StreamReader(Path.GetFullPath(zjdh.txt), GetEncoding(gb2312) rtbzjdh.Text = read.ReadLine() rtbzjdh.Text += read.ReadToEnd End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() start.Show() End SudEnd Class第四章 数据库设计4.1 数据库需求分析本系统的主要功能是进行学生社团管理以及呈现，包括社团信息的查询以及注册，社团公告的更新等。我创立以下几个数据表：(1) 社团信息