该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
.版本 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) 这个输出后是乱码
怎么解决呢