Access专业工资条打印-Access经典源码剖析

  经典源码剖析系列 专业工资条打印 Office中国-王宇虹

1 应用场景

1.1 工资系统

1.2 批量打印

1.3 贴纸打印

2 导出到Excel源码剖析

2.1 没有查询结果需要打印

2.1.1 提示用户，没有数据

2.1.2 直接退出

2.2 让用户输入打印的日期

2.2.1 默认当天时间

2.3 让用户选择是否打印序号

2.3.1 第1列就是序号列

2.4 对EXCEL对象开始操作

2.4.1 用非绑定方式判断Excel

2.4.1.1 如果客户的EXCEL版本低于你的版本

2.4.2 On error resume next

2.4.2.1 遇到错误都跳过去

2.4.3 先获取已经打开的EXCEL对象

2.4.3.1 直接取已经打开的EXCEL对象

2.4.4 如果没有打开，则创建新的EXCEL对象

2.4.4.1 Set xlsApp = CreateObject("Excel.Application")

2.4.5 xlsApp.Visible = False

2.4.5.1 加快处理速度

2.4.5.2 避免鼠标不小心点进去

2.4.6 打开一个xlsWBook，指定文件名

2.4.6.1 DIR判断文件 是否存在

2.4.7 取取当前激活的工作表ActiveSheet

2.4.8 如果以上操作出错,退出

2.4.8.1 请先安装Excel

2.4.8.2 并确保PersonTemplateNm.xls模板文件存在

2.4.9 设置所选字段的列宽

2.4.9.1 按照Access窗体字段的宽度来设置

2.4.9.1.1 gFunTwipsToPixels

2.4.9.2 所见即所得

2.4.10 循环工资表的数据

2.4.10.1 tblHrmSalary

2.4.10.2 先填写每个员工的标题行

2.4.10.3 再填写员工人数据内容行

2.4.10.4 再添加一个分隔行

2.4.11 增加汇总行

2.4.11.1 合计 平均

2.4.11.2 设置字体 粗体

2.4.12 xlsApp.Visible = True

2.4.12.1 自动另存为一个新的EXCEL文件

3 设计窗体控件布局

3.1 使用数据表

3.2 需要的工资项目字段

4 选择字段窗体 源码剖析

4.1 获取窗体所有的字段及字段标题

4.1.1 InitListBox

4.1.1.1 '关闭窗体的刷新

4.1.1.2 先清除 可选字段表 与已选字段表的内容

4.1.1.3 循环窗体上所有控件

4.1.1.3.1 文本框 组合框  复选框

4.1.1.3.2 而且是在 主体 节

4.1.1.3.3 而且是可见

4.1.1.4 取出需要的内容

4.1.1.4.1 控件名称

4.1.1.4.2 控件绑定的字段名

4.1.1.4.3 控件排列顺序

4.1.1.4.4 标题

4.1.1.4.4.1 Controls(0).Caption

4.1.1.4.5 控件显示的宽度

4.1.1.5 把取到的内容写到 可选字段表

4.1.1.6 把上一次已选字段列出来

4.1.1.7 '打开窗体的刷新

4.2 添加字段

4.2.1 取已选字段表最大的顺序号

4.2.1.1 +1

4.2.2 循环所有的挑选字段

4.2.2.1 多选

4.2.2.1.1 判断ItemsSelected

4.2.2.2 逐条插入到已选字段表

4.2.2.3 从可选字段表中删除

4.2.2.4 可选状态变成否

4.2.3 刷新两个列表框

4.2.3.1 与更新后表的内容保持一致

4.2.3.2 lstSel.Requery

4.2.3.3 lstAll Requery

4.3 移除字段

4.3.1 添加字段的反向过程

4.4 添加所有字段

4.4.1 循环所有记录

4.4.1.1 For i = 0 To iCnt - 1 Step 1

4.5 移除所有字段

4.5.1 添加所有字段的反向过和

4.6 PUB_List表保存就是我们挑选的字段清单

4.7 附加知识

4.7.1 CurrentDb

4.7.2 CodeDb

  相关链接：

1. 直接超值购买：

       点击购买：   

       包含：Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件    绝对低价超值

2. 购买前咨询：

    在线咨询QQ：1918333016

    企业热线QQ：4008553990 （使用QQ搜索： 搜索服务）