|
发表于 2013-1-23 07:52:04
|
显示全部楼层
山东省菏泽市
本帖最后由 小人物ヾ 于 2013-1-23 07:53 编辑
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
数据库连接 ()
.子程序 数据库连接
.如果 (外部数据库1.打开SQL数据库 (“127.0.0.1”, “sa”, “123456”, “test”, , ) = 假)
信息框 (“数据库连接失败”, 16, “错误”)
.否则
信息框 (“数据库连接成功”, 64, “信息”)
.如果结束
.子程序 _按钮_读取_被单击
.局部变量 记录集句柄, 整数型
.局部变量 计次1, 整数型
.局部变量 文本判断1, 文本型
.局部变量 文本判断2, 文本型
超级列表框1.全部删除 ()
超级列表框1.插入列 (0, “ID”, 50, , , )
超级列表框1.插入列 (1, “user”, 50, , , )
超级列表框1.插入列 (2, “pass”, 50, , , )
记录集句柄 = 外部数据库1.查询 (“select * from [test1]”)
外部数据库1.到首记录 (记录集句柄)
文本判断1 = 到文本 (外部数据库1.读 (记录集句柄, “ID”))
外部数据库1.到尾记录 (记录集句柄)
文本判断2 = 到文本 (外部数据库1.读 (记录集句柄, “ID”))
计次1 = 0
外部数据库1.到首记录 (记录集句柄)
.如果 (文本判断1 = 文本判断2)
编辑框1.可视 = 真
超级列表框1.可视 = 假
编辑框1.加入文本 (到文本 (外部数据库1.读 (记录集句柄, “ID”)) + #换行符) ' 整数型 不知道你的数据类型
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “user”) + #换行符) ' 文本型
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “pass”) + #换行符) ' 文本型
.否则
编辑框1.可视 = 假
超级列表框1.可视 = 真
.判断循环首 (外部数据库1.尾记录后 (记录集句柄) = 假)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (计次1, 0, 到文本 (外部数据库1.读 (记录集句柄, “ID”)))
超级列表框1.置标题 (计次1, 1, 外部数据库1.读 (记录集句柄, “user”))
超级列表框1.置标题 (计次1, 2, 外部数据库1.读 (记录集句柄, “pass”))
计次1 = 计次1 + 1
外部数据库1.到后一记录 (记录集句柄)
.判断循环尾 ()
.如果结束
外部数据库1.关闭记录集 (记录集句柄)
[/e] |
|