vfp网络编程

路径问题的代码为

lcSys16 = SYS(16)

lcjsjname=left(sys(0),(at(\on error llerror=.T. do case

case AT(\

gcdataLj=\ cd &gcdataLj if llerror on error

=MESSAGEBOX(\还没有将应用程序数据所在的目录设置为共享目录。请将它设为共享。（设置时要以原目录名作为共享名，并要允写操作。）\出错提示\ RELEASE ALL EXTENDED CLEAR ALL retu endi

cd \ on error if llerror

=MESSAGEBOX(\还没有将应用程序所在的目录设置为共享目录。为方便其他计算机访问，请将程序所在目录设为共享。（设置时要以原目录名作为共享名，并只能设为只读。）\友情提示\

endi

lcProgram =SUBSTR(lcSys16, AT(\ cd LEFT(lcProgram, RAT(\case AT(\

lcProgram =left(lcSys16, AT(\

lcjsjname =SUBSTR(lcProgram, AT(\ gcdataLj=\ cd &gcdatalj on error if llerror

=MESSAGEBOX(\管理员在程序所在的计算机上对数据所在目录进行共享设置后才能运行该程序。\出错提示\

RELEASE ALL EXTENDED CLEAR ALL retu endi

cd left(lcSys16, AT(\endc

了Visual FoxPro 6.0网络编程中应注意的几个问题。 1、引言

笔者在使用Visual FoxPro 6.0编制超市综合信息管理系统时，由于某些参数的设置不当，或某些命令使用不当，曾走过一些弯路，总结起来体会颇多。

2、Visual FoxPro 6.0的几个不尽如意的地方

2．1 Visual FoxPro 6.0的一个bug

笔者在设计一个产品库存查询表单（form）kccx.scx时，其中一个网格（grid）grid1显示查询内容，运行此表单，因尚未选择查询条件，网格显示所有产品的库存情况。因此，在表单kccx.scx的active事件中加入以下程序，使网格grid1显示表dspbmk（产品库存库）的全部内容：

select * from dspbmk into table tj thisform.grid1.recordsource=\thisform.grid1.scrollbars=3 thisform.refresh

系统刚开始运行时，由于产品记录个数少并未发现问题，但随着产品的增加，发现进入此表单很慢。通过将SET SAFETY 设置为ON，单步调试，发现上述程序的第一条SELECT语句重复执行若干次。将此段程序移到表单的init事件后，程序执行正常。或者将上段程序该为：

select * from dspbmk into cursor tj thisform.grid1.recordsource=\

thisform.grid1.scrollbars=3 thisform.refresh

程序也执行正常。

同样，将上段程序放入页框（pageframe）的某一页(page)的active事件中，也会出现同样的问题。笔者并未找到关于此问题解释的相关资料，也许这是Visual FoxPro 6.0的一个bug。

2．2 慎用VFP的缓冲区功能

Visual FoxPro 6.0提供了缓冲区功能，只要将缓冲区（buffering）状态设为2、3、4、5，那么对表或记录的操作只在缓冲区中进行，再通过tableupdate()函数将修改传送到表中，或通过tablerevert()函数取消对表的修改。VFP的这种功能大大简化了程序的编写。但提醒编程者注意：当使用表缓冲（buffering状态设为5）功能时，若一次修改的记录数太多（比如400条以上），当执行tableupdate()函数对表进行真正修改时，发现缓冲区的数据丢失，本次修改失败。

2．3 多使用FLUSH命令

假定有一表单，要连续执行若干小时，其中经常要对某个表操作，在表单的load事件中打开此表，此后该表一直处于打开状态，通过APPE、DELE、REPL等操作对表进行了上千条记录的操作，但当退出后有时会发现当天的数据并未保存，尽管VFP帮助文件中介绍5分钟后会自动FLUSH。在每次操作后加入FLUSH语句，再没出现以上问题。

3、Visual FoxPro 6.0网络程序设计应注意的几个问题

在单用户状态下，数据库的使用没有共享和独占概念，用户可以随意对表进行增、删、改、查等操作，不受任何影响。但是，在网络环境下就不一样，当表被打开时，如果两个用户对一个表同时进行修改、删除等操作，后果将不堪设想。所以在网络环境下表的打开有两种方式：一是共享方式，表示这个表可以被任何用户操作；二是独占方式，表示这个表只能被一个用户操作。例如，对于商场管理系统，由于数据量大，需经常对表进行数据整理（需执行PACK、ZAP等操作），当系统管理员进行数据整理时表必须以独占方式打开；而前台收款和后台操作同时进行时，表必须以共享方式打开。那么如何解决多个用户同时对表操作而不致出现问题呢？下面笔者谈几点体会。

3. 1一般的解决方法

文件或记录的加锁与解锁是网络程序设计中经常用到的方法。VFP提供了FLOCK（）、RLOCK（）和LOCK（）函数对文件和记录进行加锁，一个文件或记录加锁后，只能由加锁用户进行读写，其他用户只能读不能写。当对记录或文件进行修改或删除时，必须加锁。当对文件操作完毕应及时解锁，VFP提供UNLOCK命令对指定工作区解锁。如：

do while !flock()

wait window ‘正在锁定数据库请稍候！’Timeout 0.05

enddo ： unlock

当对文件或记录加锁时，若由于某种原因没有锁住，可以再试加锁操作，并可指定加锁次数或试锁的时间。VFP提供了SET REPROCESS TO命令来确定如何控制失败的记录或文件加锁。此外，VFP还提供SET REFRESH TO命令控制多长时间后显示网络中其他用户对记录所做的修改.

3．2慎用VFP的隐含锁定功能

当VFP处于隐含锁定状态（即SET LOCK设置为ON）时，执行某些命令时将自动对表加锁这些命令包括：

AVERAGE、CALCULATE、LIST、DISPLAY、SORT、INDEX、COUNT、TOTAL、SUM、COPY TO、COPY TO ARRAY 、REPORT、JOIN、LABEL。

在网络环境中，必须将SET LOCK设置为OFF，以免影响其他用户的正常使用。例如，一个商场管理系统，后台正在打印商品信息，若SET LOCK设置为ON，则此时商品信息表将加锁，前台销售需对商品信息表的商品库存进行减操作，也需对商品信息表加锁。此时将陷入锁定等待状态，影响前台收款.

3．3使用VFP的多记录锁功能时要及时对记录开锁

Visual FoxPro 6.0将SET MULTILOCKS设置为ON，即设置多记录锁，表示同时对多条记录加锁。对此功能的使用需谨慎，一定要及时开锁，否则容易引起死锁。假定有一个网络版的商场销售系统，许多表单的对表操作采用了表缓冲区状态，由于VFP规定使用缓冲区功能必须将SET MULTILOCKS设置为ON。所以系统运行时是处于多锁状态。前台销货存盘时要对商品信息表（dspbmk.dbf)中的商品库存量进行修改，在存盘按钮的click事件中加入以下程序段：

sele sp /*销售商品清单 go top

do while .not.eof() sele dspbmk seek sp.spbh do while !rlock()

wait window ‘正在锁定数据库请稍候！’Timeout 0.05 enddo

repl kcl with kcl-sp.sl sele sp skip enddo

sele dspbmk

unlock in dspbmk

程序对每个记录修改后并未及时开锁，在全部修改完后才开锁.

假定有甲乙两个收款台，前台甲正在卖编号为1、2、3的商品，前台乙正在卖编号为3、2、1的商品，甲存盘时首先锁定1商品，库存量修改完后记录指针移动，又锁定了2商品的记录，处理完后试图锁定2商品；而前台先锁定了3商品记录，处理完后试图锁定2商品。这时就发生死锁，造成系统瘫痪。纠其原因，主要因为SET MULTILOCKS设置为ON了，而以上程序却未对记录及时开锁。

本文来自：http://www.bianceng.cn/VFPwz/wlkf/wl9.htm

本文来源：https://www.bwwdw.com/article/w7st.html