呵呵，有关执行文件的

[hope0123]

我在FOXPRO FOR WINDWS中转换成了EXE文件和安装文件后，为什么在执行完后，在屏幕上什么都没有显示呢？我以前从没有出现过这类的问题。望各位广而告之。

[hope0123]

在表单或菜单运行后？怎么加？是不是第一次运行后，知道没显示结果，但知道自己的程序是对的。转成EXE和安装文件后，就不显示结果了，用上面的两条命令对吗？

[fj_jiangqi]

加在do form背后
在表单里退出时的unload里加上clera events
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[hope0123]

我的主程序如下：
set talk off
clear
DIMENSION mainmenu(7,2)
mainmenu (1,1)=' 数据输入'
mainmenu (2,1)=' 数据查询'
mainmenu (3,1)=' 系统维护'
mainmenu (4,1)=' 统计'
mainmenu (5,1)=' 打印'
mainmenu (6,1)=' 帮助'
mainmenu (7,1)=' 退出'
mainmenu (1,2)=' 该模块主要完成教职工基本情况输入'
mainmenu (2,2)=' 该模块能够按照各种条件进行人事查询'
mainmenu (3,2)=' 该模块主要完成人事库数据的修改,增加和删除'
mainmenu (4,2)=' 该模块能够统计二种人事报表'
mainmenu (5,2)=' 该模块能够打印二种人事报表'
mainmenu (6,2)=' 帮助系统'
mainmenu (7,2)=' 退出人事管理信息系统'
DIMENSION submenu1(1)
submenu1 (1)='\<1. 输入'
DIMENSION submenu2(2)
submenu2 (1)='\<1. 按工号查询'
submenu2 (2)='\<2. 浏览人事信息'


DIMENSION submenu3(3)
submenu3(1)='\<1. 数据修改'
submenu3(2)='\<2. 数据增加'
submenu3 (3)='\<3. 数据删除'
DIMENSION submenu4(2)
submenu4(1)='\<1. 按职称统计'
submenu4(2)='\<2. 按学历统计'
DIMENSION submenu5(2)
submenu5(1)='\<1. 打印职称统计报表'
submenu5(2)='\<2. 打印学历统计报表'
DIMENSION submenu6(2)
submenu6(1)='\<1. 帮助说明'
SUBMENU6(2)='\<2. 操作说明'
DIMENSION submenu7(1)
submenu7(1)='\<1. 退出'
MENU BAR mainmenu,7
menu 1, submenu1,1
menu 2, submenu2,2
menu 3, submenu3,3
menu 4, submenu4,2
menu 5, submenu5,2
menu 6, submenu6,2
menu 7, submenu7,1

STORE 1 TO row,col
read menu bar to row,col
do case
case row=1 and col=1
do a:\sjsr
do a:\xt
case row=2 and col=1
do a:\sjcx
do a:\xt
case row=2 and col=2
do a:\xm12
do a:\xt

case row=3 and col=1
do a:\xtwh
do a:\xt
case row=3 and col=2
do a:\tj
do a:\xt
case row=3 and col=3
do a:\sc
do a:\xt
case row=4 and col=1
do a:\tg
do a:\xt
case row=4 and col=2
do a:\gdw
do a:\xt
case row=5 and col=1
do a:\de
do a:\xt
case row=5 and col=2
do a:\gtw2
do a:\xt
case row=6 and col=1
do a:\help11
do a:\xt
case row=6 and col=2
do a:\help12
do a:\xt
case row=7 and col=1
do a:\xttt
endcase
return
结束程序如下
EXIT
CLEA
请问，READ EVENTS和CLEA EVENTS怎么加？
不好意思我很笨。

[fj_jiangqi]

在表单或菜单运行后要加上
READ EVENTS
在结果时要用clera events
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[fj_jiangqi]

你把我难倒了，你用的是哪一个的foxpro？
我的那些方法在你这无法运行。
不知楼下是否有人解答？
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[hope0123]

foxpro for windows5.0

[xuzuning]

这样

loopYesNo = .T. && 新增
DO WHILE loopYesNo && 新增
read menu bar to row,col
do case
case row=1 and col=1
........

case row=7 and col=1
do a:\xttt
loopYesNo = .F. && 新增
endcase
ENDDO && 新增
return

[fj_jiangqi]

你怎么不用系统的菜单生成器来做菜单，用生成器做出的菜单只要
* 主程序
do menufile.mpr
READ EVENTS


在menufile菜单里的退出加上
clera events
就ok了
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[wx1977]

同意傻瓜的建议！用菜单生成器吧！既方便又快捷，还不会出错。
现在还有谁用输入命令的方式来生成菜单呀？！你当是处在DOS年代吗？：P