请求高手指点这个数据处理方式

lywfyt

1、数据库为mysql 8.0；
2、数据计算为定时自动填写finishtime列内容，填写为 calltime+限定时间>=取现行时间（），并自动计算超过的时间，填写到overtime，具体如下图；限定时间从另一个数据表中读出staytime；
3、目前采用了时钟事件，设定为60秒一次，运行后闪退，停止时钟事件后程序正常；CPU占用不高，内存占用也不高；
4、请求高手协助，必谢！

  

.版本 2[/color][/size]

子程序名	返回值类型	公开	备 注
_时钟完成计时_周期事件

变量名	类 型	静态	数组	备 注
I	整数型
sql语句2	文本型
类型	文本型
局部记录集2	整数型
时限	文本型
呼叫时间	文本型
时间间隔	长整数型
时间差	整数型
呼叫位置	文本型
局部记录集1	整数型
K	整数型
sql语句1	文本型

执行SQL语句 (mysql句柄, “set names gbk”)
sql语句1 ＝ “select * from callrecord where finishtime is null ORDER BY calltime ASC limit 0,50”
如果 (执行SQL语句 (mysql句柄, sql语句1) ＝ 假)
' 信息框 (“查询未完成记录自动填入完成时间错误”, 0, , )



局部记录集1 ＝ 取记录集 (mysql句柄)
K ＝ 取记录集行数 (局部记录集1)
标签1.标题 ＝ 到文本 (K)
到首行 (局部记录集1)
调试输出 (取现行时间 ())
计次循环首 (取记录集行数 (局部记录集1), I)
程序_延时 (100, )
读字段值 (局部记录集1, “type”, 类型)
读字段值 (局部记录集1, “calltime”, 呼叫时间)
读字段值 (局部记录集1, “address”, 呼叫位置)
sql语句2 ＝ “select staytime from setarea where  type = '” ＋ 类型 ＋ “'”
执行SQL语句 (mysql句柄, sql语句2)
局部记录集2 ＝ 取记录集 (mysql句柄)
读字段值 (局部记录集2, “staytime”, 时限)
如果 (时限 ≠ “”)
时间间隔 ＝ 时间到秒计算 (呼叫时间, 到文本 (取现行时间 ()))  ' ----------------------------------------这里用了一个时间到秒的计算模块！他返回的是一个长整数型数据；
时间差 ＝ 到整数 (时间间隔) － 到整数 (时限)
调试输出 (时间差)
调试输出 (取现行时间 ())
如果 (到整数 (时间间隔) ≥ 到整数 (时限))
sql语句 ＝ “update callrecord set finishtime ='” ＋ 时间_到文本 (取现行时间 (), 1, ) ＋ “',overtime='” ＋ 到文本 (时间差) ＋ “'where calltime='” ＋ 呼叫时间 ＋ “'”
如果 (执行SQL语句 (mysql句柄, sql语句) ＝ 假)
信息框 (“写入完成时间失败”, 0, , )

调试输出 (取现行时间 ())
调试输出 (“sql”)
到下一行 (局部记录集1)
' 日志文本 ＝ “时钟完成计时_周期事件程序运行：” ＋ 呼叫位置 ＋ 类型
' sql语句 ＝ “insert into journal(time,action) VALUES ('” ＋ 时间_到文本 (取现行时间 (), 1, ) ＋ “','” ＋ 日志文本 ＋ “')”
. ' 如果 (执行SQL语句 (mysql句柄, sql语句) ＝ 假)
' 信息框 (“时钟完成计时_周期事件程序写入日志失败！”, 0, , )


' 调试输出 (“执行”)







到下一行 (局部记录集1)
调试输出 (“W执行” ＋ 到文本 (K) ＋ “--” ＋ 到文本 (I))
释放记录集 (局部记录集2)
计次循环尾 ()
调试输出 (取现行时间 ())
系统内存优化 ()
释放记录集 (局部记录集1)

i支持库列表	支持库注释
mysql	MySql支持库
spec	特殊功能支持库

