文件名称:e语言-QQ聊天记录管理易语言
文件大小:48KB
文件格式:RAR
更新时间:2022-09-12 06:20:39
易语言
QQ聊天记录管理易语言源码.版本 2 .支持库 xplib .支持库 iext .支持库 spec .子程序 __启动窗口_创建完毕 XP风格 (1) xc = _启动窗口.高度 - 外形框1.高度 qq = “609759007” 昵称aa = “樱桃小丸子” ttxxx = “18” 标签2.标题 = “ ” + qq + “(” + 昵称aa + “)” hh = 0 外部数据库1.打开MDB数据库 (取运行目录 () + “\db2.mdb”, , , , ) jb = 外部数据库1.查询 (“select * from fzb”) 外部数据库1.到首记录 (jb) .判断循环首 (外部数据库1.尾记录后 (jb) = 假) xrx = 0 hh = 树型框1.加入项目 (0, 外部数据库1.读 (jb, 2), 16, 17, ) 调试输出 (hh) jb2 = 外部数据库1.查询 (“select * from hyb where fz='\u201d\u00a0\uff0b\u00a0\u5916\u90e8\u6570\u636e\u5e931.\u8bfb\u00a0(jb,\u00a02)\u00a0\uff0b\u00a0\u201c'”) 外部数据库1.到首记录 (jb2) .判断循环首 (外部数据库1.尾记录后 (jb2) = 假) 树型框1.加入项目 (hh, 外部数据库1.读 (jb2, “nc”) + “(” + 外部数据库1.读 (jb2, “hm”) + “)”, 外部数据库1.读 (jb2, “tx”), , ) xrx = xrx + 1 外部数据库1.到后一记录 (jb2) .判断循环尾 () 树型框1.置项目文本 (hh, 树型框1.取项目文本 (hh) + “(” + 到文本 (xrx) + “)”) 外部数据库1.关闭记录集 (jb2) 外部数据库1.到后一记录 (jb) .判断循环尾 () 外部数据库1.关闭记录集 (jb)