易语言连接MySql源码带增删改查

hibernate

本机要安装MySql
源码是链接本机的数据库,若要链接服务器的请修改地址.

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮_查看账号_被单击

查看账号 ()

子程序名	返回值类型	公开	备 注
_按钮_导入数据_被单击

导入数据 ()

子程序名	返回值类型	公开	备 注
导入数据

变量名	类 型	静态	数组	备 注
账号文本	文本型
数组_行_账号密码	文本型		0
数组_账号密码	文本型		0
局_i	整数型
局_mysql句柄	整数型
结果_执行sql	逻辑型
sql账号	文本型
sql密码	文本型
结果_增加记录	逻辑型

局_mysql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)
账号文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\zh.txt”))
数组_行_账号密码 ＝ 分割文本 (账号文本, #换行符, )
计次循环首 (取数组成员数 (数组_行_账号密码), 局_i)
数组_账号密码 ＝ 分割文本 (数组_行_账号密码 [局_i], “----”, )
sql账号 ＝ 数组_账号密码 [1]
sql密码 ＝ 数组_账号密码 [2]
增加记录 (局_mysql句柄, “pubg_admin”, “Game_account='” ＋ 数组_账号密码 [1] ＋ “'” ＋ “,Game_code='” ＋ 数组_账号密码 [2] ＋ “'”)
延迟 (200)
编辑框_运行日志.加入文本 (“第” ＋ 到文本 (局_i) ＋ “次，增加记录” ＋ #换行符 )
局_i ＝ 局_i ＋ 1
计次循环尾 ()
编辑框_运行日志.加入文本 (“------------------” ＋ #换行符 )
编辑框_运行日志.加入文本 (“增加记录完成，请继续操作” ＋ #换行符 )
编辑框_运行日志.加入文本 (“------------------” ＋ #换行符 )
断开MySql (局_mysql句柄)
查看账号 ()

子程序名	返回值类型	公开	备 注
_按钮_清空_被单击

变量名	类 型	静态	数组	备 注
结果_删除所有	逻辑型
局_mysql句柄	整数型

局_mysql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)
结果_删除所有 ＝ 执行SQL语句 (局_mysql句柄, “truncate table  pubg_admin”)
如果真 (结果_删除所有 ＝ 真)
编辑框_运行日志.加入文本 (“------------------” ＋ #换行符 )
编辑框_运行日志.加入文本 (“清空数据库成功，请继续操作” ＋ #换行符 )
编辑框_运行日志.加入文本 (“------------------” ＋ #换行符 )

如果真 (结果_删除所有 ＝ 假)
编辑框_运行日志.加入文本 (“！！！！！！！！！！” ＋ #换行符 )
编辑框_运行日志.加入文本 (“清空数据库失败” ＋ #换行符 )
编辑框_运行日志.加入文本 (“！！！！！！！！！！” ＋ #换行符 )
断开MySql (局_mysql句柄)
查看账号 ()

子程序名	返回值类型	公开	备 注
_按钮_删除封禁_被单击

变量名	类 型	静态	数组	备 注
局_mysql句柄	整数型
结果_删除封禁	逻辑型

局_mysql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)
结果_删除封禁 ＝ 执行SQL语句 (局_mysql句柄, “delete from pubg_admin where state = 2”)
如果真 (结果_删除封禁 ＝ 真)
编辑框_运行日志.加入文本 (“删除封禁账号成功” ＋ #换行符 )

如果真 (结果_删除封禁 ＝ 假)
编辑框_运行日志.加入文本 (“删除封禁账号失败” ＋ #换行符 )

断开MySql (局_mysql句柄)
查看账号 ()

子程序名	返回值类型	公开	备 注
_按钮_删除密错_被单击

变量名	类 型	静态	数组	备 注
局_mysql句柄	整数型
结果_删除密错	逻辑型

局_mysql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)
结果_删除密错 ＝ 执行SQL语句 (局_mysql句柄, “delete from pubg_admin where state = 3”)
如果真 (结果_删除密错 ＝ 真)
编辑框_运行日志.加入文本 (“删除密错账号成功” ＋ #换行符 )

如果真 (结果_删除密错 ＝ 假)
编辑框_运行日志.加入文本 (“删除密错账号失败” ＋ #换行符 )
断开MySql (局_mysql句柄)
查看账号 ()

子程序名	返回值类型	公开	备 注
查看账号

变量名	类 型	静态	数组	备 注
MySql句柄	整数型
结果_sql查询	逻辑型
局_记录集句柄	整数型
结果_账号字段	逻辑型
结果_密码字段	逻辑型
结果_状态字段	逻辑型
结果_数据库id字段	逻辑型
局_账号	文本型
局_密码	文本型
局_状态	文本型
局_数据库ID	文本型
局_总行数	整数型
局_插入表项索引	整数型
局_状态值编译	文本型
结果_密错账号	逻辑型
局_计次	整数型

超级列表框_账号密码框.全部删除 ()
MySql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)
' 编辑框_运行日志.加入文本 (“MySql句柄：” ＋ 到文本 (MySql句柄) ＋ #换行符)
如果真 (MySql句柄 ≠ 0)
编辑框_运行日志.加入文本 (“连接MySql数据库成功” ＋ #换行符 )
' ------------------------在线数量
结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin where state = 1”)
局_记录集句柄 ＝ 取记录集 (MySql句柄)
局_总行数 ＝ 取记录集行数 (局_记录集句柄)
标签_在线.标题 ＝ 到文本 (局_总行数)
释放记录集 (局_记录集句柄)
延迟 (500)
' ------------------------封禁数量
结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin where state = 2”)
局_记录集句柄 ＝ 取记录集 (MySql句柄)
局_总行数 ＝ 取记录集行数 (局_记录集句柄)
标签_封禁数量.标题 ＝ 到文本 (局_总行数)
释放记录集 (局_记录集句柄)
延迟 (500)
' ------------------------密错数量
结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin where state = 3”)
局_记录集句柄 ＝ 取记录集 (MySql句柄)
局_总行数 ＝ 取记录集行数 (局_记录集句柄)
标签_密错数量.标题 ＝ 到文本 (局_总行数)
释放记录集 (局_记录集句柄)
延迟 (500)
' ------------------------剩余数量
结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin where state = 0”)
局_记录集句柄 ＝ 取记录集 (MySql句柄)
局_总行数 ＝ 取记录集行数 (局_记录集句柄)
标签_剩余账号.标题 ＝ 到文本 (局_总行数)
释放记录集 (局_记录集句柄)
延迟 (500)
结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin ”)
如果真 (结果_sql查询 ＝ 真)
局_记录集句柄 ＝ 取记录集 (MySql句柄)
局_总行数 ＝ 取记录集行数 (局_记录集句柄)
编辑框_运行日志.加入文本 (“总行数：” ＋ 到文本 (局_总行数) ＋ #换行符 )
标签_当前账号.标题 ＝ 到文本 (局_总行数)
计次循环首 (局_总行数, )
结果_数据库id字段 ＝ 读字段值 (局_记录集句柄, “id”, 局_数据库ID)
结果_账号字段 ＝ 读字段值 (局_记录集句柄, “Game_account”, 局_账号)
结果_密码字段 ＝ 读字段值 (局_记录集句柄, “Game_code”, 局_密码)
结果_状态字段 ＝ 读字段值 (局_记录集句柄, “state”, 局_状态)
如果真 (到整数 (局_状态) ＝ 0)
局_状态值编译 ＝ “未知状态”
如果真 (到整数 (局_状态) ＝ 1)
局_状态值编译 ＝ “正在喊话”

如果真 (到整数 (局_状态) ＝ 2)
局_状态值编译 ＝ “封禁”
如果真 (到整数 (局_状态) ＝ 3)
局_状态值编译 ＝ “密错”

如果真 (结果_数据库id字段 ＝ 真 且 结果_账号字段 ＝ 真 且 结果_密码字段 ＝ 真 且 结果_状态字段 ＝ 真)
局_插入表项索引 ＝ 超级列表框_账号密码框.插入表项 (, 局_数据库ID, , , , )
编辑框_运行日志.加入文本 (“第” ＋ 到文本 (局_计次) ＋ “次，同步数据” ＋ #换行符 )
如果真 (局_插入表项索引 ＝ -1)
编辑框_运行日志.加入文本 (“插入失败” ＋ #换行符 )
超级列表框_账号密码框.置标题 (局_插入表项索引, 1, 局_账号)
超级列表框_账号密码框.置标题 (局_插入表项索引, 2, 局_密码)
超级列表框_账号密码框.置标题 (局_插入表项索引, 3, 局_状态值编译)

延迟 (200)
到下一行 (局_记录集句柄)
局_计次 ＝ 局_计次 ＋ 1
计次循环尾 ()
编辑框_运行日志.加入文本 (“------------------” ＋ #换行符 )
编辑框_运行日志.加入文本 (“同步数据完成，，请继续操作” ＋ #换行符 )
编辑框_运行日志.加入文本 (“------------------” ＋ #换行符 )

释放记录集 (局_记录集句柄)
断开MySql (MySql句柄)

子程序名	返回值类型	公开	备 注
_按钮_清空日志_被单击

编辑框_运行日志.内容 ＝ “”

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮_导出封禁_被单击

导出账号 (“封禁”, “封禁账号”, 假)

子程序名	返回值类型	公开	备 注
_按钮_导出密错_被单击

导出账号 (“密错”, “密码错误”, 假)

子程序名	返回值类型	公开	备 注
_按钮_导出全部_被单击

导出账号 (“密错”, “全部账号”, 真)

子程序名	返回值类型	公开	备 注
导出账号
参数名	类 型	参考	可空	数组	备 注
条件	文本型
txt名称	文本型
全部导出	逻辑型

变量名	类 型	静态	数组	备 注
局_列表框行数	整数型
局_计次	整数型
账号信息	文本型
局_文件号	整数型

局_列表框行数 ＝ 超级列表框_账号密码框.取表项数 ()
计次循环首 (局_列表框行数, 局_计次)
如果真 (全部导出 ＝ 假)
如果真 (超级列表框_账号密码框.取标题 (局_计次 － 1, 3) ＝ 条件)
账号信息 ＝ 超级列表框_账号密码框.取标题 (局_计次 － 1, 0) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 1) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 2) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 3)
局_文件号 ＝ 打开文件 (取运行目录 () ＋ “/” ＋ txt名称 ＋ “.txt”, , )
插入文本行 (局_文件号, 账号信息)
关闭文件 (局_文件号)
编辑框_运行日志.加入文本 (“正在导出。。。” ＋ #换行符 )
延迟 (200)

如果真 (全部导出 ＝ 真)
账号信息 ＝ 超级列表框_账号密码框.取标题 (局_计次 － 1, 0) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 1) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 2) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 3)
局_文件号 ＝ 打开文件 (取运行目录 () ＋ “/” ＋ txt名称 ＋ “.txt”, , )
插入文本行 (局_文件号, 账号信息)
关闭文件 (局_文件号)
编辑框_运行日志.加入文本 (“正在导出。。。” ＋ #换行符 )
延迟 (200)

计次循环尾 ()
编辑框_运行日志.加入文本 (“------------------” ＋ #换行符 )
编辑框_运行日志.加入文本 (“导出完毕，，请继续操作” ＋ #换行符 )
编辑框_运行日志.加入文本 (“------------------” ＋ #换行符 )

i支持库列表	支持库注释
mysql	MySql支持库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 mysql<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮_查看账号_被单击<br /> <br /> 查看账号 ()<br /> <br /> .子程序 _按钮_导入数据_被单击<br /> <br /> <br /> 导入数据 ()<br /> <br /> <br /> <br /> .子程序 导入数据<br /> .局部变量 账号文本, 文本型<br /> .局部变量 数组_行_账号密码, 文本型, , "0"<br /> .局部变量 数组_账号密码, 文本型, , "0"<br /> .局部变量 局_i, 整数型<br /> .局部变量 局_mysql句柄, 整数型<br /> .局部变量 结果_执行sql, 逻辑型<br /> .局部变量 sql账号, 文本型<br /> .局部变量 sql密码, 文本型<br /> .局部变量 结果_增加记录, 逻辑型<br /> <br /> 局_mysql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)<br /> <br /> 账号文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\zh.txt”))<br /> 数组_行_账号密码 ＝ 分割文本 (账号文本, #换行符, )<br /> .计次循环首 (取数组成员数 (数组_行_账号密码), 局_i)<br /> <br />     数组_账号密码 ＝ 分割文本 (数组_行_账号密码 [局_i], “----”, )<br />     sql账号 ＝ 数组_账号密码 [1]<br />     sql密码 ＝ 数组_账号密码 [2]<br />     增加记录 (局_mysql句柄, “pubg_admin”, “Game_account='” ＋ 数组_账号密码 [1] ＋ “'” ＋ “,Game_code='” ＋ 数组_账号密码 [2] ＋ “'”)<br />     延迟 (200)<br />     编辑框_运行日志.加入文本 (“第” ＋ 到文本 (局_i) ＋ “次，增加记录” ＋ #换行符)<br />     局_i ＝ 局_i ＋ 1<br /> <br /> <br /> .计次循环尾 ()<br /> 编辑框_运行日志.加入文本 (“------------------” ＋ #换行符)<br /> 编辑框_运行日志.加入文本 (“增加记录完成，请继续操作” ＋ #换行符)<br /> 编辑框_运行日志.加入文本 (“------------------” ＋ #换行符)<br /> <br /> 断开MySql (局_mysql句柄)<br /> 查看账号 ()<br /> <br /> <br /> .子程序 _按钮_清空_被单击<br /> .局部变量 结果_删除所有, 逻辑型<br /> .局部变量 局_mysql句柄, 整数型<br /> <br /> 局_mysql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)<br /> <br /> 结果_删除所有 ＝ 执行SQL语句 (局_mysql句柄, “truncate table  pubg_admin”)<br /> <br /> .如果真 (结果_删除所有 ＝ 真)<br />     编辑框_运行日志.加入文本 (“------------------” ＋ #换行符)<br />     编辑框_运行日志.加入文本 (“清空数据库成功，请继续操作” ＋ #换行符)<br />     编辑框_运行日志.加入文本 (“------------------” ＋ #换行符)<br /> .如果真结束<br /> <br /> .如果真 (结果_删除所有 ＝ 假)<br />     编辑框_运行日志.加入文本 (“！！！！！！！！！！” ＋ #换行符)<br />     编辑框_运行日志.加入文本 (“清空数据库失败” ＋ #换行符)<br />     编辑框_运行日志.加入文本 (“！！！！！！！！！！” ＋ #换行符)<br /> .如果真结束<br /> 断开MySql (局_mysql句柄)<br /> 查看账号 ()<br /> <br /> .子程序 _按钮_删除封禁_被单击<br /> .局部变量 局_mysql句柄, 整数型<br /> .局部变量 结果_删除封禁, 逻辑型<br /> <br /> 局_mysql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)<br /> 结果_删除封禁 ＝ 执行SQL语句 (局_mysql句柄, “delete from pubg_admin where state = 2”)<br /> <br /> .如果真 (结果_删除封禁 ＝ 真)<br />     编辑框_运行日志.加入文本 (“删除封禁账号成功” ＋ #换行符)<br /> .如果真结束<br /> <br /> .如果真 (结果_删除封禁 ＝ 假)<br />     编辑框_运行日志.加入文本 (“删除封禁账号失败” ＋ #换行符)<br /> <br /> .如果真结束<br /> <br /> 断开MySql (局_mysql句柄)<br /> 查看账号 ()<br /> <br /> .子程序 _按钮_删除密错_被单击<br /> .局部变量 局_mysql句柄, 整数型<br /> .局部变量 结果_删除密错, 逻辑型<br /> <br /> 局_mysql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)<br /> <br /> 结果_删除密错 ＝ 执行SQL语句 (局_mysql句柄, “delete from pubg_admin where state = 3”)<br /> <br /> .如果真 (结果_删除密错 ＝ 真)<br />     编辑框_运行日志.加入文本 (“删除密错账号成功” ＋ #换行符)<br /> .如果真结束<br /> <br /> .如果真 (结果_删除密错 ＝ 假)<br />     编辑框_运行日志.加入文本 (“删除密错账号失败” ＋ #换行符)<br /> .如果真结束<br /> 断开MySql (局_mysql句柄)<br /> 查看账号 ()<br /> <br /> .子程序 查看账号<br /> .局部变量 MySql句柄, 整数型<br /> .局部变量 结果_sql查询, 逻辑型<br /> .局部变量 局_记录集句柄, 整数型<br /> .局部变量 结果_账号字段, 逻辑型<br /> .局部变量 结果_密码字段, 逻辑型<br /> .局部变量 结果_状态字段, 逻辑型<br /> .局部变量 结果_数据库id字段, 逻辑型<br /> .局部变量 局_账号, 文本型<br /> .局部变量 局_密码, 文本型<br /> .局部变量 局_状态, 文本型<br /> .局部变量 局_数据库ID, 文本型<br /> .局部变量 局_总行数, 整数型<br /> .局部变量 局_插入表项索引, 整数型<br /> .局部变量 局_状态值编译, 文本型<br /> .局部变量 结果_密错账号, 逻辑型<br /> .局部变量 局_计次, 整数型<br /> <br /> <br /> 超级列表框_账号密码框.全部删除 ()<br /> <br /> MySql句柄 ＝ 连接MySql (, “root”, “root”, “pubg”, 3306)<br /> ' 编辑框_运行日志.加入文本 (“MySql句柄：” ＋ 到文本 (MySql句柄) ＋ #换行符)<br /> <br /> <br /> .如果真 (MySql句柄 ≠ 0)<br />     编辑框_运行日志.加入文本 (“连接MySql数据库成功” ＋ #换行符)<br /> .如果真结束<br /> ' ------------------------在线数量<br /> 结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin where state = 1”)<br /> 局_记录集句柄 ＝ 取记录集 (MySql句柄)<br /> 局_总行数 ＝ 取记录集行数 (局_记录集句柄)<br /> 标签_在线.标题 ＝ 到文本 (局_总行数)<br /> 释放记录集 (局_记录集句柄)<br /> 延迟 (500)<br /> ' ------------------------封禁数量<br /> 结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin where state = 2”)<br /> 局_记录集句柄 ＝ 取记录集 (MySql句柄)<br /> 局_总行数 ＝ 取记录集行数 (局_记录集句柄)<br /> 标签_封禁数量.标题 ＝ 到文本 (局_总行数)<br /> 释放记录集 (局_记录集句柄)<br /> 延迟 (500)<br /> ' ------------------------密错数量<br /> 结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin where state = 3”)<br /> 局_记录集句柄 ＝ 取记录集 (MySql句柄)<br /> 局_总行数 ＝ 取记录集行数 (局_记录集句柄)<br /> 标签_密错数量.标题 ＝ 到文本 (局_总行数)<br /> 释放记录集 (局_记录集句柄)<br /> 延迟 (500)<br /> ' ------------------------剩余数量<br /> 结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin where state = 0”)<br /> 局_记录集句柄 ＝ 取记录集 (MySql句柄)<br /> 局_总行数 ＝ 取记录集行数 (局_记录集句柄)<br /> 标签_剩余账号.标题 ＝ 到文本 (局_总行数)<br /> 释放记录集 (局_记录集句柄)<br /> 延迟 (500)<br /> 结果_sql查询 ＝ 执行SQL语句 (MySql句柄, “select * from pubg_admin ”)<br /> .如果真 (结果_sql查询 ＝ 真)<br />     局_记录集句柄 ＝ 取记录集 (MySql句柄)<br />     局_总行数 ＝ 取记录集行数 (局_记录集句柄)<br />     编辑框_运行日志.加入文本 (“总行数：” ＋ 到文本 (局_总行数) ＋ #换行符)<br />     标签_当前账号.标题 ＝ 到文本 (局_总行数)<br />     .计次循环首 (局_总行数, )<br />         结果_数据库id字段 ＝ 读字段值 (局_记录集句柄, “id”, 局_数据库ID)<br />         结果_账号字段 ＝ 读字段值 (局_记录集句柄, “Game_account”, 局_账号)<br />         结果_密码字段 ＝ 读字段值 (局_记录集句柄, “Game_code”, 局_密码)<br />         结果_状态字段 ＝ 读字段值 (局_记录集句柄, “state”, 局_状态)<br />         .如果真 (到整数 (局_状态) ＝ 0)<br />             局_状态值编译 ＝ “未知状态”<br /> <br />         .如果真结束<br />         .如果真 (到整数 (局_状态) ＝ 1)<br />             局_状态值编译 ＝ “正在喊话”<br />         .如果真结束<br /> <br />         .如果真 (到整数 (局_状态) ＝ 2)<br />             局_状态值编译 ＝ “封禁”<br />         .如果真结束<br />         .如果真 (到整数 (局_状态) ＝ 3)<br />             局_状态值编译 ＝ “密错”<br />         .如果真结束<br /> <br />         .如果真 (结果_数据库id字段 ＝ 真 且 结果_账号字段 ＝ 真 且 结果_密码字段 ＝ 真 且 结果_状态字段 ＝ 真)<br />             局_插入表项索引 ＝ 超级列表框_账号密码框.插入表项 (, 局_数据库ID, , , , )<br />             编辑框_运行日志.加入文本 (“第” ＋ 到文本 (局_计次) ＋ “次，同步数据” ＋ #换行符)<br />             .如果真 (局_插入表项索引 ＝ -1)<br />                 编辑框_运行日志.加入文本 (“插入失败” ＋ #换行符)<br />             .如果真结束<br />             超级列表框_账号密码框.置标题 (局_插入表项索引, 1, 局_账号)<br />             超级列表框_账号密码框.置标题 (局_插入表项索引, 2, 局_密码)<br />             超级列表框_账号密码框.置标题 (局_插入表项索引, 3, 局_状态值编译)<br /> <br />         .如果真结束<br /> <br />         延迟 (200)<br />         到下一行 (局_记录集句柄)<br />         局_计次 ＝ 局_计次 ＋ 1<br />     .计次循环尾 ()<br /> <br />     编辑框_运行日志.加入文本 (“------------------” ＋ #换行符)<br />     编辑框_运行日志.加入文本 (“同步数据完成，，请继续操作” ＋ #换行符)<br />     编辑框_运行日志.加入文本 (“------------------” ＋ #换行符)<br /> .如果真结束<br /> <br /> <br /> 释放记录集 (局_记录集句柄)<br /> <br /> 断开MySql (MySql句柄)<br /> <br /> <br /> .子程序 _按钮_清空日志_被单击<br /> <br /> <br /> 编辑框_运行日志.内容 ＝ “”<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮_导出封禁_被单击<br /> <br /> 导出账号 (“封禁”, “封禁账号”, 假)<br /> <br /> <br /> .子程序 _按钮_导出密错_被单击<br /> <br /> 导出账号 (“密错”, “密码错误”, 假)<br /> <br /> .子程序 _按钮_导出全部_被单击<br /> <br /> 导出账号 (“密错”, “全部账号”, 真)<br /> <br /> .子程序 导出账号<br /> .参数 条件, 文本型, 可空<br /> .参数 txt名称, 文本型<br /> .参数 全部导出, 逻辑型<br /> .局部变量 局_列表框行数, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 账号信息, 文本型<br /> .局部变量 局_文件号, 整数型<br /> <br /> <br /> 局_列表框行数 ＝ 超级列表框_账号密码框.取表项数 ()<br /> .计次循环首 (局_列表框行数, 局_计次)<br />     .如果真 (全部导出 ＝ 假)<br />         .如果真 (超级列表框_账号密码框.取标题 (局_计次 － 1, 3) ＝ 条件)<br />             账号信息 ＝ 超级列表框_账号密码框.取标题 (局_计次 － 1, 0) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 1) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 2) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 3)<br /> <br />             局_文件号 ＝ 打开文件 (取运行目录 () ＋ “/” ＋ txt名称 ＋ “.txt”, , )<br /> <br />             插入文本行 (局_文件号, 账号信息)<br />             关闭文件 (局_文件号)<br />             编辑框_运行日志.加入文本 (“正在导出。。。” ＋ #换行符)<br />             延迟 (200)<br />         .如果真结束<br /> <br /> <br /> <br />     .如果真结束<br />     .如果真 (全部导出 ＝ 真)<br />         账号信息 ＝ 超级列表框_账号密码框.取标题 (局_计次 － 1, 0) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 1) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 2) ＋ “----” ＋ 超级列表框_账号密码框.取标题 (局_计次 － 1, 3)<br /> <br />         局_文件号 ＝ 打开文件 (取运行目录 () ＋ “/” ＋ txt名称 ＋ “.txt”, , )<br /> <br />         插入文本行 (局_文件号, 账号信息)<br />         关闭文件 (局_文件号)<br />         编辑框_运行日志.加入文本 (“正在导出。。。” ＋ #换行符)<br />         延迟 (200)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 编辑框_运行日志.加入文本 (“------------------” ＋ #换行符)<br /> 编辑框_运行日志.加入文本 (“导出完毕，，请继续操作” ＋ #换行符)<br /> 编辑框_运行日志.加入文本 (“------------------” ＋ #换行符)

wgqxj

谢谢分享

yuxirainraver

牛哇，大佬，借鉴了

夜荧猪

不错，借鉴

wangpeng224

不错，借鉴

公孑

不错，借鉴

qmcy888

感谢楼主分享

song9980

原码可以上传一下吗，谢谢！！！

jiaoxing

66666666666666666666666666

五花牛

学习下学习下学习下

易天个

学习下学习下学习下