展开全部

自己建数据库连接1，记录集1，超级列表框1(显示你的32313133353236313431303231363533e78988e69d8331333337396331内容)，你具体数据库的字段名我不知道，只好用列名代替，你可以自己更改变你相应的字段名，代码如下：

.版本 2

.支持库 eDB

.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

.局部变量 客户编号, 整数型

.局部变量 客户名称, 文本型

.局部变量 客户地址, 文本型

.局部变量 索引, 整数型

.如果 (数据库连接1.连接SQLServer (SQL所在服务器IP地址, “客户信息”, “sa”, “”) ＝ 真)

记录集1.置连接 (数据库连接1)

记录集1.打开 (“select * from 表名 where 条件”, #SQL语句, )

.如果真 (记录集1.记录数量 ＝ 0)

信息框 (“暂没找到你所需要的数据！”, 0, )

返回 ()

.如果真结束

超级列表框1.全部删除 ()

记录集1.到首记录 ()

.判断循环首 (记录集1.尾记录后 ＝ 假)

记录集1.读整数 (“客户编号”, 客户编号)

记录集1.读文本 (“客户名称”, 客户名称)

记录集1.读文本 (“客户地址”, 客户地址)

索引 ＝ 超级列表框1.插入表项 (-1, “”, , , , )

超级列表框1.置标题 (索引, 0, 到文本 (客户编号))

超级列表框1.置标题 (索引, 1, 客户名称)

超级列表框1.置标题 (索引, 2, 客户地址)

记录集1.到下一条 ()

.判断循环尾 ()

记录集1.关闭 ()

数据库连接1.关闭 ()

.否则

信息框 (“连接不成功”, 0, )