易语言——实现数据库的连接与超级列表框的使用

1、为启动窗口添加“超级列表框”控件，如图所示位置。

2、右键设置报表列。

3、添加”姓名“，”学号“”成绩“报表列

4、列表框属性中，显示表格线选择”真“；类型选择”报表列表框“

5、最终列表框效果如图所示

1、.计次循环首 (记录集1.记录数量, n)

    记录集1.读文本 (“姓名”, 姓名)

    记录集1.读整数 (“学号”, 学号)

    记录集1.读整数 (“成绩”, 成绩)

    超级列表框1.插入表项 (, , , , , )

    超级列表框1.置标题 (n － 1, 0, 姓名)

    超级列表框1.置标题 (n － 1, 1, 到文本 (学号))

    超级列表框1.置标题 (n － 1, 2, 到文本 (成绩))

    记录集1.到下一条 ()

.计次循环尾 ()

注：由于是从0开始计算列表位置，而n又是从1开始递增，所以要改成n-1。

2、.如果 (数据库连接1.是否已连接 ＝ 真)

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

    记录集1.打开 (“成绩表”, #数据表名, )

    记录集1.到首记录 ()

    读出数据 ()

.否则

    信息框 (“数据库未连接”, 0, “失败”, )

3、.如果 (数据库连接1.连接Access (取运行目录 () ＋ “\db1.mdb”, “”) ＝ 真)

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

.否则

    信息框 (“连接失败”, 0, “失败”, )

1、最终效果如图所示