[摘要]学生社团管理系统是典型的信息管理系统(MIS),其

1、摘 要 学生社团管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键词 学生社团，管理系统，控件，窗体，域提纲1、 引言2 、系统分析2.1用户需求说明2

2、.2对象分析2.3可行性分析2.4业务流程图2.5数据字典2.5.1数据流字典2.5.2数据项字典2.5.3数据存储字典2.5.4处理逻辑字典2.5.4外部实体字典3、 系统设计3.1系统总体结构设计、3.2编程设计环境的选择3.3关系型数据库的实现3.4 Visual Basic 编程环境简介3.5数据库设计3.5.1数据库的概念3.5.2新建一个数据库3.5.3修改已建的数据库3.5.4 实现数据库之间的联系3.6 数据库信息37模块处理过程设计4、系统实现4.1系统界面介绍4.1.1系统登陆窗口4.1.2用户添加窗体5、 总结与展望参考文献1、 引言学生社团管理系统是一个学校与教育单位不

3、可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生社团管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生社团信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优

4、点能够极大地提高学生社团管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理系统的软件成为很有必要的事情,在下面的各章中我们将以开发一套学生社团管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。2、 系统分析2.1用户需求说明经过本人对学校社团的调查和研究，并与许多同行以及领导交流后得出木料行的需求分析如下：系统管理：对用户的管理（用户名、密码、权限），社团管理：社团会员的基本信息，会员的删除，修改及 添加社团功能：社团会员查询，社团活动记录，社团会费支出情况数据库：数据库备份，恢复2.2对象分析通过需求分析，得出本系统的几个主要数据库信息对象如下：社团

5、会员资料：姓名，编号，班级，性别，宿舍，联系电话等社团会费资料：日期，类型，金额，申报人，记录，会费总额，目前支出等社团活动资料：活动主题，活动时间，活动地点，活动内容，主办人等数据库：数据库备份，恢复2.3可行性分析系统的可行性研究在系统的整个过程中占有很重要的地位，它决定所选项目是不是可能实现或值得去实现。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。它主要包括技术、经济、运行、法律等方面的可行性：现有技术是否能够实现本系统的设计开发；经济上是否值得去实现；是否能够在一般平台下运行等。技术可行性是指开发一个新系统所需要的技术是否具备，如支持新系统的软硬件功能以及技

6、术人员的数量和水平。本系统是对资源管理和资料管理。结合实际需要，经过仔细斟酌，我选择了visual basic6.0作为开发用户界面软件，它综合了可视化开发环境的易用性、32位优化编译技术的快速和强大、有数据引擎提供的可伸缩性等特点；选Microsoft Access 2000用来开发后台数据库，它具有很好的安全性与兼容性；而且本系统对硬件的要求不高，在现有技术基础上一定能实现本系统。经济可行性是评价一个计算机信息系统是否可行的最基本的一种方法，是对信息系统解决方案的成本有效性的量度。信息系统的开发是一种投资，因此对于用户来说，他首先关心的是：是否值得开发一个信息系统。使用该宾馆客房管理系统的

7、费用大概在五千左右，这对于一个效益良好的企业是不存在任何问题。改系统对硬件的要求不高，586以上的计算机就能运行系统，所在系统运行方面也不存在问题。2.4业务流程图图1 系统业务流程图2.5数据字典2.5.1数据流字典表1：数据流字典数据流编号数据流名称简述数据流来源数据流去向数据流组成流通量高峰流通量D01-02输入系统资料系统资料系统资料管理YHM+MM+BZ20002500D01-02输入会员基本资料会员基本资料会员基本资料管理Bh+ Name+ Xb+ Zy+ Bj+ Ss+ Tel+ Bm+ Bz20002500D01-03输入社团会费资料社团会费资料社团会费资料管理Rq + Lx+

8、 Money+ Sbr+ Jr+ Hfze Mqzc+ Syhf+ Dwhf+ Hfsm200025002.5.2数据项字典表2：数据项字典数据项编号数据项名称汉字号简述类型宽度取数范围I001Yhname用户名文本50I002Mm密码文本50I003Ptyh普通用户文本4I004Gly管理员文本4I005Bh编号文本20I006Name姓名文本50I007Xb性别文本50I008Zy专业文本50I009Bj班级文本50I010Ss宿舍文本50I011Tel电话文本50I012Bm部门文本50I013Bz备注文本50I014Rq日期时间50I015Lx类型文本50I016Money金额货币50

