闲得无聊，弄了一个易语言版本的连接池，请大神看看....

黑蟑螂

  

窗口程序集名	保 留	保 留	备 注
mysql链接程序集
变量名	类 型	数组	备 注
连接池监控线程	整数型
连接池启动	逻辑型
获取线程锁	整数型

子程序名	返回值类型	公开	备 注
销毁程序池			销毁连接池

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

连接池启动 ＝ 假
强制结束线程 (连接池监控线程)
删除进入许可证 (获取线程锁)
计次循环首 (取数组成员数 (连接池), b)
如果真 (连接池 [b].连接id ≠ 0)
关闭MySql (连接池 [b].连接id)
连接池 [b].空闲状态 ＝ 假

计次循环尾 ()
日志 (“连接池已销毁！”)
返回 ()

子程序名	返回值类型	公开	备 注
创建程序池	逻辑型		创建连接池
参数名	类 型	参考	可空	数组	备 注
最大连接池数量	整数型

变量名	类 型	静态	数组	备 注
c	整数型
已连接	整数型
需连接	整数型
临时id	整数型

重定义数组 (连接池, 假, 最大连接池数量)
需连接 ＝ 取整 (最大连接池数量 ÷ 2)
循环判断首 ()
临时id ＝ 连接MySql (数据库IP, 数据库账号, 数据库密码, 数据库名, 数据库端口)
如果 (临时id ≠ 0)
已连接 ＝ 已连接 ＋ 1
连接池 [已连接].连接id ＝ 临时id
连接池 [已连接].空闲状态 ＝ 真
连接池 [已连接].最后调用时间 ＝ 取现行时间 ()
连接池 [已连接].是否临时连接 ＝ 假
日志 (“连接池[” ＋ 到文本 (已连接) ＋ “]创建成功，连接ID：” ＋ 到文本 (临时id))
日志 (“连接池创建失败，正在重试...”)

循环判断尾 (已连接 ＜ 需连接)
日志 (“连接池已创建完成，当前连接池连接数：” ＋ 到文本 (已连接))
获取线程锁 ＝ 创建进入许可证 ()
连接池启动 ＝ 真
启动线程 (&连接池监控, 30, 连接池监控线程)
返回 (真)

子程序名	返回值类型	公开	备 注
连接池监控			监控连接，防止被断开
参数名	类 型	参考	可空	数组	备 注
检查间隔	整数型

变量名	类 型	静态	数组	备 注
等待期	整数型
n	整数型
活跃间隔	整数型

