你的程序并不大，也没有多少全局变量。局部变量一般不用设置，用后退出程序段，局部变量会自行释放。如果环境设置正常的话，你的程序不会发生因为变量导致内存不足。我的感觉，执行你的主程序后，由于内存不能释放，导致一系列怪现象。

你一说，我也觉得了。因为编译好执行，用了主程序。在退出我的程序后，并没有象有的文章所说要恢复什么环境的，还有释放什么的？然后，我有时又进入我的软件再执行。

还有我在编程序时，有时也会执行主程序，看看运行效果。

所以感觉，是不是主程序有问题，没有释放什么的？还有没有恢复什么的？



那你能不能改一下我的主程序。谢谢。

或者，把你们用的主程序给我，我只要改一下。

[ 本帖最后由 YZCZWCB 于 2010-3-17 14:00 编辑 ]

我的主程序设置很简单，程序中也没有类似

RELEASE maxbh, Cgbh,Cgxh,maxxxh,Ccgzbh,Xznd,Zbnd,Maxnd,szbh,tmpa,lsc,Cgdw,Cgrq,Cgfr,Cghm,Zbnd
SYS(1104)&&清理程序和数据使用的内存缓存,并清除和刷新打开表的缓存。

的语句，因为局部变量一般不用设置，用后退出程序段，局部变量会自行释放。

例如
SET TALK OFF
SET SAFETY OFF
SET CENTURY ON
SET EXACT ON
SET DATE YMD
CLEAR ALL
CLOSE DATABASES
SET SYSMENU OFF
CD D:\TZ
ON SHUTDOWN DO Z10
PUBLIC TM,TP,TZ1
DO FORM TZ1.SCX
READ EVENTS
CLOSE DATABASES
CLEAR ALL
QUIT
RETURN

PROCEDURE Z10 &&退出
CLOSE DATABASES
ERASE L*
ERASE *.CDX
ERASE ALL
QUIT
RETURN


程序文件，表单，报表之类全部在一个文件夹，例如D:\TZ,数据表放在子目录，例如D:\TZ\WJ1、D:\TZ\WJ1，打开表，用 USE WJ1\表A，诸如此类。因此也不处处设置

SET DEFAULT TO sys(5)+curdir()  && 系统路径设置
SET PATH TO data,forms,help,icons,menus,progs,activex

仅供参考。
此外，有时在空白处，看看没有字符，实际上无意中有不显现的内容，FOXPRO在执行中，会感觉这样的内容，造成不可预料的结果。我好几次遇到过这样的问题，删除空白，问题就解决了。

你的退出部分好像有点问题，我编译后，招待可执行文件时，用左边菜单中的退出时，总是出错。另外我感觉稳定性不是很好。可惜我没时间分析你数据库和源码。

谢谢。

原先我也没有在每个事件中写一些清除变量语句。

这还不是花屏搞的我有病乱投医嘛。总以为减少内存的存在，不至于出现的花屏。

另外，在我的COMBO中，如要在数据库中生成只有“采购单位”的临时表，一般在INIT中生成就行，但这个临时表在这个模块一直存在，为了释放这个内存表，减少内存的使用，我后来就改用了TEXT的和COMB的组成，在COMB的离开事件中关闭临时表，真的累死我了。

我在想，如果内存表不是出现花屏的主要原因，我还要恢复用一个COMB就行，这样程序更简洁。


另外，你提醒我的空白行的问题，晚上我再搜一下，删除所有空白行，防止出现不知名的问题

[ 本帖最后由 YZCZWCB 于 2010-3-17 16:30 编辑 ]

这个是没编好，我一般点退出按钮退出系统的。


晚上我回去把他完善好。谢谢啦


我请求，各位老师结合的软件特点，给我写一个主程序。


要求：1、单机版
      2、路径要适应不同的安装盘。不要指定D:\ E:\...什么的
      3、我还想是分我的表单文件、数据表文件....等各个文件夹形式，我觉得所有的文件放在一起不好。
      4、在程序退出后，要能自动清理内存等等必须的专业性的操作

另外，我这个程序是否可以改成网络版的，呵呵，别笑我，我是初学者...

我测试了一下, 好像可以不用改, 可直接定位的~~~这方面我不懂, 你自己不妨也测试一下~~~

可以不用改

下面是我的一个在用的主程序，可以供楼主参考：

close DATABASE
Close All
CLEAR ALL

SET SYSMENU OFF                                &&关闭系统菜单
SET DELETE ON                                  &&打开删除标志
SET EXACT OFF                                  &&打开模糊比较
SET DEFAULT TO SYS(5)+SYS(2003)                &&设置默认的驱动器或文件夹
SET ECHO OFF                                   &&关闭调试程序跟踪窗口
SET TALK OFF                                   &&不显示命令结果
SET CONFIRM OFF                                &&指定不可以用在文本框中键入最后字符的方式来退出文本框
SET SAFETY OFF                                 &&关闭改写文件预先提示
SET CENTURY ON                                 &&显示日期的世纪部分
SET DATE TO YMD                                &&按年/月/日的方式显示日期
SET HOURS TO 24                                &&设置按24小时计时
SET HELP ON                                    &&打开帮助
*SET HELP TO qshelp.chm                         &&指定帮助文件
ON SHUTDOWN DO qstc                            &&当点击主窗口关闭按钮时执行退出过程
SET COLLATE TO "PINYIN"                        &&设置当前排序方式为拼音方式

public (全局变量)

ZOOM Windows Screen Max                       &&最大化屏幕
_SCREEN.caption = "XXXXX"                     &&指定窗口标题
OPEN DATABASE data\bbsj                       &&当前目录下data目录下的bbsj数据库

DO mainmenu.mpr                               &&运行主菜单

READ EVENTS