主程序.prg

来自「仓库管理的一个小型设计」· PRG 代码 · 共 18 行

SET TALK off
set sysmenu off        
set cent on           
_screen.windowstate=2
_screen.icon="icons\happy.ico"   
_screen.maxbutton=0
_screen.minbutton=1
_screen.closable=.f.
modify window screen noclose
MODIFY WINDOW SCREEN TITLE " 仓库管理信息系统  "
ZOOM WINDOW SCREEN MAX 
set default to data
do form 登录表单
read events
clear
close all
return
endif