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

摘 要 随着信息技术在管理上越来越进一步而广泛应用，管理信息系统实行在技术上已逐渐成熟。管理信息系统是一种不断发展新型学科，任何一种单位要生存要发展，要高效率地把内部活动有机地组织起来，就必要建立与自身特点相适应管理信息系统。 本文简介了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”方略开发一种管理信息系统过程。通过度析某一健身中心管理局限性，创立了一套行之有效计算机管理健身中心会员方案。文章简介了会员管理信息系统系统分析某些，涉及可行性分析、业务流程分析等；系统设计某些重要简介了系统功能设计和数据库设计及代码设计；系统实现某些阐明了几种重要模块算法，本系统界面和谐，操作简朴，比较实用。【核心字】：管理信息系统、会员管理、Visual Basic应用。SummaryWith more and more widespread and profound application of information technology in management，the implement of management information system has become mature in technology step by step. Managing information system is a new subject. Enterprise needs existence and development，so enterprise activities should be organized efficiently and organically，which means tightening up the enterprise management and strengthening effective management of any resource (staff，finance，property，etc.) internal the enterprise，and also establishing a management information system fitting in with its own characteristics.This article introduces the detailed process of exploring a management information system under the environment of visual FoxPro，utilizing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and exploitation. That is to establish a set of effective scheme for student management by computer，through analyzing disadvantages of student management by human resources. This article emphasizes on three sections. The system analysis section of student management information includes feasible analysis，management function analysis. The system design section mainly focuses on system function design and data base design and data number design. And the system realization section has provided several major function ，together with the main windows and programs.This economical and pragmatic system has explicit interface，with simple operation.Keywords ：MIS、member management、visual basic application摘 要ISummaryII第一章 系统概述71.1 系统及需求分析81.1.1 系统需求81.1.2可行性分析81.3系统功能简介111.3.1 项目规划111.3.2系统管理模块(CTRL+O)111.3.3会员卡管理模块（CTRL+P）：121.3.4会员档案管理模块（CTRL+T）：121.3.5会员缴费管理121.4系统开发目的12第二章 系统分析132.1业务流程分析13会员卡管理业务流程图：13会员档案管理业务流程图：132.2数据流程分析：142.2.1数据流程图：142.3数据存储分析：实体联系图152.4功能分析：功能层次图153.系统设计163.1软件模块构造设计16311系统方案拟定16312软件构造设计1632数据库设计17321 本系统中所涉及到重要实体共有如下几种数据表：17322 各表物理构造如下：19第四章 系统功能2241系统登陆界面：2242系统主界面：2443顾客管理模块：3544会员档案管理模块：394.5会员缴费管理47第五章 系统运营及评价475.1 系统运营475.2 系统评价48第六章 结束语50致 谢51参照文献52 第一章 系统概述当今社会为信息社会，世界已进入在计算机信息管理领域中激烈竞争时代。信息已成为继劳动力、土地、资本之后又一大资源，谁控制信息越多，谁运用信息资源效率越高，谁就会在各方面竞争中，占有一席之地，谁就会更有优势，这一点已得到举世公认。随着时代进步，社会生产力高速发展，新技术层出不穷信息量急剧膨胀，整个人类社会已成为信息化社会人们对信息和数据运用和解决已经进入自动化、网络化和社会化阶段。如在查找情报资料、解决银行帐目、仓库管理、科研生产等方面，无不需要运用大量信息资源。因而，如何有效地进行数据信息管理和运用，已经成为人们普遍关注课题。信息在不同领域里有着不同概念，在管理科学领域中，普通以为信息是通过加工解决后一种数据形式，是一种有顺序符号排列，它是系统传播和解决对象。处在信息时代今天，信息作用越来越为人们所注重。制定工作筹划，研究投资方略，都离不开对信息充分运用。管理信息系统（Management Information System,缩写MIS）是一种“人机系统”，它以特定模式支持一种组织内各级组织机构之间通讯，对信息资源进行综合开发，管理和运用，实现对该组织有效管理。它通过对数据加工解决，及时为管理与决策分析提供信息。其特点有：l 数据所有存储于计算机系统中；l 顾客使用简朴、操作以便、查询速度快；l 有极强人-机对话功能；l 能直接从计算机系统中提供决策所需参照信息。依照对健身中心会员管理中存在问题进行分析，本会员信息管理系统可以说是一种综合性健身中心会员管理系统，这它集成了系统管理、会员卡管理科、会员档案管理、会员缴费管理等各种功能，因而具备较强实用性和先进性。1.1 系统及需求分析 1.1.1 系统需求 通过调查,规定系统需要有如下功能: 由于操作人员计算机知识普遍较差,规定有良好人机界面; 由于该系统使用对象多,规定有较好权限管理； 原始数据修改简朴以便,支持多条件修改 以便数据查询，支持多条件查询; 在相应权限下，删除数据以便简朴，数据稳定性好； 数据计算自动完毕，尽量减少人工干预;1.1.2可行性分析由于本系统管理对象单一,都是在健身中心注册新老会员，且每个数据内容具备较强关联性，涉及计算过程不是很复杂。因而，比较适合于采用数据库管理。且健身中心用于其会员管理微机都是PIII以上机器，在存储量、速度方面都能满足数据库运营规定。在技术难度方面，由于有指引教师指引和有关参照文献，特别是网上资料，特别是参照其他程序功能，因而完全可以实现。本系统设计是在Windows 98中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功。数据库是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自动产生界面设计代码，程序设计人员只需要编写实现程序功能那某些代码，从而可以大大提高程序设计效率。面向对象程序设计4.0版后来Visual 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所具备功能。1.3系统功能简介本系统重要可以实现如下管理功能：系统管理、会员档案管理、会员交费管理等等。1.3.1 项目规划健身中心会员信息管理系统是一种典型数据库应用程序,由系统管理、会员卡管理、会员档案管理、会员交费管理、打印报表等模块构成,特规划如下:1.3.2系统管理模块(CTRL+O)该模块重要任务是维护系统正常运营和安全性设立,涉及添加顾客(快捷键：CTRL+A)、修改密码(快捷键：CTRL+B)、重新登录(快捷键：CTRL+F1)等等。1.3.3会员卡管理模块（CTRL+P）：该模块功能是实现对健身中心会员卡管理工作，涉及：会员卡浏览、会员卡添加、会员卡查询等，这三个功能模块各自独立，完毕健身中心所有会员卡管理。1.3.4会员档案管理模块（CTRL+T）：该模块重要功能是实现对健身中心会员个人信息管理工作，涉及档案添加、档案浏览、档案查询等功能，从而以便中心管理部门对会员基本状况迅速查询和理解。1.3.5会员缴费管理 该模块重要功能是实现对健身中心会员会费缴纳管理工作，涉及会员会费浏览、会员会费查询等功能。从而以便健身中心管理人员对会员缴纳会费状况掌握与理解。1.4系统开发目的出于本系统是健身中心会员管理一种综合性系统，本系统设计目的将最后定位于完毕以上所述系统重要业务基本模型上。第二章 系统分析2.1业务流程分析会员卡管理业务流程图：管理中心输入计算机管理人员所属部门会员卡种卡种输出会员档案管理业务流程图：管理中心输入计算机管理人员所属部门会员档案档案输出 2.2数据流程分析：2.2.1数据流程图：由于本系统数据模块较多，下面仅以会员档案管理模块为例来进行编制。会员管理部门会员会员档案管理系统管理中心会员教师教师会员信息会员卡查询记录分析会员档案管理系统0层数据流程图管理中心卡费用uyon1.0会员管理2.0卡管理3.0综合管理4.0记录分析D1D2D3查询者管理者会员会员卡会员管理系统1层数据流程图2.3数据存储分析：实体联系图1、数据模型设计。一方面来做出会员档案管理系统E-R图，分析这个问题实体，从系统分析可以懂得，会员档案是由姓名、卡号等构成了这个系统几种实体。2、再分析几种个实体之间联系。这几种实体不是一种统一体。这个E-R图可画成下图。2.4功能分析：功能层次图会员档案添加会员档案修改会员档案删除卡信息添加卡信息修改卡信息删除卡信息浏览会员缴费浏览会员缴费查询添加顾客重新登录更改密码系统管理会员缴费管理会员卡管理会员档案管理会员管理系统3.系统设计3.1软件模块构造设计311系统方案拟定通过对系统调研与分析，系统重要应完毕功能有：会员档案管理、会员卡管理、会员交费管理、系统管理、报表打印等功能。312软件构造设计本系统在执行时，先依照不同操作人员需要来进行相应模块，然后可以输入数据或者进行其他查询或浏览等操作；总体来说，本系统属于一种事务型管理系统。接受数据解决中心卡管理档案管理交费管理系统管理其她管理打印报表 32数据库设计数据库采用了Microsoft推出Access数据库，这是微软集成到Office中一种桌面数据库，可以迅速以便和Office其她套件综合使用。由于Access具备明显简易性和有效性，大量桌面数据库系统都采用Access作为后台数据库。使用Access好处还在于，如果你系统扩展到Client/Server模式时候，可以使用Microsoft数据库服务器软件SQL Server，此时，程序只需要简朴修改一下链接（ADO数据源）就可以，这样，为程序平滑扩展提供了非常有力条件。321 本系统中所涉及到重要实体共有如下几种数据表：class表：年度，卡种，所属，时限，项目，主管教练，备注jf表：卡号，年度，交费，欠费，日期，操作员use表：username,password,admin,readonly,qx1,qx2,qx3,qx4xj表：卡号，姓名，性别，卡种，出生年月，家庭住址，邮政编码，联系电话，注册时间，备注jiaofei表：年度，所属，时限，会费322 各表物理构造如下：Class表：字段名称类型宽度小数位年度文本16卡种文本20所属文本5时限文本8项目文本16主管教练文本8备注备注Jf表：字段名称类型宽度小数位卡号文本5年度文本50交费货币自动欠费货币自动日期日期/时间操作员文本10Use表：字段名称类型宽度小数位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2xj表：字段名称类型宽度小数位卡号文本9姓名文本8性别文本2卡种文本10出生年月日期/时间家庭住址文本30邮政编码数字（长整型）联系电话数字（长整型）注册时间日期/时间备注备注jiaofei表：字段名称类型宽度小数位年度文本16项目文本50时限文本20学费货币自动第四章 系统功能本某些重要内容为本系统运营界面以及重要界面源代码。41系统登陆界面：本界面重要功能是为了对系统进行安全性管理，本系统顾客名和密码保存在USE表中，本系统依照不同顾客而设立了不同权限，可以用111;111为顾客名和密码来登陆本系统。Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = select username from use where username= & Trim(Text1.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 顾客名错误！，vbExclamation + vbOKOnly，警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd Ifusername = mrc.Fields(0)txtsql2 = select username from use where password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql2)If mrc.EOF = True Then MsgBox 密码错误！，vbExclamation + vbOKOnly，警告 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit SubEnd Iftxtsql = select username from use where username= & Trim(Text1.Text) & and password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 顾客名称和密码不匹配！，vbExclamation + vbOKOnly，警告 Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text = Text1.TextUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub42系统主界面：本模块是本系统应用界面，在本界面上集成了本系统所有功能，共有5个功能菜单和12个子菜单（功能模块），从而实现了本系统从会员卡管理、会员档案管理、会员缴费管理、系统管理等系统详细功能，同步，在系统管理模块中可以完毕对本系统安全性管理。Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long，ByVal hWndInsertAfter As Long，ByVal X As Long，ByVal Y As Long，ByVal cx As Long，ByVal cy As Long，ByVal wFlags As Long) As LongDim find1 As IntegerDim liulan1 As IntegerPrivate Sub add_Click()qxstr = Executeqx(2)If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd If Form1.Show modi = False Form1.ZOrder (0)End SubPrivate Sub cjadd_Click()fenshumodi = Falseqxstr = Executeqx(4)If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd Iffrmcj2.Showfrmcj2.ZOrder 0End SubPrivate Sub cjbrowse_Click()qxstr = Executeqx(4)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd Iffrmcj1.Showfrmcj1.ZOrder 0End SubPrivate Sub claasfind_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd If Form4.Show Form4.ZOrder (0) i = SetWindowPos(Form4.hwnd，-1，0，0，0，0，3)End SubPrivate Sub classapp_Click()qxstr = Executeqx(2)If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd IfFormclass1.Show classmodi = False Formclass1.classload Formclass1.ZOrder (0)End SubPublic Sub clabrowse()txtsql = select * from classFormclass2.ZOrder (0)Formclass2.Caption = 浏览班级设立Formclass2.classshowtitleFormclass2.classshowdataEnd SubPrivate Sub classbrowse_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd IfFormclass2.ShowEnd SubPrivate Sub classfind_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd If Formclass3.Show Formclass3.ZOrder (0)End SubPrivate Sub find_Click() End SubPrivate Sub classkecheng_Click()qxstr = Executeqx(4)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd IfFrmclasskecheng1.ShowFrmclasskecheng1.ZOrderEnd SubPrivate Sub denglu2_Click()Frmdenlu.ShowUnload MeEnd SubPrivate Sub jiaofeiadd_Click()qxstr = Executeqx(3)If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd IfFrmjf1.ShowFrmjf1.ZOrder 0End SubPrivate Sub jiaofeibrowse_Click()qxstr = Executeqx(3)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd Iffrmjf2.Showfrmjf2.ZOrder 0End SubPrivate Sub jiaofeifind_Click()qxstr = Executeqx(3)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd IfFrmjf4.ShowEnd SubPrivate Sub jibenkecheng_Click()qxstr = Executeqx(4)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd Iffrmjiben.Showfrmjiben.ZOrder 0End SubPrivate Sub leixing_Click()qxstr = Executeqx(4)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd IfFrmleixing.ShowFrmleixing.ZOrder 0End SubPrivate Sub liulan_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员联系！，vbInformation + vbOKOnly， 警告) Exit SubEnd If find = False Form3.ShowEnd SubPrivate Sub MDIForm_Load()username = 0001DataEnv1.Connection1.ConnectionString = connstringStatusBar1.Panels(2).Text = NowStatusBar1.Panels(3).Text = 当前操作员： & usernameDim aa As StringSelect Case Executeqx(1)Case admin aa = 超级管理员Case readonly aa = 只读管理员Case Else aa = 普通管理员End SelectStatusBar1.Panels(4).Text = 状态： & aaEnd SubPrivate Sub useradd_Click()qxstr = Executeqx(1)If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能权限，请与管理员