瑜伽馆收费管理系统焦莹毕业设计.doc

山东科技大学泰山科技学院毕业设计（论文）说明书瑜伽馆收费管理系统焦莹毕业设计目录1前言11.1 系统开发背景11.2 研究目的及意义11.3 开发工具简介22需求分析32.1 系统初步调查32.2 系统方案的提出32.3 系统功能需求43 可行性分析63.1 经济可行性63.2 技术可行性63.3 操作可行性74 系统概要设计84.1 系统的功能设计84.2 系统数据库设计94.3 系统E-R图115详细设计125.1 登录窗体设计125.2 基本信息管理135.3 基本业务管理155.4 收银结算管理165.5 系统管理176系统测试206.1 系统测试概要206.2 实例测试及总结207总结25参考文献26致谢27附 录28A 主要原程序28B 用户手册54C 软件光盘56561前言收费系统是瑜伽馆的一项重要工作。而瑜伽馆收费管理系统就是集计算机管理、日常收费、财务分析为一体的。它可以实现无纸化办公，并通过强大的查询和检索功能，提高办事效率。因此，开发这样一套管理软件成为很有必要的事情，以下是其开发过程和所涉及到的问题及解决方法。1.1系统开发背景随着国家体育事业的发展，对全民健身要求也越来越高，瑜伽馆也随着大家的认同走进了我们的生活。其中对瑜伽馆的要求之一就是要能有个完善的瑜伽馆收费管理系统，其中瑜伽馆的收费管理系统的效率水平问题就很重要了，对于瑜伽馆的整体运行起了很大的作用和意义。我们无法随时都有精力和时间去出适应多变的健身者要求，传统的人工方式不仅会导致收费的非理性，使工作人员和瑜伽馆的负担过重，从而浪费了大量的人力与物力，影响整个瑜伽馆机构的运作和控制管理。因此，必须制定一套合理、有效，规范和实用的瑜伽馆收费管理系统，进行集中统一的管理。随着计算机的广泛应用，越来越多的瑜伽馆均采用了计算机化的收费管理办公。1.2研究目的及意义瑜伽馆收费管理系统虽然只是要求收费和财务管理功能，但是对于资料的保密性和管理员对数据库的更新和维护要求也是要在本系统中体现出来的，而且对于一般的用户我们只让查询基本资料的权利，其他的功能都不可以使用，对其进行权利限制。本系统主要完成对瑜伽馆场地的预定，来宾的消费，会员的管理以及营业查询这几个主要功能。其总的设计目标是实现收费的系统化、规范化和自动化，实现对资料的集中统一的管理，有效地帮助管理人员更好更高效的完成馆内来宾的消费工作。系统以Microsoft Visual Basic 6.0为开发语言，用SQL SERVER 2000作为后台支持数据库。1.3开发工具简介1.3.1 ADO（Activex Data Objects ）接口的概述ADO 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置ADO控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADO控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。ADO控件还提供了用来浏览不同记录的各种跳转按钮。将ADO控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。1.3.2 SQL SERVER和Visual Basic结合的优点将SQL SERVER和Visual Basic两者结合起来使用，最主要的优点就是两者使用相同的数据库引擎，即Microsoft jet。Microsoft jet是microsoft SQL SERVER数据库系统的数据库引擎组件.由于两者使用使用相同的数据库引擎，因此可以建立既包括SQL SERVER又包括Visual Basic组件的应用程序，这样就提高了程序的稳定性，充分发挥了两者各自的优点。2需求分析2.1 系统初步调查本系统初步调查是与各个瑜伽馆管理人员进行交流，并到瑜伽馆进行调研了解到，瑜伽馆的收费管理工作存在的主要问题如下。瑜伽馆收费管理工作缺乏规范性，随意性很大，因此保密性就很差，另外此瑜伽馆的数据库建立是用Access做的，虽然操作简单，但是这种数据库效率低、保密性差，另外时间一长，将产生大量的文件和数据，运行速度就会减慢，有时过大的数据量就会出现错误。会员信息与房间信息分别录入，无法集中统一的管理和实现信息共享。并且对于不同积分的会员，无法有效快速的分类管理。因此，为了改变现有状况，适应社会发展，瑜伽馆需要开发一个新的管理系统，以此来改善瑜伽馆的管理结构和运作方式，使之能适应信息化的发展战略和更好的服务于大家。2.2 系统方案的提出这一阶段的主要目标是明确瑜伽馆的信息需求，包括业务、统计的总信息需求和管理人员完成的工作任务的信息需求。确定系统的逻辑功能，提出系统的逻辑方案。本系统的逻辑模型主要以数据流图为描述工具。在对酒店管理系统层次分析和研究的基础上，通过对系统的初步调查和详细调查，按信息系统中应有的数据流和数据结构来勾画系统的概貌。为了建立一个满足瑜伽馆需求的管理系统，应在深入调查、详细研究资料的基础上，集中分析瑜伽馆管理活动中信息运动的规律和存在的问题，研究如何改善信息流的运动，满足瑜伽馆管理人员决策活动中的信息需求。因此要对调查材料进行加工、提炼、抽出其中之反映瑜伽馆信息运动规律的部分，把瑜伽馆管理人员的需求“翻译”成对信息处理功能的需求，以建立系统的逻辑模型。瑜伽馆管理系统中的数据流图是瑜伽馆信息运动的抽象，是管理系统逻辑模型的主要形式。将信息处理功能和彼此之间的联系自顶向下、逐层分解，从逻辑上精确的描述系统具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向。数据流图重点在简单的描述以处理逻辑为中心的数据的流入与流出，而对数据本身未加描述，影响了用户对数据流图的理解。数据字典是对数据流图的很好的补充，它是数据流图上所有成分的定义和解释的文字集合，它是对数据流图的各种成分起注解、说明的作用，同时它还对系统分析中其他需要说明的问题进行定义和说明。系统分析人员把不便在数据流图上注明而对于系统分析应该获得，对整个系统开发以至将来系统运行与维护是必须的信息尽可能放入数据字典。2.3 系统功能需求通过与瑜伽馆老板的交流，参观其管理运作，对其组织结构进行分析，了解到系统主要由以下几部分构成：基本信息、基本业务、场地管理、查询统计、系统设置五个部分组成。由于瑜伽馆每天的客流量很大，接受的顾客就越来越多，每天都有大量的信息转入管理，加之工作本身的复杂性和多样性，从酒店的组织结构中已不能完全反映该部分所包含的业务。如果从功能的角度来考虑系统的建立和开发，那么该系统对组织的变化就有一定的相对独立性。所以，要在酒店的组织结构中进行功能层次的分析，如图2.1所示。图2.1系统层次结构图瑜伽馆收费管理系统是一个信息化管理系统，能够实现预定的功能。该系统利用刷卡方式进入，通过计费自动扣除IP卡上的金额，从而实现自动收费，通过管理端与客户端的完美结合，实现多模式、多功能的开放收费管理。它主要有以下几个功能模块组成：1基本信息包括场地信息和会员信息。2基本业务包括预定场地、入场登记和结账。3场地管理包括预订单明细表，入场单明细表。4查询统计包括账单查询，场地查询，会员查询。5系统设置包括用户权限，用户密码，密码设置。其中各个模块的具体内容如下：1.基本信息：对来宾的信息管理，判断是否会员，以及对来宾所要求使用的场地和预定情况进行管理。2.计费管理：对宾客进行结帐管理，并对宾客所有消费的清单进行统计查询。3.场地预订管理：预订各种锻炼场地。4.开场管理：为来宾开场地并开始计费。5.系统维护：可以修改当前管理员的密码及用户管理，权限的分配。装订线山东科技大学泰山科技学院毕业设计（论文）说明书3 可行性分析3.1 经济可行性瑜伽馆收费管理系统是一个简单、易于运行的系统，为管理员提供操作上的简单，对于复杂数据，都能很好的进行处理。对顾客的信息以及需求等方面都做了有效的统计，使瑜伽馆的日常管理工作实现了无纸化办公。瑜伽馆是一个新兴行业，在各方面还没有成熟的管理系统来借鉴，本系统从根本上提高了工作效率、服务质量和管理水平。本系统的目的就是减轻管理员的工作量，减少差错，节省人力。方便管理员的查询，提高工作效率和工作质量。所以，一个现代化的适应社会发展需要的体育场所，除了具备硬件基础设施之外，还应具备简单、易于操作的管理系统。此管理系统是针对普通管理用户进行开发的，其系统对计算机的软硬件的要求不是很高，而且也无需过多的资金投入，从而经济上是可行的。3.2 技术可行性本软件开发中所使用的技术如VB和SQL Server 2000数据库技术等是在许多类似的软件开发工程中被证明了是成熟可行的。VB提供了一套可视化设计工具，大大简化了Windows程序界面的设计工作，同时其编程系统采用了面向对象、事件驱动机制，与传统BASIC有很大的不同。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了控件内，所以程序员不用写多少代码就可以完成一个简单的程序。SQL Server 2000是大型的数据库管理系统，它建立在成熟而强大的关系模型基础上，在管理系统中，我们需要大量的数据资料，如顾客信息、房间信息资料、帐单明细资料等，这些资料的数量是很大的，有点甚至要上万条记录。通过SQL Server 2000数据库，就可以建立系统所需要的数据表，以供系统使用。SQL Server 2000分布式查询可以引用来自不同数据库的数据，而且这些对于用户来说是完全透明的；分布式数据库将保证任何分布式数据更新时的完整性；复制可以使我们能够维护多个数据复本，这些用户能够自主地进行工作，然后再将所做的修改合并到发布数据库；SQL Server 2000关系数据库引擎能够充分保护数据完整性，还可以将管理并发修改数据库开销到最小。由此得出酒店管理系统在技术上是可行的。3.3 操作可行性系统采用VB语言作为前台的编程语言，采用SQL Server 2000建立数据库，它们都是技术可靠的软件，本系统是一个简捷、方便的管理系统，在系统前台设计中我用了Data Grid控件，使之成为一个可视化窗体，可以直观的进行修改、添加、删除等功能。开发人员可以更加快速地交付SQL Server 2000应用程序，而且只需要进行最少的安装和管理就可以实现这些应用程序。SQL Server 2000数据库具有易用性、可扩展性、可靠性，而且易于安装，通过以上分析，可得出结论：本系统的实施和运行具有普遍的可行性。4 系统概要设计根据上面需求分析的结果，对瑜伽馆收费系统的具体实现步骤，已经有了基本的方向，本章主要介绍瑜伽馆收费系统的具体设计过程。4.1 系统的功能设计 该系统在功能设计上如下：1.场地管理：根据来宾的要求和预定情况对场地进行开单。2.计费管理：按系统所设置好的扣费方法，对本次消费进行计帐管理。3.用户管理：主要包括对管理员的密码进行修改和对系统数据进行维护和恢复。4.系统信息：包括软件的信息和系统的使用帮助。根据对系统功能的具体分析，对系统的整体流程有了明确的方向，综合以上的分析，系统总体结构如图4.1所示。图4.1 系统结构图4.2系统数据库设计把E-R图凡在表单前边根据系统的任务书，现设计如下的数据库表格如图4.2所示。图4.2 用户表（User）该表用来设置管理员权限问题。不同的权限设置提供不同操作，使得整个系统的运作井然有序，提高了系统的安全性，可操作性。图4.3 会员表图4.3实现了会员的管理，同时可以给予一些会员以折扣。该表实现了收费管理，统一了收费的管理。能够根据不同项目的需要录入不同的收费依据。提高了收费的针对性。有效的利用了系统资源。图4.4 场地图4.4实现了场地的管理，使得瑜伽馆中体育项目分门别类。增强了项目的针对性。提高了实用性。图4.5 账单图4.5设置项目的单价，体现项目收费的规范性。该表实现了收费管理，统一了收费的管理。能够根据不同项目的需要录入不同的收费依据。提高了收费的针对性。有效的利用了系统资源。4.2.1数据库与VB的连接Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种：通过使用Visual Basic的 ADO控件。通过使用activex对象直接与数据库相连。主要实现代码是：cnn.CursorLocation = adUseClientcnn.Open provider=sqloledb.1;data source=(local);initial catalog=ktv;uid=sa;pwd4.3系统E-R图通过以上的成功设计，基本上可以看到瑜伽馆收费系统ER图。E-R图为实体-联系图，提供了表示实体型、属性和联系的方法，用来描述现实世界的概念模型。如图4.6所示。管 理 员宾客帐单结帐名称权限密码系统数据开设/更改/预定场 地增加修改计费单价编号费用占用空场预定打扫维修来宾使用健身房 收 费 系 统会员添加修改nn1nn1n1用户管理图4.6 概念模型图5详细设计5.1 登录窗体设计在这里输入用户名以及密码就可以进入了，密码或者用户名有错就无法进入，本系统的管理员只有一个（admin），对系统有管理功能，其他人是无法对系统进行管理的，而且权限是不可以更改的，也就是他就是一种默认的系统管理员，只有管理员才可以对其他用户进行修改，其他人是无法实现管理功能的。登录成功并打开MDI主窗体（如图5.1所示）后，应根据人员类型设置菜单权限，当是管理员时，可以实现增加，删除，修改，查询，退出全部功能，当是查询人员时，只能实现查询，退出两项功能。程序代码：重新改strSql = SELECTstrSql = strSql + * strSql = strSql + FROM strSql = strSql + manager strSql = strSql + WHERE strSql = strSql + user= + Trim(Cbo_name.Text) + strSql = strSql + AND strSql = strSql + password= + Txt_password.Text + Debug.Print strSql Set record = doSelect(strSql) 这段代码实现了与数据库连接核对。图5.1主界面我们依次点击主界面上的主要控件，分别叙述所有窗体的功能.。5.2基本信息管理5.2.1场地管理如图5.2所示。此控件的功能是对场地编号、场地名称类型、金额和场地状态的录入和编辑功能。根据不同的需求录入不同的资料。为了实现可视化界面，我运用了Data Grid控件。点击基础设置模块，可以出现一个窗口，出现客房信息设置与客房类型设置。此控件是场地信息设置，用户通过此界面，可以直观的查看房间的各种信息。也可以实现新增、修改、删除等操作。主要代码如下：If lx = 1 Then Me.Command1.Enabled = False Me.Command2.Enabled = False Me.Command3.Enabled = False End If 设置Adodc连接字符串 Adodc1.CommandType = adCmdTable Adodc1.RecordSource = RoomInfo 设置Grid 与 Adodc1关联 Set DataGrid1.DataSource = Adodc1图5.2 场地管理5.3基本业务管理5.3.1预订管理预定管理可以为顾客提供提前预定服务，根据顾客的要求以及现实情况录入信息。顾客如果是会员，也可以在预定管理中体现出来，并于会员积分和打折处理。图5.4 预订管理主要程序代码： 从数据库中读取数据写入场地编号下拉列表框 Dim adoRs As New ADODB.Recordset DBStr = select RoomID from RoomInfo where RoomState=空场 adoRs.Open DBStr, cnn, adOpenStatic, adLockReadOnly If adoRs.RecordCount 0 Then adoRs.MoveFirst Do While Not adoRs.EOF CombRoomID.AddItem adoRs.Fields(0).Value adoRs.MoveNext Loop Else MsgBox 无空场！ Exit Sub5.4 收银结算管理此控件功能是输入场地号查看场地的运行状态和以产生续费功能。图5.6 收银结算主要程序代码： 在开放单表中删除此记录 Str = select * from RoomConsumed where RoomID= & Trim(Me.CombRID.Text) & DelORInfo.Open Str, cnn, adOpenStatic, adLockOptimistic 改变场地信息表中的场地状态 sRoomID = Trim(Me.CombRID.Text) sRS = update RoomInfo set RoomState=打扫 where RoomID= & sRoomID & cnn.Execute sRS重新改 5.5 系统管理用户权限设置如图5.7所示。图5.7 用户权限此功能是设置不同用户的权限，增强系统的安全性。主要程序代码：sRemark = Trim(Me.CombRemark.Text) Str = select * from UserInfo where UserID= & sUserID & ModUserPower.Open Str, cnn, adOpenStatic, adLockOptimistic ModUserPower.MoveFirst ModUserPower.Fields(UserType).Value = Trim(Me.CombUType.Text) ModUserPower.Fields(Remark).Value = Trim(Me.CombRemark.Text) ModUserPower.Update ModUserPower.Close MsgBox 修改成功! Me.TextUserID.Text = Me.CombUType.Text = Me.CombRemark.Text = Adodc1.Refresh6系统测试6.1系统测试概要1.测试目标1）确保系统测试的活动是按计划进行的；2）验证软件产品是否与系统需求用例不相符合或与之矛盾；3）建立完善的系统测试缺陷记录跟踪库；4）确保软件系统测试活动及其结果及时通知相关小组和个人。2.测试环境硬件环境：英特尔酷睿2双核处理器T5500，内存1.5G。系统环境：Windows98以上的系统均可。开发工具：VB，SQL Server。软件的使用条件和限制，不同的管理级别有不同的操作权限。3.测试概要用表格的形式每一项测试的标识符及其测试内容，并指明实际进行的测试工作内容与测试计划中预先设计的内容之间的差别，说明作出这种改变的原因。6.2实例测试及总结1 登录功能测试对后台用户登录进行测试，输入用户名，密码，如图6.1所示。图6.1 后台登陆图用户名admin，密码admin，输入错误，则显示如图6.2所示。图6.2 错误图2 会员添加模块功能测试对会员管理模块进行测试。原始界面如图6.3所示。图6.3 原始界面如果添加用户输入信息与已有会员相同，则会提示该姓名已存在，如图6.4所示。图6.4 错误界面如果是添加用户正确，则直接录入。如图6.5所示。图6.5 添加成功测试结果：添加会员成功。在测试中程序设计过程中会出现很多错误，有时是语法的错误，除此之外，还会遇到逻辑错误，这种错误发生时，程序虽然可运行，但是不能执行规定的任务。程序调试中，对于语法的错误，Visual Basic 提供了语法检查器，每键入一行代码，语法检查器都会进行检查，出现错误时，在键入下一行代码前，系统都会做出错误提示。在通过对本系统的测试，我发现了很多问题，主要概括为以下几点。1.系统运行中，经常出现“对象变量或者With变量模块未设置”。 2.系统运行后，数据库表中相应字段没有成功更新。对于第一个错误，我主要采用对出现问题的过程设置断点，并进行逐语句跟踪的方法。发现问题主要是对数据库访问时，不能返回一个数据库连接，当然也就不能实现对相应对象的设置和更新等操作。我之所以会发生这种错误，主要原因是刚开始运用sql语言时，对select 语句的结构不熟悉，经过一段时间的学习后，我几乎可以避免这种错误的发生了。实践中同时发现，逐句跟踪代码的方法，对于确定正在访问If else 语句的那一部分也尤其有效。对于第二个错误，我采用快速监视的方法确定变量值，来确定变量随成程序如何变化。再根据具体情况修改程序。以上是我在这次程序调试中遇到的主要问题，其他如函数调用等方面，如果熟练应用，错误可以尽量避免。7总结瑜伽馆收费管理系统是通过VB以及SQL SERVER建立一个收费平台，工作可以用此系统快速完成收费功能。比如会员打折制度，就很人性化，可以实现瑜伽馆的灵活管理。其中，本系统的每一个模块都实现了格子的功能和效果，打到了我的预期设计目标。本设计最大的优点是有预定功能，可以事先把基本资料录入，并可以直接从预定管理项目中直接提取。还有就是计时器的设计，通过时间，可以把业务管理模块中的各个子模块进行连接，系统自动计时。通过本系统可以一目了然的查看瑜伽房信息和顾客的信息。另外，瑜伽馆作为一个服务性的行业，每天的客流量是非常大的，而本系统恰恰具有简捷、方便、直观的优点。为管理员的工作节省了大量的资源。由于时间的限制，整个系统还有很多待开发的地方。下一步我打算加入会员合法性验证，即身份证核对功能。还打算加入其它消费功能，是收费管理更加人性化。而且在美观方面还可以进一步的改进。参考文献1杜春玲等Visual Basic 6.0 程序设计教程J西安工业大学出版社，2008.1 36-58页2关敬敏等SQL Server 数据库应用教程J清华大学出版社，2005.10.-2006.3 146-188页3胡辰浩等SQL Server 实用简明教程J清华大学出版社，2005.7-2008.4. 215-267页4邓良松等软件工程J西安电子科技大学出版社，2004.6-2007.7. 78-99页5张海藩软件工程导论J清华大学出版社，2006.10. 145-189页6李禹生等Access 2000 应用技术实训指导J中国农业大学出版社，2003.9. 298-315页7贾彤福等Photoshop 7.0教程J北京希望电子出版社，2002.10. 8闪四清. SQL Server实用简明教程（第二版）M. 北京: 清华大学出版社, 2005.7:100-153.9王晟.Visual Basic数据库开发经典案例解析M.北京:清华大学出版社，2006.10:2-69.10UML Nationa Guide. /uml,1997致谢在本次毕业设计中，我要非常感谢指导老师张清菊和杨晓东，在我不知道写论文从何落手的时候给了我指点方向，在我感觉到自己知识有所贫乏的时候给了我细心的指导和技术上的支持。使我本身的能力得到了不少的提高，这对于我以后的工作和学习都有一种巨大的帮助，感谢他们耐心的辅导。还有感谢这三年以来不厌其烦的给我传授大学知识的老师们，感谢在生活上以及学习上给我照顾和教诲的辅导员们。但是由于毕业设计时间以及水平有限，所以该系统还有许多不尽如人意的地方，比如功能较少等多方面问题。这些都有待进一步改善。也希望老师们能够多多指教,好让我能够不断进步。大学的生活就要结束了，我们马上跨出校门，走上社会。经过这次毕业设计把我们所学的知识全部贯穿起来，使我拥有一个美好的回忆，也使自己感觉到没有虚度自己的青春年华。附 录A 主要原程序A.1主界面主界面窗体程序代码:Private Sub Form_Load() Me.Caption = 【瑜伽馆收费系统】Me.Icon = Picture / Image00018.gifEnd SubPrivate Sub M12_Click(Index As Integer) End SubPrivate Sub M11_Click(Index As Integer)Select Case Index Case 12 If vbYes = Fun_R_Msg(退出本系统？请您确认, vbYesNo + vbInformation) Then Unload Me End If Case 1 FrmChangdi.Show Case 2 FrmCard.Show Case 3 FrmMarket.Show Case 9 FrmTixin.Show Case 6 Call Fun_S_Msg(请选择场地改变状态!, vbInformation) End SelectEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) Select Case Button.Index 场地开单 Case 1 FrmChangdi.Show 增加消费 Case 2 FrmAdd.Show 宾客结帐 Case 3 Call Fun_S_Msg(请选择要结帐的宾客!, vbInformation) FRM宾客结帐.Show Case 4 FrmOrder.Show 会员管理 Case 5 Call Fun_S_Msg(会员管理, vbInformation) FRM会员管理.Show Case 6 Call Fun_S_Msg(营业查询, vbInformation) FRM营业查询.Show Case 7 Call Fun_S_Msg(商品管理, vbInformation) FRM商品管理.Show Case 8 Call Fun_S_Msg(财务管理, vbInformation) FRM财务管理.Show Case 9 Unload Me Frmlogin.Show Call Fun_S_Msg(换班登录, vbInformation) FRM换班登录.Show Case 10 Call Fun_S_Msg(系统设置, vbInformation) FRM系统设置.Show Case 11 Call Fun_S_Msg(退出系统, vbInformation) If vbYes = Fun_R_Msg(退出本系统？请您确认, vbYesNo + vbInformation) Then Unload Me End If End SelectEnd SubA.2会员信息管理主要程序代码：Option ExplicitPrivate Sub ComdCancel_Click() Unload MeEnd SubPrivate Sub ComdDelete_Click() If Me.DataGrid1.Row = 0 Then MsgBox 请在表格中选择要删除的会员！ Else Me.Adodc1.Recordset.Delete MsgBox 删除成功！ Adodc1.Refresh End IfEnd SubPrivate Sub ComdModify_Click() Dim ModMem As New ADODB.Recordset Dim Str As String Dim SqlStr As String Dim sMemberID As String If Me.TextMemName.Text = Or Me.TextTel2.Text = Then MsgBox 会员姓名和手机号码不能为空! Exit Sub End If sMemberID = Trim(Me.TextMemID.Text) If Me.TextConTime.Text = Or Me.TextConIntegral.Text = Then MsgBox 消费次数和消费积分不能为空！ Exit Sub End If Str = select * from MemberInfo where MemberID= & sMemberID & ModMem.Open Str, cnn, adOpenStatic, adLockOptimistic If ModMem.BOF Then MsgBox 该会员不存在! ModMem.Close Exit Sub End If If sMemberID = ModMem.Fields(MemberID).Value Then ModMem.Fields(MemberName).Value = Trim(Me.TextMemName.Text) ModMem.Fields(Tel1).Value = Trim(Me.TextTel1.Text) ModMem.Fields(Tel2).Value = Trim(Me.TextTel2.Text) ModMem.Fields(Address).Value = Trim(Me.TextAddr.Text) ModMem.Fields(SignCheck).Value = Trim(Me.CombSignCheck.Text) ModMem.Fields(ConsumedTime).Value = Trim(Me.TextConTime.Text) ModMem.Fields(ConsumedIntegral).Value = Trim(Me.TextConIntegral.Text) ModMem.Fields(Remark).Value = Trim(Me.TextRemark.Text) Else MsgBox 修改失败! End If ModMem.Update ModMem.Close MsgBox 修改成功! Me.TextAddr.Text = Me.TextConIntegral.Text = Me.TextConTime.Text = Me.TextMemID.Text = Me.TextMemName.Text = Me.TextRemark.Text = Me.TextTel1.Text = Me.TextTel2.Text = Me.CombSignCheck.Text = Adodc1.RefreshEnd SubPrivate Sub ComdOK_Click() Dim AddMem As New ADODB.Recordset Dim Str As String Dim SqlStr As String Dim sMemberName As String Dim DBStr As String Dim AddMemID As New ADODB.Recordset Dim i As Integer Dim sMemberID As String If Me.TextMemName.Text = Or Me.TextTel2.Text = Then MsgBox 会员姓名和手机号码不能为空! Exit Sub End If sMemberName = Trim(Me.TextMemName.Text) Str = select * from MemberInfo where MemberName= & sMemberName & AddMem.Open Str, cnn, adOpenStatic, adLockOptimistic If Not AddMem.BOF Then MsgBox 该会员姓名已存在! AddMem.Close Exit Sub End If AddMem.Close SqlStr = insert into MemberInfo(MemberID,MemberName,Tel1,Tel2, & Address,SignCheck,ConsumedTime,ConsumedIntegral,Remark) & values( & Trim(Me.TextMemID.Text) & , & & sMemberName & , & Trim(Me.TextTel1.Text) & , & & Trim(Me.TextTel2.Text) & & , & Trim(Me.TextAddr.Text) & & , & Trim(Me.CombSignCheck.Text) & , & & Trim(Me.TextConTime.Text) & & , & Trim(Me.TextConIntegral.Text) & & , & Trim(Me.TextRemark.Text) & ); cnn.Execute SqlStr MsgBox 添加成功! Me.TextAddr.Text = Me.TextConIntegral = Me.TextConTime = Me.TextMemName = Me.TextRemark = Me.TextTel1 = Me.TextTel2 = Me.CombSignCheck = 自动生成新会员编号 DBStr = select MemberID from MemberInfo AddMemID.CursorType = adOpenStatic AddMemID.CursorLocation = adUseClient AddMemID.Open DBStr, cnn, adOpenStatic, adLockOptimistic If AddMemID.EOF Then sMemberID = 001 Me.TextMemID.Text = sMemberID Else AddMemID.MoveLast i = AddMemID.Fields(MemberID).Value + 1 If i = 10 & i 100 Then Me.TextMemID.Text = 0 & i End If End If AddMemID.Close Adodc1.RefreshEnd SubPrivate Sub Form_Load() Dim DBStr As String Dim AddMemID As New ADODB.Recordset Dim i As Integer Dim sMemberID As String Me.Top = (Screen.Height - Me.Height) / 2 垂直方向居中 Me.Left = (Screen.Width - Me.Height) / 2 水平方向居中 设置Adodc连接字符串 Adodc1.ConnectionString = g_ConnStr Adodc1.CommandType = adCmdTable Adodc1.RecordSource = MemberInfo 设置Grid 与 Adodc1关联 Set DataGrid1.DataSource = Adodc1 自动生成会员编号 DBStr = select MemberID from MemberInfo AddMemID.CursorType = adOpenStatic AddMemID.CursorLocation = adUseClient AddMemID.Open DBStr, cnn, adOpenStatic, adLockOptimistic If AddMemID.EOF Then sMemberID = 001 Me.TextMemID.Text = sMemberID Else AddMemID.MoveLast i = AddMemID.Fields(MemberID).Value + 1 If i = 10 & i 100 Then Me.TextMemID.Text = 0 & i End If End If AddMemID.Close Me.TextMemID.Enabled = FalseEnd SubPrivate Sub TextConIntegral_KeyPress(KeyAscii As Integer) KeyAscii = sffunLimitNumber(KeyAscii)End SubPrivate Sub TextConTime_KeyPress(KeyAscii As Integer) KeyAscii = sffunLimitNumber(KeyAscii)End SubA.3预定管理主要程序代码：Option ExplicitFunction ShowRoomInfo() Dim RoomQuery As New ADODB.Recordset Dim StrSql As String Dim sRoomID As String sRoomID =