我要哭了，好好的程序为什么还是越用越慢？请高手再次帮助我分析原因。


程序在运行过程中，录入了三个记录就开始越来越慢，最后发生屏幕乱屏，我无法退出程序时，只好关机，发生我的数据库破坏。


我晕死了，乱了这么长时间编的程序，对工作确确实实带来了方便，但总出现花屏，又不是程序编写的问题，我快急死了。


求各位高手了！！

这个问题不解决我也不想用VFP了。

我已想了很多办法，甚至在编程序时也出现乱屏的现象！以前按照你们的办法去做了，杀毒、少用全局变量减少内存的使用，重新装VFP、重新装电脑系统。。。

我不知道还有什么办法解决。我要哭了...


我想问一下：是不是什么缓存的问题？如果是的话，又如何设置？

[ 本帖最后由 YZCZWCB 于 2010-3-15 11:26 编辑 ]

1：运行其他软件没有发生这个现象。
2：全面杀毒，重新装过电脑系统。
3:VFP9.0SP1(本论坛下载)，系统XP
4、电脑去年才买的

我想把我的系统上传？如何上传？

[ 本帖最后由 YZCZWCB 于 2010-3-15 11:45 编辑 ]

装SP1还是SP2?

请各位老师了，上面两个压缩文件，第二个是图片文件夹文件，由于太大只能分开上传了，其他的文件都是第一压缩文件中。


请老师们帮助测试一下，求你们了，搞得我快哭了。同时，请你们对我编的程序多提宝贵意见。让我更快更好的学习，选谢谢了

我的邮箱是：YZCZWCB@

[ 本帖最后由 YZCZWCB 于 2010-3-15 12:18 编辑 ]

可以排除是电脑问题。因为，我是白天在办公室编写，晚上在家里编写，都出现这种现象。

我用9.0编写的，用8.0和6.0，程序是否能运行？我不知道呀


所以我一直在找程序本身的问题，也改的着实令人头疼。

我一直在查找是不是内存不足的问题？因为我的程序里产生不少临时表？此外，我查了一些资料，说缓存的问题？我又不知道如何设置。唉

还有程序的运行环境，我也不知道设置错在哪里？

所以请各位老师帮助我看看我的主程序，再给我改改。


重要一点：如果我发现有慢的现象，我要尽快退出VFP，然后再进VFP编写或录入数据，就会避免出现花屏的现象，并且速度很快，否则的话，就出现了花屏。

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

发一下我的花屏图

我的主程序：

Set Talk off
Set Escap off
*SET PROCEDURE TO MyFunction.PRG
*ON ERROR MyWriteShowErr(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM(),LINENO(1)) &&捕获、写、显示错误

*ON ERROR DO Err.PRG With Error(), Message(), Message(1), Program(), Lineno(1) * 开始，程序错误处理
* 第一步，清理环境*****************************
Close All && 关闭所有工作区中打开的数据库、表和索引，并选择工作区 1。
Clear Menus && 从内存中释放所有的内存变量和数组以及所有用户自定义菜单栏、
&& 菜单和窗口的定义。 还从内存中删除所有用 DECLARE-ALL 注册
&& 的外部 Windows 32 位动态链接库 (.DLLS)。 * 关闭系统菜单
* 如果在发出 SET SYSMENU SAVE 命令之后修改了菜单系统，可以通过发出
* SET SYSMENU TO DEFAULT 命令来恢复前面的设置。
Set Sysmenu Save
Set Sysmenu Off &&* 在程序执行期间废止 Visual FoxPro 主菜单栏。
Set Sysmenu To


SET EXACT ON
* 第二步，设置环境
*Set Autosave On && * 退出Read时保存数据缓冲区内容
Set Carry Off &&* 使用 INSERT、APPEND 和 BROWSE 命令创建新记录时，不将当前记录数据复制到新记录中。
Set Confirm On &&* 指定是否可以用在文本框中键入最后一个字符的方法退出文本框。
Set Century on &&* 日期显示世纪部分
Set Date Ansi &&* 设置日期格式为"YY.MM.DD" 格式
Set Delete On &&* 不显示已经删除的记录
Set Multilocks On &&* 决定能否使用 LOCK ( )或 RLOCK ( ) 锁定多个记录。&& 网络编程专用
*Set Null On &&* 确定 ATLTER TABLE、CREATE TABLE 和 INSERT - SQL 命令如何处理 null 值。
*Set NullDisplay To '' &&* 指定当字段是空值(NUll)显示的文本为 ''
Set Safety Off &&* 改写已有文件之前不显示对话框
Set Status Bar Off &&* 移去图形状态栏。
SET OPTIMIZE ON   &&打开优化
SET DOHISTORY OFF
SET EXCLUSIVE ON  &&文件以独占有方式打开
* 第三步，设置你的程序路径
SET DEFAULT TO sys(5)+curdir()  && 系统路径设置
SET PATH TO data,forms,help,icons,menus,progs,activex
* 第四步 初始化键盘
Capslock(.F.)
IMEStatus(0)
Insmode(.T.)
Numlock(.T.)
_VFP.Visible = .F.
PUBLIC  FormName,t_date
t_date=''

Do Form "ZFCG_dcbd.scx"

read event