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="tj"
thisform.grid1.scrollbars=3
thisform.refresh
系统刚开始运行时，由于产品记录个数少并未发现问题，但随着产品的增加，发现进入此表单很慢。通过将SET SAFETY 设置为ON，单步调试，发现上述程序的第一条SELECT语句重复执行若干次。将此段程序移到表单的init事件后，程序执行正常。或者将上段程序该为：
select * from dspbmk into cursor tj
thisform.grid1.recordsource="tj"
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了，而以上程序却未对记录及时开锁。
