vfp锁住和解锁数据表

先做一个表单，安上要求那些控件，表单如果都不会做那就挂吧。我把重要程序写一便。
Form1（控件） Init（事件）下同
et safety off &&设置覆盖文件时弹出对话框
set exclusive off &&设置数据表打开方式为共享
thisform.list1.clear &&清空列表框控件中内容
mydatabase=sys(5)+sys(2003)+"\database\database.dbc"
set exact off &&设置字符非精确比较
open database "&mydatabase" &&打开数据库
display tables to file temp.txt noconsole &&显示当前数据库中的所有表名和表的路径信息
mystr=''
handle=fopen("temp.txt",2)
do while feof(handle)=.f.
mystr=fgets(handle)
if alltrim(mystr)="表位于" or alltrim(mystr)="名称"
cname=""
else
cname=alltrim(left(mystr,at(":",mystr)-2))
endif
if !empty(cname)
thisform.list1.additem(cname) &&添加数据项
*分别在不同工作区中打开数据表
if !used(sys(5)+sys(2003)+"\database\"+cname)
select 0
tabname=sys(5)+sys(2003)+"\database\"+cname
use "