ORACLE数据库查询报表软件

.如果真 (连接字符串 ＝ “”)
连接字符串 ＝ “DRIVER={Microsoft ODBC for Oracle};UID=dbusrmkt;PWD=futuremkt;SERVER=MKT01;”
.如果真结束
lj ＝ 外部数据库.打开 (连接字符串, , )
调试输出 (1, lj)
.如果真 (lj ＝ 假)
信息框 (“数据库连接失败！”, 4096, , )
结束 ()
.如果真结束
信息框 (“数据库连接成功”, 4096, , )

局部_导出头 ＝ { “供应商”, “柜组”, “品牌”, “条码”, “商品名称”, “销售数量”, “笔数”, “售价金额”, “含税销售收入”, “净收入”, “含税销售成本”, “含税毛利”, “毛利率”, “扣率”, “总扣” }
.计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
Excel工作簿.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (1)
Excel工作簿.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (1)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 局部_导出头 [局部_计次1]
.计次循环尾 ()
窗口_导出.进度条1.最大位置 ＝ 超级列表框.取表项数 ()
.计次循环首 (超级列表框.取表项数 (), 局部_计次)
处理事件 ()
.计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
Excel工作簿.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 超级列表框.取标题 (局部_计次 － 1, 局部_计次1 － 1)
.计次循环尾 ()
窗口_导出.进度条1.位置 ＝ 窗口_导出.进度条1.位置 ＋ 1
.计次循环尾 ()
.如果真 (是否已创建 (窗口_导出))
窗口_导出.销毁 ()
.如果真结束
Excel工作簿.保存 (通用对话框_保存.文件名)
_启动窗口.Excel工作簿.关闭 ()
_启动窗口.Excel工作簿.释放 ()
_启动窗口.Excel程序.退出 ()
_启动窗口.Excel程序.释放 ()
信息框 (“导出成功!”, #信息图标, , )
执行 (4, 通用对话框_保存.文件名, , , )