.版本 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, , )
.如果结束