当前位置: 首页 > 编程语言 > vfp > 正文

用vfp与sql server构建Client/Server应用程序(远程视图)(4)

时间:2007-05-09

缓冲(Buffering)

Visual FoxPro 中的缓冲技术

当远端数据下载到客户端时,这些数据就被压入缓冲之中。在客户端用户对数据的各种移动并不反映到数据源,而是在用户确认对数据的变动后,才把各种变动以SQL描述的形式发送到后端。那么为什么不让Visual FoxPro直接一步一动的操控远程数据,就像在不使用缓冲技术控制Visual FoxPro本地数据那样。我想原因在于:

  1. 在 Client/Server 构架的应用中,数据库服务器需要同时处理许多客户的请求,如果有一个客户“直接”控制(锁定)它,多用户的系统就无从谈起了。

  2. Visual FoxPro 通过 ODBC 与远端数据库通讯,如果一步一动,两者之间的通讯肯定会成倍增加,这样既加重了网络负担又加重的数据库服务器的负担。

基于上述原因,Visual FoxPro在远程数据处理时强制使用缓冲技术。我们知道,在Visual FoxPro中缓冲技术与锁结合有四种选择:

  1. 保守式行缓冲。所谓“保守”,就是“编辑时锁定”的意思,“行缓冲”是指“只缓冲处理一笔使用者加以编辑的数据记录”。因此一旦使用这种模式,当编辑动作刚开始,数据源的对应数据记录便被锁定,而且在执行以下两项动作时,数据变动才会被发送:移动数据指针、执行TABLEUPDATE()函数。
    由于在开始编辑时就锁定数据源的对应行,所以这种模式不被远程数据处理采用。

  2. 开放式行缓冲。所谓“开放”,就是“更新时锁定”的意思,“行缓冲”是指“只缓冲处理一笔使用者加以编辑的数据记录”。因此使用这种模式,只有在执行以下两项动作时,数据变动才会被发送,数据源对应行记录才被锁定:移动数据指针、执行TABLEUPDATE()函数。

  3. 保守式表缓冲。所谓“保守”,就是“编辑时锁定”的意思,“表缓冲”是指“缓冲处理整个使用者加以编辑的数据集(光标)”。因此一旦使用这种模式,当编辑动作刚开始,数据源的相关记录集便被锁定,而且在执行以下动作时,数据变动才会被发送:执行TABLEUPDATE()函数。
    由于在开始编辑时就锁定数据源的整个对应表或是记录集,所以这种模式不被远程数据处理采用。

  4. 开放式行缓冲。所谓“开放”,就是“更新时锁定”的意思,“表缓冲”是指“缓冲处理整个使用者加以编辑的数据集(光标)”。因此使用这种模式,只有在执行TABLEUPDATE()函数时,数据变动才会被发送,数据源的相关记录集才被锁定。

好了,我们得到以下结论:在操控远程数据时,Visual FoxPro将对光标采用“开放式行缓冲”或“开放式表缓冲”,默认设置是“开放式行缓冲”。

以后在讨论远程数据处理时,不特别指出,行缓冲就是指开放式行缓冲,表缓冲是指开放式表缓冲。

在“开放式行缓冲”下,因为只对一条被编辑的记录开启缓冲,所以有两种方式可以确认编辑、发送更新:移动指针(在上面的例子中我们已经使用过了)、TABLEUPDATE()函数。不知您能否理解“指针移动确认更新”的意思?我是这样理解的:行缓冲只对一条被编辑的记录有用,如果移动指针,那就必须确认更新(如果数据有变动),因为如果不确认更新(释放缓冲区),Visual FoxPro便没法为下一行制定缓冲区了——记住:这是行缓冲。

“在开放式表缓冲”下,Visual FoxPro对整个记录集开启缓冲区,所以移动指针并不会确认更新。只有使用TABLEUPDATE()函数了。

乍一看,“开放式行缓冲”比“开放式行缓冲”需要更少的系统资源,好像是个好选择,我看不尽然:

  1. 有些Visual FoxPro的命令或函数会“不由自主”地移动指针,使得开发人员对更新的确认失去控制。

  2. 有时对数据的维护是成批的。

