新visual foxpro6.0及其程序设计 郭盈发 第14章.pptVIP

第十四章多用户共享数据 14.2 VFP 的 加 锁 14.3 使用数据缓冲技术 14.4 使用事务更新数据 14.3.6 使用缓冲技术更新数据实例 在更新环境中更新数据库中的数据，用户需要确定哪些字段已被修改，字段的当前值、缓冲区中的原始值和编辑后的值分别是什么；在用户编辑记录的过程中，其它用户有没有更新该记录，即有没有与其它用户发生冲突。 1．利用GETFLDSTATE(?)?函数检测字段有无更改 GETFLDSTATE(?)?函数可用来操作缓冲或非缓冲数据，检测字段有无更改。 例9 下面代码对记录中的所有字段进行检测： Modified = .F. FOR nFieldNum = 1 TO FCOUNT(?) 检查所有字段 IF GETFLDSTATE(vFieldNum) = 2 字段已被修改 Modified = .T. EXIT ENDIF ENDFOR 2．利用GETNEXTMODIFIED(?)函数检测并定位缓冲数据中已更改的记录 GETNEXTMODIFIED(?)函数以0作为参数，可查找第一个已修改的记录。 例10 下列代码可定位操作缓冲区中所有已修改的记录： nNextModified = GETNEXTMODIFIED(0) 查找缓冲中修改的第一条记录 DO WHILE nNextModified 0 循环遍历所有用户已修改的记录 Go nNextModified 定位到该记录 …… 对记录进行冲突检测等操作 nNextModified = GETNEXTMODIFIED(nNextModified) 取下一条已修改记录 ENDDO 3．检测并预防缓冲冲突 冲突一般在用户试图锁定一个当前正被其它用户锁定的记录或表时发生。应用程序中必须预测冲突，采取相应的措施，减少冲突时间，以利于更高效地进行数据更新操作。 VFP的CURVAL(?)函数、OLDVAL(?)函数和MESSAGEBOX(?)函数可用来计算冲突值并预防冲突。 CURVAL(?)函数可返回磁盘上记录的当前值。 OLDVAL(?)函数可返回缓冲区中字段编辑前的值。 通过比较字段的这两种值，可以确定有没有与其它用户发生冲突，最后确定是放弃更新还是继续更新记录。 例11 下面是查找冲突的代码： HModified = .F. 其它用户修改的标志，假设没有修改 FOR I = 1 to FCOUNT(?) nField = Field(I) IF OLDVAL(nField) CURVAL(nField) 如果某字段的当前值不等于缓冲区中 该字段修改前的值 HModified = .T. 该字段已被其它用户修改 EXIT ENDIF ENDFOR 例12 有一个表单Form1，包括一个表格Grid1和一个命令按钮Command1。使用缓冲技术编写代码，使表格中显示职工表信息，Command1按钮的作用是检查表格中数据有没有被修改，如果有修改，检测冲突，提问用户要不要更新修改数据，然后释放表单。 在表单的Init事件中添加以下代码： CLOSE ALL 建立缓冲环境 SET EXCLUSIVE OFF SET MULTILOCKS ON OPEN DATABASE 雇员管理 USE 职工 = CURSORSETPROP(Buffering,4 ) 启用保守式表缓冲，锁定表记录Thisform.Grid1.RecordSource = 职工 设置表格的数据源 在Command1的Click事件中添加以下代码： IModified = .F. 本用户修改标志，初始值为没有修改 HModified = .F. 其它用户修改标志，初始值为没有修改 DO WHILE(!EOF(?))