QQ聊天记录消息管理软件

外部数据库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)