使用时钟循环提取mysql时，程序内存不断增加问题

刺猬001

  

全局变量名	类 型	数组	公开	备 注
记录集句柄_data	整数型
记录集句柄_ini	整数型
MYSQL句柄	整数型

.版本 2<br /> <br /> .全局变量 记录集句柄_data, 整数型<br /> .全局变量 记录集句柄_ini, 整数型<br /> .全局变量 MYSQL句柄, 整数型

  

常量名称	常量值	公 开	备 注
SQL数据库名称	“xxxxx”
SQL数据库地址	“xxxxx”
SQL数据库端口号	xxxxx
SQL数据库用户名	“xxxxx”
SQL数据库密码	“xxxxx”

.版本 2<br /> <br /> .常量 SQL数据库名称, "“xxxxx”"<br /> .常量 SQL数据库地址, "“xxxxx”"<br /> .常量 SQL数据库端口号, "xxxxx"<br /> .常量 SQL数据库用户名, "“xxxxx”"<br /> .常量 SQL数据库密码, "“xxxxx”"

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

变量名	类 型	静态	数组	备 注
局_线程句柄	整数型

更新数据 ()

子程序名	返回值类型	公开	备 注
更新数据

变量名	类 型	静态	数组	备 注
i	整数型
局_文本	文本型
筛选日期	文本型

MYSQL句柄 ＝ 连接MySql ( #SQL数据库地址, #SQL数据库用户名, #SQL数据库密码, #SQL数据库名称, #SQL数据库端口号 )
执行SQL语句 (MYSQL句柄, “set names gbk”)
执行SQL语句 (MYSQL句柄, “select * from data”)
记录集句柄_data ＝ 取记录集 (MYSQL句柄)
取记录集行数 (记录集句柄_data)
执行SQL语句 (MYSQL句柄, “select * from adv_ini”)
记录集句柄_ini ＝ 取记录集 (MYSQL句柄)
读字段值 (记录集句柄_ini, “adv_id”, 局_文本)
计次循环首 (取记录集行数 (记录集句柄_ini), i)
如果真 (超级列表框1.取表项数 () ＜ 取记录集行数 (记录集句柄_ini))
超级列表框1.插入表项 (, , , , , )

' select * from adv_ini LIMIT 9,1
读字段值 (记录集句柄_ini, “adv_id”, 局_文本)
如果真 (超级列表框1.取标题 (i － 1, 0) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 0, 局_文本)

读字段值 (记录集句柄_ini, “adv_name”, 局_文本)
' 调试输出 (“ID文本为：”, 局_文本, “|I值为：”, i)
如果真 (超级列表框1.取标题 (i － 1, 1) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 1, 局_文本)
读字段值 (记录集句柄_ini, “adv_weight_xlz”, 局_文本)
如果真 (超级列表框1.取标题 (i － 1, 2) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 2, 局_文本)
读字段值 (记录集句柄_ini, “adv_weight_dsp”, 局_文本)
如果真 (超级列表框1.取标题 (i － 1, 3) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 3, 局_文本)

判断 (编辑框3.内容 ≠ “” 且 编辑框4.内容 ≠ “” 且 编辑框5.内容 ≠ “”)
筛选日期 ＝ 编辑框3.内容 ＋ “年” ＋ 编辑框4.内容 ＋ “月” ＋ 编辑框5.内容 ＋ “日”
局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“序列帧广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))
如果真 (超级列表框1.取标题 (i － 1, 4) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 4, 局_文本)
局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“单视频广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))
如果真 (超级列表框1.取标题 (i － 1, 5) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 5, 局_文本)
局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“循环视频广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))
如果真 (超级列表框1.取标题 (i － 1, 6) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 6, 局_文本)

局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“序列帧广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))
如果真 (超级列表框1.取标题 (i － 1, 4) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 4, 局_文本)
局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“单视频广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))
如果真 (超级列表框1.取标题 (i － 1, 5) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 5, 局_文本)
局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“循环视频广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))
如果真 (超级列表框1.取标题 (i － 1, 6) ≠ 局_文本)
超级列表框1.置标题 (i － 1, 6, 局_文本)

到下一行 (记录集句柄_ini)
处理事件 ()
计次循环尾 ()
关闭MySql (MYSQL句柄)
断开MySql (MYSQL句柄)
返回 ()

子程序名	返回值类型	公开	备 注
筛选数据库_广告播放日志	整数型
参数名	类 型	参考	可空	数组	备 注
字段值_type	文本型
字段值_date	文本型
字段值_time	文本型
字段值_ad	文本型
字段值_adv	文本型

变量名	类 型	静态	数组	备 注
i	整数型
计次	整数型
字段值_type_逻辑	逻辑型
字段值_date_逻辑	逻辑型
字段值_time_逻辑	逻辑型
字段值_ad_逻辑	逻辑型
字段值_adv_逻辑	逻辑型
局_表_字段值_type	文本型
局_表_字段值_date	文本型
局_表_字段值_time	文本型
局_表_字段值_ad	文本型
局_表_字段值_adv	文本型

