settu2.prg

简单易用的软件

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