.版本 2
.支持库 sqlite3
.支持库 mysql
.程序集 窗口程序集_启动窗口
.程序集变量 数据库连接句柄, 整数型
.程序集变量 mysql, Sqlite数据库
.程序集变量 table1, Sqlite表
.程序集变量 sql, 文本型
.程序集变量 要插入的记录数据, 要插入的数据类型
.子程序 _按钮_连接数据库_被单击
数据库连接句柄 ＝ 连接MySql (, “root”, “123”, “wang”, 3306)
.如果 (数据库连接句柄 ＝ 0)
信息框 (“数据库连接失败”, 0, , )
.否则
信息框 (“数据库连接成功”, 0, , )
.如果结束
.子程序 _按钮_插入biaoti_被单击
.局部变量 执行SQL语句的返回值逻辑, 逻辑型
要插入的记录数据.biaoti ＝ “ddd”
要插入的记录数据.Note ＝ “ddffg”
要插入的记录数据.neirong ＝ “hhhffghh”
要插入的记录数据.type ＝ 2
sql ＝ “insert into table2 (biaoti,Note,neirong,type) values('” ＋ 要插入的记录数据.biaoti ＋ “','” ＋ 要插入的记录数据.Note ＋ “','” ＋ 要插入的记录数据.neirong ＋ “','” ＋ 到文本 (要插入的记录数据.type) ＋ “)”
执行SQL语句的返回值逻辑 ＝ 执行SQL语句 (数据库连接句柄, sql)
.如果 (执行SQL语句的返回值逻辑 ＝ 假)
信息框 (“执行SQL语句失败”, 0, , )
.否则
信息框 (“执行SQL语句成功”, 0, , )
.如果结束