到首行 (记录集句柄_data)
计次循环首 (取记录集行数 (记录集句柄_data), i)
读字段值 (记录集句柄_data, “ad_type”, 局_表_字段值_type)
读字段值 (记录集句柄_data, “ad_date”, 局_表_字段值_date)
读字段值 (记录集句柄_data, “time”, 局_表_字段值_time)
读字段值 (记录集句柄_data, “ad_name”, 局_表_字段值_ad)
读字段值 (记录集句柄_data, “adv_name”, 局_表_字段值_adv)
判断 (字段值_type ＝ “”)
字段值_type_逻辑 ＝ 真
字段值_type_逻辑 ＝ 字段值_type ＝ 局_表_字段值_type
判断 (字段值_date ＝ “”)
字段值_date_逻辑 ＝ 真
字段值_date_逻辑 ＝ 字段值_date ＝ 局_表_字段值_date
判断 (字段值_time ＝ “”)
字段值_time_逻辑 ＝ 真
字段值_time_逻辑 ＝ 字段值_time ＝ 局_表_字段值_time
判断 (字段值_ad ＝ “”)
字段值_ad_逻辑 ＝ 真
字段值_ad_逻辑 ＝ 字段值_ad ＝ 局_表_字段值_ad
判断 (字段值_adv ＝ “”)
字段值_adv_逻辑 ＝ 真
字段值_adv_逻辑 ＝ 字段值_adv ＝ 局_表_字段值_adv
如果真 (字段值_type_逻辑 且 字段值_date_逻辑 且 字段值_time_逻辑 且 字段值_ad_逻辑 且 字段值_adv_逻辑)
计次 ＝ 计次 ＋ 1

如果真 (取记录集行数 (记录集句柄_data) ＞ i)
到下一行 (记录集句柄_data)

计次循环尾 ()
处理事件 ()
返回 (计次)

