健身房信息系统平台建立与实现

健身房信息系统平台建立与实现课程名称网页设计与网站建设课题名称健身房信息系统平台建立与实现摘要健身房信息系统平台建立与实现全文共44页，当前为第1页。健身房现在已经不是一个陌生的词汇了，对于广大的人民来说它是一种必然和必要的存在。而计算机的技术也在飞速的发展，在双重推力的促进之下，健身房不能只是单纯的传统企业闭门造车，而是要结合现今的技术和科技。无论从商家的角度还是从用户的角度来说，从商家的角度来讲商家可以通过信息化之后的系统更便捷方便准确地管理用户的诸多信息，从用户的角度来说，不仅仅可以提高时效性，更可以保证他的个人信息的安全。一开始的调研让我发现很多的企业已经开始重视健身房的系统管理方面的问题，这样的企业有很多比如飞跃，索易，他们的产品已经成型而且在投入市场。第二，健身房俱乐部毕竟是传统行业，和互联网包括计技术方面的接轨很少，在我们走访的诸多健身房中，中高端对于管理信息的方面还有一定的重视，像其他的中小型私人企业健身房就会很忽视这方面的内容，导致在会员来健身房使用的时候造成很大的不方便。第三，对于信息管理这方面的投入各个健身房还是比较吝啬的，他们的思维惯式就是不断地拓展，从没有想到在某一方面做精。实际在市场方面最需要“开盘子”健身房信息系统平台建立与实现全文共44页，当前为第1页。健身房信息系统平台建立与实现全文共44页，当前为第2页。关键字：健身房；管健身房信息系统平台建立与实现全文共44页，当前为第2页。榆林学院本科课程设计健身会所系统设计与实现健身会所系统分析1.1系统分析1.1.1系统总体需求分析系统总体需求主要根据系统功能分析系统设计之前的规划工作，包括分析系统元素的种类、功能、各数据项以及系统整体性能模式。会员档案添加会员档案添加会员档案修改会员档案删除卡信息添加卡信息修改卡信息删除卡信息浏览会员缴费浏览会员缴费查询添加用户重新登录更改密码系统管理会员缴费管理会员卡管理会员档案管理会员管理系统1.1.2系统需求分析通过调查,要求系统需要有以下功能:=1\*GB2⑴由于操作人员的计算机知识普遍较差,要求有良好的人机界面;=2\*GB2⑵由于该系统的使用对象多,要求有较好的权限管理;=3\*GB2⑶原始数据修改简单方便,支持多条件修改=4\*GB2⑷方便的数据查询，支持多条件查询;=5\*GB2⑸在相应的权限下，删除数据方便简单，数据稳定性好；健身房信息系统平台建立与实现全文共44页，当前为第4页。=6\*GB2⑹数据计算自动完成，尽量减少人工干预;健身房信息系统平台建立与实现全文共44页，当前为第4页。1.2可行性分析1.2.1经济可行性经济可行性研究的目的是使新系统能达到以最小的开发成本取得最佳的经济效益。需要作投资估算，对开发中所需人员、硬软件支持以及其它费用进行估算，并对系统投入使用后带来的经济效益进行估计。由于该健身房硬件基础设施较好，具备开发的基本条件，资金到位，而且开发是从大处着眼，从小处实施，开发费用相对比较透明，易与控制，系统开发完成后将给健身房带来的经济效益是明显的。因此在经济上是可行的。1.2.2技术可行性技术可行性研究就是弄清现有技术条件能否顺利完成开发工作，硬软件配置能否满足开发的需要，开发的风险等。通过对专业技术的学习，目前技术上是可行的。1.2.3社会可行性该系统使用人员学历相对较高、经验丰富、素质较高，因此在管理上，人员素质上都是可行的。可行性分析的最后成果是写出可行性分析报告。可行性分析报告包括下列内容：1) 健身房的战略目标，新系统的总体目标及主要功能；2) 拟定新系统的总体方案；3) 从技术、经济、社会等方面论证技术方案的可行性；4) 制定投资规划和开发计划健身房信息系统平台建立与实现全文共44页，当前为第5页。在系统初步调查的基础上，明确了存在的主要问题和建立新系统的初步设想，进一步对系统目标、范围等因素进行分析研究。健身房信息系统平台建立与实现全文共44页，当前为第5页。1.3系统元素与流程分析1.3.1数据流图数据流图（DataFlowDiagram）：简称DFD，它从数据传递和加工角度，以图形方式来表达系统的逻辑功能、数据在系统内部的逻辑流向和逻辑变换过程，是结构化系统分析方法的主要表达工具及用于表示软件模型的一种图示方法。健身房管理系统的数据流图如所示：管理员管理员P1.1管理信息P1.4财务信息统计F2.1P1.2用户登录D1用户信息记录F1用户登陆请求P1.3.2库存信息P1.3.1进货信息P1.3器材管理P1.3.3管理用户D2财务信息F1.1F1.2P1.3.5器材租赁F1.3F1.4数据流图1.3.2业务流程分析管理中心输入计算机管理人员所属部门会员管理中心输入计算机管理人员所属部门会员卡种卡种输出健身房信息系统平台建立与实现全文共44页，当前为第6页。健身房信息系统平台建立与实现全文共44页，当前为第6页。（2）会员档案管理业务流程图：（3）数据流程图：由于本系统的数据模块较多，下面仅以会员档案管理模块为例来进行编制。会员管理部门会员管理部门会员会员档案管理系统管理中心会员教师教师会员信息会员卡查询统计分析会员档案管理系统0层数据流程图管理中心卡管理中心卡费用uyon1.0会员管理2.0卡管理3.0综合管理4.0统计分析D1D2D3查询者管理者会员会员卡会员卡会员管理系统1层数据流程图健身房信息系统平台建立与实现全文共44页，当前为第7页。健身房信息系统平台建立与实现全文共44页，当前为第7页。1.3.3基本过程分析（1）用户登陆：根据用户的权限不同，用户登陆后实现的功能也不同，管理员拥有最高权限，操作员有系统数据录入权限。（2）人员管理：包括管理员信息管理，会员管理和员工管理。（3）场地管理：对健身房的场地进行管理。（4）器材管理：管理器材基本信息，器材租赁信息，器材遗失管理。1.3.4范式分析a.尽可能减少数据冗余和重复在满足需要的前提下，应尽量按照关系数据库的理论方法去设计一个数据库，减少数据冗余。本系统的关系模式基本达到了（3NF）。b.增加必要的数据冗余，与操作设计相结合有时为了编程及查询效率或其它特别的需要，增加一定的数据冗余是有必要的。考虑到机器的档次等因素，如果增加的冗余数据不会明显增加存储空间和降低处理效率，并对功能实现有很大帮助，往往可以采用这种方法。1.3.5开发环境分析（1）SQL2008：SQLServer2008出现在微软数据平台愿景上是因为它使得公司可以运行他们最关键任务的应用程序，同时降低了管理数据基础设施和发送观察和信息给所有用户的成本。这个平台有以下特点：可信任的——使得公司可以以很高的安全性、可靠性和可扩展性来运行他们最关键任务的应用程序。高效的——使得公司可以降低开发和管理他们的数据基础设施的时间和成本。智能的——提供了一个全面的平台，可以在你的用户需要的时候给他发送观察和信息。健身房信息系统平台建立与实现全文共44页，当前为第8页。（2）Java：健身房信息系统平台建立与实现全文共44页，当前为第8页。Java是一门\t"/subview/29/_blank"面向对象编程语言，不仅吸收了\t"/subview/29/_blank"C++语言的各种优点，还摒弃了C++里难以理解的\t"/subview/29/_blank"多继承、\t"/subview/29/_blank"指针等概念，因此Java语言具有功能强大和简单易用两个特征。Java语言作为静态面向对象编程语言的代表，极好地实现了面向对象理论，允许程序员以优雅的思维方式进行复杂的编程。Java具有简单性、面向对象、\t"/subview/29/_blank"分布式、\t"/subview/29/_blank"健壮性、\t"/subview/29/_blank"安全性、平台独立与可移植性、\t"/subview/29/_blank"多线程、动态性等特点。Java可以编写\t"/subview/29/_blank"桌面应用程序、\t"/subview/29/_blank"Web应用程序、\t"/subview/29/_blank"分布式系统和\t"/subview/29/_blank"嵌入式系统应用程序等。健身房信息系统平台建立与实现全文共44页，当前为第9页。健身房信息系统平台建立与实现全文共44页，当前为第9页。2健身会所系统设计与实现2.1系统结构设计2.1.1系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：会员档案管理、会员卡管理、会员交费管理、系统管理、报表打印等功能。2.1.2软件结构设计本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。接受数据接受数据处理中心卡管理档案管理交费管理系统管理其他管理打印报表2．2数据库设计数据库采用了Microsoft推出的SQL2008数据库，这是微软集成到Office中健身房信息系统平台建立与实现全文共44页，当前为第10页。的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。健身房信息系统平台建立与实现全文共44页，当前为第10页。2.2.1数据库概念设计采用E—R图(实体—关系图)的方法进行数据结构分析.E—R图设计方法是一种通过E—R图来描述现实世界信息结构的DB设计方法，E—R图由实体、属性、联系三部分组成。健身房管理系统的E-R图如下所示：管理员管理员1m场地信息11管理从属公告信息11管理健身房管理系统对应用户信息m管理11器材信息管理2.2.2数据库逻辑的设计本系统中所涉及到的主要实体共有以下几个数据表：由于数据库中有大量复杂的数据，因此对于表的设计应特别注意，表的个数尽量减少，表中属性尽量直观，数量也要适中，各个表之间有关联的情况也尽量少，这样就可以在对各个表操作时，保证数据的正确性。以下给出健身房管理系统的数据库表的详细设计：健身房信息系统平台建立与实现全文共44页，当前为第11页。表2.1管理员健身房信息系统平台建立与实现全文共44页，当前为第11页。列名数据类型长度允许空管理员账号int4否管理员密码varchar10否管理员姓名varchar14否表2.2健身房信息表列名数据类型长度允许空健身房房号int4否名称varchar10否区域varchar14是目录text14是备注varchar14是表2.3操作员表列名数据类型长度允许空用户号int4否用户名varchar10否用户密码varchar14否姓名varchar14是性别varchar14是年纪varchar14是生日varchar14是备注text是表2.4进货商信息表列名数据类型长度允许空进货号int4否进货地址varchar10否进货名称varchar14否进货电话varchar14是其他货物Text是健身房信息系统平台建立与实现全文共44页，当前为第12页。健身房信息系统平台建立与实现全文共44页，当前为第12页。表2.5器材基本表列名数据类型长度允许空登记号int4否名称varchar10否生产厂家varchar14否日期datatime14是说明Text是用户姓名varchar14是表2.6器材库存表列名数据类型长度允许空器材号int4否器材名称varchar10否器材厂家varchar50否价格varchar50否保管日期datatime否数量Int4否操作员varchar50否健身房信息系统平台建立与实现全文共44页，当前为第13页。表2.7租赁信息表健身房信息系统平台建立与实现全文共44页，当前为第13页。列名数据类型长度允许空登记号int4否名称varchar10否会员号varchar50是租出数量varchar50是租出天数varchar50是日期varchar50是返回日期varchar50是备注Text50是用户姓名varchar50是操作员varchar50是表2.8遗失表列名数据类型长度允许空产品号int4否名称varchar10否会员号varchar14否遗失日期varchar50是遗失数量varchar50是用户名varchar50是操作员varchar50是表2.9会员信息表列名数据类型长度允许空会员号int4否会员名varchar10否会员性别varchar50是会员电话varchar50是会员地址varchar50是备注text50是健身房信息系统平台建立与实现全文共44页，当前为第14页。表2.10租金信息表健身房信息系统平台建立与实现全文共44页，当前为第14页。列名数据类型长度允许空类别号int4否类别名varchar10否租金varchar50是剩余租金varchar50是表2.11公告基本表列名数据类型长度允许空支付号int4否支付名varchar10否支付种类text14否表2.12财务表列名数据类型长度允许空财务表单int4否支付名varchar50否总金额varchar10否日期varchar14否用户名varchar50是SNAMEvarchar50是2.2.3数据模型图采用E—R图(实体—关系图)的方法进行数据结构分析.E—R图设计方法是一种通过E—R图来描述现实世界信息结构的DB设计方法，E—R图由实体、属性、联系三部分组成。健身房管理系统的E-R图如2.2所示：图2-3：数据模型图健身房信息系统平台建立与实现全文共44页，当前为第15页。健身房信息系统平台建立与实现全文共44页，当前为第15页。健身房管理系统数据库由多个表组成:管理员表、健身房信息表、操作员表、进货商信息表、器材信息表、器材库存表、租赁信息表、遗失表、会员信息表、公告基本表、财务表。其中器材信息和器材库存一对一，一种器材只能有一个库存信息。器材信息与租赁信息一对多，一种器材可以有多条遗失信息。遗失信息和租赁信息表相同。2.3系统模块设计会员档案添加会员档案添加会员档案修改会员档案删除卡信息添加卡信息修改卡信息删除卡信息浏览会员缴费浏览会员缴费查询添加用户重新登录更改密码系统管理会员缴费管理会员卡管理会员档案管理会员管理系统登录页面中包含的信息为:用户名、密码、用户类型。用户必须提供正确的用户名、密码和验证码信息才能正确登录。登录中的程序逻辑：1.使用了JavaScript脚本语言验证用户名、密码和用户类型是否为空，如果为空就弹出一个警告对话框，提示信息不能为空。2.正确信息后，首先根据选择的用户类别去查询不同的人员表信息。如：当前选择了系统管理员用户类型，那么就去管理员信息表查询表中是否有用户输入的信息，如果没有，提示错误信息。3.当所有信息都正确通过验证后，用ASP.NET对象session保存用户类型、用户名和用户编号。最后，实现页面的跳转，进入系统。健身房信息系统平台建立与实现全文共44页，当前为第16页。在本系统中，通过Session对象来进行储存用户权限级别，从而进行权限的控制。首先赋予session一个值（用户登录后的级别）如：session("qx")=qx。当用户进入主页面时，系统就会判断当前用户级别，这个级别就是通过session来获取：<%ifsession("qx")="管理员"then%>，如果你的权限是管理员就可以执行某些代码。健身房信息系统平台建立与实现全文共44页，当前为第16页。 session其实就是服务器给客户端的一个编号。当一台WWW服务器运行时，可能有若干个用户浏览正在运正在这台服务器上的网站。当每个用户首次与这台WWW服务器建立连接时，他就与这个服务器建立了一个Session，同时服务器会自动为其分配一个SessionID，用以标识这个用户的唯一身份。这个SessionID是由WWW服务器随机产生的一个由24个字符组成的字符串。这个唯一的SessionID是有很大的实际意义的。当一个用户提交了表单时，浏览器会将用户的SessionID自动附加在HTTP头信息中，(这是浏览器的自动功能，用户不会察觉到)，当服务器处理完这个表单后，将结果返回给SessionID所对应的用户。系统登陆后，对人员信息，场地信息，器材信息进行管理。实现录入信息，添加信息，保存后，在程序列表中，选择一条记录后进行修改和保存。健身房信息系统平台建立与实现全文共44页，当前为第17页。健身房信息系统平台建立与实现全文共44页，当前为第17页。3系统的功能实现及代码本部分主要内容为本系统的运行界面以及主要界面的源代码。3.1系统登陆界面：本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用111;111为用户名和密码来登陆本系统。PrivateSubCommand1_Click()DimmrcAsADODB.Recordsettxtsql="selectusernamefromusewhereusername='"&Trim(Text1.Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=TrueThenMsgBox"用户名错误！",vbExclamation+vbOKOnly,"警告"Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)ExitSubEndIfusername=mrc.Fields(0)健身房信息系统平台建立与实现全文共44页，当前为第18页。txtsql2="selectusernamefromusewherepassword='"&Trim(Text2.Text)&"'"健身房信息系统平台建立与实现全文共44页，当前为第18页。Setmrc=ExecuteSQL(txtsql2)Ifmrc.EOF=TrueThenMsgBox"密码错误！",vbExclamation+vbOKOnly,"警告"Text2.SetFocusText2.SelStart=0Text2.SelLength=Len(Text2.Text)ExitSubEndIftxtsql="selectusernamefromusewhereusername='"&Trim(Text1.Text)&"'andpassword='"&Trim(Text2.Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=TrueThenMsgBox"用户名称和密码不匹配！",vbExclamation+vbOKOnly,"警告"ExitSubEndIfMDIForm1.Showfrmcpass.Text1.Text=Text1.TextUnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then健身房信息系统平台建立与实现全文共44页，当前为第19页。Text2.SetFocus健身房信息系统平台建立与实现全文共44页，当前为第19页。EndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub3.2系统主界面：本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有5个功能菜单和12个子菜单（功能模块），从而实现了本系统从会员卡管理、会员档案管理、会员缴费管理、系统管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。健身房信息系统平台建立与实现全文共44页，当前为第20页。PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong健身房信息系统平台建立与实现全文共44页，当前为第20页。Dimfind1AsIntegerDimliulan1AsIntegerPrivateSubadd_Click()qxstr=Executeqx(2)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfForm1.Showmodi=FalseForm1.ZOrder(0)EndSubPrivateSubcjadd_Click()fenshumodi=Falseqxstr=Executeqx(4)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcj2.Showfrmcj2.ZOrder0EndSubPrivateSubcjbrowse_Click()qxstr=Executeqx(4)健身房信息系统平台建立与实现全文共44页，当前为第21页。Ifqxstr="false"Then健身房信息系统平台建立与实现全文共44页，当前为第21页。ss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcj1.Showfrmcj1.ZOrder0EndSubPrivateSubclaasfind_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfForm4.ShowForm4.ZOrder(0)i=SetWindowPos(Form4.hwnd,-1,0,0,0,0,3)EndSubPrivateSubclassapp_Click()qxstr=Executeqx(2)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass1.Showclassmodi=FalseFormclass1.classload健身房信息系统平台建立与实现全文共44页，当前为第22页。Formclass1.ZOrder(0)健身房信息系统平台建立与实现全文共44页，当前为第22页。EndSubPublicSubclabrowse()txtsql="select*fromclass"Formclass2.ZOrder(0)Formclass2.Caption="浏览班级设置"Formclass2.classshowtitleFormclass2.classshowdataEndSubPrivateSubclassbrowse_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass2.ShowEndSubPrivateSubclassfind_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass3.ShowFormclass3.ZOrder(0)EndSub健身房信息系统平台建立与实现全文共44页，当前为第23页。PrivateSubfind_Click()健身房信息系统平台建立与实现全文共44页，当前为第23页。EndSubPrivateSubclasskecheng_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmclasskecheng1.ShowFrmclasskecheng1.ZOrderEndSubPrivateSubdenglu2_Click()Frmdenlu.ShowUnloadMeEndSubPrivateSubjiaofeiadd_Click()qxstr=Executeqx(3)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmjf1.ShowFrmjf1.ZOrder0EndSubPrivateSubjiaofeibrowse_Click()qxstr=Executeqx(3)健身房信息系统平台建立与实现全文共44页，当前为第24页。Ifqxstr="false"Then健身房信息系统平台建立与实现全文共44页，当前为第24页。ss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmjf2.Showfrmjf2.ZOrder0EndSubPrivateSubjiaofeifind_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmjf4.ShowEndSubPrivateSubjibenkecheng_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmjiben.Showfrmjiben.ZOrder0EndSubPrivateSubleixing_Click()qxstr=Executeqx(4)健身房信息系统平台建立与实现全文共44页，当前为第25页。Ifqxstr="false"Then健身房信息系统平台建立与实现全文共44页，当前为第25页。ss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmleixing.ShowFrmleixing.ZOrder0EndSubPrivateSubliulan_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffind=FalseForm3.ShowEndSubPrivateSubMDIForm_Load()'username="0001"DataEnv1.Connection1.ConnectionString=connstringStatusBar1.Panels(2).Text=NowStatusBar1.Panels(3).Text="当前操作员："&usernameDimaaAsStringSelectCaseExecuteqx(1)Case"admin"aa="超级管理员"健身房信息系统平台建立与实现全文共44页，当前为第26页。Case"readonly"健身房信息系统平台建立与实现全文共44页，当前为第26页。aa="只读管理员"CaseElseaa="普通管理员"EndSelectStatusBar1.Panels(4).Text="状态："&aaEndSubPrivateSubuseradd_Click()qxstr=Executeqx(1)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmuser1.Showfrmuser1.ZOrder0EndSubPrivateSubusermodi_Click()qxstr=Executeqx(1)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcpass.ShowEndSubPrivateSubxuefeiadd_Click()qxstr=Executeqx(3)健身房信息系统平台建立与实现全文共44页，当前为第27页。Ifqxstr="false"Orqxstr="readonly"Then健身房信息系统平台建立与实现全文共44页，当前为第27页。ss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfxuefeimodi=FalseDimiAsIntegerFori=0To3frmxuefei1.Combo1(i).Enabled=TrueNextiMe.Caption="添加班级设置"Fori=0To3frmxuefei1.Combo1(i).Text=""Nextifrmxuefei1.Text1.Text=""frmxuefei1.Showfrmxuefei1.ZOrder0EndSubPublicSubxfbrowse()txtsql="select*fromxuefeiorderby学期desc,年级desc,专业desc"Frmxuefei2.ZOrder(0)Frmxuefei2.Caption="浏览学费设置"Frmxuefei2.xuefeishowtitleFrmxuefei2.xuefeishowdataEndSubPrivateSubxuefeibrowse_Click()qxstr=Executeqx(3)Ifqxstr="false"Then健身房信息系统平台建立与实现全文共44页，当前为第28页。ss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")健身房信息系统平台建立与实现全文共44页，当前为第28页。ExitSubEndIfFrmxuefei2.ShowEndSubPrivateSubxuefeifind_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmxuefei3.ShowFrmxuefei3.ZOrder(0)i=SetWindowPos(Frmxuefei3.hwnd,-1,0,0,0,0,3)EndSub3.3用户管理模块：本模块是本系统的安全性设置模块，根据健身中心不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。从而新用户和会员用户可以拥有不同的权限，执行不同的操作，以达到更为科学和有效的管理。健身房信息系统平台建立与实现全文共44页，当前为第29页。健身房信息系统平台建立与实现全文共44页，当前为第29页。PrivateSubCommand1_Click()IfTrim(Text1(0).Text)=""ThenMsgBox"用户名不能为空！",vbExclamation+vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfIfTrim(Text1(1).Text)=""ThenMsgBox"密码不能为空！",vbExclamation+vbOKOnly,"警告"Text1(1).SetFocusExitSubEndIfIfTrim(Text1(2).Text)=""ThenMsgBox"确认密码不能为空！",vbExclamation+vbOKOnly,"警告"Text1(2).SetFocusExitSub健身房信息系统平台建立与实现全文共44页，当前为第30页。EndIf健身房信息系统平台建立与实现全文共44页，当前为第30页。IfTrim(Text1(1).Text)<>Trim(Text1(2).Text)ThenMsgBox"确认密码不正确！",vbExclamation+vbOKOnly,"警告"Text1(2).SetFocusExitSubEndIfDimaaAsIntegeraa=0IfOption1(2).Value=TrueThenFori=0To3IfCheck1(i).Value=1Thenaa=1ExitForEndIfNextiIfaa=0ThenMsgBox"普通用户至少要有一项权限！",vbExclamation+vbOKOnly,"警告"ExitSubEndIfEndIfDimmrcAsADODB.Recordsettxtsql="select*fromusewhereusername='"&Trim(Text1(0).Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=FalseThenMsgBox"已存在该用户！",vbExclamation+vbOKOnly,"警告"Text1(0).SetFocusText1(0).SelStart=0Text1(0).SelLength=Len(Text1(0).Text)健身房信息系统平台建立与实现全文共44页，当前为第31页。ExitSub健身房信息系统平台建立与实现全文共44页，当前为第31页。EndIftxtsql="select*fromuse"Setmrc=ExecuteSQL(txtsql)mrc.AddNewmrc.Fields(0)=Trim(Text1(0).Text)mrc.Fields(1)=Trim(Text1(1).Text)Fori=0To2IfOption1(i).Value=TrueThenSelectCaseiCase0mrc.Fields("admin")="y"Case1mrc.Fields("readonly")="y"Case2Forj=0To3IfCheck1(j).Value=1ThenSelectCasejCase0mrc.Fields("qx1")="y"Case1mrc.Fields("qx2")="y"Case2mrc.Fields("qx3")="y"Case3mrc.Fields("qx4")="y"EndSelectEndIfNextj健身房信息系统平台建立与实现全文共44页，当前为第32页。EndSelect健身房信息系统平台建立与实现全文共44页，当前为第32页。EndIfNextimrc.UpdateMsgBox"用户添加成功！",vbExclamation+vbOKOnly,"警告"Text1(0).Text=""Text1(1).Text=""Text1(2).Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Option1(2).Value=TrueEndSubPrivateSubForm_Resize()Text1(0).SetFocusEndSubPrivateSubOption1_Click(IndexAsInteger)IfIndex<>2ThenFori=0To3Check1(i).Enabled=FalseNextiElseFori=0To3Check1(i).Enabled=TrueNextiEndIf健身房信息系统平台建立与实现全文共44页，当前为第33页。EndSub健身房信息系统平台建立与实现全文共44页，当前为第33页。3.4会员档案管理模块：因为本系统中有些功能模块具有相似之处，因此在本文只用此模块进行一个简单的说明。其它的相似模块的代码可能参阅本模块的设计思路。PublicprintstrAsStringPrivateSubCommand1_Click()DimdbSourceAsDatabaseSetdbSource=OpenDatabase("xs.mdb")z=MsgBox("成功！",vbOKOnly,"查询")EndSubPublicSubclassshowtitle()DimiAsIntegerMSF1.Clear健身房信息系统平台建立与实现全文共44页，当前为第34页。WithMSF1健身房信息系统平台建立与实现全文共44页，当前为第34页。.Cols=8.TextMatrix(0,1)="年度".TextMatrix(0,2)="卡种".TextMatrix(0,3)="所属".TextMatrix(0,4)="时限".TextMatrix(0,5)="项目".TextMatrix(0,6)="主管教练".TextMatrix(0,7)="备注".ColWidth(0)=100.ColWidth(1)=1300.ColWidth(2)=1200.ColWidth(3)=800.ColWidth(4)=800.ColWidth(5)=800.ColWidth(6)=800.ColWidth(7)=5000.FixedRows=1Fori=1To7.ColAlignment(i)=0Nexti.FillStyle=flexFillSingle.Col=0.Row=0.RowSel=1.ColSel=.Cols-1.CellAlignment=4.Row=1健身房信息系统平台建立与实现全文共44页，当前为第35页。EndWith健身房信息系统平台建立与实现全文共44页，当前为第35页。EndSubPublicSubclassshowdata()DimjAsIntegerDimiAsIntegerDimmrc1AsADODB.RecordsetSetmrc1=ExecuteSQL(Trim(txtsql))Ifmrc1.EOF=FalseThenmrc1.MoveFirstWithMSF1.Rows=1DoWhileNotmrc1.EOF.Rows=.Rows+1Fori=1Tomrc1.Fields.Count.TextMatrix(.Rows-1,i)=mrc1.Fields(i-1)Nextimrc1.MoveNextLoopmrc1.CloseEndWithElseIfclassfind=TrueThenFormclass2.HideFormclass3.Show健身房信息系统平台建立与实现全文共44页，当前为第36页。zzz=MsgBox("对不起，没有此会员的档案记录！",vbOKOnly,"查询")健身房信息系统平台建立与实现全文共44页，当前为第36页。Formclass3.ZOrder(0)Formclass3.Text1(0).SetFocusEndIfEndIfEndSubPrivateSubcmddel_Click()qxstr=Executeqx(2)Ifqxstr="readonly"Thenss=MsgBox("对不起，你是只读用户不能删除记录，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfDimmrcAsADODB.RecordsetDimmsgtextAsStringDimintcountAsIntegerIfTrim(Me.MSF1.TextMatrix(MSF1.Row,1))=""Thensssss=MsgBox("你还没有选择记录！",vbOKOnly+vbExclamation,"警告")ExitSubEndIfIfMsgBox("确定要删除会员为"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"的记录吗？"&Chr(13)&Chr(10)&"继续会导致该数据丢失，继续吗？",vbOKCancel+vbExclamation,"警告")=vbOKThen健身房信息系统平台建立与实现全文共44页，当前为第37页。txtsql="delete*fromxjwhere班级='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"'"健身房信息系统平台建立与实现全文共44页，当前为第37页。Setmrc=ExecuteSQL(txtsql)txtsql="delete*fromjfwhere学号in(selectfromxjwhere班级='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"')"Setmrc=ExecuteSQL(txtsql)'删除在交费表中的所有该卡种的记录txtsql="delete*fromcjwhere卡号in(selectfromxjwhere卡种='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"')"Setmrc=ExecuteSQL(txtsql)'删除在成绩表中的所有该班级的记录txtsql="delete*fromclasswhere班级='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"'"Setmrc=ExecuteSQL(txtsql)'删除该班级的记录EndIfzxh=MsgBox("记录成功删除！",vbOKOnly,"查询")txtsql="select*fromclass"classshowtitleclassshowdataCallForm_ActivateEndSubPrivateSubcmdfind_Click()Formclass3.ShowEndSubPrivateSubcmdmodi_Click()健身房信息系统平台建立与实现全文共44页，当前为第38页。IfTrim(Me.MSF1.TextMatrix(MSF1.Row,1))=""Then健身房信息系统平台建立与实现全文共44页，当前为第38页。sssss=MsgBox("你还没有选择记录！",vbOKOnly+vbExclamation,"警告")ExitSubElseqxstr=Executeqx(2)Ifqxstr="readonly"Thenss=MsgBox("对不起，你是只读用户不能修改记录，请与管理员联系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfclassmodi=TrueFormclass1.Show