请教，从FOX2.5 到VF6.0转变？
我是一个FOX爱好者，最早学习FOXBASE，后FOX2.5因参加工作后一直无机会学习，至今掉队了，我只熟悉原FOX2.5的各种命令及编程方式，结合到VF6.0，竟转换不过思路，在VF6.0下怎样有效组织文件，编程？例如以下代码怎样转为VF6.0？ 谢谢！！clea
clea all
set talk off
set date to ansi
@10,0 SAY'进入本系统,请输入口令:'
set cons off
ACCE '' TO KL
if kl#'123456'
SET CONS ON
wait'口令错误,不能进入!!'
quit
endif
set cons on
set cent on
set safe off
set esca off
set status off
set proc to yy1
set proc to yy2
set proc to yy3
set print to lpt1
set marg to 8
set prin off
set devi to scre
set cons on
publi zcd
zcd=.t.
do whil zcd=.t.
clea
defi wind zjy from 5,25 to 18,70 color r/gr+,gr+/r font 'courier',20 titl'友 谊 公 司 信 息 管 理 系 统'
defi menu zjy1 IN WIND ZJY font 'courier',20 mess' 主 菜 单 ' colo schem 7
defi pad m1 of zjy1 prompt'\<0------退返 DOS系统' mess'提示：退出系统，返回ＤＯＳ系统！！！' AT 1,8 font 'courier',20
defi pad m2 of zjy1 prompt'\<1------退返 FOX系统' mess'提示：退出系统，返回ＦＯＸ系统！！！' AT 3,8 font 'courier',20
defi pad m3 of zjy1 prompt'\<2------统计信息系统' mess'提示：进入统计信息系统!' AT 5,8 font 'courier',20
defi pad m4 of zjy1 prompt'\<3------财务信息系统' mess'提示：进入财务信息系统!' AT 7,8 font 'courier',20
defi pad m5 of zjy1 prompt'\<4------发货管理系统' mess'提示：进入发货管理信息系统!' AT 9,8 font 'courier',20
on sele pad m1 of zjy1 DO bf
on sele pad m2 of zjy1 do tc
on sele pad m3 of zjy1 do yy1
on sele pad m4 of zjy1 do yy2
on sele pad m5 of zjy1 do yy3
acti wind zjy
acti MENU zjy1
enddo
deac menu zjy1
rele menu zjy1
clea
clos all
clea all
SET PROC TO
set path to
*set prin on
set devi to prin
set prin to prn
SET DEVI TO SCRE
SET PRINT OFF
SET ESCA ON
set safe on
set talk on
PROC TC
STOR .F. TO zcd
DEAC MENU ZJY1
RETU
retu
[em43][em43][em43]
