健身中心会员管理系统论文毕业设计方案毕业论文

PAGE摘要随着信息技术在管理上越来越深入而广泛的应用,管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科,任何一个单位要生存要发展,要高效率地把内部活动有机地组织起来,就必须建立与自身特点相适应的管理信息系统。本文介绍了在VisualBasic6。0环境下采用“自上而下地总体规划，自下而上地应用开发"的策略开发一个管理信息系统的过程。通过分析某一健身中心的管理的不足，创建了一套行之有效的计算机管理健身中心会员的方案。文章介绍了会员管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计;系统实现部分说明了几个主要模块的算法，本系统界面友好，操作简单，比较实用。【关键字】：管理信息系统、会员管理、VisualBasic应用。ﻬSuｍmaryＷiｔhmoreandmoｒewidesprｅaｄanｄpｒofoｕndappｌicationｏｆinformａtioｎｔechｎolｏgyｉnmａnagement，theimpleｍentoｆｍａnａgｅmeｎｔinformａtｉｏnsystｅmhasbｅcｏmeｍaｔuｒeintecｈnolｏgysｔepｂｙstep。Manaｇｉｎｇiｎfｏｒmationsyｓtemiｓanewsuｂject．Eｎterpriseｎeedseｘiｓtenceandｄeｖelopmenｔ，sｏenｔｅｒpriseactivitiesshｏuｌｄbｅorganizeｄeffｉcientｌｙandｏｒganiｃaｌly，wｈichｍeaｎｓtightｅninguptheeｎterｐriseｍanagｅmentandstrengtheｎingeffecｔiveｍanaｇementofａｎｙrｅsourｃe（staff，finanｃe,pｒoperty,etc.）ｉnｔeｒnaltheｅnterprise，ａｎdaｌsoesｔablｉshingamａnａgementinformaｔｉoｎsｙsｔemfitｔinginwithｉtｓowｎcｈaraｃteristiｃs.ThisａrｔicleintｒoducestheｄetａilｅｄpｒｏcessofexploringaｍanagｅmentinｆorｍationｓystemuｎdertｈeeｎvironｍentofvisualFoxPro，utilｉzing“Ｔop—Boｔｔom”ｏveraｌlplａnandastrａｔegyacｃoｒdingto“Botｔom-Ｔop”apｐlicaｔiｏｎａndexｐｌｏｉｔatiｏn．Thaｔistｏｅstaｂlishａseｔoｆeｆfectｉveschemeforstudｅntmaｎagementbycｏｍｐuteｒ，throughａnalyziｎｇdisadvantagesofstudｅntmaｎagｅmｅntbｙhｕmaｎrｅｓourｃes.Thisaｒｔicleemphasizesonthｒｅｅsｅctｉons．Tｈeｓysｔemanａlysisseｃtｉoｎofstudentｍanagemｅntｉｎfoｒmationｉncｌudeｓfeasibleａｎａｌysis，maｎagｅmｅｎtｆuｎctiｏnaｎalysiｓ．Ｔｈesystｅmdeｓignsｅｃtｉonmaｉnlyfocusｅsonsysteｍfｕnctiondesignanddatａｂaｓｅdesｉgnandｄａtａnumｂｅrdesign.Ａndｔhｅsystemreaｌizatioｎsectionhasprｏｖｉdeｄsｅveralmajorfuncｔiｏn,tｏgｅtherwiththemainwindｏwsａｎdprｏｇｒａｍｓ.Thiseconomｉcalandｐragmaticsｙstemｈａｓexpｌicｉtinｔeｒfａce,ｗiｔｈsiｍpleoｐｅraｔioｎ.［Keywoｒdｓ]：MIS、memｂermanageｍenｔ、ｖｉsualbasｉcapｐlｉcationﻬTOC\ｏ"１-3＂\ｈ\z\uHＹPＥRLINK\l”_Toc134642４28"摘要ﻩPＡGEＲEF_Toc１346424２８＼hIＨYPEＲLIＮK＼l＂_Tｏｃ1346４2429"SuｍｍaryﻩＰAGＥREF_Tｏc1346４2４29＼ｈＩIＨYPＥＲLＩNK＼l”_Ｔoc1346４2430”第一章系统概述 PAGEREF_Ｔoｃ1３４６42430＼h７HYPERLINＫ＼l”＿Toc1３4642４31”1。１系统及需求分析 ＰAGEREF＿Tｏc１３4642431\h８HYPＥRLIＮK1．1．1系统需求ﻩPAＧERＥF_Toｃ１346４２43２\h８ＨＹPERLINK＼ｌ＂_Toｃ1346424３3"1.1．２可行性分析 PＡGEREF＿Toc1３464２433\ｈ8HYPERLINK\l＂_Toｃ134642434"１.３系统的功能简介 PAGEＲEF_Tｏc134642434＼h11HYPEＲLINK＼l"_Ｔｏc134６42435＂1．3.1项目规划 ４3５\h１1HＹPＥRLＩNK\l”_Ｔoc134642４36＂1.3.2系统管理模块（CTRL+O) PAGEREF_Ｔoｃ134642４36\ｈ11HＹPERＬINK\ｌ"＿Tｏc13４６４２437”１。３.３会员卡管理模块（CTRL+P)： PAGEREF_Toｃ13464２４37\ｈ12ＨYPERLINＫ1.4系统开发的目标 PＡGEＲEF_Ｔoc1３4642440＼ｈ1２HYPEＲＬINK\ｌ"_Toc13４６４２4４1"第二章系统分析ﻩＰＡGEＲＥF_Toc134６42441\h1３HYPERＬIＮＫ\ｌ"_Tｏｃ１34６42４42＂2.１业务流程分析 PAGEＲEＦ_Tｏc1３４642４42\h１３HYＰERLINK\l＂_Tｏc1３4６42４4３"会员卡管理业务流程图:ﻩPAGEREF＿Toc134６４2４43\h1３ＨYPＥＲLINK会员档案管理业务流程图： PAGＥREＦ_Tｏｃ1346４244４\h13ＨYＰERLIＮＫ\l”_Toc１34642４45"2.２数据流程分析：ﻩPAGEREF_Tｏｃ134６４2445\h１4HYＰＥRＬＩＮＫ\l”_Tｏc13４６424４6"2。2．1数据流程图：ﻩPＡＧEREF_Toc1346４2446＼h14HYＰERＬINK\ｌ＂＿Toｃ１3464２4４7＂2.3数据存储分析：实体联系图ﻩＰAGEREF＿Ｔｏｃ1346４２４４７＼ｈ１5HYPERＬINK\l"_Ｔoc1３４6424４８"2．4功能分析：功能层次图ﻩPAGEREF_Toｃ134６42448\ｈ15HYＰＥRLIＮK＼l"＿Toｃ１3４642４49＂3。系统设计ﻩPAGＥREF_Ｔoc13４6４2449\h１6HYＰＥRLINK＼l＂_Ｔoc13４64２450＂3.1软件模块结构设计ﻩPＡＧEREF_Toｃ134６42450\h16HＹPＥRLINK\l”＿Toｃ13４6４24５1＂3.1.1系统方案确定ﻩPAＧERＥF＿Ｔｏc13４6424５1＼ｈ16HＹPEＲLINＫ３．1.2软件结构设计 PAＧEREF_Ｔoc１34６42４52\h１６HYＰERＬＩＮK3.2数据库设计 PAＧＥＲＥF_Tｏc134６42453＼h17ＨYPERLＩNＫ＼l”＿Ｔｏc13464２45４”3．2。1本系统中所涉及到的主要实体共有以下几个数据表：ﻩPAＧＥREF_Toc１34６４２４54\ｈ1７HYPERＬINＫ\ｌ”_Ｔoc１34６4２4５5”3．2。２各表的物理结构如下：ﻩ５5\ｈ19ＨYＰEＲＬINK＼l"_Toc134６42456"第四章系统的功能ﻩPＡGEREＦ_Tｏc１34６4245６＼h２2HＹPERLINK\ｌ"＿Tｏc1346４2457"4．1系统登陆界面： PAGERＥＦ_Toc１3４642４57\ｈ2２ＨYPERＬＩＮK4．3用户管理模块: ＰＡGEＲEＦ＿Toc1３46424５9\h３5HYＰEＲLＩNK＼l”_Ｔoc１３４６4２4６0"4．4会员档案管理模块:ﻩPAGEREF_Ｔoｃ134642460\h39_Toc1346４2462"第五章系统运行及评价 ＰＡGＥREF＿Toｃ１34642462\ｈ４7_Tｏｃ134642465"第六章结束语ﻩ5PAGEREＦ_Ｔoc134６42465＼h0ＨＹPERLINK致谢ﻩ5PAGEREF_Tｏc13464２466＼h1HYPERLIＮK＼l”_Tｏc１346424６7”参考文献ﻩ5ＰAGEREＦ_Toc134642４6７＼h2

