Linux练习简单考试系统软件

.计次循环首 (参数_超级列表框.取表项数 (), 局部_列数)
局部_记录内容 ＝ “”
.计次循环首 (参数_超级列表框.取列数 (), 局部_行数)
局部_记录内容 ＝ 局部_记录内容 ＋ “'” ＋ 到文本 (参数_超级列表框.取标题 (局部_列数 － 1, 局部_行数 － 1)) ＋ “',” ' 局部_列数是ID列（即数据库第一列），-1表示导出时不要ID列，
.计次循环尾 ()
局部_记录内容 ＝ 取文本左边 (局部_记录内容, 取文本长度 (局部_记录内容) － 1)
局部_sql ＝ “insert into Temp (” ＋ 局部_字段名 ＋ “) values (” ＋ 局部_记录内容 ＋ “)”
.如果真 (取反 (全局_数据库连接临时.执行SQL (局部_sql)))
全局_数据库连接临时.回滚事务 ()
信息框 (“导入到临时数据表数据失败！”, #警告图标, “失败”)
返回 ()
.如果真结束

.计次循环尾 ()
局部_sql ＝ “select * into [Excel 8.0;database=” ＋ 局部_Execl文件 ＋ “].” ＋ 选择 (是否为空 (参数_工作表名), “[Sheet1]”, 参数_工作表名) ＋ “ from Temp”
.如果真 (取反 (全局_数据库连接临时.执行SQL (局部_sql)))
全局_数据库连接临时.回滚事务 ()
信息框 (“导出Excel文件失败！”, #错误图标, “失败”)
返回 ()
.如果真结束
全局_数据库连接临时.保存事务 ()
全局_数据库连接临时.关闭 ()
.如果真 (取反 (是否为空 (参数_Excel程序)) 且 取反 (是否为空 (参数_Excel工作簿)))
信息框 (“导出成功”, 0, “提示”, )
参数_Excel工作簿.关闭 ()
.如果真结束