最简单mysql账号记录纯源码【无聊写着玩的】

13434230728 · 发表于 2023-1-5 23:19:07

本帖最后由 13434230728 于 2023-1-5 23:33 编辑

最简单mysql账号记录纯源码【无聊写着玩的】简单例子适合新手！
数据库查看表可以在源码创建哪里看，不懂就【百度】Navicat for MySQL工具
没有数据库【百度】http://sqlpub.com
下载地址:https://wwi.lanzoue.com/if48y0k87h4h
回复直接下载 mysql账号记录.e (394.82 KB, 下载次数: 105)

2023-1-5 23:22 上传
点击文件名下载附件
源码
下载积分: 精币 -2 枚

直接注册给你数据库资料

Navicat for MySQL工具

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

子程序名	返回值类型	公开	备注
连接数据库

数据库句柄＝连接MySql (“mysql.sqlpub.com”, “qq776789331”, “1f21a3e7b970bfd2”, “qq776789331”, 3306) ' 这里改一下自己的数据库地址格式|数据库名称,密码,数据库地址,数据库用户,端口

如果真 (数据库句柄＝ 0)

标题＝ “数据库连接失败”

返回 ()
标题＝ “数据库连接成功”
执行SQL语句 (数据库句柄, “set names gbk”)
_查询_被单击 ()

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

连接数据库 ()

子程序名	返回值类型	公开	备注
_按钮_创建表_被单击

变量名	类型	静态	数组	备注
SQL语句	文本型

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.现行选中项 ≠ -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, 备注)

到下一行 (记录集)

计次循环尾 ()
释放记录集 (记录集)

子程序名	返回值类型	公开	备注
_选中删除账号_被选择

变量名	类型	静态	数组	备注
SQL语句	文本型

如果真 (超级列表框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.取标题 (_启动窗口.超级列表框1.现行选中项, 2)
密码.内容＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 3)
服务器.内容＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 4)
备注.内容＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 5)

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

.版本 2<br />
.支持库 mysql<br />
.支持库 iext<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 连接数据库<br />
<br />
数据库句柄 ＝ 连接MySql (“mysql.sqlpub.com”, “qq776789331”, “1f21a3e7b970bfd2”, “qq776789331”, 3306)  ' 这里改一下自己的数据库地址格式|数据库名称,密码,数据库地址,数据库用户,端口<br />
.如果真 (数据库句柄 ＝ 0)<br />
    标题 ＝ “数据库连接失败”<br />
    返回 ()<br />
.如果真结束<br />
标题 ＝ “数据库连接成功”<br />
执行SQL语句 (数据库句柄, “set names gbk”)<br />
_查询_被单击 ()<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
连接数据库 ()<br />
<br />
.子程序 _按钮_创建表_被单击<br />
.局部变量 SQL语句, 文本型<br />
<br />
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;”<br />
.如果 (执行SQL语句 (数据库句柄, SQL语句))<br />
    信息框 (“创建成功”, 0, , )<br />
.否则<br />
    信息框 (“创建失败”, 0, , )<br />
.如果结束<br />
<br />
<br />
.子程序 _查询_被单击<br />
.局部变量 SQL语句, 文本型<br />
.局部变量 计次, 整数型<br />
.局部变量 索引, 整数型<br />
.局部变量 记录集, 整数型<br />
.局部变量 id, 整数型<br />
.局部变量 账号, 文本型<br />
.局部变量 密码, 文本型<br />
.局部变量 服务器, 文本型<br />
.局部变量 状态, 文本型<br />
.局部变量 备注, 文本型<br />
<br />
超级列表框1.全部删除 ()<br />
SQL语句 ＝ “select * from wdaozhanghao”<br />
执行SQL语句 (数据库句柄, SQL语句)<br />
记录集 ＝ 取记录集 (数据库句柄)<br />
.计次循环首 (取记录集行数 (记录集), 计次)<br />
    读字段值 (记录集, “id”, id)<br />
    读字段值 (记录集, “账号”, 账号)<br />
    读字段值 (记录集, “密码”, 密码)<br />
    读字段值 (记录集, “服务器”, 服务器)<br />
    读字段值 (记录集, “状态”, 状态)<br />
    读字段值 (记录集, “备注”, 备注)<br />
    索引 ＝ 超级列表框1.插入表项 (, 到文本 (id), , , , id)<br />
    超级列表框1.置标题 (索引, 1, 状态)<br />
    超级列表框1.置标题 (索引, 2, 账号)<br />
    超级列表框1.置标题 (索引, 3, 密码)<br />
    超级列表框1.置标题 (索引, 4, 服务器)<br />
    超级列表框1.置标题 (索引, 5, 备注)<br />
    到下一行 (记录集)<br />
.计次循环尾 ()<br />
释放记录集 (记录集)<br />
<br />
.子程序 _添加_被单击<br />
.局部变量 SQL语句, 文本型<br />
.局部变量 错误文本, 文本型<br />
.局部变量 i, 整数型<br />
<br />
SQL语句 ＝ “INSERT INTO wdaozhanghao(状态,账号,密码,服务器,备注)VALUES” ＋ “('” ＋ 状态.内容 ＋ “','” ＋ 账号.内容 ＋ “','” ＋ 密码.内容 ＋ “','” ＋ 服务器.内容 ＋ “','” ＋ 备注.内容 ＋ “')”<br />
执行SQL语句 (数据库句柄, SQL语句)<br />
调试输出 (SQL语句)<br />
_启动窗口._查询_被单击 ()<br />
<br />
.子程序 _修改_被单击<br />
.局部变量 SQL语句, 文本型<br />
.局部变量 错误文本, 文本型<br />
<br />
SQL语句 ＝ “UPDATE wdaozhanghao SET 状态='” ＋ 状态.内容 ＋ “',账号='” ＋ 账号.内容 ＋ “',密码='” ＋ 密码.内容 ＋ “',服务器='” ＋ 服务器.内容 ＋ “',备注='” ＋ 备注.内容 ＋ “' WHERE id=” ＋ 到文本 (_启动窗口.超级列表框1.取表项数值 (_启动窗口.超级列表框1.现行选中项))<br />
调试输出 (SQL语句)<br />
.如果真 (执行SQL语句 (数据库句柄, SQL语句))<br />
    _启动窗口._查询_被单击 ()<br />
    返回 ()<br />
