QQ聊天记录管理易语言源码

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='” ＋ 外部数据库1.读 (jb, 2) ＋ “'”)
    外部数据库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)

@易语言教程网