.版本 2</font></font><br /> .支持库 mysql<br /> .支持库 spec<br /> <br /> .子程序 _时钟完成计时_周期事件<br /> .局部变量 I, 整数型<br /> .局部变量 sql语句2, 文本型<br /> .局部变量 类型, 文本型<br /> .局部变量 局部记录集2, 整数型<br /> .局部变量 时限, 文本型<br /> .局部变量 呼叫时间, 文本型<br /> .局部变量 时间间隔, 长整数型<br /> .局部变量 时间差, 整数型<br /> .局部变量 呼叫位置, 文本型<br /> .局部变量 局部记录集1, 整数型<br /> .局部变量 K, 整数型<br /> .局部变量 sql语句1, 文本型<br /> <br /> <br /> 执行SQL语句 (mysql句柄, “set names gbk”)<br /> sql语句1 ＝ “select * from callrecord where finishtime is null ORDER BY calltime ASC limit 0,50”<br /> <br /> .如果 (执行SQL语句 (mysql句柄, sql语句1) ＝ 假)<br /> <br />     ' 信息框 (“查询未完成记录自动填入完成时间错误”, 0, , )<br /> .否则<br /> <br /> .如果结束<br /> <br /> 局部记录集1 ＝ 取记录集 (mysql句柄)<br /> K ＝ 取记录集行数 (局部记录集1)<br /> 标签1.标题 ＝ 到文本 (K)<br /> <br /> 到首行 (局部记录集1)<br /> 调试输出 (取现行时间 ())<br /> .计次循环首 (取记录集行数 (局部记录集1), I)<br />     程序_延时 (100, )<br />     读字段值 (局部记录集1, “type”, 类型)<br />     读字段值 (局部记录集1, “calltime”, 呼叫时间)<br />     读字段值 (局部记录集1, “address”, 呼叫位置)<br /> <br />     sql语句2 ＝ “select staytime from setarea where  type = '” ＋ 类型 ＋ “'”<br />     执行SQL语句 (mysql句柄, sql语句2)<br />     局部记录集2 ＝ 取记录集 (mysql句柄)<br />     读字段值 (局部记录集2, “staytime”, 时限)<br /> <br />     .如果 (时限 ≠ “”)<br />         时间间隔 ＝ 时间到秒计算 (呼叫时间, 到文本 (取现行时间 ()))  ' ----------------------------------------这里用了一个时间到秒的计算模块！他返回的是一个长整数型数据；<br /> <br />         时间差 ＝ 到整数 (时间间隔) － 到整数 (时限)<br />         调试输出 (时间差)<br />         调试输出 (取现行时间 ())<br />         .如果 (到整数 (时间间隔) ≥ 到整数 (时限))<br /> <br />             sql语句 ＝ “update callrecord set finishtime ='” ＋ 时间_到文本 (取现行时间 (), 1, ) ＋ “',overtime='” ＋ 到文本 (时间差) ＋ “'where calltime='” ＋ 呼叫时间 ＋ “'”<br />             .如果 (执行SQL语句 (mysql句柄, sql语句) ＝ 假)<br /> <br />                 信息框 (“写入完成时间失败”, 0, , )<br /> <br />             .否则<br />                 调试输出 (取现行时间 ())<br />                 调试输出 (“sql”)<br />                 到下一行 (局部记录集1)<br />                 ' 日志文本 ＝ “时钟完成计时_周期事件程序运行：” ＋ 呼叫位置 ＋ 类型<br />                 ' sql语句 ＝ “insert into journal(time,action) VALUES ('” ＋ 时间_到文本 (取现行时间 (), 1, ) ＋ “','” ＋ 日志文本 ＋ “')”<br />                 .' 如果 (执行SQL语句 (mysql句柄, sql语句) ＝ 假)<br />                     ' 信息框 (“时钟完成计时_周期事件程序写入日志失败！”, 0, , )<br />                 .否则<br /> <br />                 .如果结束<br />                 ' 调试输出 (“执行”)<br />             .如果结束<br /> <br />         .否则<br /> <br />         .如果结束<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br />     到下一行 (局部记录集1)<br /> <br />     调试输出 (“W执行” ＋ 到文本 (K) ＋ “--” ＋ 到文本 (I))<br /> <br />     释放记录集 (局部记录集2)<br /> <br /> .计次循环尾 ()<br /> 调试输出 (取现行时间 ())<br /> <br /> 系统内存优化 ()<br /> 释放记录集 (局部记录集1)

寒潮

仅供参考。

发得

这个好想不行吧

