既然请大家帮忙，楼主应该贴出主程序代码。

**主程序：内容如下：
**设置运行环境
Set Talk Off &&关闭命令显示
Set Escape Off &&禁止运行的程序在按 Esc 键后被中断
Set Exclusive Off &&数据库表以共享方式打开
Set Deleted On &&过滤掉已带删除标记的记录
Set Safety Off &&指定在改写已有的文件时不显示对话框
Set Date Ansi &&设定日期的年份为 4 位数
Set Century On &&指定日期表达式的显示格式为YY.MM.DD
SET MARK TO [-] &&指定日期的分隔符为"-"
SET SECONDS ON &&日期时间表达式的显示秒钟部分
SET HOURS TO 12 &&指定日期时间表达式的显示为12小时格式
Set Optimize ON &&启用或废止 Rushmore 优化。
Set ENGINEBEHAVIOR 70
Set DECIMALS TO 8 &&指定小数点位数,默认为2位
Clear &&清除主窗口
Clear All &&清除变量
**开始进行程序的事务处理操作
Public pcSys
pcSys=Sys(5)+Sys(2003)
Set Default To pcSys
Set Path To Class,Form,Poto,Menu,Prg,Report
DO form denglu.scx
READ events
**保存,名称自己起，一般是main,然后设置为主文件
**在主程序的
do xxx
**后面加上一行：
read event
**在主菜单的退出模块加上
clear event
**这样编译出来的exe就能正常运行了

连编的问题现已解决，谢谢各位的帮助，现在又出现一个新问题，就是，登陆页面后，登陆框还在页面上，怎么解决？

登陆框还在页面上？
释放掉，用release

额……if thisform.text1.value='001' and thisform.text2.value='001'
   do  水表管理.mpr
   READ EVENTS
   else
   num=num+1
   if num=4
   messagebox('错误三次，即将关闭窗口',0+48,'提示')
   thisform.release
   else
   messagebox('密码错误！',0+48,'提示')
   endif
   endif
这是登陆页面的代码

do  水表管理.mpr
   READ EVENTS
   后也加上thisform.release

这样一来，登陆的同时，整个页面全关了……

应该执行do  水表管理.mpr 啊

thisform.release
关的是登陆表单才对

nonono，就全关了啊。求大侠指点