下面的代码说明了怎样控制缓冲:

USE VCustomers
CURSORSETPROP("Buffering", 3, "VCustomers")
*设定VCustomers的缓冲模式为“开放式行缓冲”。由于这时Visual FoxPro的默认设置,这一句可省略。
USE VOrders
CURSORSETPROP("Buffering", 5, "VOrders")
*设定VOrder的缓冲模式为“开放式表缓冲”。

以缓冲理解更新冲突

在图8中我在发生更新错误时提示:“原先Phone=030-0074321,现在Phone=00000,两者不等……”,那么这个原先是“什么时候”,“现在”又是怎样的概念?(假设进程一、二采用行缓冲模式、用“关键字和已更新字段”检测冲突)。

“原先”是指:进程一中视图被打开或是最近一次刷新成功时刻SQL Server数据表中的记录值。让我们先停下来,怎样才会刷新光标和缓冲呢?

  1. 远程视图光标被打开(无论使用行缓冲还是表缓冲)。

  2. 成功执行REQUERY()函数(无论使用行缓冲还是表缓冲)。

  3. 发送更新(无论成功与否)

您可以想象:进程一打开远程视图,Visual FoxPro自动把这个时刻SQL Server的数据值压入缓存中,这时进程一认为:我对SQL Server上数据的修改应建立在这个基础上,即Phone=030-0074321,如果这个基础不存在了,这发生更新错误。

在进程一还没有把它在客户端对Phone的修改发送到数据源的时候,进程二也读取了SQL Server的数据,注意这时进程二认为:我对SQL Server上数据的修改应建立在这个基础上,即Phone=030-0074321。于是进程二修改Phone为00000,并在进程一之前确认的数据变动,这时是不会发生更新冲突的,因为进程二修改数据的依据是成立的。

进程一慢慢吞吞地把数据改为了123456,发送更新。这时问题来了:进程一告诉SQL Server这样修改数据:

sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2 AND Phone=@P3', N'@P1 nvarchar(24),@P2 varchar(50),@P3 nvarchar(24)', N'123456 ', 'ALFKI', N'030-0074321'

我把参数填入,您就能很清楚地看到问题所在:

UPDATE dbo.Customers SET Phone='123456' WHERE CustomerID='ALFKI' AND Phone='030-0074321'

看到没有:Visual FoxPro自动的把缓冲里的Phone=030-0074321(在BROWSE 窗口中您已经把Phone改为了123456,Visual FoxPro“早有预谋”,把原始数据存在缓冲中,任你表面变化万次——我都不怕)拿出来并结合关键字作为更新依据,然而由于进程二已经修改了Phone的值,在SQL Server 中哪里还会有存在符合条件 CustomerID= 'ALFKI' AND Phone='030-0074321'的行了,只有CustomerID= 'ALFKI' AND Phone='00000'的记录行了。于是SQL Server 告诉 Visual FoxPro找不到目标记录,Visual FoxPro就对用户说:更新冲突。

所以,缓冲作用是就在这里:客户机与服务器通过 ODBC 这个翻译“传情达意”——但 ODBC 很苯——只能传一些SQL语句。事实上任何对数据的变动,都可归结为:Insert、Update、Delete。SQL语句与Visual FoxPro的命令函数有很大的不同——目标定位必须依靠条件语句(Where 子句)(Visual FoxPro可以很容易定位到第N行);缓冲为这些至关重要的定位条件提供了依据,没有缓冲就无法生成定位语句!

确认更新、放弃更新

确认更新

上文我们多次提到确认更新有基本上算是两种方式:移动指针、使用TABLEUPDATE()函数。移动指针只能在“开放式行缓冲“下使用,并且开发人员对法的可控性较差,一般用于交互式工具中,如上文我们使用过的SQL Server 的Enterprise Manager工具。这里我们只讨论TABLEUPDATE()函数。

