ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 213188|回复: 484

[原创] 职员考勤系统+工薪结算+收银机对账+飞信接口通讯

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2011-7-21 02:09 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖已被收录到知识树中,索引项:模板和开源系统
本帖最后由 daley 于 2012-2-13 13:11 编辑

[原创与分享]

说明:本窗体的用处:职员考勤系统+工薪结算+收银机对账+飞信接口通讯+多用户登陆权限(工作表权限+窗体按钮权限)

职员考勤:本窗体的方法虽不是很智能,但是对环保还是有一定的意义,最起码节省了考勤钟和考勤纸。

工薪结算:抛弃传统落后的工资条形式,改为直接通过飞信的形式发送,当然发短信是通过本窗体飞信平台提供免费的。

POS 收银机对账:有部分银行发行的收银机存在漏收款的问题发生,当然不可能每天前往银行去对账,查询本机的金额核对POS机的余额更准确省事。

飞信系统:灵活发挥飞信通讯平台的报表运用,补充官方系统的界面限制性不足,我的信息我做主,引用更加个性化。

多用户登陆权限:可以由管理员增加N位用户,每个用户对象单独关联工作表可视权限、窗体任一按钮屏蔽权限。


文件中大部分代码均由山菊花版主所指导,在此十分感谢山菊花版主一直以来提供宝贵的代码资源。

飞信系统函数及飞信类模块,由著名的“脚本先生”(英文名:demon)编译提供封装类,在此同样表示衷心的感谢!!  原帖出处网址:http://demon.tw/my-work/vbsfetion.html


不包含考勤系统等窗体的飞信窗体(单一或群发):http://club.excelhome.net/thread-745128-1-1.html

说明:

飞信发送(飞信/信息)的对象必须为(才有效):已经添加成为好友的对象
因为这样可以避免一些发广告的“垃圾信息”满天飞!!

文本中包含该符号:
%  则信息发送失败
+  则被过滤(替换)不显示到对方信息中

禁止利用本飞信类进行发送一切违反国家安全和公共安全性的相关活动!!


出于各个公司或单位部门的计算工薪方式不同,所以本窗体中所示的代码仅作为参考示例,实际按自己需要再行修改,“休息”与“休假”的概念略有不同,国营化公司或单位,星期六和星期天休假中(包括法定节假日等),同样按正常上班方式计算工薪,但是个休性经营却不可能允许的。

为方便“家友”查看相关的代码,本窗体公开所有的源代码,工程未设置密码。


转换格式后的:店务管理系统-(97-2003)可能会出现相关函数不兼容问题,建议下载2010格式兼容包使用。

用户名:管理员      密码:admin
用户名:Excel   密码:home


2012年01月21日更新上传(工薪系统尚未完善,修改中!!),修正系统大多数简化、Bug错误忽略。
键盘输入事件:屏蔽相关不需要的按键,例如:
手机号码段(限制输入:13、15、18开头)
数字状态(仅限输入0~9)
金额状态(仅限输入0~9、“.”,屏蔽输入“00”)
时期状态:(年份仅限介于1980~2999年间,当2月份有29天则9可输入,月有31天则可输入,否则屏蔽。小时介于0-23区间,分钟介于0-59区间,秒介于0-60区间(有60秒的存在))
店务管理系统-2010.rar (1.63 MB, 下载次数: 10507)
店务管理系统-97-2003.rar (1.08 MB, 下载次数: 6441)



日期控件.rar

289.31 KB, 下载次数: 10002

评分

4

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-7-21 02:21 | 显示全部楼层
在运行本窗体之前,必须先安装或加载以下相关的步骤:

系统文件在:Win 7系统  OFFICE 2010环境中创建。

1、安装日期控件包:MSCOMCT2.OCX

在XP系统下,直接打开运行即可:运行注册控件ocx.bat

在WIn 7系统下,先将日期控件包复制到这个目录:C:\Windows\System32
然后再:右键>以管理员身份运行



2、加载系统自带的正则式表达库
   
   Microsoft VBScript Regular Expressions 5.5


3、加载系统的列表控件库:Microsoft ListView Control


    对于本例子中的代码有不足之处,还望回帖说明,以便纠正。


[ 本帖最后由 daley 于 2011-7-22 19:43 编辑 ]
右键-运行日期控件.jpg
正则式表达库.jpg
001.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-7-21 02:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 daley 于 2012-1-27 15:25 编辑

窗体中各界面截图:

登陆窗体.jpg
操作前台.jpg
查询系统.jpg
飞信系统.jpg 飞信系统02.jpg
工薪系统01.jpg 工薪系统02.jpg
奖罚补贷01.jpg 奖罚补贷02.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-7-21 02:28 | 显示全部楼层
本帖最后由 daley 于 2012-1-27 15:25 编辑


窗体中各界面截图:

职员信息.jpg
用户管理01.jpg 用户管理02.jpg 用户管理03.jpg

往来管理.jpg
通讯录.jpg
授权考勤01.jpg 授权考勤02.jpg
商户信息.jpg
客户信息.jpg
考勤01.jpg 考勤02.jpg 考勤03.jpg 考勤04.jpg 考勤05.jpg

消费卡管理系统.jpg

TA的精华主题

TA的得分主题

发表于 2011-7-21 10:04 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-7-21 11:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
太高了,我还是学些简单点的算了,1年以后再回来看

TA的精华主题

TA的得分主题

发表于 2011-7-21 12:25 | 显示全部楼层

回复 5楼 daley 的帖子

谢谢楼主,让我们分享您的大作。我用的是XP系统,2003的EXCEL,但启动你的程序没有显示登陆窗体,出现找不到工程和库的提示。不知道是什么原因。


按照2楼的说明方法,第一先安装控件包(然后注册控件),第二加载正则式表达库。

[ 本帖最后由 daley 于 2011-7-21 12:43 编辑 ]
0721.jpg

TA的精华主题

TA的得分主题

发表于 2011-7-21 12:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

回复 1楼 daley 的帖子

请问版主有没有2003的EXCEL的版本啊


到官方去下载个文件格式兼容包就行了,试试:

http://www.microsoft.com/downloa ... e-8f43-c6bb74cd1466

[ 本帖最后由 daley 于 2011-7-21 12:46 编辑 ]

TA的精华主题

TA的得分主题

发表于 2011-7-21 12:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-7-21 13:03 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
不是要重装,是你要先加载。

版主的大作么?牛啊。收藏,学习中。又学习一种方法
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-26 01:44 , Processed in 0.062378 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表