main.prg

来自「简单的进销存系统」· PRG 代码 · 共 38 行

_screen.windowstate=2
_screen.caption="商品营销管理系统 计算机(3)班"
_screen.closable=.F.
_screen.maxbutton=.T.
_screen.minbutton=.T.
close all
clear all
clea
set talk off
set date ansi
set delete on
set exact off
set safety off
set status bar off
do form pass to num
if num 
   do form main1
   read event
endif
set status bar on
use jh
pack
use jh1
pack
use fk
pack
use fk1
pack
use mcb
pack
use jbrb
pack
use dwb
pack
close all
clear all
return