易语言连接ORACLE数据库查询报表
.版本 2
.支持库 spec
.支持库 iext3
.支持库 iext
.支持库 eExcel2000
.支持库 shell
.程序集 窗口程序集_富基管理窗口
.子程序 __启动窗口_创建完毕
.局部变量 连接字符串, 文本型
.局部变量 lj, 逻辑型
.如果真 (连接字符串 ＝ “”)
连接字符串 ＝ “DRIVER={Microsoft ODBC for Oracle};UID=dbusrmkt;PWD=futuremkt;SERVER=MKT01;”
.如果真结束
lj ＝ 外部数据库.打开 (连接字符串, , )
调试输出 (1, lj)
.如果真 (lj ＝ 假)
信息框 (“数据库连接失败！”, 4096, , )
结束 ()
.如果真结束
信息框 (“数据库连接成功”, 4096, , )
.子程序 _条码查询_被单击
线程_启动 (&查询)
.子程序 __启动窗口_尺寸被改变
高级选择夹1.宽度 ＝ _启动窗口.宽度
超级列表框.宽度 ＝ 高级选择夹1.宽度
分组框.宽度 ＝ _启动窗口.宽度
超级列表框.左边 ＝ 高级选择夹1.左边
高级选择夹1.高度 ＝ _启动窗口.高度 － 100
超级列表框.高度 ＝ 高级选择夹1.高度 － 100
.子程序 _按钮1_被单击
超级列表框.全部删除 ()
编辑框_供应商.内容 ＝ “”
编辑框_条码.内容 ＝ “”
.子程序 _导出_被单击
.局部变量 局部_计次1, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_导出头, 文本型, , "0"
通用对话框_保存.初始目录 ＝ 取运行目录 ()
通用对话框_保存.类型 ＝ 1
.如果真 (通用对话框_保存.打开 () ＝ 假)
返回 ()
.如果真结束
载入 (窗口_导出, _启动窗口, 假)
Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.激活工作簿 ()
Excel工作簿.表格序号 ＝ 1
局部_导出头 ＝ { “供应商”, “柜组”, “品牌”, “条码”, “商品名称”, “销售数量”, “笔数”, “售价金额”, “含税销售收入”, “净收入”, “含税销售成本”, “含税毛利”, “毛利率”, “扣率”, “总扣” }
.计次循环首 (取数组成员数 (局部_导出头), 局部_计次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, 通用对话框_保存.文件名, , , )
返回 ()
.子程序 查询
.局部变量 记录集句柄, 整数型
.局部变量 id, 文本型
.局部变量 供应商, 文本型
.局部变量 柜组, 文本型
.局部变量 品牌, 文本型
.局部变量 条码, 文本型
.局部变量 销售数量, 文本型
.局部变量 笔数, 文本型
.局部变量 售价金额, 文本型
.局部变量 含税销售收入, 文本型
.局部变量 净收入, 文本型
.局部变量 含税销售成本, 文本型
.局部变量 含税毛利, 文本型
.局部变量 扣率, 文本型
.局部变量 毛利率, 文本型
.局部变量 总扣, 文本型
.局部变量 经营方式, 文本型
.局部变量 电子券, 文本型
.局部变量 商品名称, 文本型
.局部变量 index, 整数型
.局部变量 sql, 文本型
.局部变量 sql1, 文本型
.局部变量 je, 文本型
.局部变量 开始日期, 文本型
.局部变量 结束日期, 文本型
.局部变量 rq, 文本型
条码查询.禁止 ＝ 真
开始日期 ＝ 时间_到文本 (日期框_开始.今天, 1, 1)
结束日期 ＝ 时间_到文本 (日期框_结束.今天, 1, 1)
供应商 ＝ 编辑框_供应商.内容
条码 ＝ 编辑框_条码.内容
调试输出 (开始日期, 结束日期, 供应商, 条码)
.如果真 (选择框1.选中)
sql1 ＝ “ to_char(SALEGOODSLIST.SGLDATE,'yyyy-MM-dd') between '” ＋ 开始日期 ＋ “' and '” ＋ 结束日期 ＋ “'”
rq ＝ “ to_char(view_sellpaygoods_payment.spdate,'yyyy-MM-dd') between '” ＋ 开始日期 ＋ “' and '” ＋ 结束日期 ＋ “'”
.如果真结束
.如果真 (供应商 ≠ “”)
.如果真 (sql1 ≠ “”)
sql1 ＝ sql1 ＋ “ and”
.如果真结束
sql1 ＝ sql ＋ “ SALEGOODSLIST.SGLSUPID='” ＋ 供应商 ＋ “' ”
.如果真结束
.如果真 (条码 ≠ “”)
.如果真 (sql1 ≠ “”)
sql1 ＝ sql1 ＋ “ and ”
.如果真结束
sql1 ＝ sql1 ＋ “ SALEGOODSLIST.SGLGDID='” ＋ 条码 ＋ “' ”
.如果真结束
.如果真 (sql1 ≠ “”)
sql1 ＝ sql1 ＋ “ and ”
.如果真结束
sql ＝ #SQL1 ＋ sql1 ＋ #SQL2 ＋ rq ＋ #SQL3
调试输出 (sql)
记录集句柄 ＝ 外部数据库.查询 (sql)
外部数据库.到首记录 (记录集句柄)
超级列表框.全部删除 ()
.判断循环首 (外部数据库.尾记录后 (记录集句柄) ＝ 假)
id ＝ 外部数据库.读 (记录集句柄, “GDID”)
供应商 ＝ 外部数据库.读 (记录集句柄, “SGLSUPID”)
柜组 ＝ 外部数据库.读 (记录集句柄, “SGLMFID”)
品牌 ＝ 外部数据库.读 (记录集句柄, “GBPPCODE”)
条码 ＝ 外部数据库.读 (记录集句柄, “SGLGDID”)
商品名称 ＝ 外部数据库.读 (记录集句柄, “GBCNAME”)
销售数量 ＝ 外部数据库.读 (记录集句柄, “JGLSL”)
笔数 ＝ 外部数据库.读 (记录集句柄, “BS”)
售价金额 ＝ 外部数据库.读 (记录集句柄, “JGLSJJE”)
含税销售收入 ＝ 外部数据库.读 (记录集句柄, “SGLXSSR”)
净收入 ＝ 外部数据库.读 (记录集句柄, “jsr”)
含税销售成本 ＝ 外部数据库.读 (记录集句柄, “SGLXSCB”)
含税毛利 ＝ 外部数据库.读 (记录集句柄, “ml”)
毛利率 ＝ 外部数据库.读 (记录集句柄, “mlv”)
扣率 ＝ 外部数据库.读 (记录集句柄, “SGLKL”)
总扣 ＝ 外部数据库.读 (记录集句柄, “SGLTOTZK”)
经营方式 ＝ 外部数据库.读 (记录集句柄, “SGLWMID”)
电子券 ＝ 外部数据库.读 (记录集句柄, “SGLGCERT”)
je ＝ 外部数据库.读 (记录集句柄, “XSJEJE”)
index ＝ 超级列表框.插入表项 (, , , , , )
超级列表框.置标题 (index, 0, 到文本 (index ＋ 1))
超级列表框.置标题 (index, 1, 供应商)
超级列表框.置标题 (index, 2, 柜组)
超级列表框.置标题 (index, 3, 品牌)
超级列表框.置标题 (index, 4, 条码)
超级列表框.置标题 (index, 5, 商品名称)
超级列表框.置标题 (index, 6, 销售数量)
超级列表框.置标题 (index, 7, 笔数)
超级列表框.置标题 (index, 8, 售价金额)
超级列表框.置标题 (index, 9, 含税销售收入)
超级列表框.置标题 (index, 10, 到文本 (到数值 (je)))
超级列表框.置标题 (index, 11, 含税销售成本)
超级列表框.置标题 (index, 12, 到文本 (到数值 (售价金额) － 到数值 (总扣) － 到数值 (含税销售成本)))
超级列表框.置标题 (index, 13, 到文本 ((到数值 (售价金额) － 到数值 (含税销售成本)) ÷ 到数值 (售价金额) × 100) ＋ “%”) ' 毛利率
超级列表框.置标题 (index, 14, 到文本 (到数值 (扣率) × 100) ＋ “%”)
超级列表框.置标题 (index, 15, 总扣)
超级列表框.置标题 (index, 16, 文本替换 (“”, 0, 0, “联营”))
超级列表框.置标题 (index, 17, 电子券)
超级列表框.置标题 (index, 18, je)
外部数据库.到后一记录 (记录集句柄)
.判断循环尾 ()
外部数据库.关闭记录集 (记录集句柄)
条码查询.禁止 ＝ 真 ＝ 假
.子程序 __启动窗口_将被销毁
外部数据库.关闭 ()