会员管理系统

1、精选优质文档-倾情为你奉上专心-专注-专业会员管理系统摘要：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。 通用会员管理系统为需要管理大量会员信息的公司企业提供会员登记,会员浏览,会员查询等功能. 方便管理者按照各种分类来划分,寻找会员.提高管理效率,为企业创造效益.其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI 6.0 软件及其提供的各种面向对象的开发工具，建立完整性强、安全

2、性好的数据库，开发出功能完备，易使用的应用程序。经过调试、编译与实现，该程序界面友好、程序设计风格朴素，使用起来美观大方、方便易用。尤其是系统的“会员登记”的功能极大的减轻工作人员的工作量，并以快速、准确等优点取代人工操作，提高了光盘管理工作效率。关键词 ：会员管理系统 模块 数据库 Access 精选优质文档-倾情为你奉上专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业Member Management System for the overall management of the need to provide Member Member information compani

3、es registered Member visit, Member enquiries, and other functions. To facilitate managers in accordance with classifications divided find members. Improve management efficiency, creating benefits for the enterprise. its development mainly to the establishment and maintenance of databases including b

4、ackground and the development of two front-end applications. Delphi 6.0 and the use of object-oriented software development tools, the establishment of strong integrity, good safety database developed functions, easy to use applications. After debugging, Translation and the realization that the proc

5、ess friendly interface, simple programming style, using up aesthetic generous, convenient user-friendly. In particular system Member Registration function greatly reduce the workload of staff, and to the rapid, accurate, and other advantages replace manually operated, and enhanced CDs management eff

6、iciency. KeywordsKeywords : : Delphi 6.0 Information Management System database module Member Management System精选优质文档-倾情为你奉上专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业目 录精选优质文档-倾情为你奉上专心-专注-专业至谢.32精选优质文档-倾情为你奉上专心-专注-专业第一章 绪 论11 课题简介会员管理系统是一个商业机构管理会员不可缺少的部分,它的内容对于商业机构的管理者来说是至关重要的,所以会员管理系统应该能够为商业机构的管理者提供充足的信息和快捷的查询手

7、段。一直以来人们使用传统人工的方式管理会员的基本档案，这种管理方式存在着许多缺点：效率低、保密性差,另外时间一长,将产生大量的文件和数据,对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对会员进行管理,具有着手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高会员管理的效率,也是商业机构的科学化、正规化管理,与先进科学技术接轨的重要条件。因此，开发这样一套管理软件成为很有必要

8、的事情，对于我们即将计算机专业毕业的学员来说也是一件有意义的实践活动。12 开发的意义第一计算机已经成为我们学习和工作的得力助手，使用其管理会员有助于提高工作效率今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域。现在我国的中小商业机构中会员的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助商业机构进

9、行更有效的会员管理。 归纳起来，好处大约有以下几点：（1）可以存储历届的会员，安全、高效；精选优质文档-倾情为你奉上专心-专注-专业（2）只需一到二名档案录入员即可操作系统，节省人力；（3）可以迅速查到所需会员和会员信息。第二为将来商业机构的网上会员管理做好前期准备。跟据 2003 年中国电信的调查报告显示我国的上网人数已达到 1870 万，互联网已经十分普及，商业机构会员希望能在世界的任何一个角落查到商业机构的信息，本系统为商业机构将来的上网作了先期工作，比如数据库的建立。14 团队构成指导教师：吴建 成员：唐琴精选优质文档-倾情为你奉上专心-专注-专业精选优质文档-倾情为你奉上专心-专注-

10、专业第二章 开发环境及实现技术21 开发环境硬件系统：奔腾 100 以上 CPU、64M 以上内存、1G 以上硬盘、光驱。软件系统：Windows 9x 或更高版本、Visual Basic 6.0 中文版、Access 数据库。22 开发工具简介微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 VB 是一个相对较好的选择。微

11、软的 JET 数据库引擎提供了与数据库打交道的途径，我们是通过它以及 Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access 以及其他微软的软件产品都是通过共用 JET 数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了一座桥梁。我们可以设置 DATA 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中

12、的容改变了以后，该记录集合中的记录也会随之改变。DATA 控件还提供了用来浏览不同记录的各种跳转按钮。将 DATA 控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。精选优质文档-倾情为你奉上专心-专注-专业第三章 系统设计31 概要设计311 概要设计阶段的主要任务系统分析员审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组成系统物理元素清单，成本效益分析，系统的进度计划，供指导教师审定，审定后进入设计。确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。 编

