一个关于foxpro中窗体变换的问题

映儿 · 发表于 2002-4-11 19:19:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？注册

x

******************
*这是主程序
******************
define window main from 1,30 to 30,100;
title "Information Management System Meum" close minimize float color scheme 3
activate window main
iButtonMain=1
@1,10 say "Company Information Management System" font "Arial",12
@3,20 get iButtonMain picture "@*V \<

ersonnal Management;\<Marketing Management;\<Financing Management;\<Stategic Analysis;\<Information Search;System \<Report;E\<xit";
size 2,25,1
read
do case
case iButtonMain=1
do Persoannal
case iButtonMain=2
do Marketing
case iButtonMain=3
do Financing
case iButtonMain=4
do Stategic
case iButtonMain=5
do Saerch
case iButtonMain=6
exit
endcase
release window main
return

**********************
*这是第三个按钮的窗体
**********************
define window financing from 1,30 to 30,100;
title "Financing Information Meum" close minimize float color scheme 3
activate window financing
do while .t.
iButtonFinancing=1
@1,15 say "Company Financing Information" font "Arial",12
@3,20 get iButtonFinancing picture "@*V \<Add Date;\<Edit Data;\<Deleta Data;\<Return to Main Meum;E\xit";
size 2,25,1
read
do case
case iButtonFinancing=1
do AddData
case iButtonFinancing=2
do EditData
case iButtonFinancing=3
do DeletaData
case iButtonFinancing=4
do Main
case iButtonFinancing=5
exit
endcase
enddo
release window Financing
return

*****************************************
在第二段代码中的
case iButtonFinancing=4
do Main
我现在仅仅实现了打开main窗口的命令，但我想要同时关闭financing这个窗口，请问应该怎么做？？望高手指点！！

*反斜杠在浏览时显示不出，并非我没有写

此贴由映儿在 2002-04-11 22:16:49 最后编辑