mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
address1='\\10.30.40.50\daglxitonglujing$\DATA'
set path to &address1


_SCREEN.VISIBLE = .F.
DO FORM bt1.scx
READ EVENTS
_SCREEN.VISIBLE = .T.
SET CONFIRM ON                    &&要退出文本框，可以按 Enter，Tab 键或其他任何箭头键
SET FDOW TO 2                     &&指定一周中的第一天(2为星期一)
SET COLLATE TO "MACHINE"
SET ECHO OFF
SET TALK OFF
SET HOURS TO 24
SET MULTILOCKS ON    &&决定能否使用 LOCK ( )或 RLOCK ( ) 锁定多个记录。
SET SYSMENU OFF      &&在程序运行期间，启用或废止 Visual FoxPro 系统菜单栏，并对其重新配置。
SET SYSMENU TO
SET ANSI ON
SET DATE ANSI
SET PROCEDURE TO f_MAIN.PRG
SET ESCAPE OFF       &&决定是否可以通过按 Esc 键中断程序和命令的运行。
SET EXACT ON         &&指定比较不同长度两个字符串时，Visual FoxPro 使用的规则。   
SET EXCLUSIVE OFF    &&允许网络上的任何用户共享和修改网络上打开的表。
SET NEAR ON
SET DELE ON             &&使用范围子句处理记录(包括在相关表中的记录)的命令忽略标有删除标记的记录。
SET KEYCOMP TO WINDOWS
SET LOCK OFF         &&使下列命令能以共享方式访问表。如果不必从表中获得最新的信息，请使用 SET LOCK OFF。
SET MOUSE ON
SET NOTIFY OFF       &&废止某些系统信息的显示。
SET NULL OFF         &&指定由 ALTER TABLE 和 CREATE TABLE 所创建表的所有列都不允许 null 值
SET OPTIMIZE ON      && 启用或废止 Rushmore 优化。
SET PALETTE ON         &&(默认值)恢复默认的 Visual FoxPro 调色板。
SET REPROCESS TO 100 &&指定一次锁定尝试不成功后，Visual FoxPro 对文件或记录再次尝试加锁的次数或时间。
SET CENTURY ON         &&指定在包含 10 个字符(包括日期分隔符)的日期格式中，用四位数字表示年。
SET SAFETY OFF         &&指定在改写已有文件时不显示对话框。
SET SECONDS OFF         &&指定在日期时间值中不显示秒。
SET STATUS OFF         &&(默认值)移去基于字符的状态栏。
SET STATUS BAR Off     &&移去图形状态栏。
ZOOM WINDOW SCREEN MAX
CLEAR
MODI WINDOW SCREEN ;
    TITLE "XXXXX智能平台";
    FONT "system",12 ;
    NOCLOSE ;   &&禁止关闭一个窗口。
    FLOAT ;    &&允许您使用键盘或鼠标移动一个用户自定义窗口。
    MINIMIZE ;     &&允许使用键盘或鼠标最小化一个用户自定义窗口。
    ZOOM ;    &&允许使用键盘或鼠标最大化一个用户自定义窗口。
    GROW ;    &&允许您使用键盘或鼠标调整用户自定义窗口的大小
    ICON FILE "main.ico";
    fill file "backgnd4.bmp"
CLEAR
*!*    运行定义全局变量程序
do public_bl
*!*    运行系统操作员验证表单
do form syslog to id1
if id1=123 then
    quit
endif
SET ECHO OFF
SET TALK OFF
*!*    运行主菜单
do main.mpr
SET ECHO OFF
SET TALK OFF
do form f_main
clear
close all
clear
SET ECHO OFF
SET TALK OFF
read events

[此贴子已经被作者于2022-6-2 11:32编辑过]

并发读写，常遇死锁，换个思路，也许快些

表缓冲是否能够改善呢

用SQL语句加上出错判断，能完美解决。