判断循环首 (连接池启动)
程序_延时 (60000, )
等待期 ＝ 等待期 ＋ 1
如果真 (等待期 ≥ 检查间隔)
等待期 ＝ 0
计次循环首 (取数组成员数 (连接池), n)
如果真 (连接池 [n].空闲状态 ＝ 真)
活跃间隔 ＝ 取时间间隔 (取现行时间 (), 连接池 [n].最后调用时间, #分钟 )
如果真 (活跃间隔 ≥ 120)
启动线程 (&活跃连接, n, )


计次循环尾 ()

判断循环尾 ()
返回 ()

子程序名	返回值类型	公开	备 注
活跃连接			活跃被闲置数据库连接
参数名	类 型	参考	可空	数组	备 注
连接序号	整数型

执行SQL语句 (连接池 [连接序号].连接id, “SELECT 1”)
连接池 [连接序号].最后调用时间 ＝ 取现行时间 ()
返回 ()

子程序名	返回值类型	公开	备 注
获取连接	整数型		获取一个连接池空闲连接

变量名	类 型	静态	数组	备 注
n	整数型
连接句柄	整数型
临时id	整数型
C	整数型

进入许可区 (获取线程锁)
连接句柄 ＝ 0
循环判断首 ()
计次循环首 (取数组成员数 (连接池), n)
如果真 (连接池 [n].空闲状态 ＝ 真)
连接池 [n].空闲状态 ＝ 假
连接句柄 ＝ 连接池 [n].连接id
跳出循环 ()

计次循环尾 ()
如果真 (连接句柄 ＝ 0)
计次循环首 (取数组成员数 (连接池), C)
如果真 (连接池 [C].连接id ＝ 0)
循环判断首 ()
临时id ＝ 连接MySql (数据库IP, 数据库账号, 数据库密码, 数据库名, 数据库端口)
循环判断尾 (临时id ≠ 0)
连接池 [C].连接id ＝ 临时id
连接池 [C].空闲状态 ＝ 假
连接池 [C].是否临时连接 ＝ 真
连接池 [C].最后调用时间 ＝ 取现行时间 ()

计次循环尾 ()
连接句柄 ＝ 临时id
日志 (“由于连接池连接数不足，已临时创建连接线程，连接id：” ＋ 到文本 (连接句柄))

循环判断尾 (连接句柄 ＝ 0)
退出许可区 (获取线程锁)
返回 (连接句柄)

子程序名	返回值类型	公开	备 注
归还连接			归还一个连接池连接，如果是临时连接，则直接关闭连接
参数名	类 型	参考	可空	数组	备 注
连接句柄	整数型

变量名	类 型	静态	数组	备 注
C

计次循环首 (取数组成员数 (连接池), C)
如果真 (连接池 [C].连接id ＝ 连接句柄)
如果真 (连接池 [C].是否临时连接 ＝ 真)
关闭MySql (连接句柄)
日志 (“临时mysql连接已被关闭，连接ID：” ＋ 到文本 (连接句柄))
连接池 [C].连接id ＝ 真
连接池 [C].是否临时连接 ＝ 假
连接池 [C].空闲状态 ＝ 真

计次循环尾 ()
返回 ()

i支持库列表	支持库注释
EThread	多线程支持库
mysql	MySql支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 mysql<br /> <br /> .程序集 mysql链接程序集<br /> .程序集变量 连接池监控线程, 整数型<br /> .程序集变量 连接池启动, 逻辑型<br /> .程序集变量 获取线程锁, 整数型<br /> <br /> .子程序 销毁程序池, , , 销毁连接池<br /> .局部变量 b, 整数型<br /> <br /> 连接池启动 ＝ 假<br /> 强制结束线程 (连接池监控线程)<br /> 删除进入许可证 (获取线程锁)<br /> .计次循环首 (取数组成员数 (连接池), b)<br />     .如果真 (连接池 <strong>.连接id ≠ 0)<br />         关闭MySql (连接池 <strong>.连接id)<br />         连接池 <strong>.空闲状态 ＝ 假<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 日志 (“连接池已销毁！”)<br /> 返回 ()<br /> <br /> .子程序 创建程序池, 逻辑型, , 创建连接池<br /> .参数 最大连接池数量, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 已连接, 整数型<br /> .局部变量 需连接, 整数型<br /> .局部变量 临时id, 整数型<br /> <br /> 重定义数组 (连接池, 假, 最大连接池数量)<br /> 需连接 ＝ 取整 (最大连接池数量 ÷ 2)<br /> .循环判断首 ()<br />     临时id ＝ 连接MySql (数据库IP, 数据库账号, 数据库密码, 数据库名, 数据库端口)<br />     .如果 (临时id ≠ 0)<br />         已连接 ＝ 已连接 ＋ 1<br />         连接池 [已连接].连接id ＝ 临时id<br />         连接池 [已连接].空闲状态 ＝ 真<br />         连接池 [已连接].最后调用时间 ＝ 取现行时间 ()<br />         连接池 [已连接].是否临时连接 ＝ 假<br />         日志 (“连接池[” ＋ 到文本 (已连接) ＋ “]创建成功，连接ID：” ＋ 到文本 (临时id))<br />     .否则<br />         日志 (“连接池创建失败，正在重试...”)<br />     .如果结束<br /> <br /> .循环判断尾 (已连接 ＜ 需连接)<br /> 日志 (“连接池已创建完成，当前连接池连接数：” ＋ 到文本 (已连接))<br /> 获取线程锁 ＝ 创建进入许可证 ()<br /> 连接池启动 ＝ 真<br /> 启动线程 (&连接池监控, 30, 连接池监控线程)<br /> 返回 (真)<br /> <br /> .子程序 连接池监控, , , 监控连接，防止被断开<br /> .参数 检查间隔, 整数型<br /> .局部变量 等待期, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 活跃间隔, 整数型<br /> <br /> .判断循环首 (连接池启动)<br />     程序_延时 (60000, )<br />     等待期 ＝ 等待期 ＋ 1<br />     .如果真 (等待期 ≥ 检查间隔)<br />         等待期 ＝ 0<br />         .计次循环首 (取数组成员数 (连接池), n)<br />             .如果真 (连接池 [n].空闲状态 ＝ 真)<br />                 活跃间隔 ＝ 取时间间隔 (取现行时间 (), 连接池 [n].最后调用时间, #分钟)<br />                 .如果真 (活跃间隔 ≥ 120)<br />                     启动线程 (&活跃连接, n, )<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 ()<br /> <br /> .子程序 活跃连接, , , 活跃被闲置数据库连接<br /> .参数 连接序号, 整数型<br /> <br /> 执行SQL语句 (连接池 [连接序号].连接id, “SELECT 1”)<br /> 连接池 [连接序号].最后调用时间 ＝ 取现行时间 ()<br /> 返回 ()<br /> <br /> .子程序 获取连接, 整数型, , 获取一个连接池空闲连接<br /> .局部变量 n, 整数型<br /> .局部变量 连接句柄, 整数型<br /> .局部变量 临时id, 整数型<br /> .局部变量 C, 整数型<br /> <br /> 进入许可区 (获取线程锁)<br /> 连接句柄 ＝ 0<br /> .循环判断首 ()<br />     .计次循环首 (取数组成员数 (连接池), n)<br />         .如果真 (连接池 [n].空闲状态 ＝ 真)<br />             连接池 [n].空闲状态 ＝ 假<br />             连接句柄 ＝ 连接池 [n].连接id<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .如果真 (连接句柄 ＝ 0)<br />         .计次循环首 (取数组成员数 (连接池), C)<br />             .如果真 (连接池 [C].连接id ＝ 0)<br />                 .循环判断首 ()<br />                     临时id ＝ 连接MySql (数据库IP, 数据库账号, 数据库密码, 数据库名, 数据库端口)<br />                 .循环判断尾 (临时id ≠ 0)<br />                 连接池 [C].连接id ＝ 临时id<br />                 连接池 [C].空闲状态 ＝ 假<br />                 连接池 [C].是否临时连接 ＝ 真<br />                 连接池 [C].最后调用时间 ＝ 取现行时间 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         连接句柄 ＝ 临时id<br />         日志 (“由于连接池连接数不足，已临时创建连接线程，连接id：” ＋ 到文本 (连接句柄))<br />     .如果真结束<br /> <br /> .循环判断尾 (连接句柄 ＝ 0)<br /> 退出许可区 (获取线程锁)<br /> 返回 (连接句柄)<br /> <br /> .子程序 归还连接, , , 归还一个连接池连接，如果是临时连接，则直接关闭连接<br /> .参数 连接句柄, 整数型<br /> .局部变量 C<br /> <br /> .计次循环首 (取数组成员数 (连接池), C)<br />     .如果真 (连接池 [C].连接id ＝ 连接句柄)<br />         .如果真 (连接池 [C].是否临时连接 ＝ 真)<br />             关闭MySql (连接句柄)<br />             日志 (“临时mysql连接已被关闭，连接ID：” ＋ 到文本 (连接句柄))<br />             连接池 [C].连接id ＝ 真<br />             连接池 [C].是否临时连接 ＝ 假<br />         .如果真结束<br />         连接池 [C].空闲状态 ＝ 真<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 ()

  

数据类型名	公开	备 注
连接池
成员名	类 型	传址	数组	备 注
连接id	整数型			数据库的链接ID
空闲状态	逻辑型			真=空闲 假=被调用
最后调用时间	日期时间型			最后一次被调用的时间
是否临时连接	逻辑型

.版本 2<br /> <br /> .数据类型 连接池, 公开<br />     .成员 连接id, 整数型, , , 数据库的链接ID<br />     .成员 空闲状态, 逻辑型, , , 真=空闲 假=被调用<br />     .成员 最后调用时间, 日期时间型, , , 最后一次被调用的时间<br />     .成员 是否临时连接, 逻辑型

简易版的，适合新手学习，也请大神提出一些建议和优化的地方！

fire9

挺牛逼的样子

承易

不明觉历

黑蟑螂

jcos 发表于 2024-4-9 17:13
666牛!

谢谢老板慷慨解囊！！！

jcos

666牛!