.版本 2
.支持库 eDB
.支持库 iext
.程序集 主窗口程序集
.子程序 _窗口主_创建完毕
数据库连接1.连接Access (取运行目录 () ＋ “\” ＋ “oa.mdb”, “”)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“表用户”, #数据表名)
记录集1.到首记录 ()
标签1.标题 ＝ “欢迎您：” ＋ 登录者 ＋ “ ” ＋ “今天是： ” ＋ 取文本左边 (到文本 (取现行时间 ()), 14)
.子程序 _按钮查询_被单击
.局部变量 ID, 整数型
.局部变量 用户姓名, 文本型
.局部变量 用户住址, 文本型
.局部变量 n, 整数型
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入用户住址”, 0, “条件不能为空”)
编辑框1.获取焦点 ()
返回 ()
.如果真结束
超级列表框1.全部删除 ()
.判断循环首 (记录集1.查找 (“用户住址='” ＋ 编辑框1.内容 ＋ “'”, 1))
n ＝ n ＋ 1
记录集1.查找 (“用户住址='” ＋ 编辑框1.内容 ＋ “'”, 1)
记录集1.读整数 (“ID”, ID)
记录集1.读文本 (“用户姓名”, 用户姓名)
记录集1.读文本 (“用户住址”, 用户住址)
记录集1.到下一条 ()
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n － 1, 0, 到文本 (ID))
超级列表框1.置标题 (n － 1, 1, 用户姓名)
超级列表框1.置标题 (n － 1, 2, 用户住址)
.如果真 (记录集1.查找下一个 () ＝ 假)
跳出循环 ()
.如果真结束
.判断循环尾 ()