.版本 2 .支持库 eDB .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 临时文本, 文本型 .子程序 __启动窗口_创建完毕 数据库连接1.连接Access (取运行目录 () ＋ “\db1.mdb”, “”) 记录集1.置连接 (数据库连接1) 记录集1.打开 (“Select * FROM 表1 UNION Select '总计','','',Sum(数量),Sum(金额) FROM 表1”, #SQL语句, ) 超级列表框1.全部删除 () 记录集1.到首记录 () .判断循环首 (记录集1.尾记录后 ＝ 假) 超级列表框1.插入表项 (, , , , , ) 记录集1.读文本 (“ID”, 临时文本) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 临时文本) 记录集1.读文本 (“商品代码”, 临时文本) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 临时文本) 记录集1.读文本 (“商品名称”, 临时文本) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 临时文本) 记录集1.读文本 (“数量”, 临时文本) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, 数值到格式文本 (到数值 (临时文本), 0, 假)) 记录集1.读文本 (“金额”, 临时文本) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 5, 数值到格式文本 (到数值 (临时文本), 2, 假)) 记录集1.到下一条 () .判断循环尾 () 记录集1.关闭 ()