在开放式行缓冲下使用TABLEUPDATE()函数:

  1. 语法:TABLEUPDATE(0[,lForce][,nWorkAear|cTableAlias])

  2. 返回值:更新成功——.T.,更新失败——.F.

  3. 必选参数:0。代表只更新当前记录到数据源——这里是记录缓冲,当然是:“只更新当前记录到数据源”。

  4. 可选参数——lForce。默认为.F.,指:如果发生更新错误就确认更新错误,本函数返回.F.;如果设此参数为.t., 表示发生更新错误时,以本客户端的新值为准,覆盖网络上被确认已经的其他用户的更新,如果覆盖成功,本函数返回.T.。
    缺省表示本参数时取默认值。
    该参数设为.T.的实质就是临时改变更新冲突的检测方式为“关键字段”,所以只要关键字不发生冲突,就不会发生更新冲突,本客户端的新值将覆盖其他用户做的变更。

  5. 可选参数——nWorkAear|cTableAlias。表示实行TABLEUPDATE()的工作区,缺省表示对当前工作区有效。

例如:

USE VCustomers
REPLACE PHONE WITH '123456'
?TABLEUPDATE(0)
*返回 .T.更新成功,反之失败。

USE VCustomers
REPLACE PHONE WITH '123456'
?TABLEUPDATE(0,.t.,'VCostomers')
*由于lForce设置为.t.,Visual FoxPro 临时修改更新检测方式为“关键字段”方式,所以只要关键字CustomerID不发生冲突,即使其他字段已经被其他用户修改,Visual FoxPro也不会检测,Visual FoxPro将强制覆盖其它用户做的修改。
*在“关键字段和已修改字段”的冲突检测方式下:Visual FoxPro向SQL Server发送如下语句:
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'123456', 'ALFKI'

在开放式表缓冲下使用TABLEUPDATE()函数:

  1. 语法:TABLEUPDATE(nRows[,lForce][,nWorkAear|cTableAlias][,cErrorArray])

  2. 返回值:更新成功——.T.,更新失败——.F.

  3. 必选参数——nRows。可以有两种取值:1、2。假设用户对光标的第 1、2、4、5、7条记录作了修改,如果更新变动,第4条记录上将发生更新冲突。现在,执行本函数,Visual FoxPro将依次发送五条UPDATE-SQL描述:
    设本参数为1时,执行到第4条记录时发生更新冲突,Visual FoxPro将停止发送的5、7条记录的更新描述,并使本函数返回.F.值,Visual FoxPro的记录指针停留在第四条记录上。
    设本参数为2时,执行到第4条记录时发生更新冲突,Visual FoxPro将继续发送的5、7条记录的更新描述,并使本函数返回.F.值,Visual FoxPro的记录指针最终停在最后一条被修改的记录上(这里是第7条记录)。如果可选参数——cErrorArray存在,Visual FoxPro将把发生更新错误的记录号(RECNO())写入该数组,如果第5条记录也发生冲突,那么该数组将是一个一列两行的数组,cErrorArray[1]=4、cErrorArray[2]=5

  4. 可选参数——lForce。默认为.F.,指:如果发生更新错误就确认更新错误,本函数返回.F.;如果设此参数为.t., 表示发生更新错误时,以本客户端的新值为准,覆盖网络上被确认已经的其他用户的更新,如果覆盖成功,本函数返回.T.。
    缺省表示本参数时取默认值。
    该参数设为.T.的实质就是临时改变更新冲突的检测方式为“关键字段”,所以只要关键字不发生冲突,就不会发生更新冲突,本客户端的新值将覆盖其他用户做的变更。

  5. 可选参数——nWorkAear|cTableAlias。表示实行TABLEUPDATE()的工作区,缺省表示对当前工作区有效。

  6. 可选参数——cErrorArray。这是一个一列数组,且只有当必选参数nRows为2时有效,这时它记录着发生更新冲突的记录的记录号;如果没有发生任何更新冲突或是当必选参数nRows不为2时,本数组为一行一列,值为-1。

