窗口程序集名 | 保 留 | 保 留 | 备 注 |
窗口程序集_启动窗口 | | | |
数据库句柄 =
连接MySql (“mysql.sqlpub.com”,
“qq776789331”,
“1f21a3e7b970bfd2”,
“qq776789331”, 3306
)
如果真 (数据库句柄 = 0
)
标题 =
“数据库连接失败”
返回 ()标题 = “数据库连接成功”执行SQL语句 (数据库句柄,
“set names gbk”)_查询_被单击 ()连接数据库 ()SQL语句 =
“CREATE TABLE `wdaozhanghao` (`id` int(99) NOT NULL AUTO_INCREMENT,`状态` varchar(255) DEFAULT NULL,`账号` varchar(255) DEFAULT NULL,`密码` varchar(255) DEFAULT NULL,`服务器` varchar(255) DEFAULT NULL,`备注` varchar(255) DEFAULT NULL DEFAULT NULL,PRIMARY KEY (`id`)) ENGINE=InnoDB DEFAULT CHARSET=utf8;”
如果 (执行SQL语句 (数据库句柄, SQL语句
))
信息框 (“创建成功”, 0, ,
)
信息框 (“创建失败”, 0, ,
)
变量名 | 类 型 | 静态 | 数组 | 备 注 |
SQL语句 | 文本型 | | |
计次 | 整数型 | | |
索引 | 整数型 | | |
记录集 | 整数型 | | |
id | 整数型 | | |
账号 | 文本型 | | |
密码 | 文本型 | | |
服务器 | 文本型 | | |
状态 | 文本型 | | |
备注 | 文本型 | | |
超级列表框1.
全部删除 ()SQL语句 =
“select * from wdaozhanghao”执行SQL语句 (数据库句柄, SQL语句
)记录集 =
取记录集 (数据库句柄
)
计次循环首 (取记录集行数 (记录集
), 计次
)
读字段值 (记录集,
“id”, id
)
读字段值 (记录集,
“账号”, 账号
)
读字段值 (记录集,
“密码”, 密码
)
读字段值 (记录集,
“服务器”, 服务器
)
读字段值 (记录集,
“状态”, 状态
)
读字段值 (记录集,
“备注”, 备注
)
索引 = 超级列表框1.
插入表项 (,
到文本 (id
), , , , id
)
超级列表框1.
置标题 (索引, 1, 状态
)
超级列表框1.
置标题 (索引, 2, 账号
)
超级列表框1.
置标题 (索引, 3, 密码
)
超级列表框1.
置标题 (索引, 4, 服务器
)
超级列表框1.
置标题 (索引, 5, 备注
)
到下一行 (记录集
)
计次循环尾 ()释放记录集 (记录集
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
SQL语句 | 文本型 | | |
错误文本 | 文本型 | | |
i | 整数型 | | |
SQL语句 =
“INSERT INTO wdaozhanghao(状态,账号,密码,服务器,备注)VALUES” +
“('” + 状态.内容 +
“','” + 账号.内容 +
“','” + 密码.内容 +
“','” + 服务器.内容 +
“','” + 备注.内容 +
“')”执行SQL语句 (数据库句柄, SQL语句
)调试输出 (SQL语句
)_启动窗口.
_查询_被单击 ()变量名 | 类 型 | 静态 | 数组 | 备 注 |
SQL语句 | 文本型 | | |
错误文本 | 文本型 | | |
SQL语句 =
“UPDATE wdaozhanghao SET 状态='” + 状态.内容 +
“',账号='” + 账号.内容 +
“',密码='” + 密码.内容 +
“',服务器='” + 服务器.内容 +
“',备注='” + 备注.内容 +
“' WHERE id=” +
到文本 (_启动窗口.超级列表框1.
取表项数值 (_启动窗口.超级列表框1.现行选中项
))
调试输出 (SQL语句
)
如果真 (执行SQL语句 (数据库句柄, SQL语句
))

_启动窗口.
_查询_被单击 ()
返回 ()信息框 (“修改失败”, 0, , )返回 ()
如果真 (超级列表框1.现行选中项 ≠ -1
)
弹出菜单 (菜单, ,
)
被选择 (_启动窗口,
“读正常账号”)被选择 (_启动窗口,
“读封号账号”)被选择 (_启动窗口,
“读暂时封号”)被选择 (_启动窗口,
“读永久封号”)被选择 (_启动窗口,
“读全部账号”)变量名 | 类 型 | 静态 | 数组 | 备 注 |
SQL语句 | 文本型 | | |
计次 | 整数型 | | |
索引 | 整数型 | | |
记录集 | 整数型 | | |
id | 整数型 | | |
账号 | 文本型 | | |
密码 | 文本型 | | |
服务器 | 文本型 | | |
状态 | 文本型 | | |
备注 | 文本型 | | |
超级列表框1.
全部删除 ()
如果真 (读写 =
“读全部账号”)
SQL语句 =
“select * from wdaozhanghao”
如果真 (读写 =
“读正常账号”)
SQL语句 =
“select * from wdaozhanghao where 状态='正常'”
如果真 (读写 =
“读封号账号”)
SQL语句 =
“select * from wdaozhanghao where 状态='封号'”
如果真 (读写 =
“读暂时封号”)
SQL语句 =
“select * from wdaozhanghao where 状态='暂时封号'”
如果真 (读写 =
“读永久封号”)
SQL语句 =
“select * from wdaozhanghao where 状态='永久封号'”执行SQL语句 (数据库句柄, SQL语句)记录集 =
取记录集 (数据库句柄
)
计次循环首 (取记录集行数 (记录集
), 计次
)
读字段值 (记录集,
“id”, id
)
读字段值 (记录集,
“账号”, 账号
)
读字段值 (记录集,
“密码”, 密码
)
读字段值 (记录集,
“服务器”, 服务器
)
读字段值 (记录集,
“状态”, 状态
)
读字段值 (记录集,
“备注”, 备注
)
索引 = 超级列表框1.
插入表项 (,
到文本 (id
), , , , id
)
超级列表框1.
置标题 (索引, 1, 状态
)
超级列表框1.
置标题 (索引, 2, 账号
)
超级列表框1.
置标题 (索引, 3, 密码
)
超级列表框1.
置标题 (索引, 4, 服务器
)
超级列表框1.
置标题 (索引, 5, 备注
)
到下一行 (记录集
)
计次循环尾 ()释放记录集 (记录集
)
如果真 (超级列表框1.现行选中项 ≠ -1
)
SQL语句 =
“DELETE FROM wdaozhanghao WHERE id= ” +
到文本 (超级列表框1.
取表项数值 (超级列表框1.现行选中项
))

如果真 (执行SQL语句 (数据库句柄, SQL语句
))


超级列表框1.
删除表项 (超级列表框1.现行选中项
)
信息框 (“删除成功”, 0, ,
)
返回 ()
信息框 (“删除失败 ”, 0, , )
返回 ()
变量名 | 类 型 | 静态 | 数组 | 备 注 |
SQL语句 | 文本型 | | |
数量 | 整数型 | | |
计次循环首 (_启动窗口.超级列表框1.
取表项数 (), 数量
)
SQL语句 =
“DELETE FROM wdaozhanghao WHERE id= ” +
到文本 (超级列表框1.
取表项数值 (数量
))
执行SQL语句 (数据库句柄, SQL语句
)
计次循环尾 ()SQL语句 =
“DELETE FROM wdaozhanghao WHERE id= ” +
到文本 (超级列表框1.
取表项数值 (0
))
执行SQL语句 (数据库句柄, SQL语句
)_查询_被单击 ()断开MySql (数据库句柄
)状态.内容 = _启动窗口.超级列表框1.
取标题 (_启动窗口.超级列表框1.现行选中项, 1
)账号.内容 = _启动窗口.超级列表框1.
取标题 (_启动窗口.超级列表框1.现行选中项, 2
)密码.内容 = _启动窗口.超级列表框1.
取标题 (_启动窗口.超级列表框1.现行选中项, 3
)服务器.内容 = _启动窗口.超级列表框1.
取标题 (_启动窗口.超级列表框1.现行选中项, 4
)备注.内容 = _启动窗口.超级列表框1.
取标题 (_启动窗口.超级列表框1.现行选中项, 5
)