我看过易语言的源代码
感觉和 和风是一样,简直就是多此一举
下面是那个源代码,我觉的真的没什么意思
启动窗口.移动 (20, 20, 取屏幕宽度 () - 40, 取屏幕高度 () - 200)
查询显示器1.移动 (10, 40, _启动窗口.宽度 - 28, _启动窗口.高度 - 80)
主报表.从文件加载报表 (取运行目录 () + “\库存差异报表1.grf”)
主报表.挂接事件 (报表事件1)
查询显示器1.设置关联报表 (主报表)
主报表.获取明细网格 ().获取数据集 ().忽略数据绑定 = 假
查询显示器1.启动 ()
.子程序 _报表事件1_请求记录数据
.参数 pEof, 逻辑型, 参考
.局部变量 库存记录, 整数型, , , 从库存表中获取数据数
.局部变量 未发记录, 整数型, , , 从登记表中获取未发记录数
.局部变量 明细记录, 整数型, , "100", 从计划明细表中获取数据
.局部变量 M, 整数型, , , 标题列数索引
.局部变量 货号, 文本型
.局部变量 行数, 整数型
.局部变量 货品号, 文本型
.局部变量 单据号, 文本型, , "100"
.局部变量 单位名, 文本型, , "100"
.局部变量 N, 整数型
外部数据库1.打开MDB数据库 (取运行目录 () + “\xshk.mdb”, , , , )
未发记录 = 外部数据库1.查询 (“select 单据编号,单位名称 from 计划登记表 where 标记='” + “未发” + “'order by 单据编号 asc”)
主报表.获取明细网格 ().锁定列数 = 6
外部数据库1.到首记录 (未发记录)
.计次循环首 (10, M)
.如果真 (外部数据库1.尾记录后 (未发记录) = 假)
主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (M).文字 = 到文本 (外部数据库1.读 (未发记录, 1))
主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (M).获取下级标题格集合 ().获取项目 (1).文字 = 到文本 (外部数据库1.读 (未发记录, 2))
外部数据库1.到后一记录 (未发记录)
.如果真结束
.计次循环尾 ()
外部数据库1.关闭记录集 (未发记录)
库存记录 = 外部数据库1.查询 (“select 货品编号,货品名称,规格,单位,数量 from 当前库存表 order by 货品编号 asc”)
外部数据库1.到首记录 (库存记录)
.判断循环首 (外部数据库1.尾记录后 (库存记录) = 假)
主报表.获取明细网格 ().获取数据集 ().追加 ()
主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (1).字符值 = 外部数据库1.读 (库存记录, 1)
主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (2).字符值 = 外部数据库1.读 (库存记录, 2)
主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (3).字符值 = 外部数据库1.读 (库存记录, 3)
主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (4).字符值 = 外部数据库1.读 (库存记录, 4)
主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (5).字符值 = 到文本 (外部数据库1.读 (库存记录, 5))
货号 = 外部数据库1.读 (库存记录, 2)
单据号 [1] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (1).文字
单位名 [1] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (1).获取下级标题格集合 ().获取项目 (1).文字
明细记录 [1] = 外部数据库1.查询 (“select 数量 from 计划明细表 where 单据编号='” + 单据号 [1] + “' and 单位名称='” + 单位名 [1] + “' and 货品名称='” + 货号 + “'”)
.如果真 (明细记录 [1] ≠ 0)
外部数据库1.到首记录 (明细记录 [1])
.判断循环首 (外部数据库1.尾记录后 (明细记录 [1]) = 假)
主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (8).字符值 = 到文本 (外部数据库1.读 (明细记录 [1], 1))
外部数据库1.到后一记录 (明细记录 [1])
.判断循环尾 ()
.如果真结束
单据号 [2] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (2).文字
单位名 [2] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (2).获取下级标题格集合 ().获取项目 (1).文字
明细记录 [2] = 外部数据库1.查询 (“select 数量 from 计划明细表 where 单据编号='” + 单据号 [2] + “' and 单位名称='” + 单位名 [2] + “' and 货品名称='” + 货号 + “'”)
.如果真 (明细记录 [2] ≠ 0)
外部数据库1.到首记录 (明细记录 [2])
.判断循环首 (外部数据库1.尾记录后 (明细记录 [2]) = 假)
主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (9).字符值 = 到文本 (外部数据库1.读 (明细记录 [2], 1))
外部数据库1.到后一记录 (明细记录 [2])
.判断循环尾 ()
.如果真结束
' 解除屏蔽下面的代码试试
' 单据号 [3] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (3).文字
' 单位名 [3] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (3).获取下级标题格集合 ().获取项目 (1).文字
' 明细记录 [3] = 外部数据库1.查询 (“select 数量 from 计划明细表 where 单据编号='” + 单据号 [3] + “' and 单位名称='” + 单位名 [3] + “' and 货品名称='” + 货号 + “'”)
.' 如果真 (明细记录 [3] ≠ 0)
' 外部数据库1.到首记录 (明细记录 [3])
.' 判断循环首 (外部数据库1.尾记录后 (明细记录 [3]) = 假)
' 主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (10).字符值 = 到文本 (外部数据库1.读 (明细记录 [3], 1))
' 外部数据库1.到后一记录 (明细记录 [3])
.' 判断循环尾 ()
.如果真结束
' 单据号 [4] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (4).文字
' 单位名 [4] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (4).获取下级标题格集合 ().获取项目 (1).文字
' 明细记录 [4] = 外部数据库1.查询 (“select 数量 from 计划明细表 where 单据编号='” + 单据号 [4] + “' and 单位名称='” + 单位名 [4] + “' and 货品名称='” + 货号 + “'”)
.' 如果真 (明细记录 [4] ≠ 0)
' 外部数据库1.到首记录 (明细记录 [4])
.' 判断循环首 (外部数据库1.尾记录后 (明细记录 [4]) = 假)
' 主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (11).字符值 = 到文本 (外部数据库1.读 (明细记录 [4], 1))
' 外部数据库1.到后一记录 (明细记录 [4])
.' 判断循环尾 ()
.如果真结束
' 单据号 [5] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (5).文字
' 单位名 [5] = 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (5).获取下级标题格集合 ().获取项目 (1).文字
' 明细记录 [5] = 外部数据库1.查询 (“select 数量 from 计划明细表 where 单据编号='” + 单据号 [5] + “' and 单位名称='” + 单位名 [5] + “' and 货品名称='” + 货号 + “'”)
.' 如果真 (明细记录 [5] ≠ 0)
' 外部数据库1.到首记录 (明细记录 [5])
.' 判断循环首 (外部数据库1.尾记录后 (明细记录 [5]) = 假)
' 主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (12).字符值 = 到文本 (外部数据库1.读 (明细记录 [5], 1))
' 外部数据库1.到后一记录 (明细记录 [5])
.' 判断循环尾 ()
.如果真结束
主报表.获取明细网格 ().获取数据集 ().提交 ()
外部数据库1.到后一记录 (库存记录)
.判断循环尾 ()
外部数据库1.关闭记录集 (库存记录)
外部数据库1.关闭记录集 ()
.变量循环首 (1, 10, 1, M)
.如果真 (主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (M).文字 = “”)
主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (7).获取下级标题格集合 ().获取项目 (M).可见性 = 假
.如果真结束
.变量循环尾 ()
.子程序 _按钮1_被单击
查询显示器1.刷新 ()
.子程序 _按钮2_被单击
主报表.打印预览 (真)