关闭

关闭

关闭

封号提示

内容

首页 健身中心会员管理系统论文.doc

健身中心会员管理系统论文.doc

健身中心会员管理系统论文.doc

上传者: 刘视正 2017-09-19 评分 0 0 0 0 0 0 暂无简介 简介 举报

简介:本文档为《健身中心会员管理系统论文doc》,可适用于人文社科领域,主题内容包含健身中心会员管理系统论文健身中心会员管理系统(本科毕业设计)摘要随着信息技术在管理上越来越深入而广泛的应用管理信息系统的实施在技术上已逐步成熟。管理符等。

健身中心会员管理系统论文健身中心会员管理系统(本科毕业设计)摘要随着信息技术在管理上越来越深入而广泛的应用管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科任何一个单位要生存要发展要高效率地把内部活动有机地组织起来就必须建立与自身特点相适应的管理信息系统。本文介绍了在VisualBasic环境下采用“自上而下地总体规划自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一健身中心的管理的不足创建了一套行之有效的计算机管理健身中心会员的方案。文章介绍了会员管理信息系统的系统分析部分包括可行性分析、业务流程分析等系统设计部分主要介绍了系统功能设计和数据库设计及代码设计系统实现部分说明了几个主要模块的算法本系统界面友好操作简单比较实用。【关键字】:管理信息系统、会员管理、VisualBasic应用。健身中心会员管理系统(本科毕业设计)SummaryWithmoreandmorewidespreadandprofoundapplicationofinformationtechnologyinmanagement,theimplementofmanagementinformationsystemhasbecomematureintechnologystepbystepManaginginformationsystemisanewsubjectEnterpriseneedsexistenceanddevelopment,soenterpriseactivitiesshouldbeorganizedefficientlyandorganically,whichmeanstighteninguptheenterprisemanagementandstrengtheningeffectivemanagementofanyresource(staff,finance,property,etc)internaltheenterprise,andalsoestablishingamanagementinformationsystemfittinginwithitsowncharacteristicsThisarticleintroducesthedetailedprocessofexploringamanagementinformationsystemundertheenvironmentofvisualFoxPro,utilizing“TopBottom”overallplanandastrategyaccordingto“BottomTop”健身中心会员管理系统(本科毕业设计)applicationandexploitationThatistoestablishasetofeffectiveschemeforstudentmanagementbycomputer,throughanalyzingdisadvantagesofstudentmanagementbyhumanresourcesThisarticleemphasizesonthreesectionsThesystemanalysissectionofstudentmanagementinformationincludesfeasibleanalysis,managementfunctionanalysisThesystemdesignsectionmainlyfocusesonsystemfunctiondesignanddatabasedesignanddatanumberdesignAndthesystemrealizationsectionhasprovidedseveralmajorfunction,togetherwiththemainwindowsandprogramsThiseconomicalandpragmaticsystemhasexplicitinterface,withsimpleoperationKeywords:MIS、membermanagement、visualbasicapplication健身中心会员管理系统(本科毕业设计)摘要ISummaryII第一章系统概述系统及需求分析系统需求可行性分析系统的功能简介项目规划系统管理模块(CTRLO)会员卡管理模块(CTRLP):会员档案管理模块(CTRLT):会员缴费管理系统开发的目标第二章系统分析业务流程分析会员卡管理业务流程图:会员档案管理业务流程图:数据流程分析:数据流程图:数据存储分析:实体联系图功能分析:功能层次图系统设计软件模块结构设计((系统方案确定((软件结构设计(数据库设计((本系统中所涉及到的主要实体共有以下几个数据表:((各表的物理结构如下:第四章系统的功能(系统登陆界面:(系统主界面:(用户管理模块:(会员档案管理模块:会员缴费管理第五章系统运行及评价系统的运行系统的评价健身中心会员管理系统(本科毕业设计)第六章结束语致谢参考文献第一章系统概述当今社会为信息社会世界已进入在计算机信息管理领域中激烈竞争的时代。信息已成为继劳动力、土地、资本之后的又一大资源谁控制的信息越多谁利用信息资源的效率越高谁就会在各方面的竞争中占有一席之地谁就会更有优势这一点已得到举世公认。随着时代的进步社会生产力高速发展新技术层出不穷信息量急剧膨胀整个人类社会已成为信息化的社会人们对信息和数据的利用和处理已经进入自动化、网络化和社会化的阶段。如在查找情报资料、处理银行帐目、仓库管理、科研生产等方面无不需要利用大量的信息资源。因此如何有效地进行数据信息的管理和利用已经成为人们普遍关注的课题。信息在不同的领域里有着不同的概念在管理科学领域中通常认为信息是经过加工处理后的一种数据形式是一种有次序的符号排列它是系统传输和处理的对象。处在信息时代的今天信息的作用越来越为人们所重视。制定工作计划研究投资策略都离不开对信息的充分利用。管理信息系统(ManagementInformationSystem,缩写MIS)是一种“人机系统”它以特定的模式支持一个组织内各级组织机构之间的通讯对信息资源进行综合开发管理和利用实现对该组织的有效管理。它通过对数据的加工处理及时为管理与决策分析提供信息。其特点有:,数据全部存储于计算机系统中,用户使用简单、操作方便、查询速度快,有极强的人机对话功能,能直接从计算机系统中提供决策所需的参考信息。根据对健身中心会员管理中存在的问题进行分析本会员信息管理系统可以说是一个综合性的健身中心会员管理系统这它集成了系统管理、会员卡管理科、会员档案管理、会员缴费管理等多种功能因而具有较强的实用性和先进性。系统及需求分析系统需求通过调查,要求系统需要有以下功能:由于操作人员的计算机知识普遍较差,要求有良好的人机界面由于该系统的使用对象多,要求有较好的权限管理原始数据修改简单方便,支持多条件修改方便的数据查询支持多条件查询在相应的权限下删除数据方便简单数据稳定性好数据计算自动完成尽量减少人工干预可行性分析由于本系统管理的对象单一,都是在健身中心注册的新老会员且每个数据内容具有较强的关联性涉及的计算过程不是很复杂。因此比较适合于采用数据库管理。且健身中心用于其会员管理的微机都是PIII以上的机器在存储量、速度方面都能满足数据库运行的要求。在技术难度方面由于有指导老师的指导和相关参考文献特别是网上资料特别是参考其它程序的功能因此完全可以实现。本系统的设计是在Windows中文版操作系统环境下使用VisualBasic中文版开发成功的。数据库是MIS中的重要支持技术在MIS开发过程中如何选择数据库管理是一个重要的问题目前数据库产品较多每种产品都具有各自的特点和适用范围因此在选择数据库时应考虑数据库应用的特点及适用范围本系统选用的数据库语言介绍如下:VisualBasic语言VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计可用于开发Windows环境下的种类应用程序。它简单易学、效率高且功能强大可以与Windows的专业开发工具SDK相媲美而且程序开发人员不必具有CC编程基础。在VisualBasic环境下利用事件驱动的编程机制、新颖易用的可视化设计工具使用Windows内部的应用程序接口(API)函数以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说VisualBasic具有以下特点:可视化编程:用传统程序设计语言设计程序时都是通过编写程序代码来设计用户界面在设计过程中看不到界面的实际显示效果必须编译后运行程序才能观察。如果对界面的效果不满意还要回到程序中修改。有时候这种编程编译修改的操作可能要反复多次大大影响了软件开发效率。VisualBasic提供了可视化设计工具把Windows界面设计的复杂性“封装”起来开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局用系统提供的工具在屏幕上画出各种“部件”即图形对象并设置这些图形对象的属性。VisualBasic自动产生界面设计代码程序设计人员只需要编写实现程序功能的那部分代码从而可以大大提高程序设计的效率。面向对象的程序设计版以后的VisualBasic支持面向对象的程序设计但它与一般的面向对象的程序设计语言(C)不完全相同。在一般的面向对象程序设计语言中对象由程序代码和数据组成是抽象的概念而VisualBasic则是应用面向对象的程序设计方法(OOP)把程序和数据封装起来作为一个对象并为每个对象赋予应有的属性使对象成为实在的东西。在设计对象时不必编写建立和描述每个对象的程序代码而是用工具画在界面上VisualBasic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上都是可视的。结构化程序设计语言VisualBasic是在BASIC语言的基础上发展起来的具有高级程序设计语言的语句结构接近于自然语言和人类的逻辑思维方式。VisualBasic语句简单易懂其编辑器支持彩色代码可自动进行语法错误检查同时具有功能强大且使用灵活的调试器和编译器。VisualBasic是解释型语言在输入代码的同时解释系统将高级语言分解翻译成计算机可以识别的机器指令并判断每个语句的语法错误。在设计VisualBasic程序的过程中随时可以运行程序而在整个程序设计好之后可以编译生成可执行文件(EXE)脱离VisualBasic环境直接在Windows环境下运行。事件驱动编程机制VisualBasic通过事件来执行对象的操作。一个对象可能会产生多个事件每个事件都可以通过一段程序来响应。例如命令按钮是一个对象当用户单击该按钮时将产生一个“单击“(CLICK)事件而在产生该事件时将执行一段程序用来实现指定的操作。在用VisualBasic设计大型应用软件时不必建立具有明显开始和结束的程序而是编写若干个微小的子程序即过程。这些过程分别面向不同的对象由用户操作引发某个事件来驱动完成某种特定的功能或者由事件驱动程序调用通用过程来执行指定的操作这样可以方便编程人员提高效率。访问数据库VisualBasic具有强大的数据库管理功能利用数据控件和数据库管理窗口可以直接建立或处理MicrosoftAccess格式的数据库并提供了强大的数据存储和检索功能。同时VisualBasic还能直接编辑和访问其他外部数据库如dBASEFoxProParadox等这些数据库格式都可以用VisualBasic编辑和处理。VisualBasic提供开放式数据连接即ODBC功能可通过直接访问或建立连接的方式使用并操作后台大型网络数据库如SQLServerOracle等。在应用程序中可以使用结构化查询语言SQL数据标准直接访问服务器上的数据库并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术为单机上运行的数据库提供了SQL网络接口以便在分布式环境中快速而有效地实现客户服务器(clientserver)方案。动态数据交换(DDE)利用动态数据交换(DynamicDataExchange)技术可以把一种应用程序中的数据动态地链接到另一种应用程序中使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时可以自动更新链接的数据。VisualBasic提供了动态数据交换的编程技术可以在应用程序中与其他Windows应用程序建立动态数据交换在不同的应用程序之间进行通信。对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)将不同的对象链接(link)起来再嵌入(embed)某个应用程序中从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略它把多个应用程序合为一体将每个应用程序看做是一个对象进行链接和嵌入是一种应用程序一体化的技术。利用OLE技术可以方便地建立复合式文档(compounddocument)这种文档由来自多个不同应用程序的对象组成文档中的每个对象都与原来的应用程序相联系并可执行与原来应用程序完全相同的操作。动态链接库(DLL)VisualBasic是一种高级程序设计语言不具备低级语言的功能对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将CC或汇编语言编写的程序加入到VisualBasic应用程序中可以像调用内部函数一样调用其他语言编写的函数。此外通过动态链接库还可以调用Windows应用程序接口(API)函数实现SDK所具有的功能。系统的功能简介本系统主要可以实现以下的管理功能:系统管理、会员档案管理、会员交费管理等等。项目规划身中心会员信息管理系统是一个典型的数据库应用程序,由健系统管理、会员卡管理、会员档案管理、会员交费管理、打印报表等模块组成,特规划如下:系统管理模块(CTRLO)该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户(快捷键:CTRLA)、修改密码(快捷键:CTRLB)、重新登录(快捷键:CTRLF)等等。会员卡管理模块(CTRLP):该模块的功能是实现对健身中心会员卡的管理工作包括:会员卡浏览、会员卡添加、会员卡查询等这三个功能模块各自独立完成健身中心的全部会员卡的管理。会员档案管理模块(CTRLT):该模块的主要功能是实现对健身中心会员的的个人信息的管理工作包括档案添加、档案浏览、档案查询等功能从而方便中心管理部门对会员的基本情况的快速查询和了解。会员缴费管理该模块的主要功能是实现对健身中心会员的会费缴纳的管理工作包括会员会费浏览、会员会费查询等功能。从而方便健身中心的管理人员对会员的缴纳会费的情况的掌握与了解。系统开发的目标出于本系统是健身中心会员管理的一个综合性的系统本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。第二章系统分析业务流程分析会员卡管理业务流程图:输出管理中心输入计算机卡会种员卡种管理人员所属部门会员档案管理业务流程图:输出管理中心输入计算机档会案员档案管理人员所属部门数据流程分析:数据流程图:由于本系统的数据模块较多下面仅以会员档案管理模块为例来进行编制。会会员会员信息员管理档管理中部门查询案心管统计分析会员理教师会员卡系会员统教师会员档案管理系统层数据流程图管理D会员会员管理中心D会员卡卡卡管理费用查询综合管理uyon者D管理统计分析者会员管理系统层数据流程图数据存储分析:实体联系图、数据模型设计。首先来做出会员档案管理系统的ER图分析这个问题的实体从系统分析可以知道会员档案是由姓名、卡号等组成了这个系统的几个实体。、再分析几个个实体之间的联系。这几个实体不是一个统一体。这个ER图可画成下图。功能分析:功能层次图会员管理系统会会会系员员员统档卡缴管案管费理管理管理理会会会卡卡卡卡会会添重更员员员信信信信员员加新改档档档息息息息缴缴用登密案案案添修删浏费费户录码添修删加改除览浏查加改除览询系统设计软件模块结构设计((系统方案确定通过对系统的调研与分析系统主要应完成的功能有:会员档案管理、会员卡管理、会员交费管理、系统管理、报表打印等功能。((软件结构设计本系统在执行时先根据不同的操作人员的需要来进行相应的模块然后可以输入数据或者进行其它的查询或浏览等操作总体来说本系统属于一个事务型管理系统。接受数据处理中心卡管理档案管交费管系统管其他管理理理理打印报(数据库设计表数据库采用了Microsoft推出的Access数据库这是微软集成到Office中的一个桌面数据库能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于如果你的系统扩展到ClientServer模式的时候可以使用Microsoft的数据库服务器软件SQLServer此时程序只需要简单的修改一下链接(ADO的数据源)就可以这样为程序的平滑扩展提供了非常有力的条件。((本系统中所涉及到的主要实体共有以下几个数据表:class表:{年度卡种所属时限项目主管教练备注}jf表:{卡号年度交费欠费日期操作员}use表:{username,password,admin,readonly,qx,qx,qx,qx}xj表:{卡号姓名性别卡种出生年月家庭住址邮政编码联系电话注册时间备注}jiaofei表:{年度所属时限会费}((各表的物理结构如下:Class表:字段名称类型宽度小数位年度文本卡种文本所属文本时限文本项目文本主管教练文本备注备注Jf表:字段名称类型宽度小数位卡号文本年度文本交费货币自动欠费货币自动日期日期时间操作员文本Use表:字段名称类型宽度小数位username文本password文本Admin文本Readonly文本Qx文本Qx文本Qx文本Qx文本xj表:字段名称类型宽度小数位卡号文本姓名文本性别文本卡种文本出生年月日期时间家庭住址文本邮政编码数字(长整型)联系电话数字(长整型)注册时间日期时间备注备注jiaofei表:字段名称类型宽度小数位年度文本项目文本时限文本学费货币自动第四章系统的功能本部分主要内容为本系统的运行界面以及主要界面的源代码。(系统登陆界面:本界面的主要功能是为了对系统进行安全性管理本系统的用户名和密码保存在USE表中本系统根据不同的用户而设置了不同的权限可以用为用户名和密码来登陆本系统。PrivateSubCommandClick()DimmrcAsADODBRecordsettxtsql="selectusernamefromusewhereusername='"Trim(TextText)"'"Setmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenMsgBox"用户名错误~",vbExclamationvbOKOnly,"警告"TextSetFocusTextSelStart=TextSelLength=Len(TextText)ExitSubEndIfusername=mrcFields()txtsql="selectusernamefromusewherepassword='"Trim(TextText)"'"Setmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenMsgBox"密码错误~",vbExclamationvbOKOnly,"警告"TextSetFocusTextSelStart=TextSelLength=Len(TextText)ExitSubEndIftxtsql="selectusernamefromusewhereusername='"Trim(TextText)"'andpassword='"Trim(TextText)"'"Setmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenMsgBox"用户名称和密码不匹配~",vbExclamationvbOKOnly,"警告"ExitSubEndIfMDIFormShowfrmcpassTextText=TextTextUnloadMeEndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubFormLoad()EndSubPrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=ThenTextSetFocusEndIfEndSubPrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=ThenCommandSetFocusEndIfEndSub(系统主界面:本模块是本系统的应用界面在本界面上集成了本系统的所有功能共有个功能菜单和个子菜单(功能模块)从而实现了本系统从会员卡管理、会员档案管理、会员缴费管理、系统管理等系统的具体功能同时在系统管理模块中可以完成对本系统的安全性管理。PrivateDeclareFunctionSetWindowPosLib"user"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongDimfindAsIntegerDimliulanAsIntegerPrivateSubaddClick()qxstr=Executeqx()Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFormShowmodi=FalseFormZOrder()EndSubPrivateSubcjaddClick()fenshumodi=Falseqxstr=Executeqx()Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIffrmcjShowfrmcjZOrderEndSubPrivateSubcjbrowseClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIffrmcjShowfrmcjZOrderEndSubPrivateSubclaasfindClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFormShowFormZOrder()i=SetWindowPos(Formhwnd,,,,,,)EndSubPrivateSubclassappClick()qxstr=Executeqx()Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFormclassShowclassmodi=FalseFormclassclassloadFormclassZOrder()EndSubPublicSubclabrowse()txtsql="select*fromclass"FormclassZOrder()FormclassCaption="浏览班级设置"FormclassclassshowtitleFormclassclassshowdataEndSubPrivateSubclassbrowseClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFormclassShowEndSubPrivateSubclassfindClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFormclassShowFormclassZOrder()EndSubPrivateSubfindClick()EndSubPrivateSubclasskechengClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFrmclasskechengShowFrmclasskechengZOrderEndSubPrivateSubdengluClick()FrmdenluShowUnloadMeEndSubPrivateSubjiaofeiaddClick()qxstr=Executeqx()Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFrmjfShowFrmjfZOrderEndSubPrivateSubjiaofeibrowseClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIffrmjfShowfrmjfZOrderEndSubPrivateSubjiaofeifindClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFrmjfShowEndSubPrivateSubjibenkechengClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIffrmjibenShowfrmjibenZOrderEndSubPrivateSubleixingClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFrmleixingShowFrmleixingZOrderEndSubPrivateSubliulanClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIffind=FalseFormShowEndSubPrivateSubMDIFormLoad()'username=""DataEnvConnectionConnectionString=connstringStatusBarPanels()Text=NowStatusBarPanels()Text="当前操作员:"usernameDimaaAsStringSelectCaseExecuteqx()Case"admin"aa="超级管理员"Case"readonly"aa="只读管理员"CaseElseaa="普通管理员"EndSelectStatusBarPanels()Text="状态:"aaEndSubPrivateSubuseraddClick()qxstr=Executeqx()Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIffrmuserShowfrmuserZOrderEndSubPrivateSubusermodiClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIffrmcpassShowEndSubPrivateSubxuefeiaddClick()qxstr=Executeqx()Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfxuefeimodi=FalseDimiAsIntegerFori=TofrmxuefeiCombo(i)Enabled=TrueNextiMeCaption="添加班级设置"Fori=TofrmxuefeiCombo(i)Text=""NextifrmxuefeiTextText=""frmxuefeiShowfrmxuefeiZOrderEndSubPublicSubxfbrowse()年级desc,专业desc"txtsql="select*fromxuefeiorderby学期desc,FrmxuefeiZOrder()FrmxuefeiCaption="浏览学费设置"FrmxuefeixuefeishowtitleFrmxuefeixuefeishowdataEndSubPrivateSubxuefeibrowseClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFrmxuefeiShowEndSubPrivateSubxuefeifindClick()qxstr=Executeqx()Ifqxstr="false"Thenss=MsgBox("对不起你没有管理本功能的权限请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfFrmxuefeiShowFrmxuefeiZOrder()i=SetWindowPos(Frmxuefeihwnd,,,,,,)EndSub(用户管理模块:本模块是本系统的安全性设置模块根据健身中心不同部门以及不同使用人员对本系统的要求和需要从而实行了分级管理对用户的权限和类别进行了分类管理。从而新用户和会员用户可以拥有不同的权限执行不同的操作以达到更为科学和有效的管理。PrivateSubCommandClick()IfTrim(Text()Text)=""ThenMsgBox"用户名不能为空~",vbExclamationvbOKOnly,"警告"Text()SetFocusExitSubEndIfIfTrim(Text()Text)=""ThenMsgBox"密码不能为空~",vbExclamationvbOKOnly,"警告"Text()SetFocusExitSubEndIfIfTrim(Text()Text)=""ThenMsgBox"确认密码不能为空~",vbExclamationvbOKOnly,"警告"Text()SetFocusExitSubEndIfIfTrim(Text()Text)<>Trim(Text()Text)ThenMsgBox"确认密码不正确~",vbExclamationvbOKOnly,"警告"Text()SetFocusExitSubEndIfDimaaAsIntegeraa=IfOption()Value=TrueThenFori=ToIfCheck(i)Value=Thenaa=ExitForEndIfNextiIfaa=ThenMsgBox"普通用户至少要有一项权限~",vbExclamationvbOKOnly,"警告"ExitSubEndIfEndIfDimmrcAsADODBRecordsettxtsql="select*fromusewhereusername='"Trim(Text()Text)"'"Setmrc=ExecuteSQL(txtsql)IfmrcEOF=FalseThenMsgBox"已存在该用户~",vbExclamationvbOKOnly,"警告"Text()SetFocusText()SelStart=Text()SelLength=Len(Text()Text)ExitSubEndIftxtsql="select*fromuse"Setmrc=ExecuteSQL(txtsql)mrcAddNewmrcFields()=Trim(Text()Text)mrcFields()=Trim(Text()Text)Fori=ToIfOption(i)Value=TrueThenSelectCaseiCasemrcFields("admin")="y"CasemrcFields("readonly")="y"CaseForj=ToIfCheck(j)Value=ThenSelectCasejCasemrcFields("qx")="y"CasemrcFields("qx")="y"CasemrcFields("qx")="y"CasemrcFields("qx")="y"EndSelectEndIfNextjEndSelectEndIfNextimrcUpdateMsgBox"用户添加成功~",vbExclamationvbOKOnly,"警告"Text()Text=""Text()Text=""Text()Text=""EndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubFormLoad()Option()Value=TrueEndSubPrivateSubFormResize()Text()SetFocusEndSubPrivateSubOptionClick(IndexAsInteger)IfIndex<>ThenFori=ToCheck(i)Enabled=FalseNextiElseFori=ToCheck(i)Enabled=TrueNextiEndIfEndSub(会员档案管理模块:因为本系统中有些功能模块具有相似之处因此在本文只用此模块进行一个简单的说明。其它的相似模块的代码可能参阅本模块的设计思路。PublicprintstrAsStringPrivateSubCommandClick()DimdbSourceAsDatabaseSetdbSource=OpenDatabase("xsmdb")z=MsgBox("成功~",vbOKOnly,"查询")EndSubPublicSubclassshowtitle()DimiAsIntegerMSFClearWithMSFCols=TextMatrix(,)="年度"TextMatrix(,)="卡种"TextMatrix(,)="所属"TextMatrix(,)="时限"TextMatrix(,)="项目"TextMatrix(,)="主管教练"TextMatrix(,)="备注"ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=FixedRows=Fori=ToColAlignment(i)=NextiFillStyle=flexFillSingleCol=Row=RowSel=ColSel=ColsCellAlignment=Row=EndWithEndSubPublicSubclassshowdata()DimjAsIntegerDimiAsIntegerDimmrcAsADODBRecordsetSetmrc=ExecuteSQL(Trim(txtsql))IfmrcEOF=FalseThenmrcMoveFirstWithMSFRows=DoWhileNotmrcEOFRows=RowsFori=TomrcFieldsCountTextMatrix(Rows,i)=mrcFields(i)NextimrcMoveNextLoopmrcCloseEndWithElseIfclassfind=TrueThenFormclassHideFormclassShowzzz=MsgBox("对不起没有此会员的档案记录~",vbOKOnly,"查询")FormclassZOrder()FormclassText()SetFocusEndIfEndIfEndSubPrivateSubcmddelClick()qxstr=Executeqx()Ifqxstr="readonly"Thenss=MsgBox("对不起你是只读用户不能删除记录请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfDimmrcAsADODBRecordsetDimmsgtextAsStringDimintcountAsIntegerIfTrim(MeMSFTextMatrix(MSFRow,))=""Thensssss=MsgBox("你还没有选择记录~",vbOKOnlyvbExclamation,"警告")ExitSubEndIfIfMsgBox("确定要删除会员为"Trim(MeMSFTextMatrix(MSFRow,))"的记录吗,"Chr()Chr()"继续会导致该数据丢失继续吗,",vbOKCancelvbExclamation,"警告")=vbOKThentxtsql="delete*fromxjwhere班级='"Trim(MeMSFTextMatrix(MSFRow,))"'"Setmrc=ExecuteSQL(txtsql)txtsql="delete*fromjfwhere学号in(selectfromxjwhere班级='"Trim(MeMSFTextMatrix(MSFRow,))"')"Setmrc=ExecuteSQL(txtsql)'删除在交费表中的所有该卡种的记录txtsql="delete*fromcjwhere卡号in(selectfromxjwhere卡种='"Trim(MeMSFTextMatrix(MSFRow,))"')"Setmrc=ExecuteSQL(txtsql)'删除在成绩表中的所有该班级的记录txtsql="delete*fromclasswhere班级='"Trim(MeMSFTextMatrix(MSFRow,))"'"Setmrc=ExecuteSQL(txtsql)'删除该班级的记录EndIfzxh=MsgBox("记录成功删除~",vbOKOnly,"查询")txtsql="select*fromclass"classshowtitleclassshowdataCallFormActivateEndSubPrivateSubcmdfindClick()FormclassShowEndSubPrivateSubcmdmodiClick()IfTrim(MeMSFTextMatrix(MSFRow,))=""Thensssss=MsgBox("你还没有选择记录~",vbOKOnlyvbExclamation,"警告")ExitSubElseqxstr=Executeqx()Ifqxstr="readonly"Thenss=MsgBox("对不起你是只读用户不能修改记录请与管理员联系~",vbInformationvbOKOnly,"警告")ExitSubEndIfclassmodi=TrueFormclassShowFormclassclassloadFormclassZOrderCallFormActivateEndIfEndSubPrivateSubcmdprintClick()IfTrim(printstr)=""Thensssss=MsgBox("没有当前记录~",vbOKOnlyvbExclamation,"警告")ExitSubEndIfIfDataEnvrsCommandState=adStateOpenThenDataEnvrsCommandCloseEndIfDataEnvrsCommandOpenprintstrIfDataEnvrsCommandEOF=TrueThensssss=MsgBox("没有当前记录~",vbOKOnlyvbExclamation,"警告")ExitSubEndIfDataReportclassShowEndSubPrivateSubcmdprintallClick()IfDataEnvrsCommandState=adStateOpenThenDataEnvrsCommandCloseEndIfDataEnvrsCommandOpen("select*fromclass")IfDataEnvrsCommandEOF=TrueThensssss=MsgBox("没有当前记录~",vbOKOnlyvbExclamation,"警告")ExitSubEndIfDataReportclassShowEndSub会员缴费管理第五章系统运行及评价系统的运行一个新的信息系统建立起来以后只有与企业的要求完全相符与实际情况完全协调才能充分发挥其作用达到设计的最终目标。而这一切只有在实际运行过系统一段时间后才能得出结论。一个系统即便设计阶段做得再好运行起来效果不满意也无法体现新系统的优势。当然新建立的系统在设计阶段必然会有一些没有体现出来的缺陷与不足而且随着企业对系统要求的不断改变系统同样会显露出与现实的不适应性这些都是系统在运行中所要解决的问题。本系统还未经受过长时间的实际操作在设计上还有一定的不足希望经过一定时间的运行能使本系统的功能得到进一步的改善以使其能适应不断变化的外部环境。在系统运行中还应注意对系统的维护系统维护主要是对系统数据及运行情况进行维护。数据维护主要是对数据的备份存储及统计这样既保证了数据的安全又是数据更有条理性方便相关人员使用。运行维护主要是保护系统的硬件运行环境避免一些不当的操作防止外界如病毒等异常情况的干扰。对系统还应定期进行检测。运用以上方法可使系统更安全、使用时间更长从而更有利于系统的实际使用效果。系统的评价系统运行一段时间后就应得出系统的评价以指导系统的进一步改进。系统评价是指系统在正式运行一段时间之后对它在功能上、技术上和经济上所进行的审核评价。进行系统评价的目的是检查系统是否达到预期的效果了解系统的不足与优势以为日后的进一步改进提出意见。系统评价包括系统性能评价、系统效益评价和系统管理评价。就系统性能评价而言本系统的功能体现了健身中心管理的基本工作从根本上改善了管理人员的日常工作环境提高了数据的安全性与可用性。更有利于各项工作的开展。就系统效益评价而言本系统的运行提高了工作人员的工作效率体现了数据的系统化管理优势、提高了数据处理的能力使得健身中心会员管理更具系统性。这些都使得中心的效益有了很大的提升。就系统管理评价而言由于本系统管理人员对健身中心会员的整体情况有了更深入地了解其管理工作也就更具针对性与预见性。这使健身中心日常管理工作更科学、更有效。第六章结束语本系统是根据健身中心内日常工作特性为基础设计的系统功能集会员卡管理会员档案管理会员费用管理和系统管理为一体体现了一个健身中心内日常工作的基本组成部分。本系统还建有完善的数据统计功能以模块的形式提供给系统从作者形成统计表供相关人员使用。一个新系统的开发并不是只建立在系统程序设计上而更重要的是要体现在一个系统开发过程中管理上的系统性。利用新系统代替旧系统是需要过程的在这个过程中还需不断完善系统使系统更适应现实情况。在本系统的开发过程中由于本人是初次开发软件在知识、经验方面都存在着不足。另外在整个开发的过程中时间也比较仓促。因此该系统必然会存在一些缺陷和不足。因为对学生管理的整个流程不够熟悉在需求分析时未能做到完全满足用户的需求。虽然网络在学生管理系统中的应用不是很多但是未来的发展方向在本次开发过程由于硬件的限制未能实现网络功能因此在以后的系统更新过程中可能会造成一些不必要的数据损失。尽管本管理系统存在着很多不足但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。通过开发这个系统我掌握了的项本过程了解了的基本知识巩固了我对VisualBasic的学习但在这次毕业设计中的最大收获并不是掌握这几门开发工具的应用而是学会了设计系统的思维方法以及与同学们之间相互帮助的精神。通过这次毕业设计体现了一次程序开发的完整过程。整个过程使四年来所学到的知识得到了充分的运用。虽然本系统设计的还很简单报告制作的也很不完善与成熟。但所经历的这次过程才是目的。有了这次经验使我更有信心将所学到的知识运用到实践中去、更有信心迎接今后的挑战。致谢在论文即将完成之际回顾紧张但又充实的学习班和开发过程本人在此向所有关心我的及帮助我的老师和同学们致以最真诚的感谢。在本次毕业设计中我从指导老师XXX老师身上学到了很多东西。他认真负责的工作态度严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中都给与我很大的帮助使我得到很大的提高这对于我以后的工作和学习都有一种巨大的帮助在此感谢他耐心的辅导。在撰写论文阶段XXX老师几次审阅我们的论文提出了许多宝贵意见没有她的指导我们就不能较好的完成课题设计的任务。另外我还要感谢在这几年来对我有所教导的老师他们孜孜不倦的教诲不但让我学到了很多知识而且让我掌握了学习的方法更教会了我做人处事的道理在此表示感谢。同时在系统开发过程中还有同组的同学也给了我不少帮助这里一并表示感谢。参考文献周佩德《数据库原理及应用》电子工业出版社刘炳文等VISUALBASIC程序设计数据库篇李光明《VisualBasic编程实例大制作》冶金工业出版社刘炳文精通VISUALBASIC入门与提高人民邮电出版社黄淼云《VB办公自动化编程》国防工业出版社王要武管理系统电子工业出版社李红等编著管理信息系统开发与应用电子工业出版社周之英缟著现代软件工程科学出版社康博工作室张红军王红等缟著《VisualBasic中文版高级应用与开发指南》人民邮电出版社年月第一版林立军程斌翁迪恩缟著《VisualBasic数据库开发指南》西安电子科技大学出版社年月第一版张宏林孔艳王哲等编著。《按实例学VisualBasic>北京人民邮电出版社宋伟吴建国等编著《中文VisualBasic编程基础》北京清华大学出版社美JeffreyPMcManus著赵学锁龚波李志曹天伟等译《VisualBasic数据库存访问技术》年月第一版

用户评论(0)

0/200

精彩专题

上传我的资料

每篇奖励 +2积分

资料评价:

/45
0下载券 下载 加入VIP, 送下载券

意见
反馈

立即扫码关注

爱问共享资料微信公众号

返回
顶部