.版本 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)