该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

.版本 2

.支持库 mysql

.支持库 iext

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

.子程序 _按钮1_被单击

数据库连接句柄 ＝ 连接MySql (“127.0.0.1”, “root”, “zkqingfish*”, “mu_game_1”, 3306)

' 执行SQL语句 (连接句柄, “set names 'latin1'”)

执行SQL语句 (连接句柄, “set names 'latin1'”)

' 连接SQL数据库

.如果 (数据库连接句柄 ＝ 0)

.否则

.如果结束

标签1.标题 ＝ “连接失败”

标签1.标题 ＝ “连接成功”

.子程序 _按钮2_被单击

.局部变量 符合记录集句柄, 整数型

.局部变量 j, 整数型

.局部变量 i, 整数型

.局部变量 行数, 整数型

.局部变量 rid, 文本型

.局部变量 userid, 文本型

.局部变量 rname, 文本型

执行SQL语句 (数据库连接句柄, “select * from t_roles”)

记录集句柄 ＝ 取记录集 (数据库连接句柄)

' 取执行后记录到记录集句柄

读字段值 (记录集句柄, “rid”, rid)

读字段值 (记录集句柄, “userid”, userid)

读字段值 (记录集句柄, “rname”, rname)

' 读取相关数据

行数 ＝ 取记录集行数 (记录集句柄)

' 读取记录数，插入超级列表框用

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

.计次循环首 (行数, i)

i ＝ i ＋ 1

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

超级列表框1.置标题 (j, 0, rid)

超级列表框1.置标题 (j, 1, userid)

超级列表框1.置标题 (j, 2, rname)

' 循环插入超级列表框

.计次循环尾 ()

标签4.标题 ＝ “共: ” ＋ 到文本 (行数) ＋ “ 条”

' 显示数据行数

' 也可以用 标签4.标题 ＝ “共: ” ＋ 到文本 (行数) ＋ “ 条”

.子程序 __启动窗口_将被销毁

断开MySql (数据库连接句柄)

释放记录集 (记录集句柄)

其中超级列表框1.置标题 (j, 2, rname) 这个输出后是乱码

怎么解决呢