Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
![]() | 主题:Access专业工资条打印-高手之路 听课人数:85人 和 93人 |
![]() | 主讲:王宇虹 演讲时间:2014-07-16 15:30 至 2014-07-16 16:30 2014-07-09 15:30 至 2014-07-09 16:30 |
![]() | 讲课内容简介: Access培训报名: http://www.office-cn.net/thread-118946-1-1.html |
本节课主要讲解工资条的打印方式,其中涉及到很多知识点。包括对Excel 对象操作源码(可应用到其它系统),非常方便地挑选字段,自动生成Excel工资条。同时也可以套用excel模板进行到处处理。 | |
培训优势:使用新版Access2013+思维导图模式+Access源码剖析+在线课堂+PPT课件 培训 | |
培训目标:让你 听得懂 学得会 记得住 用得上 要求:有一定的Access 或 VBA的基础 |
Access专业工资条打印 |
|
|
|
|
|
|
|
|
工资系统
工资条打印
其它导出到Excel需求
单据打印
导出单据格式到Excel
其它报表导出
导出报表到Excel
经典源码剖析系列 专业工资条打印 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搜索: 搜索服务)