i支持库列表	支持库注释
mysql	MySql支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 mysql<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 局_线程句柄, 整数型<br /> <br /> <br /> 更新数据 ()<br /> <br /> <br /> .子程序 更新数据<br /> .局部变量 i, 整数型<br /> .局部变量 局_文本, 文本型<br /> .局部变量 筛选日期, 文本型<br /> <br /> MYSQL句柄 ＝ 连接MySql (#SQL数据库地址, #SQL数据库用户名, #SQL数据库密码, #SQL数据库名称, #SQL数据库端口号)<br /> 执行SQL语句 (MYSQL句柄, “set names gbk”)<br /> 执行SQL语句 (MYSQL句柄, “select * from data”)<br /> 记录集句柄_data ＝ 取记录集 (MYSQL句柄)<br /> 取记录集行数 (记录集句柄_data)<br /> 执行SQL语句 (MYSQL句柄, “select * from adv_ini”)<br /> 记录集句柄_ini ＝ 取记录集 (MYSQL句柄)<br /> 读字段值 (记录集句柄_ini, “adv_id”, 局_文本)<br /> .计次循环首 (取记录集行数 (记录集句柄_ini), i)<br /> <br />     .如果真 (超级列表框1.取表项数 () ＜ 取记录集行数 (记录集句柄_ini))<br />         超级列表框1.插入表项 (, , , , , )<br />     .如果真结束<br /> <br />     ' select * from adv_ini LIMIT 9,1<br />     读字段值 (记录集句柄_ini, “adv_id”, 局_文本)<br /> <br /> <br />     .如果真 (超级列表框1.取标题 (i － 1, 0) ≠ 局_文本)<br />         超级列表框1.置标题 (i － 1, 0, 局_文本)<br />     .如果真结束<br /> <br />     读字段值 (记录集句柄_ini, “adv_name”, 局_文本)<br />     ' 调试输出 (“ID文本为：”, 局_文本, “|I值为：”, i)<br />     .如果真 (超级列表框1.取标题 (i － 1, 1) ≠ 局_文本)<br />         超级列表框1.置标题 (i － 1, 1, 局_文本)<br />     .如果真结束<br />     读字段值 (记录集句柄_ini, “adv_weight_xlz”, 局_文本)<br />     .如果真 (超级列表框1.取标题 (i － 1, 2) ≠ 局_文本)<br />         超级列表框1.置标题 (i － 1, 2, 局_文本)<br />     .如果真结束<br />     读字段值 (记录集句柄_ini, “adv_weight_dsp”, 局_文本)<br />     .如果真 (超级列表框1.取标题 (i － 1, 3) ≠ 局_文本)<br />         超级列表框1.置标题 (i － 1, 3, 局_文本)<br />     .如果真结束<br /> <br />     .判断开始 (编辑框3.内容 ≠ “” 且 编辑框4.内容 ≠ “” 且 编辑框5.内容 ≠ “”)<br />         筛选日期 ＝ 编辑框3.内容 ＋ “年” ＋ 编辑框4.内容 ＋ “月” ＋ 编辑框5.内容 ＋ “日”<br />         局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“序列帧广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))<br />         .如果真 (超级列表框1.取标题 (i － 1, 4) ≠ 局_文本)<br />             超级列表框1.置标题 (i － 1, 4, 局_文本)<br />         .如果真结束<br />         局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“单视频广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))<br />         .如果真 (超级列表框1.取标题 (i － 1, 5) ≠ 局_文本)<br />             超级列表框1.置标题 (i － 1, 5, 局_文本)<br />         .如果真结束<br />         局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“循环视频广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))<br />         .如果真 (超级列表框1.取标题 (i － 1, 6) ≠ 局_文本)<br />             超级列表框1.置标题 (i － 1, 6, 局_文本)<br />         .如果真结束<br /> <br />     .默认<br />         局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“序列帧广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))<br />         .如果真 (超级列表框1.取标题 (i － 1, 4) ≠ 局_文本)<br />             超级列表框1.置标题 (i － 1, 4, 局_文本)<br />         .如果真结束<br />         局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“单视频广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))<br />         .如果真 (超级列表框1.取标题 (i － 1, 5) ≠ 局_文本)<br />             超级列表框1.置标题 (i － 1, 5, 局_文本)<br />         .如果真结束<br />         局_文本 ＝ 到文本 (筛选数据库_广告播放日志 (“循环视频广告”, 筛选日期, , , 超级列表框1.取标题 (i － 1, 1)))<br />         .如果真 (超级列表框1.取标题 (i － 1, 6) ≠ 局_文本)<br />             超级列表框1.置标题 (i － 1, 6, 局_文本)<br />         .如果真结束<br /> <br />     .判断结束<br />     到下一行 (记录集句柄_ini)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> 关闭MySql (MYSQL句柄)<br /> 断开MySql (MYSQL句柄)<br /> <br /> <br /> <br /> 返回 ()<br /> <br /> <br /> .子程序 筛选数据库_广告播放日志, 整数型<br /> .参数 字段值_type, 文本型, 可空<br /> .参数 字段值_date, 文本型, 可空<br /> .参数 字段值_time, 文本型, 可空<br /> .参数 字段值_ad, 文本型, 可空<br /> .参数 字段值_adv, 文本型, 可空<br /> .局部变量 i, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 字段值_type_逻辑, 逻辑型<br /> .局部变量 字段值_date_逻辑, 逻辑型<br /> .局部变量 字段值_time_逻辑, 逻辑型<br /> .局部变量 字段值_ad_逻辑, 逻辑型<br /> .局部变量 字段值_adv_逻辑, 逻辑型<br /> .局部变量 局_表_字段值_type, 文本型<br /> .局部变量 局_表_字段值_date, 文本型<br /> .局部变量 局_表_字段值_time, 文本型<br /> .局部变量 局_表_字段值_ad, 文本型<br /> .局部变量 局_表_字段值_adv, 文本型<br /> <br /> 到首行 (记录集句柄_data)<br /> .计次循环首 (取记录集行数 (记录集句柄_data), i)<br />     读字段值 (记录集句柄_data, “ad_type”, 局_表_字段值_type)<br />     读字段值 (记录集句柄_data, “ad_date”, 局_表_字段值_date)<br />     读字段值 (记录集句柄_data, “time”, 局_表_字段值_time)<br />     读字段值 (记录集句柄_data, “ad_name”, 局_表_字段值_ad)<br />     读字段值 (记录集句柄_data, “adv_name”, 局_表_字段值_adv)<br />     .判断开始 (字段值_type ＝ “”)<br />         字段值_type_逻辑 ＝ 真<br />     .默认<br />         字段值_type_逻辑 ＝ 字段值_type ＝ 局_表_字段值_type<br />     .判断结束<br />     .判断开始 (字段值_date ＝ “”)<br />         字段值_date_逻辑 ＝ 真<br />     .默认<br />         字段值_date_逻辑 ＝ 字段值_date ＝ 局_表_字段值_date<br />     .判断结束<br />     .判断开始 (字段值_time ＝ “”)<br />         字段值_time_逻辑 ＝ 真<br />     .默认<br />         字段值_time_逻辑 ＝ 字段值_time ＝ 局_表_字段值_time<br />     .判断结束<br />     .判断开始 (字段值_ad ＝ “”)<br />         字段值_ad_逻辑 ＝ 真<br />     .默认<br />         字段值_ad_逻辑 ＝ 字段值_ad ＝ 局_表_字段值_ad<br />     .判断结束<br />     .判断开始 (字段值_adv ＝ “”)<br />         字段值_adv_逻辑 ＝ 真<br />     .默认<br />         字段值_adv_逻辑 ＝ 字段值_adv ＝ 局_表_字段值_adv<br />     .判断结束<br />     .如果真 (字段值_type_逻辑 且 字段值_date_逻辑 且 字段值_time_逻辑 且 字段值_ad_逻辑 且 字段值_adv_逻辑)<br />         计次 ＝ 计次 ＋ 1<br />     .如果真结束<br /> <br />     .如果真 (取记录集行数 (记录集句柄_data) ＞ i)<br />         到下一行 (记录集句柄_data)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 处理事件 ()<br /> <br /> 返回 (计次)

1752328925

必须崩必须崩必须崩必须崩

abc16

更新数据 ()的开始先停掉时钟，处理完再开时钟。

chenboss

不要反复连接mysql断开
放到启动事件