易语言连接excel

.版本 2
.支持库 eDB
.支持库 iext

.局部变量 连接文本, 文本型
.局部变量 文件地址, 文本型
.局部变量 SQL语句, 文本型
.局部变量 循环次数, 整数型
.局部变量 循环计次, 整数型
.局部变量 文本变量, 文本型, , "6"
.局部变量 表项索引, 整数型
.局部变量 打开SQL, 逻辑型
.局部变量 有效存货条目, 整数型
.局部变量 顾客条目, 整数型
.局部变量 总存货, 整数型
.局部变量 表显总存货, 整数型
.局部变量 临时信息, 文本型

.' 如果真 (通用对话框1.打开 ())
' 编辑框1.内容 ＝ 通用对话框1.文件名
.如果真结束
文件地址 ＝ 编辑框1.内容
' (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” ＋ 文件地址 ＋ “;DefaultDir=” ＋ 文件地址 ＋ “;”)
' (“ODBC;DBQ=” ＋ 文件地址 ＋ “;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;”)
.如果 (数据库连接1.连接 (“Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=790;Dbq=” ＋ 文件地址 ＋ “;”) ＝ 真)
' 信息框 (“数据库接成功！”, 0, , )
.如果真 (记录集1.置连接 (数据库连接1) ＝ 假)
返回 ()
.如果真结束
' 信息框 (“记录集连接成功！”, 0, , )
SQL语句 ＝ “select * from [月存取货$]”
打开SQL ＝ 记录集1.打开 (SQL语句, #SQL语句, )
.如果 (打开SQL ＝ 真)
循环次数 ＝ 记录集1.记录数量
有效存货条目 ＝ 0
顾客条目 ＝ 0
总存货 ＝ 0
表显总存货 ＝ 0

.计次循环首 (循环次数, 循环计次)
.如果 (循环计次 ＞ 3)
记录集1.读文本 (3, 文本变量 [1])
记录集1.读文本 (4, 文本变量 [2])
记录集1.读文本 (24, 文本变量 [3])
记录集1.读文本 (0, 文本变量 [4])
.如果真 (文本变量 [4] ＝ “合计”)
表显总存货 ＝ 到整数 (文本变量 [3])
.如果真结束
文本变量 [3] ＝ 到文本 (到整数 (文本变量 [3]))
.如果真 (文本变量 [1] ≠ “” 且 文本变量 [2] ≠ “” 且 文本变量 [3] ≠ “0”)
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 0, 文本变量 [1])
超级列表框1.置标题 (表项索引, 1, 文本变量 [2])
超级列表框1.置标题 (表项索引, 2, 文本变量 [3])
总存货 ＝ 总存货 ＋ 到整数 (文本变量 [3])
有效存货条目 ＝ 有效存货条目 ＋ 1

.如果真结束

循环计次 ＝ 循环计次 ＋ 1
顾客条目 ＝ 顾客条目 ＋ 1
记录集1.到下一条 ()
.否则
循环计次 ＝ 循环计次 ＋ 1
记录集1.到下一条 ()
.如果结束

.计次循环尾 ()
.如果 (表显总存货 ＝ 总存货)
临时信息 ＝ “成功！表里存货与计算出的总存货一致！”
.否则
临时信息 ＝ “失败！表里存货与计算出的总存货不一致！”
.如果结束
信息框 (“有效条目：” ＋ 到文本 (有效存货条目) ＋ #换行符 ＋ “总存货：” ＋ 到文本 (总存货) ＋ #换行符 ＋ 临时信息, 0, , )
.否则
信息框 (“没有找到月存取货表！”, 0, , )
.如果结束

.否则
信息框 (“连接失败”, 0, , )
.如果结束