C 访问mysql增删查改的源代码_易语言连接MySql源码带增删改查

最新推荐文章于 2022-05-10 16:45:50 发布

書生大人

最新推荐文章于 2022-05-10 16:45:50 发布

阅读量318

点赞数

文章标签： C 访问mysql增删查改的源代码

本文链接：https://blog.csdn.net/weixin_29994587/article/details/115062184

版权

.版本 2

.支持库 mysql

.支持库 spec

.支持库 iext

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

.子程序 _按钮_查看账号_被单击

查看账号 ()

.子程序 _按钮_导入数据_被单击

导入数据 ()

.子程序导入数据

.局部变量账号文本, 文本型

.局部变量数组_行_账号密码, 文本型, , "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)

.如果真结束

.如果真 (全部导出＝真)

局_文件号＝打开文件 (取运行目录 () ＋ “/” ＋ txt名称＋ “.txt”, , )

插入文本行 (局_文件号, 账号信息)

关闭文件 (局_文件号)

编辑框_运行日志.加入文本 (“正在导出。。。” ＋ #换行符)

延迟 (200)