标题: 一个关于foxpro中窗体变换的问题 [打印本页] 作者: 映儿 时间: 2002-4-11 19:19 标题: 一个关于foxpro中窗体变换的问题 ******************
*这是主程序
******************
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这个窗口，请问应该怎么做？？望高手指点！！
ersonnal Management;\<Marketing Management;\<Financing Management;\<Stategic Analysis;\<Information Search;System \<Report;E\<xit";