寒潮

  

变量名	类 型	静态	数组	备 注
时间数组	数据类型1		0
时间	数据类型1
SQL语句	文本型
mysql句柄	整数型
局部记录集	整数型
计次	整数型
时间间隔	整数型
时间差	整数型

重定义数组 (时间数组, 假, 0)
SQL语句 ＝ “SELECT callrecord.calltime,callrecord.address,setarea.staytime FROM callrecord INNER JOIN setarea ON callrecord.type=setarea.type ORDER BY callrecord.calltime ASC LIMIT 0,50”
执行SQL语句 (mysql句柄, SQL语句)
局部记录集 ＝ 取记录集 (mysql句柄)
计次循环首 (取记录集行数 (局部记录集), 计次)
读字段值 (局部记录集, “calltime”, 时间.呼叫时间)
读字段值 (局部记录集, “address”, 时间.呼叫位置)
读字段值 (局部记录集, “staytime”, 时间.时限)
如果真 (时间.时限 ≠ “”)
加入成员 (时间数组, 时间)

到下一行 (局部记录集)
计次循环尾 ()
释放记录集 (局部记录集)
计次循环首 (取数组成员数 (时间数组), 计次)
时间间隔 ＝ 时间到秒计算 (时间数组 [计次].呼叫时间, 到文本 (取现行时间 ()))
如果真 (到整数 (时间间隔) ≥ 到整数 (时间数组 [计次].时限))
时间差 ＝ 到整数 (时间间隔) － 到整数 (时间数组 [计次].时限)
SQL语句 ＝ “UPDATE callrecord SET finishtime ='” ＋ 时间_到文本 (取现行时间 (), 1, ) ＋ “',overtime='” ＋ 到文本 (时间差) ＋ “'where calltime='” ＋ 时间数组 [计次].呼叫时间 ＋ “'”
执行SQL语句 (mysql句柄, SQL语句)

计次循环尾 ()

i支持库列表	支持库注释
mysql	MySql支持库

.版本 2<br /> .支持库 mysql<br /> <br /> .局部变量 时间数组, 数据类型1, , "0"<br /> .局部变量 时间, 数据类型1<br /> .局部变量 SQL语句, 文本型<br /> .局部变量 mysql句柄, 整数型<br /> .局部变量 局部记录集, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 时间间隔, 整数型<br /> .局部变量 时间差, 整数型<br /> <br /> 重定义数组 (时间数组, 假, 0)<br /> SQL语句 ＝ “SELECT callrecord.calltime,callrecord.address,setarea.staytime FROM callrecord INNER JOIN setarea ON callrecord.type=setarea.type ORDER BY callrecord.calltime ASC LIMIT 0,50”<br /> 执行SQL语句 (mysql句柄, SQL语句)<br /> 局部记录集 ＝ 取记录集 (mysql句柄)<br /> .计次循环首 (取记录集行数 (局部记录集), 计次)<br />     读字段值 (局部记录集, “calltime”, 时间.呼叫时间)<br />     读字段值 (局部记录集, “address”, 时间.呼叫位置)<br />     读字段值 (局部记录集, “staytime”, 时间.时限)<br />     .如果真 (时间.时限 ≠ “”)<br />         加入成员 (时间数组, 时间)<br />     .如果真结束<br /> <br />     到下一行 (局部记录集)<br /> .计次循环尾 ()<br /> 释放记录集 (局部记录集)<br /> .计次循环首 (取数组成员数 (时间数组), 计次)<br />     时间间隔 ＝ 时间到秒计算 (时间数组 [计次].呼叫时间, 到文本 (取现行时间 ()))<br />     .如果真 (到整数 (时间间隔) ≥ 到整数 (时间数组 [计次].时限))<br />         时间差 ＝ 到整数 (时间间隔) － 到整数 (时间数组 [计次].时限)<br />         SQL语句 ＝ “UPDATE callrecord SET finishtime ='” ＋ 时间_到文本 (取现行时间 (), 1, ) ＋ “',overtime='” ＋ 到文本 (时间差) ＋ “'where calltime='” ＋ 时间数组 [计次].呼叫时间 ＋ “'”<br />         执行SQL语句 (mysql句柄, SQL语句)<br />     .如果真结束<br /> <br /> .计次循环尾 ()