VFP6.0程序设计第10章 Visual FoxPro 6.0 的高级应用

（4）使用数据缓冲技术 在多用户环境下，为了保护数据更新和避免冲突，除了使用自 动加锁和人工加锁外，还可以使用数据缓冲技术。 数据缓冲技术就是当用户启动了数据缓冲，使用共享文件更新 数据时，首先将当前记录复制到一块由Visual FoxPro进行管理的内存 区域或磁盘空间，其它用户仍然可以同时访问原表中的记录。当需 要更新时，确认其它用户没有进行修改，才可编辑修改结果。如果 检测到冲突，系统将提示出错信息。数据缓冲一旦启用，在它被废 止前或关闭表前一直有效。 （1）选择缓冲方法 提供了两种缓冲方法，即记录缓冲和表缓冲。 记录缓冲是指对单个记录的编辑修改进行缓冲。 表缓冲是指把表的多处修改保存到内存中，当关闭表或调用表 更新函数时，才对数据进行更新。
10.2
多用户与共享技术
10.2.1 多用户环境下的数据访问技术 10.2.2 数据更新技术 10.2.3 对访问冲突的处理
10.2..1
多用户环境下的数据访问技术
1. 独占或共享的访问控制 独占就是只有一个用户独自使用资源，而共享就是多个用户共 同使用某资源。在共享环境下，可以有两种方式访问数据：独占式 访问或共享式访问。若以独占式打开表，用户不必考虑加锁问题而 可以进行读写操作，但是其它用户不能打开该表。在Visual FoxPro 中通过界面打开表时，在默认情况下就是使用独占方式。另外，在 Visual FoxPro 中可以明确地说明一个表以独占方式打开，从而防止 其它用户同时使用该表。如果显式说明采用独占方式，使用的命令 是：
SET EXCLUSIVE ON USE 表名 有些命令在执行时，要求表必须以独占方式打开，这几个命令 分别是： ALTER TABLE 、INDEX、INSERT、MODIFY、 STRUCTURE、 PACK、REINDEX、ZIP 如果需要以共享方式打开某个表，也需要在命令窗口或在程序 中显式地说明，具体的命令格式是： USE 表名 SHARED 在打开表时加上关键词SHARED则表示以共享方式打开表，这 样，多个用户可以同时访问该表。 2. 数据的加锁 所谓的加锁，就是给所要操作的数据加上一定的限制；解锁就 是取消给数据所加的限制，它是加锁的逆过程。
图10.1 ActiveX对象
（ 2 ）在快捷菜单中选择 “ ActiveX Conrtols ” 项，表单 【控件工具栏】中显示所有在“选项”对话框中选定的 ActiveX 控 件。 （ 3 ）选择所要使用的 ActiveX 控件，添加到表单里。 【例 10-1 】在表单中使用 ActiveX对象的例子。 （ 1 ）添加 ActiveX对象：在ActiveX对象列表框中找到 “ Microsoft Forms2.0 Frame( 框架) ” 项并选中它，并按前面的 方法使之显示在“表单控件”工具栏中。 （ 2 ）添加“框架”控件：新建一个表单 ，在表单上面添加 一个“框架”控件。并设置其属性为Visual FoxPro 6.0 中的框架， 设置表单的属性为“ActiveX对象的应用实例”。
另外，使用事务在对远程表进行数据更新的过程中，可以避免 系统造成的错误。 VFP提供如下的命令和函数来控制事务处理，如表10-1所示。 表10-1 控制事务处理的常用命令和函数
命令和函数 BEGIN TRANSACTION
END TRANSACTION
ROLLBACK TXNLEVEL
意义 初始化对一个事务
按加锁的类型来分，可以分为独占和共享锁。 独占锁：又称写锁，就是某一数据或表被一用户加锁之后，只能 允许该用户进行读写操作，而其它用户只能等待。 共享锁又称读锁，是指某一数据被加上共享锁之后，该数据仍 允许其它用户进行读操作。 3. 解锁 在共享环境下，对加锁的记录或数据操作完成之后，应及时解 锁。对于自动加锁，解锁时只需移动记录指针即可；而对于人工加 锁，则需要采用解锁命令UNLOCK显式地进行解锁。 该命令的语法格式如下： UNLOCK [RECORD记录号][IN 工作区号或别名][ALL] 4. 使用数据工作期 每个数据工作期就是一个小型的数据工作环境，包括：
（ 4 ） 单击列表框中所要使用的 ActiveX 控件前面的复选框，将其设定 为选定状态。 （ 5 ） 单击【 确定】 按钮，关闭 【选项 】对话框，则选定的控件添加 到了“控件工具栏 ”中。 说明：当【选定】列表中没有需要使用的控件时 ，可单击【添加】按 钮 ，打开 【添加】对话框并在整个计算机上查找，找到指定控件后单击 【确定】添加到列表中。 ActiveX 控件添加到“控件工具栏”后，就可以同常用控件一样 添加到 表单中使用。 添加的方法如下： （ 1 ）在【表单控件】工具栏中单击 【查看类】按钮， 选择它的菜单中 的【 ActiveX 】, 就在工具栏中显示ActiveX, 如图10.1 所示。
比较基表记录中所有字段的时间戳
视图的 WhereType属性可通过以下三种方法设置： （1）使用视图设计器的“更新条件”选项卡选择所要的设置。 （2）通过使用DBSETPROP（）函数设置一个视图定义的 WhereType属性。对于该函数，当设置成功时返回真（.T.）值；否 则，返回假（.F.）。 （3）对于活动视图临时表的WhereType属性，可使用 CURSORSETPROP()函数进行设置。 选择WhereType属性值之后，在允许更新之前， Visual FoxPro 先检查源表中的指定字段，检查它们在提取到视图后是否改变。如 果数据源中的这些记录被修改，就允许更新。
加锁记录，并将最近一次BEGIN TRANSACTION以后对数据库的全部操作写 入磁盘并解锁记录
取消最近一次BEGIN TRANSACTION以后的所有 操作 确定现在所处理事务的等级
3. 使用视图管理更新数据 多用户环境下，一个用户在对服务器上的数据进行编辑修改时， 非常有可能被其它用户访问。为避免这种冲突，可以使用Visual FoxPro的视图对数据进行更新。视图可以对更新冲突进行管理。 视图在默认情况下，使用的是开放式记录缓冲，也可以通过设 置改为表缓冲。在更新数据时，通过使用WhereType 属性控制发送 到基于视图表的内容。 WhereType是指在对表数据进行更新时，应 该在WHERE子句中包含什么内容。如果要更新本地和远程视图，需 将WhereType设置 为合适的属性，从而在更新时对指定的内容进行 比较。 WhereType的属性值有四种设置，属性值及其意义见表10-2所 示。
时，每个实例都有自己独立的工作环境。当一个私有数据工作期对记 录或表加锁后，则其他私有数据工作期就不能再对其加锁。因此，通 过使用私有数据工作期和加锁，也可以保护基表的完整性。 私有数据工作期都有自己各自独立的工作区。由于每个工作区都 包含了表单所打开的表、索引和关系的独立备份。这样，在一个表单 中对数据更改后，不会在其他表单中自动体现出来。只有定位到更改 的记录时，才可以看到其他实例所做的修改。如果是要让表单的所有 实例都访问相同的数据，一个实例在对数据更改后其他实例能够立即 体现出来，则需要取消自动私有数据工作期的设置。完成该功能可使 用下述命令： SET DATASESSION TO 1 SET DATASESSION TO
10.1.2 调用API示例 为使应用程序与Visual FoxPro 集成，可以调用 Visual FoxPro API例程。在VFP中的API例程都是可以从 任何C或C++程序中调用的函数。在使用这些例程时，必须 包含Visual FoxPro API目录下的Pro_ext.h文件。该文件 是一个头文件，其中包含了与Visual FoxPro 共享信息。
第 10 章
Visual FoxPro 的高级用途
10.1 利用 API设计应用程序
10.2 多用户与共享技术
10.1 利用API设计应用程序
10.1.1 ActiveX 控件和 FLL库 10.1.2 调用API示例
10.1.1
ActiveX 控件和 FLL库
1. ActiveX 控件 ActiveX 控件的扩展名为. ocx ，它可以由第三方提供 或自己创建。ActiveX 在使用时，应首先添加到“控件工 具栏”中，然后再使用。具体的添加步骤如下： （ 1 ）在 Visual Foxpro 系统菜单里选择【工具 】 | 【选项 】 ，打开【选项 】对话框。 （ 2 ）在【选项 】对话框中选择【控件】 选项卡。 （ 3 ）在【控件】 选项卡选定【 ActiveX】 选项卡。
10.2.3
对访问冲突的处理
若用户对表文件加锁，就不允许其它用户修改此表文件，而其 它用户却企图对此表文件进行修改，这就造成冲突。 1. 管理缓冲冲突 在程序中可以使用SET REPROCESS命令和ON ERROR错误处 理命令来管理基于用户的冲突 。在程序中，一旦发生错误，便执行 ERR-FIXIT错误处理函数。然后，文件将以共享方式重新打开并自动 处理不成功的加锁操作。该命令与ON ERROR和RETRY命令组合， 可继续取消加锁工作。 2. 检测并解决冲突 （1）检查修改数据
表10-2 WhereType的属性及其描述
属性值 描述
DB_KEY
只比较关键字段。如果基表中的主关键字段 的值在检索记录之后没有被更改或删除，更 新将正常进行
比较关键字段和所有可更新字段 比较视图中的关键字段和已更改字段
DB_KEYANDUPDATABLE DB_KEYANDMODIFIED （ 默认） DB_KEYANDTIMESTAMP
2. 使用事务处理管理更新数据 事务的开始和结束都是由用户通过执行相应的命令显式地进行 控制。事务的定义由Begin Transaction开始，并以End Transaction或RollBack操作结束。其中，End Transaction指成功 将数据提交，从而使数据库中的数据从一个正确的状态转变到下一 个正确的状态。当由于某种原因不能提交时，则需要RollBack（回 滚），即撤消已做的所有操作，回滚到最近一次的Begin Transaction前的状态。 事务处理使程序不直接把更新数据写入表文件中，它用来缓存 对内存或硬盘数据的更新操作。只有在事务处理完成之后才真正更 新数据。当更新操作失败，事务回滚，整个数据的更新工作取消。 因此，在更新失败时不会对原数据表进行任何修改，防止了数据被 错误更改。