MYSQL增删改查纯源码2.0|心跳功能

a707739277

还是有待改进，不过基本功能已经完善，自用已经写了好几项目，借鉴的论坛的线程池，非常好用哈，

  

窗口程序集名	保 留	保 留	备 注
Mysql, , 公开
变量名	类 型	数组	备 注
集_Mysql句柄	整数型
集_许可证	临界许可
集_心跳句柄	整数型
集_心跳语句	文本型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

线程_初始化COM库 ()
集_许可证 ＝ 临界_创建 ()
集_Mysql句柄 ＝ 0

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

线程_取消COM库 ()
临界_销毁 (集_许可证)
断开 ()

子程序名	返回值类型	公开	备 注
心跳

调试输出 (“开始执行心跳线程”, 集_Mysql句柄)
判断循环首 (真)
临界_进入 (集_许可证)
执行SQL语句 (集_Mysql句柄, 集_心跳语句)
释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集
临界_退出 (集_许可证)
Sleep (1000 × 300)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
编码	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_编码	文本型

变量名	类 型	静态	数组	备 注
局_返回	逻辑型

临界_进入 (集_许可证)
局_返回 ＝ 执行SQL语句 (集_Mysql句柄, “set names '” ＋ 参_编码 ＋ “'”)
临界_退出 (集_许可证)
返回 (局_返回)

子程序名	返回值类型	公开	备 注
错误	文本型

变量名	类 型	静态	数组	备 注
ret_err	文本型

临界_进入 (集_许可证)
取错误文本 (集_Mysql句柄, ret_err)
临界_退出 (集_许可证)
返回 (ret_err)

子程序名	返回值类型	公开	备 注
句柄	整数型
参数名	类 型	参考	可空	数组	备 注
参_Mysql句柄	整数型

如果真 (是否为空 (参_Mysql句柄) ＝ 假)
集_Mysql句柄 ＝ 参_Mysql句柄
返回 (集_Mysql句柄)

子程序名	返回值类型	公开	备 注
连接	逻辑型		连接时启动心跳线程，断开时销毁
参数名	类 型	参考	可空	数组	备 注
参_服务器地址	文本型
参_用户名	文本型
参_密码	文本型
参_数据库名	文本型
参_端口	整数型
参_心跳语句	文本型

如果真 (集_Mysql句柄 ≠ 0)
关闭MySql (集_Mysql句柄)
集_Mysql句柄 ＝ 连接MySql (参_服务器地址, 参_用户名, 参_密码, 参_数据库名, 参_端口)
如果真 (集_Mysql句柄 ≠ 0)
集_心跳句柄 ＝ 线程_启动1 (类回调_取类地址 (3, , , ), , )
集_心跳语句 ＝ 参_心跳语句
返回 (集_Mysql句柄 ≠ 0)

子程序名	返回值类型	公开	备 注
断开	逻辑型

变量名	类 型	静态	数组	备 注
局_返回	逻辑型

如果真 (集_Mysql句柄 ≠ 0)
局_返回 ＝ 关闭MySql (集_Mysql句柄)
集_Mysql句柄 ＝ 0
线程_销毁 (集_心跳句柄)
线程_关闭句柄 (集_心跳句柄)
返回 (局_返回)

子程序名	返回值类型	公开	备 注
增加	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_数据表名	文本型
参_赋值Json	文本型

变量名	类 型	静态	数组	备 注
局_SQL语句	文本型
局_Json	类_json
局_返回	逻辑型
局_属性名	文本型		0
局_计次	整数型
局_增加字段	文本型
局_增加内容	文本型

临界_进入 (集_许可证)
如果真 (局_Json.解析 (参_赋值Json))
计次循环首 (局_Json.取所有属性名 (局_属性名), 局_计次)
判断 (局_增加字段 ＝ “”)
局_增加字段 ＝ 局_属性名 [局_计次]
局_增加字段 ＝ 局_增加字段 ＋ “, ” ＋ 局_属性名 [局_计次]
判断 (局_增加内容 ＝ “”)
局_增加内容 ＝ “'” ＋ 局_Json.取通用属性 (局_属性名 [局_计次]) ＋ “'”
局_增加内容 ＝ 局_增加内容 ＋ “, ” ＋ “'” ＋ 局_Json.取通用属性 (局_属性名 [局_计次]) ＋ “'”

