公司工资管理系统软件附超级列表框打印模块

易语言例程还使用到易语言EXCEL2000支持库,易语言操作系统界面功能支持库，XP风格界面支持库，易语言模块超级列表框打印.ec，智能换肤模块.ec。

全局_背景颜色 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\sysset.ini”, “系统默认”, “背景颜色”, ))
局部_图片地址 ＝ 读配置项 (取运行目录 () ＋ “\sysset.ini”, “系统默认”, “背景图片”, )
.判断开始 (文件是否存在 (局部_图片地址) ＝ 假)
信息框 (“背景图片没有找到，请重新选择。”, #信息图标, )
载入 (窗口_换肤, , 真)
.默认
集_背景图片 ＝ 读入文件 (局部_图片地址)
.判断结束
XP风格 (1)
全局_外部数据库 ＝ 外部数据库1
全局_数据库 ＝ 取当前目录 () ＋ #常量_数据库
.如果真 (文件是否存在 (全局_数据库) ＝ 假)
信息框 (“数据库文件不存在，打开数据库失败！”, #错误图标, )
结束 ()
.如果真结束
.如果真 (全局_外部数据库.打开MDB数据库 (全局_数据库, , , , ) ＝ 假)
信息框 (“本地数据库打开失败！”, #错误图标, )
结束 ()
.如果真结束
窗口句柄 ＝ 取窗口句柄 () ' 注意：不要设置“随意移动=真”
智能换肤.应用皮肤 (窗口句柄, , , 真, 真, 真, 真, 真)
智能换肤.应用控件皮肤 () ' 对子控件应用皮肤效果(按钮、编辑框等)
智能换肤.置客户区底色 (全局_背景颜色)
智能换肤.事件_菜单按钮被点击 (窗口句柄, &菜单按钮被点击)
智能换肤.事件_帮助按钮被点击 (窗口句柄, &帮助按钮被点击)
智能换肤.设置图片皮肤 (集_背景图片)
' 智能换肤.设置颜色皮肤 (全局_背景颜色)
智能换肤.置状态栏文本 (窗口句柄, “简单工资工具：简化计算工资步骤”) ' 调试时无效
' ------------------------------------------------
载入 (窗口_主界面, , 假) ' 这里我载入3个子窗口当选择夹
' 载入 (窗口_职工管理_主界面, , 假) ' 需要注意的是这些窗口都已设置可视为假
' 载入 (窗口_参数管理, , 假) ' 不需要“置父窗口”等操作，模块会自动处理
' ------------------------------------------------
智能换肤.添加选择夹 (窗口句柄, “工资计算”, #图片2, 窗口_主界面.取窗口句柄 ())
' 智能换肤.添加选择夹 (窗口句柄, “工资参数”, #图片3, 窗口_参数管理.取窗口句柄 ())
智能换肤.添加选择夹 (窗口句柄, “工资参数”, #图片3, 0, &参数管理)
智能换肤.添加选择夹 (窗口句柄, “工资打印”, #图片5, 0, &工资打印) ' 这个未指定句柄
智能换肤.添加选择夹 (窗口句柄, “导出数据”, #图片4, 0, &导出数据)
智能换肤.添加选择夹 (窗口句柄, “生成对帐”, #图片6, 0, &生成对帐)
智能换肤.添加选择夹 (窗口句柄, “工资初始化”, #图片1, 0, &工资初始化)