多线程PCQQ自动售卡机器人源码sqlite应用

功能介绍：

1.支持自动回复发货

2.支持管理员回复添加商品

3.强大的多线程处理，完整的查询功能、

4.支持查询余额

5.支持查询商品，提商品，买商品。

.如果 (DB.打开 (All_dbPath, ))
.判断开始 (List_Goods.查找表项 (Edit_GName.内容, , 真, 1) ＝ -1)
TSQL ＝ “INSERT INTO 商品列表(商品名称,商品价格,商品备注) VALUES ('” ＋ Edit_GName.内容 ＋ “','” ＋ Edit_GPrice.内容 ＋ “','” ＋ Edit_GMark.内容 ＋ “')”
.如果 (DB.执行SQL语句 (TSQL))
信息框 (“恭喜您，~添加商品成功”, #信息图标, “提示”, )
.否则
信息框 (“~添加商品失败”, #错误图标, “错误”, )
.如果结束

.默认
TSQL ＝ “UPDATE 商品列表 SET 商品价格='” ＋ Edit_GPrice.内容 ＋ “',商品备注='” ＋ Edit_GMark.内容 ＋ “' WHERE 商品名称='” ＋ Edit_GName.内容 ＋ “'”
.如果 (DB.执行SQL语句 (TSQL))
信息框 (“恭喜您，~更新商品成功”, #信息图标, “提示”, )
.否则
信息框 (“~更新商品失败”, #错误图标, “错误”, )
.如果结束

.判断结束
调试输出 (“TSQL:” ＋ TSQL)
' INSERT INTO 商品列表 VALUES (值1, 值2,....)
' INSERT INTO 商品列表 VALUES ('百度云1','1.231','呵呵呵')
.否则
信息框 (“连接SQLite数据库失败” ＋ #换行符 ＋ “连接路径：” ＋ All_dbPath ＋ #换行符 ＋ “请确认文件是否已经损坏？”, #错误图标, “错误”, )
.如果结束

DB.关闭 ()
Thread.Start (&Refresh_Goods)