计次循环尾 ()
如果真 (取文本长度 (局_增加字段) ≠ 0 且 取文本长度 (局_增加内容) ≠ 0)
局_SQL语句 ＝ “INSERT INTO ” ＋ 参_数据表名 ＋ “ (” ＋ 局_增加字段 ＋ “) VALUES (” ＋ 局_增加内容 ＋ “)”
局_返回 ＝ 执行SQL语句 (集_Mysql句柄, 局_SQL语句)
释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集

临界_退出 (集_许可证)
返回 (局_返回)

子程序名	返回值类型	公开	备 注
删除	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_数据表名	文本型
参_删除条件	文本型				格式： name='1' or pass='2'

变量名	类 型	静态	数组	备 注
局_返回	逻辑型
局_SQL语句	文本型

临界_进入 (集_许可证)
局_SQL语句 ＝ “DELETE FROM ” ＋ 参_数据表名 ＋ “ WHERE ” ＋ 参_删除条件
局_返回 ＝ 执行SQL语句 (集_Mysql句柄, 局_SQL语句)
释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集
临界_退出 (集_许可证)
返回 (局_返回)

子程序名	返回值类型	公开	备 注
修改	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_数据表名	文本型
参_条件语句	文本型				格式：name='1' or pass='2'
参_赋值Json	文本型

变量名	类 型	静态	数组	备 注
局_返回	逻辑型
局_SQL语句	文本型
局_Json	类_json
局_赋值语句	文本型
局_属性名	文本型		0
局_计次	整数型

临界_进入 (集_许可证)
如果真 (局_Json.解析 (参_赋值Json))
计次循环首 (局_Json.取所有属性名 (局_属性名), 局_计次)
如果真 (局_赋值语句 ＝ “”)
局_赋值语句 ＝ 局_属性名 [局_计次] ＋ “='” ＋ 局_Json.取通用属性 (局_属性名 [局_计次]) ＋ “'”
到循环尾 ()
局_赋值语句 ＝ 局_赋值语句 ＋ “, ” ＋ 局_属性名 [局_计次] ＋ “='” ＋ 局_Json.取通用属性 (局_属性名 [局_计次]) ＋ “'”
计次循环尾 ()
如果真 (取文本长度 (局_赋值语句) ≠ 0)
局_SQL语句 ＝ “UPDATE ” ＋ 参_数据表名 ＋ “ SET ” ＋ 局_赋值语句 ＋ “ WHERE ” ＋ 参_条件语句
局_返回 ＝ 执行SQL语句 (集_Mysql句柄, 局_SQL语句)
释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集

临界_退出 (集_许可证)
返回 (局_返回)

子程序名	返回值类型	公开	备 注
查找	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_数据表名	文本型
参_查找条件	文本型				格式： name='1' and pass='2'  为空查找全部
参_返回Json	文本型
局_返回字段	文本型				id,name,pass,user

变量名	类 型	静态	数组	备 注
局_返回	逻辑型
局_计次	整数型
局_结果字段	文本型
局_结果值	文本型
局_结果Json	文本型
局_SQL语句	文本型
局_记录集句柄	整数型
局_记录数量	整数型

临界_进入 (集_许可证)
清除数组 (参_返回Json)
判断 (是否为空 (参_查找条件))
判断 (是否为空 (局_返回字段))
局_SQL语句 ＝ “SELECT * FROM ” ＋ 参_数据表名
局_SQL语句 ＝ “SELECT ” ＋ 局_返回字段 ＋ “ FROM ” ＋ 参_数据表名



判断 (是否为空 (局_返回字段))
局_SQL语句 ＝ “SELECT * FROM ” ＋ 参_数据表名 ＋ “ WHERE ” ＋ 参_查找条件
局_SQL语句 ＝ “SELECT ” ＋ 局_返回字段 ＋ “ FROM ” ＋ 参_数据表名 ＋ “ WHERE ” ＋ 参_查找条件


