|
发表于 2011-2-24 21:58:55
|
显示全部楼层
广东省佛山市
本帖最后由 fsjoe 于 2011-2-24 22:31 编辑
经测试已经通过了
.版本 2
.支持库 eDB
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 局部_当前位置, 文本型
.如果 (数据库连接.连接Access (取运行目录 () + “\嘿嘿.mdb”, “”) = 假)
信息框 (“没有发现数据库请注意查看”, #信息图标, “提示”)
.否则
调试输出 (记录集.置连接 (数据库连接))
调试输出 (记录集.打开 (“输入”, #数据表名, ))
.如果结束
.判断循环首 (记录集.尾记录后 = 假)
记录集.读文本 (“组合框”, 局部_当前位置)
组合框1.加入项目 (局部_当前位置, 记录集.当前位置)
记录集.到下一条 ()
.判断循环尾 ()
.子程序 _组合框1_列表项被选择
.局部变量 i, 文本型
.判断开始 (组合框1.现行选中项 ≥ 0)
记录集.移到 (组合框1.取项目数值 (组合框1.现行选中项))
记录集.读文本 (“编辑框”, i)
编辑框1.加入文本 (i) |
-
运行结果
评分
-
查看全部评分
|