举个例子:(假设使用“关键字段和已修改字段”作为更新冲突检测方案)

USE VCustomers
CURSORSETPROP("Buffering", 5, "VCustomers")
REPLACE Phone with '9999' next 4
*将第1、2、3、4、条记录的Phone改为9999
BROWSE

*使用 SQL Server 的Query Analyzer 制造更新冲突
*启动 SQL Server Query Analyzer,登录Northwind 数据库
*输入如下语句并执行:
update customers set phone='00000' where customerid='ANATR' or customerid='ANTON'

情况一:TABLEUPDATE(1,.F.,'Vcustomers')

*返回Visual FoxPro
?TABLEUPDATE(1,.F.,'Vcustomers')
*由于记录 2更新时发生冲突,函数返回.F.
?recno('Vcustomers')
*指针停在第2条记录上
?Aerror(err)
用Aerror函数取得Visual FoxPro错误信息存入err数组中
?err(1)
*错误号:1585
?err(2)
*错误信息:“更新冲突”

*回到SQL Server Query Analyzer
*输入如下语句并执行:
select customerid,phone from customers
*您将看到:第一条记录Phone的值已经被Visual FoxPro的客户端修改了,值是:9999。而后三条记录没有发生变化。说明Visual FoxPro依次发送SQL描述到SQL Server时,遇到更新错误就停止继续往下工作。
事实上,查看 SQL Server 的 Profiler 工具也证明了以上论述:
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2 AND Phone=@P3', N'@P1 nvarchar(24),@P2 varchar(50),@P3 nvarchar(24)', N'9999 ', 'ALFKI', N'bbbb '
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2 AND Phone=@P3', N'@P1 nvarchar(24),@P2 varchar(50),@P3 nvarchar(24)', N'9999 ', 'ANATR', N'1234 '//此处发生更新错误,Visual FoxPro停止往下工作

情况二:TABLEUPDATE(1,.T.,'Vcustomers')

*返回Visual FoxPro
?TABLEUPDATE(1,.T.,'Vcustomers')
*函数返回.T.
?recno('Vcustomers')
*指针停在第4条记录上

*回到SQL Server Query Analyzer
*输入如下语句并执行:
select customerid,phone from customers
*您将看到:头四条记录Phone的值已经被Visual FoxPro的客户端修改了,值是:9999。按理说第2条记录被更新时会发生冲突,但由于Visual FoxPro临时变更了更新冲突的检测方案为“关键字段”,这样原本应该能检测到的冲突被忽略了,Visual FoxPro客户端的新值强行覆盖其它客户端的修改。
事实上,查看 SQL Server 的 Profiler 工具也证明了以上论述:
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'9999 ', 'ALFKI'
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'9999 ', 'ANATR'
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'9999 ', 'ANTON'
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'9999 ', 'AROUT'

情况三:TABLEUPDATE(2,.F.,'Vcustomers',Arry)

*返回Visual FoxPro
?TABLEUPDATE(2,.F.,'Vcustomers',Arry)
*参数nRows设为2,即使记录 2、3发生更新冲突,Visual FoxPro仍然继续往下执行,但参数函数返回.F.
?recno('Vcustomers')
*指针停在第4条记录上
?Aerror(err)
用Aerror函数取得Visual FoxPro错误信息存入err数组中
?err(1)
*错误号:1585
?err(2)
*错误信息:“更新冲突”
?Arry[1]
*2
?Arry[2]
*3
*Arry返回发生更新错误的记录号

