补充:
CLOSE all
_screen.visible=.f.
SET HOURS TO 24
set safe off
set talk off
set exclusive off
set event on
*...........
set sysmenu off
set deleted on
set century on
set date to ymd
on shutdown quit
clear
clear memory
set clock off
set mark to '-'
set echo off
set escape off
set exact on
! \\10.110.110.7\dfhm\data
此行无法在WIN7运行
set shadows on
set safe on
set status off
set sysmenu to
set memowidth to 256
public passname,password,passlx,shijcond,kk,pathcond,czrecord,idcond,passkind,path_cond
store '' to passname,password,passlx,shijcond,kk,pathcond,czrecord,idcond,passkind
store '.t.' to cond,shijcond
path_cond=curdir()
pathcond='data'
set path to \\10.110.110.7\dfhmwzglb$\data;
do form sctd_ck
READ EVENTS &&启动事件循环
retu