13、写概要设计说明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。312 概要设计的过程概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具体的实施方案；然后进行结构设计，确定软件结构。313 概要设计的原则将软件划分成若干独立成分的依据。如何表示不同的成分内的功能细节和数据结构。如何统一衡量软件设计的技术质量。314 系统功能分析根据商业机构的人员提供的会员管理的信息，预测开发的管理系统的达到的功能如下：1、会员信息的录入：录入会员的基本信息，包括：学号、姓名、性别、照片等

14、信息。2、会员信息的查询：根据要求查询会员的基本信息。3、会员信息的删除：删除不在籍的会员。4、用户权限及密码的修改：修改用户的登录权限及登录密码。5、用户管理：增加、修改、删除用户的信息。精选优质文档-倾情为你奉上专心-专注-专业6、密码登录：用户输入正确的密码后，才能进入本系统。7、退出系统。根据以上分析，该系统考虑将整个系统分解成如图 3-1 模块结构图:图 3-1 模块结构图并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。32 详细设计321 详细设计的任务详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件

15、系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务如下：为每个模块确定采用的算法，选择某种适当的工具表达算法的过程，写出模块的详细过程性描述；确定每一模块使用的数据结构；确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节。要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成部分，通常应包括输入数据，期望输出等内容。主界面主界面会会员员信信息息管管理理会会员员信信息息查查询询用用户户权权限限管管理理退退出出系系统统用用户户管管理理登录登录娱娱

16、乐乐上上网网精选优质文档-倾情为你奉上专心-专注-专业322 详细设计的方法程序流程图、N-S 图、PAD 图、IPO 图本系统在开发过程中所采用的详细设计方法为 IPO 图：1、登录模块 IPO 图：I IO OP P用户名密码提供相应的界面供操作人员操作正确则进行系统错误则提示图 3-2 登录模块 IPO 图2、会员信息登记模块 IPO 图：I IO OP P会员信息提供相应的界面供操作人员录入保存到表图 3-3 会员信息登记模块 IPO 图3、会员删除/修改模块 IPO 图：I IO OP P会员信息提供相应的界面供操作人员录入删除查询到的记录或修改查询到的会员信息图 3-4 会员删除/

17、修改模块 IPO 图4、用户信息管理模块 IPO 图：I IO OP P用户信息提供相应的界面供操作人员录入保存到表图 3-5 用户信息管理模块 IPO 图精选优质文档-倾情为你奉上专心-专注-专业5、数据流程图：图 3-6 数据流程图会员信息输入会员信息输入会员信息表会员信息管理会员信息查询会员信息浏览精选优质文档-倾情为你奉上专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业第四章第四章 数据库设计数据库设计41 数据库 Access 简介Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收

18、集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可

19、以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中

20、获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。精选优质文档-倾情为你奉上专心-专注-专业42 数据库需求分析由调查商业机构相关人员，分析得到如下的数据库结构。会员基本情况表：字段名称数据类型长度卡号文本8姓名文本8性别文本2政治面貌文本4爱好文本8出生年月日期/时间家庭住址文本30家庭电话文本8小灵通文本7手机文本11照片

21、OLE 对象图 3-7 会员基本情况表用户表：图 3-8 用户表精选优质文档-倾情为你奉上专心-专注-专业43 测试用例会员基本表的测试用例：图 3-9 会员基本表的测试用例用户表：图 3-10 用户表精选优质文档-倾情为你奉上专心-专注-专业第五章 详细设计51 系统登录模块的设计与实现1流程图图 3-11 系统登陆流程图2运行界面图 3-12 系统登陆运行界面界面包括的控件有标签、文本框、命令按钮等控件。3实现过程第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：Y

22、N开始输入登录密码是否正确主界面精选优质文档-倾情为你奉上专心-专注-专业第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面:第三步双击相应的控件，在控件的相应过程中编写代码：如此窗体上“进入”与“退出”按钮的代码如下：Private Sub Command1_Click() sql = select * from user where user = & Trim(Text1.Text) & Data1.RecordSource = sqlData1.RefreshIf Data1.Recordset.EOF Then MsgBox 没有此用户！, , 提示精选优质文

23、档-倾情为你奉上专心-专注-专业 Data1.RecordSource = user Data1.RefreshElse If Trim(Text2.Text) = Trim(Text3.Text) Then qx = Trim(Text4.Text) MDIForm1.Show Form2.Hide Else MsgBox 密码错误！, , 提示 End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path + datauser.mdb

