这段程序运行中经常造成系统无响应，大侠们看看，问题出在哪里啊
1，经常在19：00：00点停止写数据2，经常在23：59：59引起程序无响应，此时必须用程序管理器终止程序
3，不定时发生，发生的时间一定是上面的时间
4，使用TRY没有捕捉到任何错误信息
星号下是程序，烦请各位大侠看看，谢了！
*
当前时间=DATETIME()
*显示时间
IF thisform.timexs.Caption!=TTOC(当前时间)
*更新时间显示
thisform.timexs.Caption=TTOC(当前时间)
*整点(每60分钟)保存一次水表数据
IF MINUTE(当前时间)=0 AND sec(当前时间)=0 &&
累计供水=THISFORM.TEXT10.Value
当日用水=THISFORM.TEXT11.VALUE
累计回水=THISFORM.TEXT12.Value
当日回水=THISFORM.TEXT13.Value
INSERT INTO DATA\COUNT_DATA (编号,采集,累计,当日) VALUES (yh_gsbh,当前时间,ALLTRIM(STR(累计供水,20,5)),ALLTRIM(STR(当日供水,20,5)))
INSERT INTO DATA\COUNT_DATA (编号,采集,累计,当日) VALUES (yh_hsbh,当前时间,ALLTRIM(STR(累计回水,20,5)),ALLTRIM(STR(当日回水,20,5)))
thisform.label25.CAPTION=TTOC(当前时间)+" 供水和回水流量计(水表) 的数据已经保存! "
ENDIF
*每天23时为水表日结算时刻,数据初始化
IF HOUR(当前时间)=23&& AND MINUTE(当前时间)=59 AND SEC(当前时间)=59
上报状态=.F.
昨日供水=累计供水
当日供水=0
昨日回水=累计回水
当日回水=0
THISFORM.TEXT10.Value=累计供水
THISFORM.TEXT11.VALUE=当日供水
THISFORM.TEXT12.Value=累计回水
THISFORM.TEXT13.Value=当日回水
ENDIF
*每日4时自动推送数据,如果不成功,在此时间内相隔10分钟再次推送
IF HOUR(当前时间)=4 AND MOD(MINUTE(当前时间),10)=0
IF 上报状态=.F.
THISFORM.上报()
ENDIF
ENDIF
*每天早上6时开始采集水表数据,0 时结束
IF HOUR(当前时间)>=6 AND HOUR(当前时间)<>0 &&AND MINUTE(当前时间)=0 AND SEC(当前时间)=0
*读表状态=.t.
ELSE
*读表状态=.f.
ENDIF
ENDIF
