sqlite数据库例程，创建插入清空删除

.如果 (sqlite.打开 (取运行目录 () ＋ “\” ＋ 创建的库名 ＋ “.DB”, 假))
sqlite.清空表 (创建的表名)
调试输出 (“清空后”)
调试输出 (sqlite.取表内容 (创建的表名, 假))
.否则
调试输出 (“数据库不存在”)

.如果 (sqlite.打开 (取运行目录 () ＋ “\” ＋ “testone.DB”, 真))
.计次循环首 (超级列表框1.取列数 (), 计次)
调试输出 (“次数” ＋ 到文本 (计次))
调试输出 (超级列表框1.取列标题 (计次 － 1))
加入字段 (字段, 超级列表框1.取列标题 (计次 － 1), 10, 10)
.计次循环尾 ()
.如果 (sqlite.表是否存在 (创建的表名) ＝ 假)
.如果 (sqlite.创建表 (创建的表名, 字段))
调试输出 (“创建表成功”)
可以插入 ＝ 真
.否则
可以插入 ＝ 假
调试输出 (“创建表失败”)
.如果结束

.否则
可以插入 ＝ 真
.如果结束
调试输出 (“创建表成功”)

.如果 (sqlite.打开 (取运行目录 () ＋ “\” ＋ 创建的库名 ＋ “.DB”, 假))
.如果 (sqlite.表是否存在 (编辑框2.内容))
调试输出 (“可以插入”)
.如果 (sql.打开 (创建的表名, sqlite))
.计次循环首 (超级列表框1.取表项数 (), 计次)
.如果 (sql.插入 ())
sql.写字段值 (超级列表框1.取列标题 (0), 超级列表框1.取标题 (计次 － 1, 0))
sql.写字段值 (超级列表框1.取列标题 (1), 超级列表框1.取标题 (计次 － 1, 1))
.如果 (sql.提交 ())
调试输出 (“插入成功”)
.否则
调试输出 (“插入失败”)