第一章系统概述当今社会为信息社会，世界已进入在计算机信息管理领域中激烈竞争的时代。信息已成为继劳动力、土地、资本之后的又一大资源，谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中,占有一席之地，谁就会更有优势，这一点已得到举世公认。随着时代的进步，社会生产力高速发展,新技术层出不穷信息量急剧膨胀，整个人类社会已成为信息化的社会人们对信息和数据的利用和处理已经进入自动化、网络化和社会化的阶段。如在查找情报资料、处理银行帐目、仓库管理、科研生产等方面，无不需要利用大量的信息资源。因此，如何有效地进行数据信息的管理和利用，已经成为人们普遍关注的课题.信息在不同的领域里有着不同的概念,在管理科学领域中，通常认为信息是经过加工处理后的一种数据形式,是一种有次序的符号排列，它是系统传输和处理的对象。处在信息时代的今天,信息的作用越来越为人们所重视。制定工作计划，研究投资策略,都离不开对信息的充分利用。管理信息系统(MaｎａgemenｔInformatiｏnＳｙsteｍ,缩写MIS)是一种“人机系统”,它以特定的模式支持一个组织内各级组织机构之间的通讯,对信息资源进行综合开发，管理和利用，实现对该组织的有效管理。它通过对数据的加工处理，及时为管理与决策分析提供信息。其特点有：数据全部存储于计算机系统中；用户使用简单、操作方便、查询速度快；有极强的人-机对话功能；能直接从计算机系统中提供决策所需的参考信息。根据对健身中心会员管理中存在的问题进行分析,本会员信息管理系统可以说是一个综合性的健身中心会员管理系统，这它集成了系统管理、会员卡管理科、会员档案管理、会员缴费管理等多种功能，因而具有较强的实用性和先进性。１。１系统及需求分析1。1.1系统需求通过调查,要求系统需要有以下功能：=1＼＊GB2⑴由于操作人员的计算机知识普遍较差，要求有良好的人机界面;=2＼＊GB２⑵由于该系统的使用对象多,要求有较好的权限管理；=3\*GB２⑶原始数据修改简单方便，支持多条件修改=4\＊GＢ2⑷方便的数据查询,支持多条件查询;＝5＼*GB2⑸在相应的权限下,删除数据方便简单，数据稳定性好；＝6\＊GB2⑹数据计算自动完成,尽量减少人工干预;1.1．2可行性分析由于本系统管理的对象单一，都是在健身中心注册的新老会员，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此,比较适合于采用数据库管理。且健身中心用于其会员管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Wｉｎdows９8中文版操作系统环境下，使用VisｕａlＢasic6。０中文版开发成功的。数据库是MIS中的重要支持技术,在ＭIS开发过程中,如何选择数据库管理是一个重要的问题，目前,数据库产品较多，每种产品都具有各自的特点和适用范围,因此，在选择数据库时，应考虑数据库应用的特点及适用范围,本系统选用的数据库语言介绍如下：ViｓualＢasiｃ语言VｉsuaｌBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计,可用于开发Wｉndｏwｓ环境下的种类应用程序。它简单易学、效率高,且功能强大，可以与Ｗｉnｄows的专业开发工具SDK相媲美，而且程序开发人员不必具有Ｃ／Ｃ++编程基础。在VisuaｌＢａsic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（APＩ）函数，以及动态链接库(DLL）、动态数据交换(DDE）、对象的链接与嵌入（ＯLE）、开放式数据访问（OＤBC）等技术,可以高效、快速地开发出Winｄｏws环境下功能强大、图形界面丰富的应用软件系统。总的来说，ViｓｕalBａｓｉc具有以下特点:可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意,还要回到程序中修改.有时候，这种编程－编译-修改的操作可能要反复多次,大大影响了软件开发效率。VisｕalBasic提供了可视化设计工具，把Windｏｗs界面设计的复杂性“封装"起来，开发人员不必为界面设计而编写大量程序代码.只需要按设计要求的屏幕布局，用系统提供的工具,在屏幕上画出各种“部件”，即图形对象,并设置这些图形对象的属性。ViｓuａlＢasｉc自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率.面向对象的程序设计4。0版以后的ViｓuａlＢasiｃ支持面向对象的程序设计,但它与一般的面向对象的程序设计语言（C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而ViｓｕaｌＢaｓｉc则是应用面向对象的程序设计方法（OOP),把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西.在设计对象时,不必编写建立和描述每个对象的程序代码,而是用工具画在界面上,VｉsuaｌBasic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上,都是可视的。结构化程序设计语言ViｓｕalBaｓiｃ是在ＢASＩC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。VisuａlＢasic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的调试器和编译器。ＶｉｓualＢasｉc是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令,并判断每个语句的语法错误.在设计ＶiｓualBasｉc程序的过程中，随时可以运行程序，而在整个程序设计好之后,可以编译生成可执行文件（。EXE）,脱离VisuａlBaｓｉc环境，直接在Winｄｏws环境下运行.事件驱动编程机制VisｕaｌBasiｃ通过事件来执行对象的操作.一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击“（CLICK)事件,而在产生该事件时将执行一段程序，用来实现指定的操作。在用VisualBasic设计大型应用软件时,不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序,即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员,提高效率。访问数据库VisuaｌBaｓic具有强大的数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处理MｉcｒｏsoftAcｃess格式的数据库,并提供了强大的数据存储和检索功能。同时,ViｓｕalBasｉｃ还能直接编辑和访问其他外部数据库，如dBAＳＥ，FoxＰrｏ，Pａradｏx等，这些数据库格式都可以用ＶisualBaｓic编辑和处理。ＶiｓｕalBasiｃ提供开放式数据连接,即ＯＤBＣ功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库,如SQＬSerｖｅr,Ｏracle等.在应用程序中，可以使用结构化查询语言ＳＱL数据标准,直接访问服务器上的数据库,并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQＬ的编程技术,为单机上运行的数据库提供了ＳQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(ｃlient／server）方案。动态数据交换（DDE）利用动态数据交换（DynamicDataＥxchaｎge）技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。VｉsualBasic提供了动态数据交换的编程技术，可以在应用程序中与其他Ｗindoｗｓ应用程序建立动态数据交换，在不同的应用程序之间进行通信。对象的链接与嵌入（OＬE)对象的链接与嵌入(OLE）将每个应用程序都看做是一个对象(oｂｊｅct），将不同的对象链接（linｋ）起来,再嵌入（embeｄ)某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Ｍicroｓｏfｔ公司对象技术的战略,它把多个应用程序合为一体,将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术,可以方便地建立复合式文档(compounddocumenｔ)，这种文档由来自多个不同应用程序的对象组成,文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库（ＤLL）ＶisualBａｓic是一种高级程序设计语言，不具备低级语言的功能,对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+＋或汇编语言编写的程序加入到ViｓｕalBａsｉc应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口（APＩ)函数，实现SＤＫ所具有的功能。1。３系统的功能简介本系统主要可以实现以下的管理功能:系统管理、会员档案管理、会员交费管理等等。1。3．１项目规划健身中心会员信息管理系统是一个典型的数据库应用程序,由系统管理、会员卡管理、会员档案管理、会员交费管理、打印报表等模块组成，特规划如下:１.3。2系统管理模块（ＣTRL＋O)该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户（快捷键:CTRL+A)、修改密码（快捷键：CTRL＋B）、重新登录（快捷键：ＣＴRL+F１）等等。1。３．3会员卡管理模块（CTＲL+P）：该模块的功能是实现对健身中心会员卡的管理工作,包括：会员卡浏览、会员卡添加、会员卡查询等，这三个功能模块各自独立，完成健身中心的全部会员卡的管理.1.３。4会员档案管理模块（CTRL+T）：该模块的主要功能是实现对健身中心会员的的个人信息的管理工作,包括档案添加、档案浏览、档案查询等功能，从而方便中心管理部门对会员的基本情况的快速查询和了解。1。3.5会员缴费管理该模块的主要功能是实现对健身中心会员的会费缴纳的管理工作,包括会员会费浏览、会员会费查询等功能。从而方便健身中心的管理人员对会员的缴纳会费的情况的掌握与了解。1.４系统开发的目标出于本系统是健身中心会员管理的一个综合性的系统,本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上.

第二章系统分析２.１业务流程分析会员卡管理业务流程图：管理中心管理中心输入计算机管理人员所属部门会员卡种卡种输出会员档案管理业务流程图:管理中心管理中心输入计算机管理人员所属部门会员档案档案输出

2。2数据流程分析：2．2。1数据流程图：由于本系统的数据模块较多，下面仅以会员档案管理模块为例来进行编制.会员管理部门会员管理部门会员会员档案管理系统管理中心会员教师教师会员信息会员卡查询统计分析会员档案管理系统０层数据流程图ﻬ管理中心卡管理中心卡费用uyon1.0会员管理2.0卡管理3.0综合管理4.0统计分析D1D2D3查询者管理者会员会员会员卡会员卡会员管理系统１层数据流程图2。3数据存储分析：实体联系图1、数据模型设计。首先来做出会员档案管理系统的E-R图，分析这个问题的实体，从系统分析可以知道,会员档案是由姓名、卡号等组成了这个系统的几个实体。2、再分析几个个实体之间的联系.这几个实体不是一个统一体。这个E－R图可画成下图。2。4功能分析：功能层次图会员档案添加会员档案添加会员档案修改会员档案删除卡信息添加卡信息修改卡信息删除卡信息浏览会员缴费浏览会员缴费查询添加用户重新登录更改密码系统管理会员缴费管理会员卡管理会员档案管理会员管理系统3.系统设计3。1软件模块结构设计3．1．1系统方案确定通过对系统的调研与分析，系统主要应完成的功能有:会员档案管理、会员卡管理、会员交费管理、系统管理、报表打印等功能。３。１.2软件结构设计本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。接受数据接受数据处理中心卡管理档案管理交费管理系统管理其他管理打印报表3。2数据库设计数据库采用了Ｍicrｏsoft推出的Aｃcｅss数据库,这是微软集成到Ｏffｉce中的一个桌面数据库,能够快速方便的和Ofｆice的其他套件综合使用。由于Ａccess具有显著的简易性和有效性，大量的桌面数据库系统都采用Aｃｃesｓ作为后台数据库。使用Access的好处还在于,如果你的系统扩展到Clienｔ/Sｅrver模式的时候，可以使用Micrｏsoｆｔ的数据库服务器软件SQＬServeｒ，此时，程序只需要简单的修改一下链接（ＡＤO的数据源)就可以,这样,为程序的平滑扩展提供了非常有力的条件。3．2．1本系统中所涉及到的主要实体共有以下几个数据表：cｌaｓs表：{年度,卡种，所属,时限，项目，主管教练,备注｝ｊf表:{卡号，年度，交费，欠费,日期，操作员}ｕsｅ表:｛userｎａme,ｐassword，ａｄｍin，ｒeadｏnly，ｑx１,ｑx2，qx3，qx4｝xｊ表：｛卡号,姓名,性别，卡种,出生年月,家庭住址，邮政编码，联系电话，注册时间,备注}jiａｏfei表:｛年度，所属，时限,会费｝

3．2．2各表的物理结构如下：Cｌaｓs表:字段名称类型宽度小数位年度文本１6卡种文本20所属文本５时限文本8项目文本１６主管教练文本8备注备注Jf表:字段名称类型宽度小数位卡号文本5年度文本50交费货币自动欠费货币自动日期日期/时间操作员文本10

Use表：字段名称类型宽度小数位ｕseｒname文本20ｐasｓworｄ文本2０Admｉn文本２Reａｄonly文本２Ｑx1文本2Qx2文本2Qx3文本2Qx4文本2ｘj表：字段名称类型宽度小数位卡号文本９姓名文本8性别文本2卡种文本１０出生年月日期/时间家庭住址文本30邮政编码数字(长整型)联系电话数字（长整型）注册时间日期/时间备注备注ﻬｊｉaｏfei表:字段名称类型宽度小数位年度文本16项目文本５０时限文本20学费货币自动ﻬ第四章系统的功能本部分主要内容为本系统的运行界面以及主要界面的源代码。4。1系统登陆界面:本界面的主要功能是为了对系统进行安全性管理,本系统的用户名和密码保存在UＳE表中，本系统根据不同的用户而设置了不同的权限，可以用111；111为用户名和密码来登陆本系统。PrivateＳubCommand1_Cｌicｋ（）DimｍrcAsADODB．Recordｓettｘｔsｑｌ="seleｃｔuｓｅrnameｆromusewherｅuserｎaｍe='”&Trim（Text１.Texｔ)＆"'”Setmｒc=ＥxecｕtｅＳＱＬ（txtsｑl)Iｆmｒｃ。EＯF=TrｕeＴheｎMｓｇBｏｘ”用户名错误!",vbExcｌamation+vｂＯKＯｎlｙ，”警告”Text１.SetFｏcusTexｔ1.SeｌSｔａrt=0Ｔext１。SelLength=Ｌｅn（Ｔeｘt1。Text）ExiｔSubEnｄIfｕsｅrnａmｅ＝mrc.Fｉelds（0）ｔｘtｓql2="sｅlｅctｕsernameｆromuｓｅwheｒｅpasｓwｏrｄ=’"＆Trｉm（Ｔext２。Text)&”'”Setmrｃ=ＥxecuｔeSQL(txtsqｌ2)Ifｍrc.ＥOＦ=TruｅThenMsgBox”密码错误！”，vｂExclamaｔion+vbＯKOnｌy,”警告”Ｔｅxt2.SetFocｕsText2.SｅlStart=0Text2。ＳelLengtｈ=Lｅn（Tｅxt2.Text)ＥxiｔSｕｂEｎdIｆtxtsql="sｅlecｔusｅrnaｍefromuseｗherｅusｅrname＝'＂&Triｍ(Text1.Text）＆"’anｄpassword＝’"&Trｉm（Teｘｔ2.Text）＆＂＇＂Setmrc=EｘecｕｔeSQL（txtsql)Ifmrｃ．EOF=TrｕeThenMsgBox”用户名称和密码不匹配！",vbEｘｃｌaｍaｔioｎ+vｂOKOｎｌｙ，＂警告”ExｉtSuｂＥndIfＭDIForm1。Sｈoｗｆｒmcｐass。Text1。Text=Text１．ＴｅxtUnlｏadMeEndSｕbPriｖateSｕbＣommanｄ２_Ｃｌick（）UｎloadMeEndSuｂPrivateSｕbForm_Load()EndSuｂPrivatｅSubText1_KeyPress（KeｙAｓciｉAsInｔeger）IfKｅyAｓcii=13ＴheｎＴext２．SetFoｃuｓEndIfEndSｕbPrivａtｅSubＴeｘt2_KeyPreｓｓ(KeyＡsciiAsIｎteger）IfKeyＡｓcｉｉ=13ThenCommaｎd1.ＳｅｔFocusＥndIfEndSｕb4.２系统主界面：本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有5个功能菜单和12个子菜单(功能模块),从而实现了本系统从会员卡管理、会员档案管理、会员缴费管理、系统管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理.PｒivateDecｌareＦunctｉonＳetWｉndoｗＰosLib"usｅr32"（ＢyＶalｈwnｄAsLoｎg,ByVaｌｈWndInserｔＡfterAsLoｎｇ，ByValXＡｓLoｎg,ByＶａlYＡsLong，ByVａlcxAsＬｏnｇ,ＢｙVaｌｃyAsLｏｎg,ByＶalwFlagｓAｓLong)AsLｏngＤimfｉnd1AｓＩnteｇｅrDimlｉｕlａｎ1AsＩntｅgerPriｖａｔｅSubadd_Clicｋ()qｘstr＝Exｅcuteqｘ（2）Ｉfqｘstｒ="falsｅ＂Ｏｒqxstr＝＂ｒeaｄonly"Thenss＝ＭsgBox（＂对不起,你没有管理本功能的权限,请与管理员联系!＂，ｖbInｆoｒｍatioｎ+vbOＫOnｌｙ，”警告”)ExitSuｂＥndIfFoｒm1.Shoｗmodi＝FalｓeFｏｒm1.ZＯrｄeｒ(0）EnｄＳubPｒivaｔｅSuｂcjadｄ＿Click()ｆenshuｍodi=Falｓeqxsｔr=Eｘecuｔｅｑx（4)Iｆqxｓｔr=”falsｅ＂Oｒｑxsｔｒ="ｒｅadonly＂Ｔheｎss＝MsｇＢox("对不起,你没有管理本功能的权限，请与管理员联系！”，vbＩnformation+vbOKＯｎly，＂警告＂）ExitSubEｎｄIffrmｃj２．Showfrmcj2。ＺOrder0ＥｎdＳubPriｖateSubｃjbrowｓe＿Cｌiｃk（)qxstｒ=Execｕteqx（４）Ｉfｑxｓtr=＂falｓe”Ｔhenss=ＭsgBox（"对不起，你没有管理本功能的权限，请与管理员联系！＂,vｂInfｏrmation+vbＯKOnｌy，”警告")ExitSubEｎdIffｒmｃｊ1．Sｈowfｒmｃj1.ＺＯrder0EｎdSubPriｖateSuｂclaasｆind＿Ｃliｃｋ（）qxsｔr=Eｘecuteqx(2)Ifqxstr=”false"Thenss=MsgBox（”对不起，你没有管理本功能的权限,请与管理员联系!”,vbInformatｉon+ｖbOKOnｌｙ,”警告＂)ExiｔＳuｂEndIfＦorm４。SｈoｗForm4。ZOｒdeｒ（0）i=SetWinｄowPｏs（Form4。hｗnd，－1，0，０,0,0，3)ＥndSubＰｒivateSubclassapp＿Ｃｌick(）qxstr=Execuｔeqx（2）Ifqxstr="fａlsｅ＂Orqｘstｒ="ｒeadonly"Ｔhenｓs＝MsgBoｘ（"对不起，你没有管理本功能的权限，请与管理员联系！＂，ｖbＩnformation+vｂＯKＯnly,＂警告")ＥxｉtSubＥndＩfFormｃlａｓs１.Ｓｈowｃlaｓsmoｄi=FａlseForｍcｌasｓ1。cｌａｓsloaｄForｍｃlａss1．ZOrdｅr（０）EndSubPｕblicＳubｃlaｂｒowsｅ（）txtｓql＝"select＊frｏmcｌass"Ｆormcｌasｓ2．ＺOrｄer（０)Ｆorｍclａss2。Ｃaｐtｉoｎ=”浏览班级设置＂Fｏrmｃlａss2。ｃlassｓhowtitｌeFormclasｓ2.ｃlａsｓshoｗdaｔａEndSｕｂPrivateSubclassbroｗsｅ＿Click(）qｘsｔr=Eｘecｕteｑx（2）Ifqｘsｔr＝”ｆalse"Ｔhenss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbＩnformatiｏｎ＋vbOＫOnly，"警告”)ExiｔSuｂＥndＩｆＦormcｌasｓ2。ShｏｗＥndSｕbＰrｉｖaｔeSubclａssfinｄ_Ｃlｉck()qxstr＝Eｘｅcutｅqx（２）Ｉfqxsｔr=”false"Thｅnsｓ=MsｇBox（"对不起，你没有管理本功能的权限，请与管理员联系！＂，vbInｆorｍatiｏn+vbOＫOｎly，”警告＂)ExitＳｕbEndIfFｏrmｃｌass3.ShowFormclass３．ZOrdeｒ（0）EｎdSuｂPrｉｖateSuｂfiｎｄ_Clｉｃk（)EndSubPrivateSubclａssｋｅｃhenｇ_Click（）qxstr=Exｅcuteｑx（4)Ifｑｘsｔr=＂faｌse"Thenｓｓ=MsgＢｏx(”对不起,你没有管理本功能的权限，请与管理员联系！"，vbＩnfｏrmation+vｂＯＫOnly，"警告”)ExitSubEndＩｆFrmclａsskecheｎg1．ShowFrｍｃlａsｓｋechｅng1.ZOrdｅrEnｄSubPｒivateSubdenｇlu2_Ｃｌick（)Frmdｅnlu.ＳｈｏwUｎloadMeEndSubPｒiｖateSubｊiａofeiadd＿Cliｃk(）ｑxstr=Ｅxｅｃｕｔeqｘ（3）Ifqxsｔr=＂fａlse"Ｏｒqｘstr=＂ｒｅadonly"Ｔhenss=MsgBox（"对不起，你没有管理本功能的权限，请与管理员联系!"，vｂＩnformation+vbOＫＯｎｌy,"警告＂）ExiｔSubEnｄIfFrmjf１．ＳhｏｗFrmjf1。ＺOｒder0EndSuｂPrivａｔeSuｂｊiaofeibrowｓe＿Ｃliｃk（）qxstr=Ｅｘecuｔｅqx（3）Ifqxstr="fａｌse＂Thｅnss=MｓgBox("对不起，你没有管理本功能的权限，请与管理员联系！”,ｖbＩnｆｏrmatｉｏn+ｖbＯKOｎlｙ,＂警告＂)ExitＳubEndIｆfrmjf2。Shoｗfrmjｆ2．ZOrder0EndSubPrｉｖatｅSuｂjｉaofeｉｆinｄ_Click（）qxstr＝Exｅcuteqｘ(3)Ｉfqxstｒ=＂false"Tｈｅnｓs=MsgＢox（”对不起，你没有管理本功能的权限，请与管理员联系！",vbInformaｔioｎ+ｖbOＫOｎly，"警告")ExiｔSuｂEndIfFｒｍjf4.ＳhowＥndSubPｒivaｔeSubjibenkｅｃhｅng＿Ｃｌｉcｋ（）qｘstr=Ｅxeｃuteqx（4）Ifqｘｓtr=”fａlse"Tｈenss=ＭsｇBｏx(＂对不起，你没有管理本功能的权限，请与管理员联系！"，ｖｂInｆormaｔion+vbOKOnly，”警告＂）EｘiｔSubEndＩffrmｊibeｎ．Sｈowfｒｍｊiben.ZＯrder0EnｄSubPrivateSｕｂlｅiｘing_Cｌｉck(）ｑxstr＝Eｘeｃuteqx（４)Ifqxｓtr=”faｌse”Thensｓ=MsｇＢox("对不起,你没有管理本功能的权限，请与管理员联系！",vbＩnformａtｉoｎ+ｖbOKOnｌy,"警告"）EｘｉｔSubEndIｆFrmｌeixinｇ．SｈowFｒmｌeｉｘing。ZOrdｅr0EndSｕbPrｉvateSｕbliulａn_Clｉck()qｘstr=Ｅxｅcｕteqx(2）Ifqxsｔr="false＂Thenss=MｓgBox("对不起,你没有管理本功能的权限，请与管理员联系！"，vbInfｏrｍation＋vbOKOnly,"警告”）ExitSubEndＩffind＝FalseForm3.ShowＥｎdSｕｂPrivａteSubMDＩForm＿Loａd（)’ｕsername=”0001”DataEnv1．Cｏnｎecｔioｎ１。CｏnnecｔionSｔｒｉng=conｎｓtrinｇSｔatｕｓBar1.Panelｓ（2).Texｔ=ＮowStａtusＢａr1.Panels（3).Ｔext=”当前操作员："＆usｅｒnａmeＤimａaAsStrｉngSeｌｅctCaseＥxecuteqx（１）Case"admin”aa=＂超级管理员＂Cａse”ｒeadonly”aa＝"只读管理员"CaｓeElseａa="普通管理员”EndSelectSｔaｔusBar1.Panｅls(４).Ｔext＝"状态：”＆aaEｎdSubＰｒivaｔeSubuserａｄd＿Ｃliｃk()qxstr=Exｅcuteqx（１）Ifｑxstr=”fａｌｓe"Ｏｒqxsｔr=＂ｒｅadonlｙ＂Theｎｓｓ=MsｇBox（＂对不起，你没有管理本功能的权限，请与管理员联系!”,ｖbIｎｆｏrmａtion＋vbＯKOnｌｙ,＂警告")ＥｘiｔSｕbＥndIfｆrmuser1．Showfｒmusｅr1.ZOrdｅｒ0EndSubPrivａteSubuseｒmodi_Cｌick（)qxstr=Execｕtｅｑｘ（1）Iｆｑxstr=”ｆalsｅ＂Thenss=MsｇBox（＂对不起,你没有管理本功能的权限,请与管理员联系！"，ｖbIｎfｏｒｍaｔｉon+ｖbＯＫOnly,"警告"）ExｉｔSｕbEndIfｆrｍcpass。ＳhoｗEnｄSｕｂPrivａteＳuｂxuｅfeiadd_Ｃlick()qｘstr=Ｅxｅcuteｑx(3）Ifqxstr=”faｌsｅ"Orqxstr=＂reaｄonｌy"Thｅnss=ＭsｇBox（"对不起,你没有管理本功能的权限,请与管理员联系！”,vbＩnfｏｒｍatiｏn+vbOKOnｌｙ,＂警告”)ExitSuｂEndIfxuefeimｏｄi=ＦａlsｅDimｉAsIntｅｇerFori＝0To３fｒmxuｅfei１。Comｂo1（ｉ）。Enabｌｅd=ＴruｅNｅxｔiMe.Ｃaptｉｏn="添加班级设置”Forｉ=0Ｔo3frｍxuefeｉ1．Comｂo1（i）。Texｔ=””Neｘtｉfrmxuefｅi1。Teｘt１.Tｅxt＝＂”ｆｒmxｕｅfei1。Shｏwｆｒmxuefｅｉ1。ZＯrdeｒ0ＥndSｕbPublicSubｘｆｂrowsｅ（)tｘtsql＝"ｓelect＊froｍxｕefｅiorderby学期desc，年级ｄeｓc，专业deｓc＂Frmｘｕefeｉ2。ZOrdeｒ(0）Fｒmxuefei２。Ｃaption="浏览学费设置”Frmxuefei２。xuefeishowtiｔleFrｍxuefｅi2。xuｅｆeiｓｈowｄａtaEｎdＳuｂPriｖａteSｕbｘuefeiｂｒowse＿Clｉcｋ（)qxsｔr=Exｅcuｔeqx(３）Ｉfqxstr=”false＂Ｔheｎss=ＭｓｇBox(”对不起，你没有管理本功能的权限，请与管理员联系！”,vbInformation+vbOＫOnｌｙ，＂警告＂)ExｉtSubＥｎdIfFrmｘｕefei2.ShowEndSuｂPrivateSubxuefeiｆｉnd_Cliｃk(）qxstr=Ｅxecｕteｑx(3)Ifqxstr="fａlｓe＂Thensｓ＝ＭsｇＢox(”对不起，你没有管理本功能的权限，请与管理员联系！",ｖbＩｎforｍation+vbＯKＯｎｌｙ，”警告”）ExitSubEnｄＩfFrmxuefｅi3。ＳhowＦｒmxueｆeｉ３。ZOｒｄer（0)i=SｅｔWinｄowＰｏs（Ｆｒmxuefei3。hwｎｄ,-1，0，0,0,0，3)EｎdSuｂ4。3用户管理模块:本模块是本系统的安全性设置模块，根据健身中心不同部门以及不同使用人员对本系统的要求和需要,从而实行了分级管理,对用户的权限和类别进行了分类管理。从而新用户和会员用户可以拥有不同的权限,执行不同的操作，以达到更为科学和有效的管理.ＰriｖateSuｂCommanｄ1_Cｌiｃk()IfTriｍ（Texｔ1(０).Text)=”＂ＴhenMsgBox"用户名不能为空!"，vbExｃｌamaｔion＋vbOＫＯnlｙ,”警告"Tｅｘt1（０)。SeｔFocusExitSuｂEｎdIfIfTrim（Tｅxt１（1）.Text)=""ThenMsｇBox”密码不能为空!”,vbEｘcｌamation＋ｖbＯＫOnly,＂警告＂Ｔｅｘt1（１).SetFocusExiｔＳｕｂEndIfIｆTrim(Teｘt1（2）。Tｅxt)=＂"TheｎMsｇBox”确认密码不能为空！”，vbExｃlamａｔｉon+vbOＫＯnly，”警告”Ｔｅｘt１（2）。SetFocｕsExiｔＳｕbEndIfＩfTrｉm（Text１（1)．Text)＜〉Trim（Texｔ１(2）。Texｔ）ThenＭsgBox”确认密码不正确！＂，ｖbExｃｌaｍａｔion+vbOKOnly，”警告"Texｔ1（2）.SetFocusExitＳｕbEｎdＩfDimａaAsInｔegｅraa=0IfOｐtion1（2）.Vａlｕｅ=TｒueTheｎForｉ=0To3IfCheｃk1(i).Valuｅ=1Ｔｈeｎaa=1ExitＦorＥndＩfNｅｘｔiIfaa＝０TheｎMsgＢox"普通用户至少要有一项权限！”，vbExcｌａｍatｉon＋vbＯKOnlｙ,”警告＂ExiｔSubEndIｆEnｄIfDimｍrｃＡsＡDODＢ．Recｏrdseｔtｘtｓqｌ="selｅcｔ*frｏｍusｅwｈeｒｅｕsernamｅ=＇"＆Trim（Teｘt1(0）.Text）＆”'”Setmrc=ＥｘｅcｕteSQL(txtsｑl）Ifmrc.EOF=FalsｅTｈeｎMsgＢox＂已存在该用户!",vbExcｌamation+vbOKOnｌy，＂警告"Ｔext１(０)．SｅtＦocusTeｘt1（0)．SelStaｒt=0Text１（0）。SelLengtｈ＝Len（Text1（0)。Texｔ)ExitＳｕbEndＩftxtsql="select＊fromuｓe"Seｔmｒc=ExeｃｕtｅＳQL(ｔｘtｓql)mrc.AddＮeｗmrc。Fields(0)=Tｒim（Tｅxｔ１(０).Text)ｍｒc.Fｉeｌds（1）=Trim（Text１（1)．Text)Foｒi＝0Ｔo2ＩfOｐｔion1(ｉ）．Vａlue=TｒｕｅThenSeｌｅctCaseiCａｓｅ0mrｃ.Fieｌｄs(＂ａdｍin”）="ｙ"Casｅ1mrc．Ｆieldｓ(＂reaｄｏnly”）=＂ｙ”Case2Fｏrｊ=０Ｔo３IfChecｋ1（j）。Vaｌue=1ＴhenSelｅｃtCaｓｅｊCａsｅ0mrc.Ｆields(＂qx１＂)="y"Ｃase１mrc.Fieldｓ(＂ｑｘ2")＝"y”Case2mｒc。Fielｄs（＂qx3”)=”ｙ”Casｅ3ｍrc．Ｆieｌds("qx4"）＝”ｙ"EｎｄSｅlｅctEｎdＩfNextjEndSelｅctEndIfNextｉmrc.UpdateMsgBox＂用户添加成功!"，vbＥxclamａtion+vｂOＫOnly，"警告"Text1（0)。Ｔext＝”＂Text1(1)．Text＝”"Teｘt1（２）。Tｅxt=””EndSｕbPｒｉｖatｅＳubCommand2_Ｃlick（）UnloaｄＭeEndSuｂＰrｉvａteSｕbForm_Lｏad(）Opｔioｎ１（2）．Valｕe＝TrueＥndSuｂＰrivateSｕbForm＿Ｒesｉze（)Tｅｘt１（０）。SeｔＦｏcｕsEndＳubＰｒiｖatｅＳubOpｔｉon1_Click（IndexAsInｔegｅr）IｆInｄex<＞2ThenFoｒi=０To3Cｈeck１(i）.Enaｂleｄ=FalｓｅNｅｘtiEｌseForｉ=0To3Cｈeｃk１（ｉ）.Enaｂlｅd＝TrｕeNextｉEndIｆEndSuｂ４．4会员档案管理模块：因为本系统中有些功能模块具有相似之处，因此在本文只用此模块进行一个简单的说明。其它的相似模块的代码可能参阅本模块的设计思路。PublicprintstrＡsStｒiｎgＰrivａteＳubＣoｍmand1_Click(）DimdｂSｏｕrcｅAsDatabaseSｅtｄbＳouｒce=OpｅnＤａtabａｓe（＂ｘs。ｍdb"）z=MsgBoｘ（＂成功！＂，vbOKOnly,"查询＂)EｎdSubPublicＳuｂｃlaｓsｓhowtitlｅ()DimｉAsＩntｅｇerMＳF1.CleａrWithMSF1．Cols=８.TextMａｔriｘ（0，1)=＂年度"．ＴｅxｔMatｒix（0,2）=＂卡种"。TeｘtMａtｒiｘ（0,3)=”所属”.ＴexｔMatrix（0,4）=”时限"．ＴｅxtＭaｔrｉｘ（0，5）＝”项目”．TextＭatrix（０，6）="主管教练＂.ＴextMaｔrix（0,7）＝＂备注”．CｏlWidｔｈ(0）＝１00.ＣolＷidｔh(１）＝１3０0。ColＷidth（2）=１200．ＣｏlWｉｄｔh（3）=８00．CoｌWidth(４）=8０0.ＣolＷidｔh(5）=80０.CoｌWｉdth（6）＝80０.ＣolWidth（７）=50００.FｉｘedRoｗs＝1Fori=１To7．ColＡｌｉgｎment(i）=0Nｅxti。ＦillＳtyle=fｌexFｉｌlSinglｅ。Ｃol=０．Roｗ=0.RowSeｌ=1．ＣolSｅl=.Ｃols-1.CellＡｌigｎmeｎt＝４.Ｒｏw=１EｎdＷithEｎdＳubＰuｂlicSubｃlassshｏｗdata（)ＤimｊAsIntegｅｒDｉmiAsIｎtegeｒDiｍｍｒc1AsADODB。ReｃｏrdseｔSｅtmrc1＝ExecuteＳQL（Tｒim（txｔｓqｌ))Ｉfmrc１.EOF=ＦａlseTｈenｍrc１。MoveFｉrｓtWｉｔhMＳＦ1．Rｏwｓ=１ＤoWｈｉleNｏtmrc1.EＯF．Rows=.Ｒｏws+1Ｆoｒi=１Tｏｍrｃ1．Ｆiｅldｓ.Cｏｕnt．ＴextMaｔrｉx(.Rows—1，i)＝mrc1.Fields(i-1）Ｎextimrc1．MovｅNeｘｔLoopmrc1。CloseＥnｄWitｈElｓｅIfclaｓsｆiｎd=TrｕeThｅnFｏrｍclass2。HｉdｅForｍclass３。Shoｗzｚz=ＭｓgＢox（"对不起，没有此会员的档案记录！"，ｖbOKOnly，＂查询”）Ｆoｒｍｃｌaｓs3.ZOrder（0)Ｆorｍcｌass3.Text1（0)。ＳetＦoｃｕsEｎdIfEｎdＩfEndSｕｂPrｉvａtｅSuｂcｍddeｌ_Click（）qｘstr=Ｅxecuｔｅqx（2）Ifqxsｔr＝＂ｒeadｏｎly"Ｔｈｅnsｓ=MsｇBｏx（"对不起,你是只读用户不能删除记录，请与管理员联系！"，vbInformａｔｉon＋vbOKOnly,"警告")ExitSubEndIfDimmｒcAsADＯDＢ．RｅcｏrdｓetＤｉmmsgｔextAｓＳｔrinｇＤimintcoｕｎtAsIntegｅrＩｆＴrim(Me.MSF1.ＴｅｘtMatrix（MSF１．Rｏw，１)）＝"”Ｔｈensssｓs=MｓgＢox（＂你还没有选择记录！＂，vbＯKOｎly+vｂEｘｃｌaｍａtion，”警告”)EｘitSubEｎdIfＩfＭsgBｏx("确定要删除会员为＂＆Ｔrim（Ｍe。MSＦ１．TｅｘtMａtｒｉx（ＭSF１.Roｗ,2））&”的记录吗？＂&Chr(13)＆Chr（10）＆＂继续会导致该数据丢失，继续吗?"，vbＯＫCancel＋ｖbExclamaｔion，＂警告＂）=vbOＫThｅｎtxtｓql＝