局_返回 ＝ 执行SQL语句 (集_Mysql句柄, 局_SQL语句)
判断 (局_返回 ＝ 真)
局_记录集句柄 ＝ 取记录集 (集_Mysql句柄)
局_记录数量 ＝ 取记录集行数 (局_记录集句柄)
计次循环首 (局_记录数量, )
局_结果Json ＝ “{”
计次循环首 (取字段总数 (局_记录集句柄), 局_计次)
序号到字段名 (局_记录集句柄, 局_计次 － 1, 局_结果字段)
读字段值 (局_记录集句柄, 局_结果字段, 局_结果值)
判断 (局_结果Json ＝ “{”)
局_结果Json ＝ 局_结果Json ＋ #引号 ＋ 局_结果字段 ＋ #引号 ＋ “:” ＋ #引号 ＋ 局_结果值 ＋ #引号
局_结果Json ＝ 局_结果Json ＋ “, ” ＋ #引号 ＋ 局_结果字段 ＋ #引号 ＋ “:” ＋ #引号 ＋ 局_结果值 ＋ #引号

计次循环尾 ()
局_结果Json ＝ 局_结果Json ＋ “}”
加入成员 (参_返回Json, 局_结果Json)
到下一行 (局_记录集句柄)
计次循环尾 ()
释放记录集 (局_记录集句柄)
释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集

临界_退出 (集_许可证)
返回 (局_返回)

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

.版本 2<br /> .支持库 spec<br /> .支持库 mysql<br /> <br /> .程序集 Mysql, , 公开<br /> .程序集变量 集_Mysql句柄, 整数型<br /> .程序集变量 集_许可证, 临界许可<br /> .程序集变量 集_心跳句柄, 整数型<br /> .程序集变量 集_心跳语句, 文本型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> 线程_初始化COM库 ()<br /> 集_许可证 ＝ 临界_创建 ()<br /> 集_Mysql句柄 ＝ 0<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> 线程_取消COM库 ()<br /> 临界_销毁 (集_许可证)<br /> 断开 ()<br /> <br /> .子程序 心跳<br /> <br /> 调试输出 (“开始执行心跳线程”, 集_Mysql句柄)<br /> .判断循环首 (真)<br />     临界_进入 (集_许可证)<br />     执行SQL语句 (集_Mysql句柄, 集_心跳语句)<br />     释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集<br />     临界_退出 (集_许可证)<br />     Sleep (1000 × 300)<br /> .判断循环尾 ()<br /> <br /> .子程序 编码, 逻辑型, 公开<br /> .参数 参_编码, 文本型<br /> .局部变量 局_返回, 逻辑型<br /> <br /> 临界_进入 (集_许可证)<br /> 局_返回 ＝ 执行SQL语句 (集_Mysql句柄, “set names '” ＋ 参_编码 ＋ “'”)<br /> 临界_退出 (集_许可证)<br /> 返回 (局_返回)<br /> <br /> .子程序 错误, 文本型, 公开<br /> .局部变量 ret_err, 文本型<br /> <br /> 临界_进入 (集_许可证)<br /> 取错误文本 (集_Mysql句柄, ret_err)<br /> 临界_退出 (集_许可证)<br /> 返回 (ret_err)<br /> <br /> .子程序 句柄, 整数型, 公开<br /> .参数 参_Mysql句柄, 整数型, 可空<br /> <br /> .如果真 (是否为空 (参_Mysql句柄) ＝ 假)<br />     集_Mysql句柄 ＝ 参_Mysql句柄<br /> .如果真结束<br /> 返回 (集_Mysql句柄)<br /> <br /> .子程序 连接, 逻辑型, 公开, 连接时启动心跳线程，断开时销毁<br /> .参数 参_服务器地址, 文本型<br /> .参数 参_用户名, 文本型<br /> .参数 参_密码, 文本型<br /> .参数 参_数据库名, 文本型<br /> .参数 参_端口, 整数型<br /> .参数 参_心跳语句, 文本型<br /> <br /> .如果真 (集_Mysql句柄 ≠ 0)<br />     关闭MySql (集_Mysql句柄)<br /> .如果真结束<br /> 集_Mysql句柄 ＝ 连接MySql (参_服务器地址, 参_用户名, 参_密码, 参_数据库名, 参_端口)<br /> .如果真 (集_Mysql句柄 ≠ 0)<br />     集_心跳句柄 ＝ 线程_启动1 (类回调_取类地址 (3, , , ), , )<br /> .如果真结束<br /> 集_心跳语句 ＝ 参_心跳语句<br /> 返回 (集_Mysql句柄 ≠ 0)<br /> <br /> .子程序 断开, 逻辑型, 公开<br /> .局部变量 局_返回, 逻辑型<br /> <br /> .如果真 (集_Mysql句柄 ≠ 0)<br />     局_返回 ＝ 关闭MySql (集_Mysql句柄)<br />     集_Mysql句柄 ＝ 0<br />     线程_销毁 (集_心跳句柄)<br />     线程_关闭句柄 (集_心跳句柄)<br /> .如果真结束<br /> 返回 (局_返回)<br /> <br /> .子程序 增加, 逻辑型, 公开<br /> .参数 参_数据表名, 文本型<br /> .参数 参_赋值Json, 文本型<br /> .局部变量 局_SQL语句, 文本型<br /> .局部变量 局_Json, 类_json<br /> .局部变量 局_返回, 逻辑型<br /> .局部变量 局_属性名, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_增加字段, 文本型<br /> .局部变量 局_增加内容, 文本型<br /> <br /> 临界_进入 (集_许可证)<br /> .如果真 (局_Json.解析 (参_赋值Json))<br />     .计次循环首 (局_Json.取所有属性名 (局_属性名), 局_计次)<br />         .判断开始 (局_增加字段 ＝ “”)<br />             局_增加字段 ＝ 局_属性名 [局_计次]<br />         .默认<br />             局_增加字段 ＝ 局_增加字段 ＋ “, ” ＋ 局_属性名 [局_计次]<br />         .判断结束<br />         .判断开始 (局_增加内容 ＝ “”)<br />             局_增加内容 ＝ “'” ＋ 局_Json.取通用属性 (局_属性名 [局_计次]) ＋ “'”<br />         .默认<br />             局_增加内容 ＝ 局_增加内容 ＋ “, ” ＋ “'” ＋ 局_Json.取通用属性 (局_属性名 [局_计次]) ＋ “'”<br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (取文本长度 (局_增加字段) ≠ 0 且 取文本长度 (局_增加内容) ≠ 0)<br />         局_SQL语句 ＝ “INSERT INTO ” ＋ 参_数据表名 ＋ “ (” ＋ 局_增加字段 ＋ “) VALUES (” ＋ 局_增加内容 ＋ “)”<br />         局_返回 ＝ 执行SQL语句 (集_Mysql句柄, 局_SQL语句)<br />         释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集<br />     .如果真结束<br /> <br /> .如果真结束<br /> 临界_退出 (集_许可证)<br /> 返回 (局_返回)<br /> <br /> .子程序 删除, 逻辑型, 公开<br /> .参数 参_数据表名, 文本型<br /> .参数 参_删除条件, 文本型, , 格式： name='1' or pass='2' <br /> .局部变量 局_返回, 逻辑型<br /> .局部变量 局_SQL语句, 文本型<br /> <br /> 临界_进入 (集_许可证)<br /> 局_SQL语句 ＝ “DELETE FROM ” ＋ 参_数据表名 ＋ “ WHERE ” ＋ 参_删除条件<br /> 局_返回 ＝ 执行SQL语句 (集_Mysql句柄, 局_SQL语句)<br /> 释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集<br /> 临界_退出 (集_许可证)<br /> 返回 (局_返回)<br /> <br /> .子程序 修改, 逻辑型, 公开<br /> .参数 参_数据表名, 文本型<br /> .参数 参_条件语句, 文本型, , 格式：name='1' or pass='2' <br /> .参数 参_赋值Json, 文本型<br /> .局部变量 局_返回, 逻辑型<br /> .局部变量 局_SQL语句, 文本型<br /> .局部变量 局_Json, 类_json<br /> .局部变量 局_赋值语句, 文本型<br /> .局部变量 局_属性名, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> <br /> 临界_进入 (集_许可证)<br /> .如果真 (局_Json.解析 (参_赋值Json))<br />     .计次循环首 (局_Json.取所有属性名 (局_属性名), 局_计次)<br />         .如果真 (局_赋值语句 ＝ “”)<br />             局_赋值语句 ＝ 局_属性名 [局_计次] ＋ “='” ＋ 局_Json.取通用属性 (局_属性名 [局_计次]) ＋ “'”<br />             到循环尾 ()<br />         .如果真结束<br />         局_赋值语句 ＝ 局_赋值语句 ＋ “, ” ＋ 局_属性名 [局_计次] ＋ “='” ＋ 局_Json.取通用属性 (局_属性名 [局_计次]) ＋ “'”<br />     .计次循环尾 ()<br />     .如果真 (取文本长度 (局_赋值语句) ≠ 0)<br />         局_SQL语句 ＝ “UPDATE ” ＋ 参_数据表名 ＋ “ SET ” ＋ 局_赋值语句 ＋ “ WHERE ” ＋ 参_条件语句<br />         局_返回 ＝ 执行SQL语句 (集_Mysql句柄, 局_SQL语句)<br />         释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集<br />     .如果真结束<br /> <br /> .如果真结束<br /> 临界_退出 (集_许可证)<br /> 返回 (局_返回)<br /> <br /> .子程序 查找, 逻辑型, 公开<br /> .参数 参_数据表名, 文本型<br /> .参数 参_查找条件, 文本型, 可空, 格式： name='1' and pass='2'  为空查找全部 <br /> .参数 参_返回Json, 文本型, 参考 可空 数组<br /> .参数 局_返回字段, 文本型, 可空, id,name,pass,user<br /> .局部变量 局_返回, 逻辑型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_结果字段, 文本型<br /> .局部变量 局_结果值, 文本型<br /> .局部变量 局_结果Json, 文本型<br /> .局部变量 局_SQL语句, 文本型<br /> .局部变量 局_记录集句柄, 整数型<br /> .局部变量 局_记录数量, 整数型<br /> <br /> 临界_进入 (集_许可证)<br /> 清除数组 (参_返回Json)<br /> .判断开始 (是否为空 (参_查找条件))<br /> <br />     .判断开始 (是否为空 (局_返回字段))<br />         局_SQL语句 ＝ “SELECT * FROM ” ＋ 参_数据表名<br />     .默认<br />         局_SQL语句 ＝ “SELECT ” ＋ 局_返回字段 ＋ “ FROM ” ＋ 参_数据表名<br />     .判断结束<br /> <br /> .默认<br /> <br />     .判断开始 (是否为空 (局_返回字段))<br />         局_SQL语句 ＝ “SELECT * FROM ” ＋ 参_数据表名 ＋ “ WHERE ” ＋ 参_查找条件<br />     .默认<br />         局_SQL语句 ＝ “SELECT ” ＋ 局_返回字段 ＋ “ FROM ” ＋ 参_数据表名 ＋ “ WHERE ” ＋ 参_查找条件<br />     .判断结束<br /> <br /> .判断结束<br /> <br /> 局_返回 ＝ 执行SQL语句 (集_Mysql句柄, 局_SQL语句)<br /> .判断开始 (局_返回 ＝ 真)<br />     局_记录集句柄 ＝ 取记录集 (集_Mysql句柄)<br />     局_记录数量 ＝ 取记录集行数 (局_记录集句柄)<br />     .计次循环首 (局_记录数量, )<br />         局_结果Json ＝ “{”<br />         .计次循环首 (取字段总数 (局_记录集句柄), 局_计次)<br />             序号到字段名 (局_记录集句柄, 局_计次 － 1, 局_结果字段)<br />             读字段值 (局_记录集句柄, 局_结果字段, 局_结果值)<br />             .判断开始 (局_结果Json ＝ “{”)<br />                 局_结果Json ＝ 局_结果Json ＋ #引号 ＋ 局_结果字段 ＋ #引号 ＋ “:” ＋ #引号 ＋ 局_结果值 ＋ #引号<br />             .默认<br />                 局_结果Json ＝ 局_结果Json ＋ “, ” ＋ #引号 ＋ 局_结果字段 ＋ #引号 ＋ “:” ＋ #引号 ＋ 局_结果值 ＋ #引号<br />             .判断结束<br /> <br />         .计次循环尾 ()<br />         局_结果Json ＝ 局_结果Json ＋ “}”<br />         加入成员 (参_返回Json, 局_结果Json)<br />         到下一行 (局_记录集句柄)<br />     .计次循环尾 ()<br />     释放记录集 (局_记录集句柄)<br /> .默认<br />     释放记录集 (取记录集 (集_Mysql句柄))  ' '释放记录集<br /> .判断结束<br /> <br /> <br /> 临界_退出 (集_许可证)<br /> 返回 (局_返回)

xiaosongle

谢谢分享

wgqxj

谢谢分享

kingcyl

感谢分享

aa583

66666666666666666666666666666666666666

dxp04

谢谢分享

小子轩

谢谢分享

李有才

asdsadsadsadsadsad sad

李有才

sadasdsad sad

wgqxj

谢谢分享

704910100

学习下