24、Data1.RecordSource = userData1.RefreshData1.Recordset.MoveFirstEnd Sub此程序段中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果相同，则执行 Form2.hide（隐藏当前的窗体）和 Form3.show（调出系统主界面），同时通过 MsgBox（）显示欢迎信息，如果密码输入错误，则提示：使用户重新登录。End 语句的作用是终止程序运行。此窗体上另外还有 Data1、Text3、Text4 三个控件在程序运行时是看不到的，它们的作用是使 VB 与 Access 数据库相连，然后判断用户输入的用户名与密

25、码是否与数据库中的一致，如果一致，则允许用户进入系统。此三个控件的创建方法如下：首先，将 Data、Text 控件拖放到窗体上，其次，设置它们的属性：精选优质文档-倾情为你奉上专心-专注-专业（1）Data1 控件与数据库的连接通过窗体的 load 过程实现，如下：Private Sub Form_Load()Data1.DatabaseName = App.Path + datauser.mdbData1.RecordSource = userData1.RefreshData1.Recordset.MoveFirstEnd Sub此两个属性的作用是保证 Data 控件与数据库相连。Visi

26、ble 属性是使此控件运行时在窗体上不显示。运行时是否隐藏精选优质文档-倾情为你奉上专心-专注-专业（2）Text3 控件的属性设置如下：Visible 属性的设置同 Data1 控件，Text4 控件的设置与 Text3 相同。52 会员维护模块的设计与实现此模块包括会员综合信息的增加、删除、修改等功能。1、流程图2、运行界面此数据控件绑定到何数据库此数据控件绑定到何字段NY开始增加删除等操作是否继续退出精选优质文档-倾情为你奉上专心-专注-专业3、实现过程第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选

27、取的控件生成的对象添加到窗体上。如下图：第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面:精选优质文档-倾情为你奉上专心-专注-专业其它属性和控件的设置方法类似。第三步双击相应的控件，在控件的相应过程中编写代码：第一个的代码为：Private Sub Command1_Click() Data1.Recordset.MoveFirstEnd Sub前一个的代码为：Private Sub Command2_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox 已到库头！ Data1.Record

28、set.MoveFirst End IfEnd Sub下一个的代码为：Private Sub Command3_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF Then窗体的标题窗体显示的位置精选优质文档-倾情为你奉上专心-专注-专业 MsgBox 已到库尾！ Data1.Recordset.MoveLast End IfEnd Sub最后一个的代码为：Private Sub Command4_Click() Data1.Recordset.MoveLastEnd Sub增加的代码为：Private Sub Command5_Cl

29、ick() Command6.Enabled = Not Command6.Enabled Command7.Enabled = Not Command7.Enabled Command8.Enabled = Not Command8.Enabled Command9.Enabled = Not Command9.Enabled If Command5.Caption = 增加 Then Command5.Caption = 确认 Data1.Recordset.AddNew Text1.SetFocus Else Command5.Caption = 增加 Data1.Recordset.U

30、pdate Data1.Recordset.MoveLast End IfEnd Sub点了“增加”后该按钮变为“确定”，程序根据 Caption 的值不同而执行不同的程序段。删除的代码为：Private Sub Command6_Click()精选优质文档-倾情为你奉上专心-专注-专业 Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd Sub修改的代码为：Private Sub Command7_Click() Comma

31、nd5.Enabled = Not Command5.Enabled Command6.Enabled = Not Command6.Enabled Command8.Enabled = Not Command8.Enabled Command9.Enabled = Not Command9.Enabled If Command7.Caption = 修改 Then Command7.Caption = 确认 Data1.Recordset.Edit Text1.SetFocus Else Command7.Caption = 修改 Data1.Recordset.Update End IfE

32、nd Sub放弃的代码为：Private Sub Command8_Click() Command5.Caption = 增加 Command7.Caption = 修改 Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = False精选优质文档-倾情为你奉上专心-专注-专业 Command9.Enabled = True Data1.UpdateControls Data1.Recordset.MoveLastEnd Sub关闭的代码为：Private Sub C

33、ommand9_Click()Form1.HideEnd Sub图片框的代码为：Private Sub Picture1_Click() Picture1.Picture = Clipboard.GetDataEnd Sub作用是可以随时更改当前会员的照片。另外会员的信息是从数据库中获取，方法是首先通过 Data 控件与数据库相连，然后将各数据项与数据字段相连，连接代码如下： Data1.DatabaseName = App.Path + datahy.mdb Data1.RecordSource = 基本情况Text 的控件的主要属性设置如下：数据来源对应表中的字段精选优质文档-倾情为你奉上

