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

daley · 发表于 2011-7-21 02:09

本帖最后由 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, 下载次数: 10506)

店务管理系统-97-2003.rar (1.08 MB, 下载次数: 6441)

daley · 发表于 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 编辑 ]

daley · 发表于 2011-7-21 02:26

本帖最后由 daley 于 2012-1-27 15:25 编辑

窗体中各界面截图：

登陆窗体.jpg

daley · 发表于 2011-7-21 02:28

本帖最后由 daley 于 2012-1-27 15:25 编辑

窗体中各界面截图：

职员信息.jpg

望天打卦 · 发表于 2011-7-21 10:04

刚刚开始学习vba 这是vb语言写的吧

xing1118 · 发表于 2011-7-21 11:35

太高了，我还是学些简单点的算了，1年以后再回来看

lhsh36183 · 发表于 2011-7-21 12:25

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

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

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

zslyyy · 发表于 2011-7-21 12:43

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

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

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

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

吴民光 · 发表于 2011-7-21 12:49

我的2003用不了，看了要重新安2010了。

chuxinnan · 发表于 2011-7-21 13:03

不是要重装，是你要先加载。

版主的大作么？牛啊。收藏，学习中。又学习一种方法

		自动登录	找回密码
密码			免费注册

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

评分

开眼界了

回复 5楼 daley 的帖子

回复 1楼 daley 的帖子