_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