settu2.prg

来自「简单易用的软件」· PRG 代码 · 共 29 行

local lcsys16,icprogram
lcsys16=sys(16)
icprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(icprogram,rat("\",icprogram))
public aa
set sysmenu to 
set sysmenu off
set status bar off
set talk off
set exclusive off
set status off
set palette off
set bell on
set escape on
set keycom to windows
set ansi on
set date to ansi
set lock on
set delete on
set opti on
set refresh to 0,5
set default to sys(5)+curdir()
set path to sys(5)+curdir()
_screen.caption="进销存管理系统"
_screen.left=-10000

do form \进销存系统\forms\dl
read events