34、专心-专注-专业其他 Text 的设置同。53 会员信息查询模块的设计与实现1、流程图2、运行界面3、实现过程界面的设计过程与会员信息管理模块类似，这边不再重复。NY开始设置查询条件查询是否继续退出精选优质文档-倾情为你奉上专心-专注-专业此过程主要是借助于 SQL（结构化查询语言）语句来进行查询，并通过 Option 按钮组判断用户选择的查询方式。然后通过 Data1.RecordSource = sql 来进行数据源更新。如果找不到要找会员，则通过语句“Msgbox没有您查询的信息！, , 提示”提示退出。其中，前一条、后一条、第一条、最后一条按钮的制作过程同 5.2 节的相关内容。54

35、用户权限及密码修改模块的设计与实现1、流程图2、运行界面3、实现过程界面的设计过程与会员综合信息管理模块类似，这边不再重复。NY开始修改权限及密码是否继续退出精选优质文档-倾情为你奉上专心-专注-专业不同点主要是当用户将鼠标移动到权限上时系统会自动提示用户此处应填写的内容，如下：。此界采用直接写盘模式，只要修改，便能将修改的内容存到相应的表。55 用户注册模块的设计与实现1、流程图2、运行界面3、实现过程界面的设计过程与会员综合信息管理模块类似，这边不再重复。此界面的主要使用的代码如下：的代码如下：Private Sub Form_Load()NY开始输入用户信息保存等是否继续退出精选优质文档

36、-倾情为你奉上专心-专注-专业 Form14.Height = 4350 Form14.Width = 5805 Form14.Move (Screen.Width - Form14.Width) / 2, (Screen.Height - Form14.Height) / 4 Data1.DatabaseName = App.Path + datauser.mdb Data1.RecordSource = user Data1.Refresh Data1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click() Command6.Enabl

37、ed = Not Command6.Enabled Command7.Enabled = Not Command7.Enabled Command8.Enabled = Not Command8.Enabled Command9.Enabled = Not Command9.Enabled If Command5.Caption = 增加 Then Command5.Caption = 确认 Data1.Recordset.AddNew Text1.SetFocus Else Command5.Caption = 增加 Data1.Recordset.Update Data1.Recordse

38、t.MoveLast End IfEnd SubPrivate Sub Command6_Click() Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast增加记录数据更新移动到最后一条记录移动到第一条记录移动到下一条记录精选优质文档-倾情为你奉上专心-专注-专业 End IfEnd SubPrivate Sub Command7_Click() Command5.Enabled = Not Command5.Enabled Command6.E

39、nabled = Not Command6.Enabled Command8.Enabled = Not Command8.Enabled Command9.Enabled = Not Command9.Enabled If Command7.Caption = 修改 Then Command7.Caption = 确认 Data1.Recordset.Edit Text1.SetFocus Else Command7.Caption = 修改 Data1.Recordset.Update End IfEnd SubPrivate Sub Command8_Click() Command5.C

40、aption = 增加 Command7.Caption = 修改 Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = False Command9.Enabled = True Data1.UpdateControls Data1.Recordset.MoveLastEnd Sub修改记录精选优质文档-倾情为你奉上专心-专注-专业56 娱乐模块的设计与实现1、流程图2、运行界面3、实现过程界面的设计过程与会员综合信息管理模块类似，这边不再重复。此过程应用到一个全局

41、变量 www，它的主要作用就是传递网站的域名，如当我们选中新浪，则 www=”，然后调用“我的浏览器”窗体，并将 www 的值填进地址栏，只要地址栏的内容发生变化，则 webbrowser 将自动更新，过程如下：Private Sub Text1_Change()NY开始选择网站/上网是否继续退出精选优质文档-倾情为你奉上专心-专注-专业WebBrowser1.Navigate (Text1.Text)End Sub57 主界面的设计与实现主界面是用菜单形式表现的，如图：菜单的制作过程如下：首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图： 此过程中要注意各菜单的名称唯一，另外还要注意菜单的级别。调节菜单的级别精选优质文档-倾情为你奉上专心-专注-专业主要通过对象.show 方法打开不同的操作对象。其中较关键的是通过判断用户的权限来打开不同的菜单。主要代码如下：Private Sub MDIForm_Load()MDIForm1.Caption = MDIForm1.Caption + 用户类型： + qxIf qx = 管理员 Then dagl.Enabled = True dacx.Enabled = Tr