线程池学习例子，多线程写数据库附支持库

.如果真 (删首尾空 (编辑框_线程总数.内容) ＝ “”)
编辑框_线程总数.内容 ＝ “10”
.如果真结束
程序集_线程总数 ＝ 到整数 (编辑框_线程总数.内容)
程序集_线程池句柄 ＝ 创建线程池 (程序集_线程总数, 程序集_线程总数, &功能程序, 10000, 1048576)
.计次循环首 (300, 局部_计次)
加入工作 (程序集_线程池句柄, 局部_计次)
.计次循环尾 ()
时钟_线程池.时钟周期 ＝ 100

.子程序 功能程序
.参数 序号, 整数型

数据库连接.执行SQL (“insert into 表名 (字段1,字段2) values (” ＋ 到文本 (序号) ＋ “,'” ＋ 到文本 (序号) ＋ “')”)
' 程序集_许可证.进入许可区 ()
程序集_当前数 ＝ 程序集_当前数 ＋ 1 ' 只写不读，不加也可。
' 程序集_许可证.离开许可区 ()