*回到SQL Server Query Analyzer
*输入如下语句并执行:
select customerid,phone from customers
*您将看到:第一条、第四条记录Phone的值已经被Visual FoxPro的客户端修改了,值是:9999。而第二条、第三条记录没有发生变化。说明Visual FoxPro依次发送SQL描述到SQL Server时,遇到更新冲突忽略之,继续往下工作。
事实上,查看 SQL Server 的 Profiler 工具也证明了以上论述:
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2 AND Phone=@P3', N'@P1 nvarchar(24),@P2 varchar(50),@P3 nvarchar(24)', N'9999 ', 'ALFKI', N'cccc '
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2 AND Phone=@P3', N'@P1 nvarchar(24),@P2 varchar(50),@P3 nvarchar(24)', N'9999 ', 'ANATR', N'cccc '//发生更新冲突,Visual FoxPro继续往下执行
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2 AND Phone=@P3', N'@P1 nvarchar(24),@P2 varchar(50),@P3 nvarchar(24)', N'9999 ', 'ANTON', N'cccc '//发生更新冲突,Visual FoxPro继续往下执行
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2 AND Phone=@P3', N'@P1 nvarchar(24),@P2 varchar(50),@P3 nvarchar(24)', N'9999 ', 'AROUT', N'cccc '

情况四:TABLEUPDATE(2,.T.,'Vcustomers',Arry)

*返回Visual FoxPro
?TABLEUPDATE(2,.T.,'Vcustomers',Arry)
*但参数函数返回.T.
?recno('Vcustomers')
*指针停在第4条记录上
?Arry[1]
*-1
*没有发生更新错误

*回到SQL Server Query Analyzer
*输入如下语句并执行:
select customerid,phone from customers
*您将看到:所有记录Phone的值已经被Visual FoxPro的客户端修改了,值是:9999。按理说第2条、第3条记录被更新时会发生冲突,但由于Visual FoxPro临时变更了更新冲突的检测方案为“关键字段”,这样原本应该能检测到的冲突被忽略了,Visual FoxPro客户端的新值强行覆盖其它客户端的修改。
事实上,查看 SQL Server 的 Profiler 工具也证明了以上论述:
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'9999 ', 'ALFKI'
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'9999 ', 'ANATR'
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'9999 ', 'ANTON'
sp_executesql N'UPDATE dbo.Customers SET Phone=@P1 WHERE CustomerID=@P2', N'@P1 nvarchar(24),@P2 varchar(50)', N'9999 ', 'AROUT'

放弃更新

如果要“放弃客户端对光标已经实施的变动”,该怎么办呢?这很简单,请使用TABLEREVERT()函数。这里有一个概念很重要:任何情况下执行本函数均不都会与远程数据源发生通讯,Visual FoxPro只是从缓冲中把原先的数值取回填写入光标中。

那么Visual FoxPro是怎样从缓冲中取回数据的呢?您可以用OLDVAL()函数得到相同的效果,它的用法这里暂不介绍!

在开放式行缓冲下使用TABLEREVERT()函数:

  1. 语法:TABLEUPDATE(.f.[,nWorkAear|cTableAlias])

  2. 返回值:1。如果当前记录没有被修改,则返回0。

  3. 可选参数——nWorkAear|cTableAlias。表示实行TABLEREVERT()的工作区,缺省表示对当前工作区有效。

例如:

USE VCustomers
CURSORSETPROP("Buffering", 3, "VCustomers")
REPLACE Phone with '9999'
?VCustomer.phone
*9999
?TABLEREVERT(.F.,'VCustomers')
*返回1
?VCustomer.phone
*123456

USE VCustomers
CURSORSETPROP("Buffering", 3, "VCustomers")
?TABLEREVERT(.F.,'VCustomers')
*返回0

在开放式表缓冲下使用TABLEREVERT()函数:

  1. 语法:TABLEUPDATE(lAllRows[,nWorkAear|cTableAlias])

  2. 返回值:放弃更新的记录数目

  3. 必选参数——lAllRows。默认值为.F.,表示对当前记录放弃更新;本参数设定为 .T.,放弃更新所有被修改过的记录。

  4. 可选参数——nWorkAear|cTableAlias。表示实行TABLEREVERT()的工作区,缺省表示对当前工作区有效。

USE VCustomers
CURSORSETPROP("Buffering", 5, "VCustomers")
REPLACE Phone with '9999' next 4
*将第1、2、3、4、条记录的Phone改为9999
BROWSE
go 2
?TABLEREVERT(.F.,'VCustomers')
*1
?TABLEREVERT(.T.,'VCustomers')
*3