[例程]NX线程池 MySql连接池 超级喂饭式 例程 纯源码 超级好用

jcos

这个 nx线程池 很是简洁但也很是实用, 自己也是在用, 所以也会不定时更新而且已经共有一千多人下载过, 至于现在已经在使用的有多少, 就不清楚了
可以在这里举个脚, 说说使用感受 ,让我感受下分享的动力

在昨天新增了 MYSQL连接池 进去, 虽然很是简洁简单,但真的是实用

但是...
连接池始初化后, 之后的每一次 增 删 改 查 操作
都需要取连接池中的某一条句柄, 还要归还句柄,还要释放记录集句柄等等....
每次都需要调用一大堆这些东东....
于是... 我封装了几个子程序, 供大家调用
这下子真的是简单得来, 又非常之实用了哈

对了, NX_cha询数据() 这个返回的是 JSON 数据
其它的只返回真假
注: mysql采用的是官方支持库,可直接使用官方的mysql各种命令

  

子程序名	返回值类型	公开	备 注
_按钮_MY开启_被单击			开启始初化线程池

如果真 (MYSQL.创建连接 (, “json”, “json123”, “video”, , 到整数 (编辑框_MY数量.内容), ) ＝ 假)  ' 填写你的数据库连接信息
如果 (MYSQL.取空闲数 () ＞ 0)
调试输出 (“mysql连接池 已存在”)
编辑框_返回值.内容 ＝ “mysql连接池 已存在”
调试输出 (“mysql连接池 失败,请查看 连接参数 或 mysql数据库 是否正常”)
编辑框_返回值.内容 ＝ “mysql连接池 失败,请查看 连接参数 或 mysql数据库 是否正常”

子程序名	返回值类型	公开	备 注
_按钮_执行MY_被单击			增 删 改 查 ,全部例子

变量名	类 型	静态	数组	备 注
局_记录集句柄	整数型
句柄	整数型
返回值	文本型
测试	整数型