9、I017Sbr申报人文本50I018Jr记录文本50I019Hfze会费总额货币500-9999999999I020Mqzc目前支出货币500-999999999I021Syhf剩余会费货币500-999999999I022Dwhf单位会费货币500-999999999I023Hfsm会费说明文本502.5.3数据存储字典表3：数据存储字典数据存储编号数据存储名称简述数据存储来源数据存储去向数据存储组成F01-01输入系统资料系统资料系统资料管理YHM+MM+BZF01-02输入会员基本资料会员基本资料会员基本资料管理Bh+ Name+ Xb+ Zy+ Bj+ Ss+ Tel+ Bm+ BzF

10、01-03输入社团会费资料社团会费资料社团会费资料管理Rq + Lx+ Money+ Sbr+ Jr+ Hfze Mqzc+ Syhf+ Dwhf+ Hfsm2.5.4处理逻辑字典表4：处理逻辑字典处理逻辑编号处理逻辑名称简述输入数据流处理逻辑输出数据流关键字P1.0查询系统资料+会员基本资料+社团会费资料统计输入系统资料+输入会员基本资料+输入社团会费资料输出系统资料+输入会员基本资料+输入社团会费资料P1.1输入系统资料系统资料添加、修改、删除系统资料输出系统资料P1.2输入会员基本资料会员基本资料添加、修改、删除会员基本资料输出会员基本资料P1.3输入社团会费资料社团会费资料添加、修改、

11、删除社团会费资料输出社团会费资料2.6.4外部实体字典表5：外部实体字典外部实体编号外部实体名称简述输入数据流输出数据流S0101用户系统资料+会员基本资料+社团会费资料输出系统资料+输入会员基本资料+输入社团会费资料3、 系统设计3.1系统总体结构设计本系统分为：系统模块、社团模块、社团功能模块、数据库模块、帮助模块；系统模块：密码修改、用户添加、重新登陆、退出；社团模块：会员的基本信息，会员的添加，删除，修改 ；社团功能模块：会员查询，社团活动记录，会费的支出；数据库模块：数据库备份，数据库恢复；帮助模块：帮助主题、关于社团管理信息系统；3.2 编程设计环境的选择微软公司的Visual B

12、asic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个好帮手。3.3 关系型数据库的实现Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印

13、或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。3.4Visual Basic 编程环境简介Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和 方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。Visual

14、 Basic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。3.5数据库设计3.5.1数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 3.5.2新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有

15、逻辑的。创建一个数据库结构的过程被认为是数据模型设计。(1)标识需要的数据；(2)收集被标识的字段到表中；(3)标识主关键字字段；(4)绘制一个简单的数据图表；(5)规范数据；(6)标识指定字段的信息；(7)创建物理表。3.5.3修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。3.5.4 实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的

16、记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。3.6 数据库信息用户信息表,如表6所示:表6：操作员信息表字段名称字段类型说明长度ID文本用户名10PWD文本密码10GLY文本管理员2社团会员信息表,如表8所示:表8社团会员信息表字段名称字段类型说明长度Bianhao 数字编号Xingming文本姓名Xinbie文本性别Zhuanye文本专业Banji 数字班级Sushe数字宿舍D

17、ianhua 数字电话Bumen 文本部门Beizhu 文本备注37模块处理过程设计模块处理过程设计是以地系统结构图中的主要模块的处理过程进行设计。下面仅给出“会员基本信息”模块的IPO图，会员基本信息模块信息表如表10所示。表10 会员基本信息模块信息表系统名称：学生社团信息管理系统设计人：张国红模块名称：会员基本信息 HYJBXX.PRG日期：2006年5月25日模块编号：P1调用本模块的模块：本模块调用的模块：会员信息确认调用文件名：XM.DBF XB.DBF菜单名：窗口名：报表名：全局变量：外部参数：输入说明：取会员信息确认的内容记录输出说明：将所保存的会员信息审核并存入学生社团信息库

