员工考勤年报源码

员工考勤年报源码，高级表格打印模块，演示了高级表格打印功能

@易语言数据库源码

.版本 2
.支持库 eGrid

.子程序 读取员工
.参数 条件, 文本型, 可空
.局部变量 sql, 文本型
.局部变量 记录集

高级表格1.行数 ＝ 1
.如果 (是否为空 (条件))
    sql ＝ “select ID,编号,姓名,员工类别,部门名称 from 员工列表 where 状态='在职' order by ID”
.否则
    sql ＝ “select ID,编号,姓名,员工类别,部门名称 from 员工列表 where 状态='在职' ” ＋ 条件 ＋ “ order by ID”
.如果结束
记录集 ＝ _启动窗口.外部数据库.查询 (sql)
_启动窗口.外部数据库.到首记录 (记录集)
.判断循环首 (取反 (_启动窗口.外部数据库.尾记录后 (记录集)))
    高级表格1.插入行 (, )
    高级表格1.置数据 (高级表格1.行数 － 1, 0, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 1)))
    高级表格1.置数据 (高级表格1.行数 － 1, 1, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 2)))
    高级表格1.置数据 (高级表格1.行数 － 1, 2, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 3)))
    高级表格1.置数据 (高级表格1.行数 － 1, 3, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 4)))
    高级表格1.置数据 (高级表格1.行数 － 1, 4, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 5)))
    _启动窗口.外部数据库.到后一记录 (记录集)
.判断循环尾 ()
_启动窗口.外部数据库.关闭记录集 (记录集)
高级表格1.置只读方式 (0, 0, 高级表格1.行数 － 1, 高级表格1.列数 － 1, 真)