TO shixueli(渴望成功)
你的主程序里没有启动事件循环啊
set talk off
set safety off
clear all
close all
DO FORM "C:\VFPHomeWork\dlbd.scx"
READ EVENTS && 这一句用来启动事件循环,否则程序启动就会退出
return
使用上面代码后,要在主表单退出的UNLOAD事件里写CLEAR EVENTS这一句。否则程序就别想退出了
to Raf1945:
真的是一闪而过的。
我的主程序是“gkglxt.prg”,内容如下:
set talk off
set safety off
clear all
close all
DO FORM "C:\VFPHomeWork\dlbd.scx"
return
它启动用作登陆的表单“dldb.scx”,它的init事件内容如下:
set talk off
set safety off
set exclusive on
close all
open database "c:\VFPHomeWork\gkglsjk.dbc" exclusive
select a
use "C:\VFPHomeWork\gkqkb.dbf"
delete all for 考号=space(6)
pack
select b
use "C:\VFPHomeWork\gkcjb"
delete all for 考号=space(6)
pack
select d
use "C:\VFPHomeWork\xtczyb"
我试着把dlbd.scx作为主程序,出现了“file access is denied”的错误