自己建数据库连接1,记录集1,超级列表框1(显示你的内容),你具体数据库的字段名我不知道,只好用列名代替,你可以自己更改变你相应的字段名,代码如下:
.版本 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, )