如果真 (MYSQL.取MY状态 () ＝ 假)
调试输出 (“mysql连接池 未创建”)
返回 ()
编辑框_返回值.内容 ＝ “”
测试 ＝ 2
如果真 (测试 ＝ 1)
' 取出一个连接句柄,如没空闲句柄,将等待 5秒再取
MYSQL.取出句柄 (句柄, 5)
' 查找数据库内容,用易自带的 mysql支持库命令即可
局_记录集句柄 ＝ 查找记录 (句柄, “nx_ks_uid”, “msname”, “”, “”)
' 读数据库字段内容
读字段值 (局_记录集句柄, “msname”, 返回值)
' 输出内容
调试输出 (“取出的数量”, 取记录集行数 (局_记录集句柄), “取出的句柄”, 句柄, “记录集的句柄”, 局_记录集句柄, “cha询到的内容”, 返回值)
编辑框_返回值.内容 ＝ “取出的数量 ” ＋ 到文本 (取记录集行数 (局_记录集句柄)) ＋ “ 取出的句柄 ” ＋ 到文本 (句柄) ＋ “ 记录集的句柄 ” ＋ 到文本 (局_记录集句柄) ＋ “ cha询到的内容 ” ＋ 返回值
' 记得释放记录集
释放记录集 (局_记录集句柄)
' 用完记得归还一个句柄,好让别的任务使用
调试输出 (“归还句柄”, MYSQL.归还句柄 (句柄))
如果真 (测试 ＝ 2)  ' 查数据
编辑框_返回值.加入文本 ( #换行符 ＋ NX_cha询数据 (“nx_user”, “uid,name,pass”, “uid<6”, “uid DESC”, 2, ))
如果真 (测试 ＝ 3)  ' 改数据
如果 (NX_修改数据 (“table_name”, “name='999999999'”, “id=1”, ))
调试输出 (“修改成功”)
编辑框_返回值.加入文本 ( #换行符 ＋ “修改成功”)
调试输出 (“修改失败”)
编辑框_返回值.加入文本 ( #换行符 ＋ “修改失败”)

如果真 (测试 ＝ 4)  ' 删数据
如果 (NX_删除数据 (“table_name”, “name='999999999'”, ))
调试输出 (“删除成功”)
编辑框_返回值.加入文本 ( #换行符 ＋ “删除成功”)
调试输出 (“删除失败”)
编辑框_返回值.加入文本 ( #换行符 ＋ “删除失败”)

如果真 (测试 ＝ 5)  ' 增数据
如果 (NX_新增数据 (“table_name”, “name='999999999'”, ))
调试输出 (“添加成功”)
编辑框_返回值.加入文本 ( #换行符 ＋ “添加成功”)
调试输出 (“添加失败”)
编辑框_返回值.加入文本 ( #换行符 ＋ “添加失败”)

子程序名	返回值类型	公开	备 注
NX_cha询数据	文本型		MYSQL查找数据,返回 json 数据
参数名	类 型	参考	可空	数组	备 注
表名	文本型				本参数是您要cha询的表的名称，如果为中文表名请在表名两边加“`”，如：`姓名`
字段名	文本型				默认 * 所有字段 , 例子1 单个字段 name  例子2 多个字段 name,email,id
查找条件	文本型				如果您要查找name的值为jack并且id的值为2的记录 name='jack' and id=2 或者id的值为2的记录 name='jack' or id=2
排序条件	文本型				本参数是排序的条件，ASC为升序，DESC为降序。例如要对name字段进行降序排序: name DESC
取行数量	整数型				默认取全部
等待时间	整数型				默认10秒 ,连接池满时,等待多少秒钟后再取.

变量名	类 型	静态	数组	备 注
句柄	整数型
局_记录集	整数型
返回值	文本型
json	类_json
i	整数型
u	整数型
取字段名	文本型
取数量值	文本型
记录集行数	整数型

' 检测连接状态 ()
如果真 (是否为空 (等待时间) 或 等待时间 ＜ 1)
等待时间 ＝ 10
如果真 (MYSQL.取出句柄 (句柄, 等待时间))
如果真 (是否为空 (字段名))
字段名 ＝ “*”
如果真 (是否为空 (查找条件) ＝ 假)
查找条件 ＝ “ WHERE ” ＋ 查找条件
如果真 (是否为空 (排序条件) ＝ 假)
排序条件 ＝ “ ORDER BY ” ＋ 排序条件
如果真 (是否为空 (取行数量) ＝ 假 且 取行数量 ＞ 0)
取数量值 ＝ “ LIMIT ” ＋ 到文本 (取行数量)
如果 (执行SQL语句 (句柄, “SELECT ” ＋ 字段名 ＋ “ FROM ” ＋ 表名 ＋ 查找条件 ＋ 排序条件 ＋ 取数量值))
局_记录集 ＝ 取记录集 (句柄)
记录集行数 ＝ 取记录集行数 (局_记录集)
json.置属性 (“['状态']”, “成功”, )
json.置属性 (“['数量']”, 到文本 (记录集行数), )
json.置属性 (“['” ＋ 表名 ＋ “']”, “[]”, 真)
计次循环首 (记录集行数, u)
json.置属性 (“['” ＋ 表名 ＋ “'][” ＋ 到文本 (u － 1) ＋ “]”, “{}”, 真)
计次循环首 (取字段总数 (局_记录集), i)
序号到字段名 (局_记录集, i － 1, 取字段名)
读字段值 (局_记录集, 取字段名, 返回值)
json.置属性 (“['” ＋ 表名 ＋ “']['” ＋ 到文本 (u － 1) ＋ “']['” ＋ 取字段名 ＋ “']”, “[]”, 真)
json.置属性 (“['” ＋ 表名 ＋ “']['” ＋ 到文本 (u － 1) ＋ “']['” ＋ 取字段名 ＋ “']”, 返回值, )
计次循环尾 ()
到下一行 (局_记录集)
计次循环尾 ()
返回值 ＝ json.取数据文本 ()
json.置属性 (“['状态']”, “失败”, )
返回值 ＝ json.取数据文本 ()
释放记录集 (局_记录集)
MYSQL.归还句柄 (句柄)
返回 (返回值)

子程序名	返回值类型	公开	备 注
NX_新增数据	逻辑型		MYSQL保存数据 到数据库
参数名	类 型	参考	可空	数组	备 注
表名	文本型				本参数是您要写入新记录的表的名称，如果为中文表名请在表名两边加“`”，如：`姓名`
赋值语句	文本型				例如增加一条记录并且为字段name与email分别赋予值“jack”、“jack@126.com”: name='jack',email='jack@126.com'
等待时间	整数型				默认10秒 ,连接池满时,等待多少秒钟后再取.

变量名	类 型	静态	数组	备 注
句柄	整数型

' 检测连接状态 ()
如果真 (是否为空 (等待时间) 或 等待时间 ＜ 1)
等待时间 ＝ 10
如果真 (MYSQL.取出句柄 (句柄, 等待时间))
如果真 (增加记录 (句柄, 表名, 赋值语句))
MYSQL.归还句柄 (句柄)
返回 (真)
MYSQL.归还句柄 (句柄)
返回 (假)

子程序名	返回值类型	公开	备 注
NX_修改数据	逻辑型		MYSQL修改数据
参数名	类 型	参考	可空	数组	备 注
表名	文本型				本参数是您要更新数据的表的名称，如果为中文表名请在表名两边加“`”，如：`姓名`
赋值语句	文本型				例如为字段name与email分别赋予值“sun”、“sun@126.com”: name='sun',email='sun@126.com'，如果为中文字段名请在字段名两边加“`”，如：`姓名`
条件	文本型				本参数是查找符合条件的记录。如果为“”空字符串那么将更新所有记录。例如当字段name的内容“jack”时更新记录: name='jack'
等待时间	整数型				默认10秒 ,连接池满时,等待多少秒钟后再取.

变量名	类 型	静态	数组	备 注
句柄	整数型

' 检测连接状态 ()
如果真 (是否为空 (等待时间) 或 等待时间 ＜ 1)
等待时间 ＝ 10
如果真 (MYSQL.取出句柄 (句柄, 等待时间))
如果真 (更新记录 (句柄, 表名, 赋值语句, 条件))
MYSQL.归还句柄 (句柄)
返回 (真)
MYSQL.归还句柄 (句柄)
返回 (假)

子程序名	返回值类型	公开	备 注
NX_删除数据	逻辑型		MYSQL删除数据
参数名	类 型	参考	可空	数组	备 注
表名	文本型				需删除操作的表的名称，如果为中文表名请在表名两边加“`”，如：`姓名`
条件	文本型				如果为“”(空字符串)将删除所有记录。例如当字段name的内容为“jack”时删除记录: name='jack',如果为中文字段名请在字段名两边加“`”,如：`姓名`
等待时间	整数型				默认10秒 ,连接池满时,等待多少秒钟后再取.

变量名	类 型	静态	数组	备 注
句柄	整数型

' 检测连接状态 ()
如果真 (是否为空 (等待时间) 或 等待时间 ＜ 1)
等待时间 ＝ 10
如果真 (MYSQL.取出句柄 (句柄, 等待时间))
如果真 (删除记录 (句柄, 表名, 条件))
MYSQL.归还句柄 (句柄)
返回 (真)
MYSQL.归还句柄 (句柄)
返回 (假)

i支持库列表	支持库注释
spec	特殊功能支持库
mysql	MySql支持库

.版本 2<br /> .支持库 spec<br /> .支持库 mysql<br /> <br /> .子程序 _按钮_MY开启_被单击, , , 开启始初化线程池<br /> <br /> .如果真 (MYSQL.创建连接 (, “json”, “json123”, “video”, , 到整数 (编辑框_MY数量.内容), ) ＝ 假)  ' 填写你的数据库连接信息<br />     .如果 (MYSQL.取空闲数 () ＞ 0)<br />         调试输出 (“mysql连接池 已存在”)<br />         编辑框_返回值.内容 ＝ “mysql连接池 已存在”<br />     .否则<br />         调试输出 (“mysql连接池 失败,请查看 连接参数 或 mysql数据库 是否正常”)<br />         编辑框_返回值.内容 ＝ “mysql连接池 失败,请查看 连接参数 或 mysql数据库 是否正常”<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_执行MY_被单击, , , 增 删 改 查 ,全部例子<br /> .局部变量 局_记录集句柄, 整数型<br /> .局部变量 句柄, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 测试, 整数型<br /> <br /> .如果真 (MYSQL.取MY状态 () ＝ 假)<br />     调试输出 (“mysql连接池 未创建”)<br />     返回 ()<br /> .如果真结束<br /> 编辑框_返回值.内容 ＝ “”<br /> <br /> 测试 ＝ 2<br /> <br /> .如果真 (测试 ＝ 1)<br />     ' 取出一个连接句柄,如没空闲句柄,将等待 5秒再取<br />     MYSQL.取出句柄 (句柄, 5)<br />     ' 查找数据库内容,用易自带的 mysql支持库命令即可<br />     局_记录集句柄 ＝ 查找记录 (句柄, “nx_ks_uid”, “msname”, “”, “”)<br />     ' 读数据库字段内容<br />     读字段值 (局_记录集句柄, “msname”, 返回值)<br />     ' 输出内容<br />     调试输出 (“取出的数量”, 取记录集行数 (局_记录集句柄), “取出的句柄”, 句柄, “记录集的句柄”, 局_记录集句柄, “cha询到的内容”, 返回值)<br />     编辑框_返回值.内容 ＝ “取出的数量 ” ＋ 到文本 (取记录集行数 (局_记录集句柄)) ＋ “ 取出的句柄 ” ＋ 到文本 (句柄) ＋ “ 记录集的句柄 ” ＋ 到文本 (局_记录集句柄) ＋ “ cha询到的内容 ” ＋ 返回值<br />     ' 记得释放记录集<br />     释放记录集 (局_记录集句柄)<br />     ' 用完记得归还一个句柄,好让别的任务使用<br />     调试输出 (“归还句柄”, MYSQL.归还句柄 (句柄))<br /> <br /> .如果真结束<br /> .如果真 (测试 ＝ 2)  ' 查数据<br />     编辑框_返回值.加入文本 (#换行符 ＋ NX_cha询数据 (“nx_user”, “uid,name,pass”, “uid<6”, “uid DESC”, 2, ))<br /> <br /> .如果真结束<br /> .如果真 (测试 ＝ 3)  ' 改数据<br />     .如果 (NX_修改数据 (“table_name”, “name='999999999'”, “id=1”, ))<br />         调试输出 (“修改成功”)<br />         编辑框_返回值.加入文本 (#换行符 ＋ “修改成功”)<br />     .否则<br />         调试输出 (“修改失败”)<br />         编辑框_返回值.加入文本 (#换行符 ＋ “修改失败”)<br />     .如果结束<br /> <br /> .如果真结束<br /> .如果真 (测试 ＝ 4)  ' 删数据<br />     .如果 (NX_删除数据 (“table_name”, “name='999999999'”, ))<br />         调试输出 (“删除成功”)<br />         编辑框_返回值.加入文本 (#换行符 ＋ “删除成功”)<br />     .否则<br />         调试输出 (“删除失败”)<br />         编辑框_返回值.加入文本 (#换行符 ＋ “删除失败”)<br />     .如果结束<br /> <br /> .如果真结束<br /> .如果真 (测试 ＝ 5)  ' 增数据<br />     .如果 (NX_新增数据 (“table_name”, “name='999999999'”, ))<br />         调试输出 (“添加成功”)<br />         编辑框_返回值.加入文本 (#换行符 ＋ “添加成功”)<br />     .否则<br />         调试输出 (“添加失败”)<br />         编辑框_返回值.加入文本 (#换行符 ＋ “添加失败”)<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 NX_cha询数据, 文本型, , MYSQL查找数据,返回 json 数据<br /> .参数 表名, 文本型, , 本参数是您要cha询的表的名称，如果为中文表名请在表名两边加“`”，如：`姓名`<br /> .参数 字段名, 文本型, 可空, 默认 * 所有字段 , 例子1 单个字段 name  例子2 多个字段 name,email,id<br /> .参数 查找条件, 文本型, 可空, 如果您要查找name的值为jack并且id的值为2的记录 name='jack' and id=2 或者id的值为2的记录 name='jack' or id=2<br /> .参数 排序条件, 文本型, 可空, 本参数是排序的条件，ASC为升序，DESC为降序。例如要对name字段进行降序排序: name DESC<br /> .参数 取行数量, 整数型, 可空, 默认取全部<br /> .参数 等待时间, 整数型, 可空, 默认10秒 ,连接池满时,等待多少秒钟后再取.<br /> .局部变量 句柄, 整数型<br /> .局部变量 局_记录集, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 json, 类_json<br /> .局部变量 i, 整数型<br /> .局部变量 u, 整数型<br /> .局部变量 取字段名, 文本型<br /> .局部变量 取数量值, 文本型<br /> .局部变量 记录集行数, 整数型<br /> <br /> ' 检测连接状态 ()<br /> .如果真 (是否为空 (等待时间) 或 等待时间 ＜ 1)<br />     等待时间 ＝ 10<br /> .如果真结束<br /> .如果真 (MYSQL.取出句柄 (句柄, 等待时间))<br />     .如果真 (是否为空 (字段名))<br />         字段名 ＝ “*”<br />     .如果真结束<br />     .如果真 (是否为空 (查找条件) ＝ 假)<br />         查找条件 ＝ “ WHERE ” ＋ 查找条件<br />     .如果真结束<br />     .如果真 (是否为空 (排序条件) ＝ 假)<br />         排序条件 ＝ “ ORDER BY ” ＋ 排序条件<br />     .如果真结束<br />     .如果真 (是否为空 (取行数量) ＝ 假 且 取行数量 ＞ 0)<br />         取数量值 ＝ “ LIMIT ” ＋ 到文本 (取行数量)<br />     .如果真结束<br />     .如果 (执行SQL语句 (句柄, “SELECT ” ＋ 字段名 ＋ “ FROM ” ＋ 表名 ＋ 查找条件 ＋ 排序条件 ＋ 取数量值))<br />         局_记录集 ＝ 取记录集 (句柄)<br />         记录集行数 ＝ 取记录集行数 (局_记录集)<br />         json.置属性 (“['状态']”, “成功”, )<br />         json.置属性 (“['数量']”, 到文本 (记录集行数), )<br />         json.置属性 (“['” ＋ 表名 ＋ “']”, “[]”, 真)<br />         .计次循环首 (记录集行数, u)<br />             json.置属性 (“['” ＋ 表名 ＋ “'][” ＋ 到文本 (u － 1) ＋ “]”, “{}”, 真)<br />             .计次循环首 (取字段总数 (局_记录集), i)<br />                 序号到字段名 (局_记录集, i － 1, 取字段名)<br />                 读字段值 (局_记录集, 取字段名, 返回值)<br />                 json.置属性 (“['” ＋ 表名 ＋ “']['” ＋ 到文本 (u － 1) ＋ “']['” ＋ 取字段名 ＋ “']”, “[]”, 真)<br />                 json.置属性 (“['” ＋ 表名 ＋ “']['” ＋ 到文本 (u － 1) ＋ “']['” ＋ 取字段名 ＋ “']”, 返回值, )<br />             .计次循环尾 ()<br />             到下一行 (局_记录集)<br />         .计次循环尾 ()<br />         返回值 ＝ json.取数据文本 ()<br />     .否则<br />         json.置属性 (“['状态']”, “失败”, )<br />         返回值 ＝ json.取数据文本 ()<br />     .如果结束<br />     释放记录集 (局_记录集)<br />     MYSQL.归还句柄 (句柄)<br /> .如果真结束<br /> 返回 (返回值)<br /> <br /> .子程序 NX_新增数据, 逻辑型, , MYSQL保存数据 到数据库<br /> .参数 表名, 文本型, , 本参数是您要写入新记录的表的名称，如果为中文表名请在表名两边加“`”，如：`姓名`<br /> .参数 赋值语句, 文本型, , 例如增加一条记录并且为字段name与email分别赋予值“jack”、“<a href="mailto:jack@126.com" rel="nofollow" rel="nofollow">jack@126.com</a>”: name='jack',email='jack@126.com'<br /> .参数 等待时间, 整数型, 可空, 默认10秒 ,连接池满时,等待多少秒钟后再取.<br /> .局部变量 句柄, 整数型<br /> <br /> ' 检测连接状态 ()<br /> .如果真 (是否为空 (等待时间) 或 等待时间 ＜ 1)<br />     等待时间 ＝ 10<br /> .如果真结束<br /> .如果真 (MYSQL.取出句柄 (句柄, 等待时间))<br />     .如果真 (增加记录 (句柄, 表名, 赋值语句))<br />         MYSQL.归还句柄 (句柄)<br />         返回 (真)<br />     .如果真结束<br />     MYSQL.归还句柄 (句柄)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 NX_修改数据, 逻辑型, , MYSQL修改数据<br /> .参数 表名, 文本型, , 本参数是您要更新数据的表的名称，如果为中文表名请在表名两边加“`”，如：`姓名`<br /> .参数 赋值语句, 文本型, , 例如为字段name与email分别赋予值“sun”、“<a href="mailto:sun@126.com" rel="nofollow" rel="nofollow">sun@126.com</a>”: name='sun',email='sun@126.com'，如果为中文字段名请在字段名两边加“`”，如：`姓名`<br /> .参数 条件, 文本型, , 本参数是查找符合条件的记录。如果为“”空字符串那么将更新所有记录。例如当字段name的内容“jack”时更新记录: name='jack'<br /> .参数 等待时间, 整数型, 可空, 默认10秒 ,连接池满时,等待多少秒钟后再取.<br /> .局部变量 句柄, 整数型<br /> <br /> ' 检测连接状态 ()<br /> .如果真 (是否为空 (等待时间) 或 等待时间 ＜ 1)<br />     等待时间 ＝ 10<br /> .如果真结束<br /> .如果真 (MYSQL.取出句柄 (句柄, 等待时间))<br />     .如果真 (更新记录 (句柄, 表名, 赋值语句, 条件))<br />         MYSQL.归还句柄 (句柄)<br />         返回 (真)<br />     .如果真结束<br />     MYSQL.归还句柄 (句柄)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 NX_删除数据, 逻辑型, , MYSQL删除数据<br /> .参数 表名, 文本型, , 需删除操作的表的名称，如果为中文表名请在表名两边加“`”，如：`姓名`<br /> .参数 条件, 文本型, , 如果为“”(空字符串)将删除所有记录。例如当字段name的内容为“jack”时删除记录: name='jack',如果为中文字段名请在字段名两边加“`”,如：`姓名`<br /> .参数 等待时间, 整数型, 可空, 默认10秒 ,连接池满时,等待多少秒钟后再取.<br /> .局部变量 句柄, 整数型<br /> <br /> ' 检测连接状态 ()<br /> .如果真 (是否为空 (等待时间) 或 等待时间 ＜ 1)<br />     等待时间 ＝ 10<br /> .如果真结束<br /> .如果真 (MYSQL.取出句柄 (句柄, 等待时间))<br />     .如果真 (删除记录 (句柄, 表名, 条件))<br />         MYSQL.归还句柄 (句柄)<br />         返回 (真)<br />     .如果真结束<br />     MYSQL.归还句柄 (句柄)<br /> .如果真结束<br /> 返回 (假)

不想花精币的, 就复制上面的源码去 测试就行
注: mysql采用的是官方支持库,可直接使用官方的mysql各种命令


最新例子源码在此下载:(回复下载)

游客，如果您要查看本帖隐藏内容请回复

整个源码及成品在此:
https://bbs.125.la/forum.php?mod=viewthread&tid=14818656

欢迎使用, 欢迎二创三创, 有好的想法及改造后, 请记得分享出来,谢谢!
我们一起为广大易友做贡献!

补充内容 (2024-4-22 11:26):
经发现, 线程池使用多参数传递后,线程执行后会有问题,  等我有空后再重新弄过吧, 到时弄成 通用型传参, 现在这个放弃使用, 还有mysql连接池心跳问题.

补充内容 (2024-4-23 01:38):
2024/04/23 更新
修复MySql心跳,
修复线程池传参,
调整传参数量,
https://bbs.125.la/forum.php?mod=viewthread&tid=14819247

wolfpack

从你的世界路过

谢谢，下载下来学习一下

8187524

不错正好需要太好了1

b295a2

感谢您的分享

ChenLight

        感谢分享，很给力！~

xiaobaibk47

WallBreaker

苗苗520

感谢分享，正需要呢

灵猫作者

感谢分享，很给力！~

78012342

感谢分享，很给力！~