xjgl.prg

来自「vf设计的」· PRG 代码 · 共 22 行

set sysmenu off
set sysmenu to
set talk off
set safety off
set status bar off
&&set default to e:\mine
open database xjgl.dbc exclusive
_SCREEN.WINDOWSTATE=1
do form frm_login_2
READ event
&&set sysmenu off
&&set talk off
&&set safety off
&&set status bar off

&&SET SYSMENU TO DEFAULT
&&SET SYSMENU ON
&&SET STATUS BAR ON
&&CLOSE ALL
&&CLEAR ALL
quit