main6.prg

这是一个去年做的电大毕业设计,可能还不太完善,但基本功能有,

_screen.windowstate=2
_screen.caption="物 资 管 理 信 息 系 统  "
_screen.closable=.F.
_screen.maxbutton=.F.
_screen.minbutton=.F.
*_screen.backcolor="0,0,128"
close all
clear all
clea
set sysmenu off
set sysmenu to
set talk off
set date ansi
set delete on
set exact off
set safety off
set status bar off
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
*set defa to D:\work\物资管理系统
do form pass to num
if num 
   do form main
   read event
endif
set sysmenu to default
set sysmenu on
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