❶ 易语言怎样在超级列表框里显示ACCESs数据库
这种列程应该比较多吧,我最近想写的一个软件也有这个功能 附上源码你参考下吧
.版本 2.支持库 iext
.程序集 起动窗口程序集
.子程序 __启动窗口_创建完毕
.判断开始 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data\mpdata.mdb”, , “mp611”, , ) ＝ 真)
信息框 (“欢迎使用加菲猪售后管理系统”, 0, )
.默认
信息框 (“系统启动失败！”, 0, )
.判断结束
刷新列表框 ()
.子程序 刷新列表框
.局部变量 记录集句柄, 整数型
.局部变量 索引, 整数型
记录集句柄 ＝ 外部数据库1.查询 (“select * from wxdj”)
超级列表框1.全部删除 ()
.判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假)
索引 ＝ 超级列表框1.插入表项 (, 外部数据库1.读 (记录集句柄, “djbh”), , , , )
超级列表框1.置标题 (索引, 1, 外部数据库1.读 (记录集句柄, “yhxm”))
超级列表框1.置标题 (索引, 2, 外部数据库1.读 (记录集句柄, “lxdh”))
超级列表框1.置标题 (索引, 3, 外部数据库1.读 (记录集句柄, “sjggxh”))
超级列表框1.置标题 (索引, 4, 外部数据库1.读 (记录集句柄, “sjch”))
超级列表框1.置标题 (索引, 5, 外部数据库1.读 (记录集句柄, “gzms”))
超级列表框1.置标题 (索引, 6, 外部数据库1.读 (记录集句柄, “sxrq”))
超级列表框1.置标题 (索引, 7, 外部数据库1.读 (记录集句柄, “sxry”))
超级列表框1.置标题 (索引, 8, 外部数据库1.读 (记录集句柄, “fhrq”))
超级列表框1.置标题 (索引, 9, 外部数据库1.读 (记录集句柄, “tzqj”))
外部数据库1.到后一记录 (记录集句柄)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录集句柄)