18、处理说明：首先保护信息处理前的数据状态（硬盘备份）IF 对会员进行审核并有记录 THEN 将会员的信息记录审核并存入学生社团信息库 再进行取下一位会员的记录存入学生社团信息库 ELSE 社团会员信息存储结束ENDIF注释：4、 系统实现4.1系统界面介绍4.1.1系统登陆窗口如下图所示：图(4.1.1)登陆窗口该模块主要功能是实现用户登陆，只有具有管理员身份的人才能操作此学生社团管理系统，防止非管理人员登陆，保护数据的安全。登陆后进入系统主界面：采用多文本（MDI）界面设计方式，主体窗体如图4 所示 使用菜单调用系统各功能模块，该界面设计的基本原则是方便操作，虽然有点单调但是功能其全。代码如下

19、：Private Sub Command1_Click() Dim rs As ADODB.Recordset Dim MsgText As String sql = "select * from yonghu where yonghuming='" & DataCombo1.Text & "'" Set rs = ExecuteSQL(sql, MsgText) If Not rs.EOF Then sql = "select * from yonghu where yonghuming='"

20、 & DataCombo1.Text & "' AND yonghumima='" & Text1.Text & "'" Set rs = ExecuteSQL(sql, MsgText) If Not rs.EOF Then OK = True frmMain.Show Me.Hide DataCombo1.Text = rs!yonghuming Text1.Text = rs!yonghumima If rs!guanliyuan = 1 Then frmMain.STGN.Enabled =

21、 True frmMain.ST.Enabled = True frmMain.SJK.Enabled = True frmMain.XGMM.Enabled = True frmMain.TJYH.Enabled = True frmMain.XT.Enabled = True frmMain.BZ.Enabled = True frmMain.TC.Enabled = True frmMain.XGHYXX.Enabled = True frmMain.TJHYXX.Enabled = True frmMain.SCHYXX.Enabled = True MsgBox "用户：&

22、quot; + DataCombo1.Text + "你当前的身份是管理员，登陆时间：" + frmMain.StatusBar1.Panels(4).Text + "", vbInformation + vbOKOnly, "登陆信息" frmMain.StatusBar1.Panels(3).Text = "当前操作员：" & DataCombo1.Text & "" End If If rs!putongyonghu = 2 Then frmMain.STGN.Enable

23、d = True frmMain.ST.Enabled = True frmMain.XGHYXX.Enabled = False frmMain.TJHYXX.Enabled = False frmMain.SCHYXX.Enabled = False frmMain.SJK.Enabled = False frmMain.XGMM.Enabled = False frmMain.TJYH.Enabled = False frmMain.BZ.Enabled = True frmMain.TC.Enabled = True MsgBox "用户：" + DataCombo

24、1.Text + "你当前的身份是普通用户，登陆时间：" + frmMain.StatusBar1.Panels(4).Text + "", vbInformation + vbOKOnly, "登陆信息" frmMain.StatusBar1.Panels(3).Text = "当前操作员：" & DataCombo1.Text & "" End If Else MsgBox "密码不正确，请重新输入", vbOKCancel OK = True rs.Cl

25、ose Text1.Text = "" Text1.SetFocus End If Else MsgBox "用户名不正确，请重新输入！", vbOKCancel OK = False DataCombo1.SetFocus Text1.Text = "" Exit Sub End If Text1.Text = ""End Sub4.1.2用户添加窗体：图(4.1.2)添加用户窗体该模块提供了用户的添加，删除以及修改。还可以实现用户为管理员或普通用户。而且操作界面非常美观，方便用户使用。代码如下：Private

26、Sub Command5_Click()Dim rs As ADODB.RecordsetDim str As StringIf Text1.Text = "" Then MsgBox "用户名不能为空！", vbInformation + vbOKOnly, "警告" Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "密码不能为空！", vbInformation + vbOKOnly, "警告"

27、Text2.SetFocus Exit Sub End If If Text2.Text <> Text3.Text Then MsgBox "两次输入的密码不一样，请重新输入！", vbInformation + vbOKOnly, "警告" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If If Option1.Value = False And Option2.Value = False Then MsgBox "请选择操作权限！", vbInformation + vbOKOnly, "警告" Exit SubEnd If sql = "select * from yonghu where yonghuming='" & Text1.Text & "'" Set rs