毕业设计-学校社团信息管理系统-计算机论文[管理资料]
学校社团信息管理系统
题 目 学校社团管理信息系统 专 业 计算机应用技术
班 级 设 计 者
前 言
随着电子计算机和通信技术的发展，人类已经逐渐地进入信息化社会。信息和材料、能源一样成为一种社会的基本生产资料，在人类的社会生产活动中发挥着重要的作用。同时人们对信息和数据的利用与处理也已进入自动化、网络化和社会化的阶段，因此，开发相关的管理信息系统已经成为各行各业的必要和必需了，管理信息系统作为一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体，可以解决企业或组织所面临的问题，对内来看，可以提高工作效率；对外来看，获得竞争优势。
管理信息系统的开发方法有生命周期法、原型法和面向对象的开发方法等。生命周期法（Life Cycle Method）是20世纪60年代发展起来的一种应用广泛且比较成熟的管理系统开发方法，它的基本思想是将系统的开发工作从开始到结束划分为若干个阶段，每个阶段都有明确的任务，而系统开发出来后，并不意味着生命周期的结束，而意味着根据组织的需要对系统的修改和重建的开始；原型法(Prototyping Method)是20世纪80年代发展起来的，旨在改变生命周期法的缺点的一种系统开发方法，该法的开发思路是首先根据用户的要求，由用户和开发者共同确定系统的基本要求和主要功能，利用系统快速生成工具，建立一个系统模型，再在此基础上与用户交流，将模型不断补充、修改、完善，如此反复，最终直至用户和开发者都比较满意为止，从而形成一个相对稳定、较为理想的管理信息系统；面向对象（Object Oriented）的开发方法于20世纪80年代开始兴起的，是一种基于问题对象的自底向上的一种系统开发方法，这种方法的特点是以对象为基础，对象是分析问题和解决问题的核心。基于以上三种方法的特点和各自的优缺点，本图书馆管理系统利用软件工程化思想和方法，总体上是采用结构化生命法进行系统分析和设计的，而系统实现等步骤则采用了原型法和面对对象的方法。
管理信息系统的开发是一个开发周期长、技术要求高、影响因素多的复杂系统工程，因此制定一个完善、可行、合理的开发计划，不仅是系统开发成功的保证，而且可以提高效率、节省时间、降低成本。
摘 要
学校社团信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本系统主要完成对会员管理、会员查询、社团查询、会费查询四个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。由于系统数据的组成对存储安全性要求较高，因此系统的开发工具选择了Microsoft Visual Access2000数据库，利用Microsoft Visual ，Microsoft Access强大的数据处理功能，再通过对用户的需求分析，开发出适用于资料管理系统。
关键字：控件 窗体 数据库 会员信息 社团信息
[The summary ] ：corporation's information management system is a typical information management system (MIS ), it develops two respects of main development including setting-up and maintenance and front application program of backstage supporter's database . Demand to set up the consistency of the data and integrality the storehouse of strong , data with good security to the former. Require to the latter the function of the application program is complete , apt characteristic of using etc. . This system finishes inquiring about four respects to member's management , member's inquiry , corporation's inquiry , membership dues mainly. The system can finish such functions as having a look around , inquiry , adding , deleting , revising of all kinds of information ,etc. . Because expect relatively much in storing the security in composition of the systematic data, Because composition, system of data to store security expect relatively much , so systematic developing instrument choose Microsoft Visual Basic6. 0 Chinese enterprises edition and Microsoft Access2000 database, utilize Microsoft Visual Basic6. The characteristic of 0 visual programming, Microsoft Access strong data processing function, analyse through the demand to users and then, develop and is suitable for the materials administrative system.
Key word: Controlling part, window body, database , VB6. 0, member's information , corporation's
information
目 录
前 言 ................................................................. 2 摘 要 ............................................................... 3 第一章 绪论 .......................................................... 5 第二章 系统分析 ...................................................... 6
开发背景 ......................................................... 6 Microsoft Visual Basic软件简介 ................................ 9
............................................................... 9 .............................................................. 11 （DBA） ....................................................... 11
第三章 系统设计 .................................................... 15
.................................................................. 15 系统的开发环境 ................................................. 15 系统结构图 ...................................................... 16 系统流程图 ...................................................... 17 第四章 数据库设计 ................................................... 18
数据库需求分析 .................................................. 18 4．2 数据库逻辑结构设计 .......................................... 20 4．3 数据库中表的设计模式 ........................................ 20 用户界面的实现 ................................................... 28 设计体会 ............................................................. 32 参考文献 ............................................................. 33 程序源代码 ........................................................... 33
高校校园社团信息管理
第一章 绪论
随着科技的发展和生产力水平的不断提高，人类社会也在进行着日新月异的变化。IT，尤其是网络技术在社会生活中的渗透，已使人们领域感到传统的社会交往方式将发生重大变革。 目前，计算机已经成为人们生活中不可缺少的工具。在计算机应用领域，现在最火热的就是数据库和网络的应用了。下面就介绍一下数据库方面的知识。
数据库这一概念的提出是在20世纪60年代，到现在只有三四十年的时间，但它的发展却是惊人的。在这短短的几十年里，它经历了三代演变，发展了以数据建模DBMS核心技术为主，内容丰富的一门学科；带动了一个巨大软件产业DBMS产品及其相关工具和解决方案。 数据库是数据管理的最新技术，是计算机科学的重要分支。今天，信息资源已成为各个部门的重要财富和资源。建立一个满足各级部门信息处理与其殴打行之有效的信息系统也成为一个企业或组织生存发展的重要条件。因此，作为信息资源核心和基础的数据库得到越来越广泛的应用，从小型单项事务处理系统到大型信息系统，从联机分析处理，从一般企业管理到计算机辅助设计与制造（CAD/CAM）、计算机集成制造系统（CIMS）、办公信息系统（OIS）、地理信息系统（GIS）等，越来越多新的应用领域采用数据库存储和处理他们的信息资源。对于一个国家来说，数据库的建设规模、数据库信息量的大小和使用频度已成为衡量这个国家信息化程度的重要标志。 究竟什么是数据库呢？数据库，顾名思义，就是存放数据的仓库。人们收集并抽取出一个应用所需要的大量数据之后，应将起保存起来已供进一步加工处理，进一步抽取有用信息，这就必须借助计算机和数据库技术科学的保存和管理登录大量的复杂的数据，以便能利用这些宝贵资源。这些长期存储在计算机内的、有组织的、可共享的数据集合就是数据库。数据库中的数据按一定的数据模型组织、描述和存储，具有较小的沉余度、较高的数据独立性和易扩展性，并为各种用户共享。
数据库技术从20世纪60年代到今天，其发展经历了三个阶段。我国已加入WTO，企业管理将逐步与国际接轨，企业管理信息化、网络化是现代企业管理的必由之路。企业管理信息化的实质是采用计算机对企业管理的各个环节实现计算机处理，是日常事务的处理科学化、规模化并且能够高效完成，节省人力、物力降低企业运营成本，增强企业的市场竞争力，为企业经营管理
者、提供科学的、准确的数据。
数据库技术发展突飞猛进，各种数据库开发国家也就应运而生了。大多数编程语言都能进行数据库开发。目前在PC机上流行的有VC++、Delphi、PB、VB。下面我就本科程设计涉及到的知识平台、工具中的两个主要的开发工具Visual 和 Access 2000作简要的介绍。
第二章 系统分析
开发背景
计算机已经成为我们学习和工作的得力助手：
今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：
首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以节省许多资源；
第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全，等等。 在大中专中用计算机管理社团信息的意义
现在我国的大中专校中信息的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用的专科生，希望可以在这方面有所贡献。
需求信息的收集又称为系统调查。为了充分地了解用户可能提出的要求，在调查研究之前，要做好充分的准备工作，要明确调查的目的、调查的内容和调查的方式。
1、调查的目的
首先，要了解一个组织部门的机构设置，主要业务活动和职能。其次，要了解本组织部门的大致工作流程和任务范围划分。这一阶段的工作是大量的和繁琐的。尤
其是管理人员缺乏对计算机的了解，他们不知道或不清楚哪些信息对于数据库系统设计者是必要的或重要的，不了解计算机在管理中能起什么作用，做哪些工作。另一方面，数据库系统设计者缺乏对管理对象的了解，不了解管理对象内部的各种联系，不了解数据处理中的各种要求。由于管理人员与数据库系统设计者之间存在着这样的距离，所以需要管理部门和数据库系统设计者更加紧密地配合，充分提供有关信息和资料，为数据库系统的设计打下良好的基础。
2、调查的内容
外部要求：信息的性质，响应的时间、频度和如何发生的规则，以及对经济效益的考虑和要求，安全性及完整性要求。
业务现状：这是调查的重点，包括信息的种类，信息流程，信息的处理方式，各种业务工作过程和各种票据。
组织机构：了解本组织部门内部机构的作用、现状、存在的问题，及是否适应计算机管理。规划中的应用范围和要求。
3、调查方式 开座谈会； 跟班作业；
请调查对象填写调查表； 查看业务记录、票据； 个别交谈。
对高层负责人的调查，最好采用个别交谈方式。在交谈之前，应给他们一份详细的调查提纲，以便使他们有所准备。从访问中，可获得有关该组织高层管理活动和决策过程的信息需求、该组织的运行政策、未来发展变化趋势等与战略规划有关的信息。
对中层管理人员的访问，可采用开座谈会、个别交谈或发调查表、查看业务记录的方
式，目的是了解企业的具体业务控制方式和约束条件、不同业务之间的接口、日常控制管理的信息需求以及预测未来发展的潜在信息要求。
对基层操作人员的调查，主要采用发调查表和个别交谈方式来了解每项具体业务的过程、数据要求和约束条件。
想要把收集到的信息（如文件、图表、票据、笔记等）转化为下一设计阶段可用形式的信息，必须对需求信息做分析整理工作。
业务流程分析：
业务流程分析的目的是获得业务流程及业务与数据联系的形式描述。一般采用数据流分析法，分析结果以数据流图（DFD）表示。是一个数据流图的示意图。图中有向线表示数据流，圆圈中写上处理的名称、圆圈代表一个处理、带有名字的双线段表示存储的信息。
数据流图示
原始输入 筛选后的 查找结果 格式化的输出 输入处理 查找分析 输出处理 下面是人事工资管理数据库系统设计的业务流程分析，原始的数据是人事工资的信息，系统要求统计人事的信息，并根据信息统计的结果由奖金评委评选出获得奖金的员工，其数据流图如下图：
信息清单 统计整理 报表清单 获奖清单
输出处理 输入处理 产生报表
存储文件
社团统计的数据流
Microsoft Visual Basic软件简介
VB是一种可视化的编程语言，利用这种可视化技术进行编程，能使用编程工作变得轻松快捷，摆脱了面向过程语言的许多细节，使主要精力集中在解决实际问题和技术友好界面上。因此，其在国内外各个领域中应用非常广泛，许多计算机专业和非计算机专业的人员常利用它来编制开发应用程序和软件。
现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：
Microsoft公司的Visual . Powersoft公司的PowerBulider在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。
作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：
Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
总的来说，Visual Basic具有以下特点： 可视化编程：
用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员
不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。
面向对象的程序设计
Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。
结构化程序设计语言
Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。
Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。
事件驱动编程机制
Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。
在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。
访问数据库
Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。
Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。
动态数据交换(DDE)
利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。
对象的链接与嵌入(OLE)
对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。
动态链接库(DLL) Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。 100
Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
（DBA）
微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。
DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。
社团管理业务流程图：
输出 社团部 输入计算机
会员管理业务流程图： 部长 学生 班级 班级 校团委
输出 会员 会员 部长 信息 档案 社团 输入计算机 ：
数据流程图：
由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制。
团长 会员情况
校 团 委 社团情况
大学社团管理系统 查询 统计分析
校团委 大学社团管理系统0层数据流程图
部长 会员管理 D3 统计分析 人数 社团 部长管理 D2 校 团 委 社团管理 D1 社团 团费
查询者 管理者 大学社团管理系统1层数据流程图
：实体联系图
E-R图设计模式分为两种：
⑴一种是以局部E-R图为基础设计全局模式，称为集中式模式设计；
⑵另一种是先设计局部E-R模型图，再由若干个局部E-R模型图综合成为全局E-R模型图，称为综合设计法。
这两种设计方法的设计思想是有区别的：综合设计法是以局部需求说明作为设计的基础，在集成时尽管对局部E-R图要做必要的修改，但局部E-R图是设计的基础，全局模式是局部E-R图的集成；集中式模式设计法是在统一需求说明的基础上，设计全局模式，全局模式是设计的基础。综合设计法比较适合于大型数据库系统的设计，可以多组并行进行，免除综合需求说明的麻烦。目前，综合设计法用得较多，
下面将以综合设计法为主介绍概念模式设计。
综合设计法分为两个步骤： ⑴设计局部概念模式
⑵由局部概念模式综合成全局概念模式。 设计局部概念模式：
局部概念模式设计可以由用户独立完成，也可以由数据库系统设计者协助完成。一般分为以下几个步骤：
①．根据局部需求分析的结果产生局部实体集。局部实体集应该是局部应用领域中的事物，能够满足局部应用的要求。局部实体集的产生包括确定局部实体集的属性和键码。在局部概念模式设计过程中，我们可能会发现有些事物既可以抽象为实体集也可以抽象为属性或实体集间的联系。对于这样的事物，我们应该使用最易于为用户理解的概念模型结构来表示。在易于被用户理解的前提下，既可抽象为属性，又可抽象为实体的的尽量抽象为属性。需要注意的是，每个事物必须由一种而且仅有一种概念模型结构表示。在设计局部实体集时，我们还需要确定哪些属性是单值属性、哪些属性是多值属性以及哪些属性是复合属性(指由多个数据项组成的属性)。
②、在确定了局部实体集后，根据局部分析的结果确定局部实体集间的联系及其结构约束。局部实体集间的联系要准确地描述局部应用领域中各事物之间的关系。同时，局部实体集间的联系也需要满足局部应用的各种要求。
③、最后，根据上面的分析来形成局部E-R图。
社团与社团人数的E-R图
团费 社团 m 团委 n 人数
电话 职称 会员 备注 会员编号 会员姓名 会员班级 民族 专业 社团部名 宿舍 性别 入会日期 会员基本信息
：
第三章 系统设计
社团管理系统虽小,但关于学生会在对学生活动中管理是必不可少的呀, 在学校要明确
社团宗旨，规范社团章程、管理制度，加强社团的凝聚力。社团活动要健康、向上，要能体现当代大学生的时代风貌。大学生需要什么样的活动，如何让大学生体现自己的特长，怎样让大学生锻炼自己的能力，这是任何一个社团都必须考虑的问题。而社团活动要提高个人素质和全作能力，敢于寻求社团新的管理方法；社团之间要加强合作。很多社团在这方面很欠缺，而很多大学已成立大学生社团联合会，对社团之间交流合作起到很重要的作用。我校众多社团有着燃烧的激情。有了激情，就有了延续和发展的可能；有了延续和发展，一切都会改观。
系统的开发环境
结合所要开发的系统的特点，系统将使用Visual Basic ，后台数据库则采用Access 2000。
本章将会根据“校园社团管理系统”的需求说明和模块设计着意于如何实现各个模块的基本功能，如果需要具体应用到学校的情况中，还需要对各学校的具体需求进一步明确，对系统进行修正。
设计本系统的系统环境是： （1）硬件环境：
CPU：Intel Celeron(r) II processor 内存：128MB
显卡：Intel 82815 Graphics Controller
（2）软件环境：
操作系统：Windows XP Server 软件：Visual Basic 中文企业
系统结构图
主切 _ __
数据管理 信息修改 系系统有关 统帮助 系统关于 系统退出 换面板__
会员信息 社团设置 会员信息修改 社团信息修改 会费信息修改 会员信息查询 社团信息查询 会费信息查询
[图1]
系统流程图
欢迎进入系统窗体
通过点击“进入”显示登录窗体 登录窗体 ( 管理员 ) 连续3次登录失败则自
动退出系统
通过验证 校园社团管理系统主窗体 社团设置和社团查询 会员管理 [图2]
只显示会员相关信息。管理员设置 可以信息进行添加、删除、修改、查询、保存等操作。 第四章 数据库设计
数据库需求分析
本系统的主要功能是进行校园社团管理，包括会员的录入，社团设置、会员和社团部以及会费的查询。我创立以下几个数据表：
(1) 会员表：编号，姓名，性别，专业，班级，宿舍，电话，社团部，职位，会费，年，月，日。
(2) 社团部表：社团部，部长，成员人数，电话，社团职能，备注，社团费。 (3) 超级用户表：ID，超级用户名，密码。 (4) 用户表：ID，用户名，输入，查询，密码。 软件模块结构设计 1系统方案确定
通过对系统调研与分析，系统主要应完成的功能如下：会员信息录入、会员信息查询、系统维护等三大模块。 2软件结构设计
社团管理系统包含会员录入、会员查询、系统维护等功能。该系统执行时，先录入数据，然后根据会员的个人信息可以进行查询以及按照相同的属于进行排序，并可将结果进行预览。社团管理系统属于典型的会员型系统，其系统示意图如下图所示：
会员录入 会员查询 会员排序 会员资料浏览 事务中心 接受数据
会员关系管理系统示意图
系统结构图示意如下：
信息采编 会员查询 数据处理 信息浏览 会员关系管理系统
社团管理系统结构图
系统功能模块图如下：
系统登陆 社团管理系统 输入会员信息 备份 恢复 会员信息录入会员信息查询社团设置用户管理退出系统 添加 新增删除除 恢复按编号按姓名用户添加密码修改 用户删除 月，日）
2 数据库逻辑结构设计
根据分析，可以建立对应的关系模型如下：(有下划线的表示主关键词)
会员表 （编号，姓名，性别，专业，班级，宿舍，电话，社团部，职位，会费，年，
社团部表 （社团部，部长，成员人数，电话，社团职能，备注，社团费）
超级用户表（ID，超级用户名，密码） 用户表 （ID，用户名，输入，查询，密码）
4．3 数据库中表的设计模式
数据库设计
（1）数据库的概念
数据库处理在信息系统的研究中一直是非常重要的主题，然而，
近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速发展，使得数据库技术之时成为最热门技术之一。数据库技术能使Internet应用超越具有早期应用特点的简单的发布。同时，Internet技术提供了一种向用户发布数据库内容的标准化的访问方法。这些技术没有脱离经典数据库技术的要求。它们只是加重了数据库技术的重要性。
数据库的设计和开发及包括艺术有包括工程。理解用户的需求，然后，把它们转变为有效的数据库设计是一个艺术过程。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用，是一个工程过程。
数据库的目的是帮助人们跟踪事务。经典的数据库应用涉及诸如订单、顾客、工作、员工、学生、电话之类的项，或其它数据量较大、需要密切关注的事务。最近，由于数据库的普及，数据库技术已经被应用到了新的领域，诸如用于Internet的数据库或用于公司内联网的数据库。数据库也被越来越多地应用于生成和维护多媒体应用程序上。
计算机的数据处理应用，首先要把大量的信息以数据形式存放在存储器中。存储器的容量、存储速率直接影响到数据管理技术的发展。从1956年生产出第一台计算机到现在，存储器的发展，为数据库技术提供了良好的物质基础。
使用计算机以后，数据处理的速度和规模，无论是相对于手工方式，还是机械方式，都有无可比拟的优势。通常在数据处理中，计算是比较简单的而数据的管理却比较复杂。数据管理是指数据的收集、整理、组织、
存储、维护、检索、传送等操作，这部分操作是数据处理业务的基本环节，而且是任何数据处理业务中必不可少的共有部分。数据管理技术的优劣，将直接影响数据处理的效率。
数据库在一个信息管理系统中占有非常重要的位置，数据库结构设计的好坏将直接对应用系统的效果产生影响。合理的数据库设计可以提高数据库存储效率，保证数据的完整和一致。同时合理的数据结构也将有利于程序的实现。
设计数据库系统时，应该首先了解用户的各个方面的需求，包括现有的以及将来可能增加的。
（2）创建数据库文件
如果操作系统中安装了ACCESS2000的话，可以在开始菜单的程序菜单中可以找到。如下所示：
打开ACCESS2000之后，会开启一个窗口，可选择是打开以前的数据库文件还是新建一个新的空数据库文件，如果选择空ACCESS数据库，然后点击确定按钮。这些就新建了一个数据库文件。
最后一步就是要选择一个要保存数据库文件的名字和位置。点击创建就
完成。
（3） 怎样创建一个数据表
上面已经讲了如何创建一个数据库文件，按照上面的步骤建立一个
数据库文件后，需要在数据库文件中建立一个数据表。
在下面的对话框中选”使用设计器创建表”，上面还有三个按钮，一个是打开，一个是设计，一个是新建，点击设计，就可以开始设计数据表了。
出现设计的界面后，就可以开始设计数据表了！
（4） VB连接ACCESS2000数据库
用vb编写一个管理软件，如果不能连接数据库，那也没有什么用处。先看看VB是如何与ACCESS2000数据库相连接的。 Sub ConnStr() '连接数据库
Set conn = CreateObject(\"\") '建立数据库连接对像 DBpath = & \"\\\" & \"\" '设置数据的路径
\"Provider=;Data Source=\" & DBpath '打开数据库连接 Set rs = CreateObject(\"\") '设置数据库对像 End Sub
上面的一段代码就是连接数据库的。上用到了三个变量conn,Dbpath,rs。其中有两个变量要定义为公用的变量，因为这段代码是放在一个模块中的，为了在每一个窗体中能够使用这个变量，所以必须要声明为公用变量。声明公用变量的方法如下：
Public conn Public rs
上面就是声明为公用变量，上面的声明一定要放在模块的最上面。如果声明在下面，那就成了局部变量，那么作用范围就会不同了，作用就更不同，而且在其它窗体中使用到了这个变量，程序会出错。
（1）会员表的设计
该模块主要完成会员基本信息的录入、删除 、更新等功能。如果用户修改某一纪录中的某一项，可单添加按钮进行会员记录的编辑，此窗口使用数据窗口的FREEDOM风格（典型的录入界面）。
该种风格特点是列标题紧挨着数据列在此窗口还可以增加新会员纪录。
[表1]
（2）社团部表的设计
该模块主要完成社团部的基本信息的录入、删除功能。
[表2]
（3）用户表的设计
用户管理数码
据库利存储了用户的所有用户名和密
[表3]
用户界面的实现
(1) 欢迎使用窗体：
在运行本窗体时,会在窗体中显示出:作者姓名、当前系统的时间信息。当管理员点击“进入”按钮时，就会出现“登录”窗体。 运行状态图：
[图3]
(2) 登录窗体：
当用户点击欢迎窗体中的“进入”按钮时，就会自动进入本窗体。
[图4]
在本窗体中需要用户填写用户登录名、用户口令
在这个窗体中登录的用户会进入整个系统中，添加、修改、删除的功能，当用户3次登录都失败时系统会自动关闭。
(3)主界面具体实现见下图
[图5] (4)会员管理界面
可以对会员进添加记录，修改，保存，刷新，删除，退出。
[图6] (5)会员查询界面
可以对会员进行编号，姓名，班级的查询。
[图7] (6)社团和会费查询界面
对社团部和会费进行查询，并附带时间的显示。
[图8]
(7)管理员设置界面
可以对登陆的用户进行添加，修改，查询的设置。
[图9]
(8)社团设置界面
用来新增加社团记录进行保存和删除的功能
[图10]
---- 系统有关 主要为便用软件用户介绍此系统的一些个基本信息以及开发背
景！
---- 系统帮助 主要提供给用记一些个使作些软件的基本操作方法。 ---- 系统退出
设计体会
经过一个多月的设计和开发，大中专学生信息管理系统基本开发完毕。其功能基本符合用户需求，能够实现学生基本信息的录入、更新、删除、基本功能，从而实现信息的管理。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。
这些都有待进一步改善。
致谢在本次毕业设计中，我从指导老师身上学到了很多东西。老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。另外，在系统开发过程中助手同学也给于我很大的帮助，帮助解决了不少的难点，使得系统能及时开发完成，还有同组的同学同样给与我不少帮助，这里一并表示感谢。
参考文献
[1] Visual Basic 使用指南
作者：Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：电子工业出版社
[2] Visual Basic+Access 数据库应用系统开发与实例 作者：启明工作室
出版社：人民邮电出版社
[3] Visual Basic 中文版控件大全 作者：Microsoft
出版社；电子工业出版社
程序源代码
7．1登陆界面的代码：
Private Sub Command1_Click()
If Trim() = Trim() And Trim() = Trim() Then
Unload Me Else
For X = 1 To 1 If = True Then
MsgBox \"一切重头开始\会好起来的：\" = \"\" = \"\"
= 1 Else
If Trim() = Trim() And Trim() = Trim() Then '
' = Unload Me Else X = X - 1 End If End If
Next X End If = \"小薇\" End Sub
Private Sub Command2_Click()
'MsgBox \"你可真聪明，这样也能进入系统？？？佩服\我' Unload Me 'End End Sub
Private Sub Form_Load () = \"小薇\" End Sub
会员管理代码
Private Sub Command1_Click() = True
服 你：\" = True = True = True = True = True = True = True = True = True = True
If = \"True\" Then
If = True And = True Then
MsgBox \"您的数据库中没有记录！\出错：\" Else
If = \"修改记录\" Then = \"修改完毕\" = False = False = False
= False = 8220 = 300 = True = \"修改记录：\" Else
If = \"\" Then
MsgBox \"姓名不能为空！\出错：\" Else
For X = 11 To 13
If Len(Trim()) > 200 Then MsgBox \"太长\出错：\" Exit Sub End If Next X = \"修改记录\" = True = True = True = True = 5728
= 600 = 1500 = False = \"数据输入：\" End If End If End If End If End Sub
Private Sub Command2_Click() If = True Then
MsgBox \"刷新成功！\恭喜：\" Else End If
MsgBox \"刷新成功！\恭喜：\" End Sub
Private Sub Command5_Click()
= True = True = True = True = True = True = True = True = True = True = True
If = \"\" Or = \"\" Then
MsgBox \"编号或姓名不能为空！\出错：\" = \"\" = \"男\" Else
MsgBox \"开始添加信息！\恭喜！\" = False = False = False End If End Sub
Private Sub Command6_Click() If = True And = True Then
MsgBox \"您的数据库中没有信息可以删除！\出错！\" Else
MsgBox \"您确定要删除这条信息？\出错！\" If = False Then Else
MsgBox \"您的数据库中没有信息可以删除！\出错！\" End If
End If End Sub
Private Sub Command7_Click() If = \"\" Or = \"\" Then
MsgBox \"编号或姓名不能为空！\出错：\" = \"\" Else
MsgBox \"信息保存完毕！\恭喜！\" = True = True = True End If
会员查询系统代码
Private Sub Command1_Click() If = True Then
MsgBox \"这已经是第一条信息了！\出错：\" Else End If End Sub
Private Sub Command10_Click() If = \"\" Then
MsgBox \"没有输入查询条件！\提示！\" = \"\" End If
Do While <> True If (\"班级\").Value = Then = (\"班级\").Value Exit Do End If
Loop = \"\" End Sub
Private Sub Command2_Click() If = True Then
MsgBox \"已经到最后一条记录了！\提示！\" Else End If End Sub
Private Sub Command3_Click() If = True Then
MsgBox \"这已经是第一条信息了！\出错：\" Else End If End Sub
Private Sub Command4_Click() If = True Then
MsgBox \"已经到最后一条记录了！\提示！\" Else End If End Sub
Private Sub Command5_Click() If = \"\" Then
MsgBox \"没有输入查询条件！\提示！\" = \"\" End If
Do While <> True If (\"姓名\").Value = Then = (\"姓名\").Value
Exit Do End If Loop = \"\" End Sub
Private Sub Command6_Click() If = \"\" Then
MsgBox \"没有输入查询条件！\提示！\" = \"\" End If
Do While <> True If (\"编号\").Value = Then = (\"编号\").Value Exit Do End If
Loop = \"\"
End Sub
社团和会费查询
Private Sub Command1_Click() = True If = \"\" Then
MsgBox \"没有输入查询条件！\提示！\" = \"\" End If
Do While <> True
If (\"社团部\").Value = Then = (\"社团部\").Value Exit Do End If
Loop = \"\" End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub
Private Sub Command2_Click() = True = \"查询另一个\" = 4200 = 4081 If = \"\" Then
MsgBox \"没有输入查询条件！\提示！\"
= \"输入社团名进行查询\" End If
Do While <> True
If (\"社团部\").Value = Then = (\"社团部\").Value Exit Do End If Loop = \"\" End Sub
Private Sub Timer1_Timer() = Time End Sub
超级用户登录代码
Private Sub Command1_Click()
If Trim() = Trim() And Trim() = Trim() Then Unload Me Else
For X = 1 To 1
If = True Then
MsgBox \"您输入的用户名和密码有误，请重新输入！\出错：\" = \"\" = \"\" = 1 Else
If Trim() = Trim() And Trim() = Trim() Then = Unload Me Else X = X - 1 End If End If Next X End If End Sub
Private Sub Command2_Click() Unload Me End Sub
欢迎使用的代码
Private Sub Label4_Click()
Unload Me End Sub
Private Sub Picture1_Click()
Unload Me End Sub
Private Sub Timer1_Timer() If + > 0 Then - 20 Else
= End If End Sub
社团设置的代码
Private Sub Command1_Click() = True = True = True = True = True = True = True
If = \"True\" Then
If = True And = True Then
MsgBox \"您的数据库中没有记录！\出错：\" Else
If = \"修改记录\" Then = \"设置完毕\" = False = False
= False = False = 8220 = 300 = True = \"修改记录：\" Else
If = \"\" Then
MsgBox \"姓名不能为空！\出错：\" Else
For X = 11 To 13
If Len(Trim()) > 200 Then MsgBox \"太长\出错：\" Exit Sub End If Next X = \"修改记录\" = True = True = True = True
= 5728 = 600 = 1500 = False = \"数据输入：\" End If End If End If End If End Sub
Private Sub Command2_Click() If = \"\" Or = \"\" Then
MsgBox \"社团部名称和部长不能为空！\出错：\" Else
MsgBox \"成功保存！\恭喜！\" = True = True = True End If
End Sub
Private Sub Command3_Click() = True = True = True = True = True = True = True
If = \"\" Or = \"\" Then
MsgBox \"社团部名称和部长不能为空！\出错：\" = \"\" Else
MsgBox \"开始新建社团！\恭喜！\" = False = False
= False End If End Sub
Private Sub Command4_Click() If = True And = True Then
MsgBox \"您的数据库中没有信息可以删除！\出错！\" Else
MsgBox \"您确定要删除这条信息？\提示！\" If = False Then Else
MsgBox \"您的数据库中没有信息可以删除！\出错！\" End If End If End Sub
Private Sub Form_Unload(Cancel As Integer) If = True Then Cancel = 0
Else
MsgBox \"请编辑完这条记录再退出！\提示：\" Cancel = 1 End If End Sub
关于社团管理系统的代码
Private Sub cmdOK_Click()
Unload Me End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2(1).ForeColor = vbBlack End Sub
Private Sub Label2_Click(Index As Integer) Dim p As String p = \"mailto:4310031@\"
End Sub
Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2(1).ForeColor = vbBlue End Sub
7.9
Private Sub A1_Click()
Unload Me '关闭当前窗体 End Sub
Private Sub a2_Click() Unload Me End Sub
Private Sub a3_Click() = 9345
主界面的代码
= 12870 End Sub
Private Sub b1_Click() = 8355 = 13710 End Sub
Private Sub bz_Click() End Sub
Private Sub c1_Click() = 9510 = 13875 End Sub
Private Sub C2_Click()
= 6795 = 10020 = True
= \"输入社团名进行查询\" End Sub
Private Sub c3_Click()
= \"社团费查询\" = 4200 = 4081 = 495 = 2055 = True
= \"输入社团部名称\" End Sub
Private Sub cz_Click() 2 End Sub
Private Sub dc_Click() 0 End Sub
Private Sub glysx_Click() End Sub
Private Sub gy_Click() End Sub
Private Sub pp_Click() 1 End Sub
Private Sub stsz_Click() = 6930 = 8400
End Sub
Private Sub tc_Click()
MsgBox \"也让我和你同乐啊\好用就行呀\" 'Unload Me End End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case \"key1\" = 8355 = 13710 Case \"key2\" = 9510 = 13875
Case \"key3\"
= 6795 = 10020 = True
= \"输入社团名进行查询\" Case \"key4\"
Case \"key7\" = 6930 = 8400 Case \"key6\"
MsgBox \"做任何事情都要有信心和耐心\切记啊：\" Unload Me
End Select End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容