1、白云酒店管理系统毕业设计论文摘要-酒店管理管理系统是典型的信息管理系统(MIS) ，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。 经过分析, 我们使用 MICROSOFT 公司的 VISUAL Foxpro 开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。关键词：VISUAL FOXPRO 6.0 酒店管理
2、数据库Summary - - Hotel Management System is a typical management information system (MIS), including the development of its background of the establishment and maintenance of the database front-end applications, as well as the development of both. The former set up the requirements for data integrity
3、and consistency of strong data security a good library. For the latter applications require full-featured and easy to use and so on. After analysis, we use MICROSOFTs VISUAL Foxpro development tools, provided by the use of a variety of object-oriented development tools, in particular, the data windo
4、w can be simple and easy to manipulate intelligence database objects, first of all in a short period of time to establish systems Application of the prototype, and then on the initial prototype system iteration needs, and improving constantly, until the formation of a viable system of customer satis
5、faction. Key words: VISUAL FOXPRO 6.0 Hotel Management Database-前言-酒店管理系统是一个现代酒店管理不可缺少的部分，它的内容对于酒店的决策者和管理者来说都至关重要，所以酒店管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理客户档案，这种管理方式存在着许多缺点，如:效率低、保密性差，另外时间一长将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟, 其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计
6、算机应用的一部分，使用计算机对入住酒店的客户信息进行管理，具有手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高酒店的管理水平，简化各种复杂操作，在最合理、最短时间内完成酒店业务规范操作，这样才能另顾客满意，增加宾客回头率，也是酒店的科学化、正规化管理，与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我将以自己开发的一套酒店管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。目录第一章 绪论5第二章 数据库理论基础62.1 数据库系统设计62.2 VISUAL FOXPRO 6.0
7、工具介绍72.3 VISUAL FOXPRO 6.0 的 SELECT-SQL 查询8第三章 酒店管理系统设计分析113.1 应用需求分析113.2 功能分析113.3 功能模块分析12第四章 系统数据库设计154.1 表结构设计15第五章 主要表单及其事件代码的实施175.1 系统登陆表单175.2 基本信息管理表单175.3 基本信息查询表单205.4 基本信息一览表单225.5 离店结帐管理表单235.6 用户管理表单255.7 报表设计305.8 主菜单的建立编写305.9 主程序代码的建立编写315.10 系统连编32 第六章 结论34第七章 总结和体会35第八章 谢词36第九章 参
8、考文献37第一章、 绪论数据库应用系统开发简介在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。数据库应用系统开发的目标是建立一个满足用户长期需求的产品。开发的主要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。图书管理系统是典型的管理信息系统(MIS) ，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等
9、特点。数据库设计是建立数据库及其应用系统的技术，是信息系统开发和建设中的核心技术，是指对于一个给定的环境，构造最优的数据库模式，建立数据库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求。数据库设计既是一项涉及多学科的综合性技术，有时一项庞大的工程项目数据库建设是硬件、软件、和干件的结合；数据库设计应该和应用系统设计相结合，即整个设计过程中要把结构设计和行为设计紧密结合起来。第二章、 数据库理论基础2.1 数据库系统设计计算机信息系统以数据库为核心，在数据库管理系统的支持下，进行信息的收集、整理、存储、检索、更新、加工、统计和传播等操作。 对于数据库应用开发人员来说，为使现实世界的
10、信息流计算机话，并对计算机话的信息进行各种操作，就是如何利用数据库管理系统、系统软件和相关硬件系统，将用户的要求转化成有效的数据结构，并使数据库结构易于实现用户新的要求的过程。 确切的说，数据库设计是指对于一个给定的应用环境，提供一个确定最优数据模型与处理模式的逻辑设计，以及一个确定数据库存储结构与存取方法的物理设计，建立起既能反映现实世界信息和信息联系，满足用户数据要求和加工要求，有能被某个数据库管理系统所接受，同时能实现系统目标，并有效存取数据的数据库。数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部门的存
11、档数据和数据需求，分析各个数据之间的关系，按照 DBMS 提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型。数据库设计的步骤是：（1） 数据库结构定义：目前的数据库管理系统（DBMS）有的是支持联机事务处理 CLTP（负责对事务数据进行采集、处理、存储）的操作型 DBMS，有的可支持数据仓库、有联机分析处理 CLAP（指为支持决策的制定对数据的一种加工操作）功能的大型 DBMS，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的 DBMS，进行数据库结构定义。（2） 数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻
12、辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时数据表。（3） 存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。（4） 数据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安全。（5） 数据字典设计：用数据字典描述数据库的设计，便于维护和修改。2.2 VISUAL FOXPRO 6.
13、0 工具介绍VISUAL FOXPRO 6.0 版本是微软公司开发的一个 32 位的数据库管理系统。这是自含型数据库管理系统，是解释型和编译混合的系统。它能够以解释的方式定义、操作数据库，也可将操作过程编写为程序进行编译，脱离系统直接运行，所以受到欢迎。VISUAL FOXPRO 6.0 支持标准的面向过程的程序设计方式，但更重要的是它提供真正的面向对象程序设计的能力。借助 VISUAL FOXPRO 6.0 的对象模型，用户可以利用所有的面向对象编程的特点，可以充分使用面向对象程序设计的所有功能，包括继承性、封装性、多态性和子类。这一方面可以减少用户的编程工作量，另一方面又加快程序开发过程。
14、VISUAL FOXPRO 6.0 提供了用于应用程序开发的各种设计器、向导、工具栏、菜单和生成器。这些设计工具的可视化使尚不具备应用程序设计技术的广大用户，具有易于获得开发应用程序的能力。VISUAL FOXPRO 6.0 在创建项目的同时，生成了该项目的管理器；由它全面管理项目中的数据库、应用程序及文档等，使数据库的应用和开发更加方便。此外，其数据库的管理功能也更加强大，提供了过去只有在大型计算机的数据库管理系统中才具有的功能，如设置表字段的默认值、字段和记录的有效性规则，以用表间记录的参照完整性规则等。因此，也极大地提高了数据的安全性。可以对项目及数据有更强的控制，能够使用源代码管理产品
15、，同时可以在“项目管理器”中看到组件的状态。数据库容器允许几个用户在同一个数据库中同时创建或修改规则等。因此，也极大地提高了数据库的安全性。可以借助“项目管理器”创建和集中管理应用程序中的任何元素，可以访问所有向导、生成器、工具栏和其他易于使用工具。它提供了一个进行集中管理的环境。VISUAL FOXPRO 6.0 添加了新的“应用程序向导” ，其提供的新的对象和改进了的应用程序框架功能可以使用程序更有效率。VISUAL FOXPRO 6.0 中还添加了一些功能来增强开发环境，以便更容易地向应用程序中添加有效的功能。VISUAL FOXPRO 6.0 提供了更多的生成器、工具栏和设计器等，利用
16、它们可以快速开发应用程序。在 VISUAL FOXPRO 6.0 中，用户可以更简便地调试及监控应用程序组件；可以跟踪事件以及记录执行代码的工具；利用它可以深入程序，查看属性设置值，对象以及数组元素的值；为显示交互的或代码中的信息提供了方便的途径，同时可以把结果输出到应用程序窗口之外的另一个窗口；可以用来分析程序、应用程序或实际运行的项目代码。应用程序组件的实例中收集了一系列应用程序组件，它们显示了如何利用 VISUAL FOXPRO 6.0 的特性解决现实世界的问题。VISUAL FOXPRO 6.0 添加了新的“应用程序向导” ，其提供的新对象和改进了的应用程序框架功能可以使用程序更有效率
17、。VISUAL FOXPRO 6.0 提供了更好的生成器、工具栏和设计器等，利用它可以快速开发应用程序。在VISUAL FOXPRO 6.0 中，用户可以更简便地调试及监控应用程序组件；可以跟踪事件以及记录执行的工具；利用它可以深入程序，查看属性设置值，对象以及数组元素的值；为显示交互的或代码中的信息提们供了方便的途径，同时可以把结果输出到应用程序窗口之外的另一个窗口；可以用来分析程序、应用程序或实际运行的项目代码。2.3 VISUAL FOXPRO 6.0 的 SELECT-SQL 查询SELECT-SQL 是从 SQL 语言移植过来的查询令，具有最强大的单表与多表查询功能。VFP 支持在命
18、令窗口直接使用 SELECT-SQL 命令，也允许通过一种称为“查询设计器”的窗口来设计查询步骤、生成查询文件，然后运行定制的查询。下面将对此作简单介绍。一、SQL 功能强大，是一种完备的数据处理语言，不仅用于数据库查询，而且用于数据库中的数据修改和更新，概括起来，它可以分成以下几组：DML（Data Manipulation Language，数据操作语言）：用于检索或者修改数据；DDL（Data Definition Language，数据定义语言）： 用于定义数据的结构，比如 创建、修改或者删除数据库对象； DCL（Data Control Language，数据控制语言）：用于定义数据
19、库用户的权限。DML 组可以细分为以下的几个语句：SELECT：用于检索数据INSERT：用于增加数据到数据库；UPDATE：用于从数据库中修改现存的数据；DELETE：用于从数据库中删除数据。DDL 语句可以用于创建用户和重建数据库对象。下面是 DDL 命令：CREATE TABLE，ALTER TABLE，DROP TABLE，CREATE INDEX，DROP INDEX下面是一个简单 SQL 语句的例子：我们使用 SQL 语句来从客房信息中检索客房编号为0308的客房编号：SELECT 客房编号 FROM 客房信息 WHERE 客房编号 = 0308二、DDL 与 DML数据定义语言
20、DDL：它是用来创建和修改数据库结构的一种语句，包括Create、Alter 和 Drop 语句。 数据操作语言 DML：包括数据查询与数据更新。数据查询主要是由 Select 语句完成，这一点不再赘述。而数据更新所造成的风险大大超过数据查询。数据库管理系统必须在更改期内保护所存储的数据的一致性，确保有效的数据进入数据库，数据库必须保持一致性，DBMS 还必须协调多用户的并行更新，以确保用户和它们的更改不至于影响其它用户的作业。用于修改数据库内容的 SQL 语句主要有以下三个：(1) Insert，向一个表中加入新的数据行 (2) Delete，从一个表中删除数据行 (3) Update，更改
21、数据库中已经存在的数据 Insert 标准语法：INSERT INTO table_name (col1, col2.) VALUES(value1, value2.)下例要将客房编号0308作为一个客房情况加入入住管理表中Insert Into入住管理 (入住单号，客房类型，入住人数，客房编号，抵店时间) values (rz， 1， 2， 0308， 05/08/2005 11:00:00AM)Insert 语句还可以将多行数据添加到目标表中去，在这种形式的 Insert 语句中，新行的数据值不是在语句正文中明确地指定的，而是语句中指定的一个数据库查询。添加的值来自数据库自身的行，在某些特
22、定的状态下，这是非常有用的。多行 Insert 语句为拷贝数据提供了一种紧凑而高效的方法，但我在自已做的图书管理系统中没有使用这种方法，我在系统中是使用循环依照上面的用法来完成多个记录的插入。第三章 酒店管理系统设计分析3.1 应用需求分析需求描述与分析设计一个性能良好的数据库系统，明确应用环境对系统的要求是首要的和最基本的。特别是数据应用非常广泛，非常复杂，要是事先没有对信息进行充分和细致的分析，这种设计就很难取得成功。通过需求分析阶段对酒店客房的整个应用情况作全面的、详细的调查，确定酒店管理的目标，收集支持系统总的设计目标的基础数据和对这些数据的要求，确定用户的需求，并把这些写成用户和数据
23、库设计者都能够接受的文档。事实上，需求分析是数据库开发中最难的任务之一。因为，第一，系统本身是可变的，用户的需求必须不断调整，使之与这种变化相适应。第二，用户很难说清某部分工作的功能处理过程。所以，设计人员必须认识到：在整个需求分析以及系统设计过程中，用户参与的重要性，通过各种方法展开调查分析。1开发目的：这个管理系统主要为中、小型酒店设计，根据酒店的管理需求，经过分析后要实现的功能有：(1) 能够查看详细的客房类型、客房信息资料。(2) 能够按一定条件查询相关资料的信息。(3) 能够增加、修改和删除入住的相关资料。(4) 能够打印相关资料信息。(5) 有安全性较强的系统入口。2. 数据需求：
24、经过数据需求分析，确定这个系统需要客房类型、客房信息、入住管理、收银退房和用户名 5 个表3.2 功能分析1 浏览：能浏览客房类型和客房信息的资料。2 查询：能对空房、指定客房按照一定的条件进行查询或者模糊查询。3 数据维护：对入住客房、客户的相关数据进行修改、添加、删除等数据维护。4 撤销/保存：能撤消错误的操作，能保存用户更改的信息。5 资料打印：对收银退房的相关数据信息按照指定的条件进行打印。6 账户密码的管理：可以修改账户密码。3.3 功能模块分析1 基本信息管理模块这个模块有一个表单，实现入住客房信息的增加、修改和删除功能。2 基本信息查询模块这个模块通过输入客房编号或客房状态对客房
25、是否有人入住进行查询，并且可以是模糊查询，也可以是精确查询。3 基本信息一览模块这个模块包括两个表单，分别实现对客房类型和客房信息的总体浏览。4 离店结帐管理模块通过一个表单实现对离店客户房间信息查询，在这个表单里，我们可以选择要打印的数据，实现按条件打印的目标。5 用户管理模块用户管理模块包括了密码修改和系统退出等功能。这些功能是通过独立的表单实现的。功能模块如下： 用户登录界面基本信息查询客房信息一览离店结帐管理用户管理系统运行主程序基本信息管理基本信息一览客房类型一览通过上述完整的需求分析，整个应用系统的大致结构模型已分析完成。E-R 图如下客房登记基本信息登入客房信息管理客房信息返回结
26、帐信息管理结帐信息输入空房查询客房类型基本信息输入客房类型实体类型编号类型名称 价格客房信息实体客房编号类型编号楼层编号额定人数床数状态离店结帐信息实体客房编号客房类型客房价格抵店时间结帐金额结帐时间第四章 系统数据库设计4.1 表结构设计1客房类型表（客房类型.dbf）客房类型的基本情况，其字段属性如下字段名称 数据类型 字段大小 说明类型编号 字符型 4类型名称 字符型 40价格 货币型 82.客房信息表（客房信息.dbf）客房信息的基本情况，其字段属性如下字段名称 数据类型 字段大小 说明客房编号 字符型 4 主索引类型编号 字符型 4楼层编号 字符型 4额定人数 字符型 4床数 字符型
27、 4状态 字符型 20 普通索引3.入住管理表（入住管理.dbf）入住管理的基本情况，其字段属性如下字段名称 数据类型 字段大小 说明入住单号 字符型 36客房类型 字符型 4入住人数 整型 4客房编号 字符型 12抵店时间 日期时间型 84.收银退房表（收银退房.dbf）收银退房的基本情况，其字段属性如下字段名称 数据类型 字段大小 说明入住单号 字符型 36客房类型 字符型 4客房编号 字符型 12 主索引抵店时间 日期时间型 8离店时间 日期时间型 8客房价格 货币型 8结帐金额 货币型 8结帐日期 日期时间型 8第五章 主要表单及其事件代码的实施5.1 系统登陆表单登录表单执行，当用户
28、输入正确的登录信息时，单击“确定”按钮的时候或者单击“取消”按钮时，登录表单和主界面表单都会被释放，同时执行主菜单。1.建立下图所示登录表单（登陆.scx） 。5.2 基本信息管理表单这个表单由入住管理表单和入住后台管理表单组成，用来添加、修改和删除客房信息。点入住后台管理表单中的添加客房信息 修改客房信息 删除客房信息都可以转到入住管理表单上对客房信息进行添加、修改和删除。1. 建立入住管理表单（入住管理.scx）,表单显示结果如下表单代码主要有（1） “添加”按钮的 Click 事件代码APPEND BLANKSELECT 入住管理GO BOTTOMREPLACE 入住单号 WITH TH
29、ISFORM.TEXT1.VALUEREPLACE 抵店时间 WITH THISFORM.TEXT2.VALUEREPLACE 客房编号 WITH THISFORM.TEXT3.VALUEREPLACE 入住人数 WITH THISFORM.TEXT4.VALUEREPLACE 客房类型 WITH THISFORM.TEXT5.VALUE（2） “修改”按钮的 Click 事件代码THISFORM.TEXT1.ENABLED=.T.THISFORM.TEXT2.ENABLED=.T.THISFORM.TEXT3.ENABLED=.T.THISFORM.TEXT4.ENABLED=.T.THIS
30、FORM.TEXT5.ENABLED=.T.（3） “删除”按钮的 Click 事件代码DELETE PACK（4） “确定”按钮的 Click 事件代码REPLACE 入住单号 WITH THISFORM.TEXT1.VALUEREPLACE 抵店时间 WITH THISFORM.TEXT2.VALUEREPLACE 客房编号 WITH THISFORM.TEXT3.VALUEREPLACE 入住人数 WITH THISFORM.TEXT4.VALUEREPLACE 客房类型 WITH THISFORM.TEXT5.VALU2. 建立入住后台管理表单（入住后台管理.scx）,表单显示结果如下
31、表单代码主要有（1） “确定”按钮的 Click 事件代码THISFORM.TEXT1.ENABLED=.F.THISFORM.COMMAND1.ENABLED=.F.XH=ALLTRIM(THISFORM.TEXT1.VALUE)DO FORM 入住管理（2） “添加客房信息”按钮的 Click 事件代码THISFORM.TEXT1.VALUE=“COM_BT=“APPEND_FORM“DO FORM 入住管理（3） “修改客房信息”按钮的 Click 事件代码THISFORM.TEXT1.ENABLED=.T.THISFORM.COMMAND1.ENABLED=.T.MESSAGEBOX(
32、“请输入客房编号！ “)COM_BT=“DELETE_FORM“（4） “删除客房信息”按钮的 Click 事件代码THISFORM.TEXT1.ENABLED=.T.THISFORM.COMMAND1.ENABLED=.T.MESSAGEBOX(“请输入客房编号！ “)COM_BT=“MODIFY_FORM“5.3 基本信息查询表单空房的查询可以更加快捷的帮助客户查找到想要的房间1. 建立空房查询表单（空房查询.scx）,表单显示结果如下2.表单主要代码有（1） “查询”按钮的 Click 的事件代码IF EMPTY(ALLTRIM(THISFORM.TEXT1.VALUE)MESSAGEB
33、OX(“请输入查询条件！ “)THISFORM.TEXT1.SETFOCUSELSEUSE 客房信息.DBFSET FILTER TOIF VAL(alltrim(THISFORM.TEXT1.VALUE)0SET FILTER TO ALLTRIM(客房编号)=ALLTRIM(THISFORM.TEXT1.VALUE)mand4.visible=.f. ELSESET FILTER TO AT(alltrim(THISFORM.TEXT1.VALUE),状态)mand4.visible=.t.endifGO TOPGO TOPIF VAL(客房编号)0THISFORM.TEXT2.VALUE
34、=客房编号THISFORM.TEXT3.VALUE=额定人数THISFORM.TEXT4.VALUE=楼层编号THISFORM.TEXT5.VALUE=床数THISFORM.TEXT6.VALUE=类型编号THISFORM.TEXT7.VALUE=状态ELSEMESSAGEBOX(“对不起，没有您查询的房间！ “)ENDIFENDIF（2） “下一个”按钮的 Click 事件代码skipthisform.activate &执行表单的 Activate 事件THISFORM.TEXT2.VALUE=客房编号THISFORM.TEXT3.VALUE=额定人数THISFORM.TEXT4.VALU
35、E=楼层编号THISFORM.TEXT5.VALUE=床数THISFORM.TEXT6.VALUE=类型编号THISFORM.TEXT7.VALUE=状态5.4 基本信息一览表单这一项主要由客房类型一览和客房信息一览。客房类型一览主要是用来看酒店客房的种类、价格。而客房信息一览主要用来看每个房间的类型、人数、床数和现在的状态。1.建立客房类型一览表单（客房类型一览.scx）,表单显示结果如下3. 建立客房信息一览表单（客房信息一览.scx ） ，表单显示结果如下5.5 离店结帐管理表单这个表单主要用于在客户要离店结帐时使用，通过对离店客人客房编号的查询，可以查找到客户住店的时间、房间类型、房间
36、价格，从而可以进行结帐金额的计算，还可以根据客户要求对表单进行打印。1.建立离店结帐管理表单（离店结帐管理.scx）,表单显示结果如下表单主要代码有（1） “查询”按钮的 Click 事件代码IF EMPTY(ALLTRIM(THISFORM.TEXT1.VALUE)MESSAGEBOX(“请输入查询条件！ “)THISFORM.TEXT1.SETFOCUSELSEUSE 收银退房.DBFSET FILTER TOIF VAL(alltrim(THISFORM.TEXT1.VALUE)0SET FILTER TO ALLTRIM(客房编号)=ALLTRIM(THISFORM.TEXT1.VAL
37、UE)endifGO TOPGO TOPIF VAL(客房编号)0THISFORM.TEXT2.VALUE=客房编号THISFORM.TEXT3.VALUE=客房类型THISFORM.TEXT4.VALUE=客房价格THISFORM.TEXT5.VALUE=抵店时间THISFORM.TEXT6.VALUE=结帐日期THISFORM.TEXT7.VALUE=结帐金额ELSEMESSAGEBOX(“对不起，没有您查询的房间！ “)ENDIFENDIF（2） “打印”按钮的 Click 事件代码messagebox(确定打印!,16,提示信息)REPORT FORM 收银退房.frx NOEJECT
38、 NOCONSOLE TO PRINTERthisform.refresh5.6 用户管理表单这个表单主要用来对登陆用户名的添加、查找、修改和删除用的，可以随时对用户名、密码进行修改、添加和删除。相应的添加、查找、修改、删除按钮都对应不同功能的“确定”或“查找”按钮功能。1.建立用户管理表单（用户管理.scx）,表单显示结果如下表单主要代码有（1） “添加”按钮的 Click 事件代码THISFORM.TEXT1.VALUE=“THISFORM.TEXT2.VALUE=“*设置按钮状态THISFORM.COMMAND1.ENABLED=.T.THISFORM.COMMAND1.VISIBLE=
39、.T.*设置标签状态THISFORM.LABEL2.ENABLED=.T.THISFORM.LABEL3.ENABLED=.T.*设置文本框状况THISFORM.TEXT1.ENABLED=.T.THISFORM.TEXT2.ENABLED=.T.*设 Text1 为输入框THISFORM.TEXT1.SETFOCUS点击“添加”按钮同时会出现左上的“确定”按钮 Click 事件代码USE 用户名.DBF*插入新记录APPEND BLANK*将用户的输入信息保存到用户信息库中REPLACE 用户名 WITH ALLTRIM(THISFORM.TEXT1.VALUE)REPLACE 密码 WIT
40、H ALLTRIM(THISFORM.TEXT2.VALUE)USE*将表单设置成初始状态THISFORM.TEXT1.VALUE=“THISFORM.TEXT2.VALUE=“THISFORM.TEXT1.ENABLED=.F.THISFORM.TEXT2.ENABLED=.F.THISFORM.COMMAND1.VISIBLE=.F.THISFORM.LABEL2.ENABLED=.F.THISFORM.LABEL3.ENABLED=.F.（2） “查找”按钮的 Click 事件代码THISFORM.LABEL1.ENABLED=.T.THISFORM.LABEL2.ENABLED=.T.
41、*将 Text1 控件设置成可用THISFORM.TEXT1.ENABLED=.T.THISFORM.TEXT1.SETFOCUS*将查找按钮设置成可用和可见THISFORM.COMMAND2.VISIBLE=.T.THISFORM.COMMAND2.ENABLED=.T.*将两个 Text 控件的值设置为空值THISFORM.TEXT1.VALUE=“THISFORM.TEXT2.VALUE=“点击“查找”按钮同时会出现左图的“查找”按钮 Click 事件代码USE 用户名.DBF*查找用户输入的信息LOCATE FOR ALLTRIM(用户名)=ALLTRIM(THISFORM.TEXT1
42、.VALUE)IF FOUND()*如果找到在表单中显示THISFORM.TEXT1.VALUE=用户名THISFORM.TEXT2.VALUE=密码ELSE*如果没有找到提示用户MESSAGEBOX(“查无此用户！ “)THISFORM.TEXT1.VALUE=“THISFORM.TEXT2.VALUE=“ENDIFUSE*恢复表单的初始化状态THISFORM.TEXT1.ENABLED=.F.THISFORM.TEXT2.ENABLED=.F.THISFORM.LABEL2.ENABLED=.F.THISFORM.LABEL3.ENABLED=.F.THISFORM.COMMAND2.VISIBLE=.F.（3） “修改”按钮的 Click 事件代码USE 用户名.DBF*在用户信息库中查找用户输入的信息TEMP1=ALLTRIM(THISFORM.TEXT1.VALUE)TEMP2=ALLTRIM(THISFORM.TEXT2.VALUE)