.如果真结束<br />
信息框 (“修改失败”, 0, , )<br />
返回 ()<br />
<br />
<br />
.子程序 _超级列表框1_右键单击表项<br />
<br />
.如果真 (超级列表框1.现行选中项 ≠ -1)<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 />
.局部变量 SQL语句, 文本型<br />
.局部变量 计次, 整数型<br />
.局部变量 索引, 整数型<br />
.局部变量 记录集, 整数型<br />
.局部变量 id, 整数型<br />
.局部变量 账号, 文本型<br />
.局部变量 密码, 文本型<br />
.局部变量 服务器, 文本型<br />
.局部变量 状态, 文本型<br />
.局部变量 备注, 文本型<br />
<br />
超级列表框1.全部删除 ()<br />
.如果真 (读写 ＝ “读全部账号”)<br />
    SQL语句 ＝ “select * from wdaozhanghao”<br />
.如果真结束<br />
.如果真 (读写 ＝ “读正常账号”)<br />
    SQL语句 ＝ “select * from wdaozhanghao where 状态='正常'”<br />
.如果真结束<br />
.如果真 (读写 ＝ “读封号账号”)<br />
    SQL语句 ＝ “select * from wdaozhanghao where 状态='封号'”<br />
.如果真结束<br />
.如果真 (读写 ＝ “读暂时封号”)<br />
    SQL语句 ＝ “select * from wdaozhanghao where 状态='暂时封号'”<br />
.如果真结束<br />
.如果真 (读写 ＝ “读永久封号”)<br />
    SQL语句 ＝ “select * from wdaozhanghao where 状态='永久封号'”<br />
.如果真结束<br />
执行SQL语句 (数据库句柄, SQL语句)<br />
记录集 ＝ 取记录集 (数据库句柄)<br />
.计次循环首 (取记录集行数 (记录集), 计次)<br />
    读字段值 (记录集, “id”, id)<br />
    读字段值 (记录集, “账号”, 账号)<br />
    读字段值 (记录集, “密码”, 密码)<br />
    读字段值 (记录集, “服务器”, 服务器)<br />
    读字段值 (记录集, “状态”, 状态)<br />
    读字段值 (记录集, “备注”, 备注)<br />
    索引 ＝ 超级列表框1.插入表项 (, 到文本 (id), , , , id)<br />
    超级列表框1.置标题 (索引, 1, 状态)<br />
    超级列表框1.置标题 (索引, 2, 账号)<br />
    超级列表框1.置标题 (索引, 3, 密码)<br />
    超级列表框1.置标题 (索引, 4, 服务器)<br />
    超级列表框1.置标题 (索引, 5, 备注)<br />
    到下一行 (记录集)<br />
.计次循环尾 ()<br />
释放记录集 (记录集)<br />
<br />
<br />
.子程序 _选中删除账号_被选择<br />
.局部变量 SQL语句, 文本型<br />
<br />
.如果真 (超级列表框1.现行选中项 ≠ -1)<br />
    SQL语句 ＝ “DELETE FROM wdaozhanghao WHERE id= ” ＋ 到文本 (超级列表框1.取表项数值 (超级列表框1.现行选中项))<br />
    .如果真 (执行SQL语句 (数据库句柄, SQL语句))<br />
        超级列表框1.删除表项 (超级列表框1.现行选中项)<br />
        信息框 (“删除成功”, 0, , )<br />
        返回 ()<br />
    .如果真结束<br />
    信息框 (“删除失败 ”, 0, , )<br />
    返回 ()<br />
.如果真结束<br />
<br />
<br />
.子程序 _删除全部账号_被选择<br />
.局部变量 SQL语句, 文本型<br />
.局部变量 数量, 整数型<br />
<br />
.计次循环首 (_启动窗口.超级列表框1.取表项数 (), 数量)<br />
    SQL语句 ＝ “DELETE FROM wdaozhanghao WHERE id= ” ＋ 到文本 (超级列表框1.取表项数值 (数量))<br />
    执行SQL语句 (数据库句柄, SQL语句)<br />
.计次循环尾 ()<br />
SQL语句 ＝ “DELETE FROM wdaozhanghao WHERE id= ” ＋ 到文本 (超级列表框1.取表项数值 (0))<br />
执行SQL语句 (数据库句柄, SQL语句)<br />
_查询_被单击 ()<br />
<br />
<br />
.子程序 __启动窗口_将被销毁<br />
<br />
断开MySql (数据库句柄)<br />
<br />
<br />
.子程序 _超级列表框1_左键单击表项<br />
<br />
状态.内容 ＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 1)<br />
账号.内容 ＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 2)<br />
密码.内容 ＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 3)<br />
服务器.内容 ＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 4)<br />
备注.内容 ＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 5)