- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 边问边学,求代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2952)
-- 发布时间：2009/5/29 8:51:00
-- 边问边学,求代码
点击按钮"签到",则根据登录的用户名和当天系统日期来查找"姓名"和"日期"符合条件相对应的行,并定位到该行,然后调出"考勤表"窗口,这样"考勤表窗口"就显示的是该行的数据,当勾选对应的字段时,例如:勾选"上午上班"时,就把勾选时的系统时间(不含日期的长时间)填写入"上班时间",当勾选"上午下班"时,就把勾选时的系统时间(不含日期的长时间)填写入"下班时间".
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:考勤.table |
如果再配上摄像头和对应的软件来人像识别，只有用户名和图像对应的才能进入考勤就最好了，可惜我不知有什么样的软件可以和狐表相配套
[此贴子已经被作者于2009-5-29 9:18:07编辑过]
-- 发布时间：2009/5/29 12:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:考勤.table |
删除签到窗口,在项目事件中加了"除了是开发者,就加载当天及用户名的数据的"代码,并做了"上班时间"及"下班时间"的代码
-- 发布时间：2009/5/29 12:11:00
--
CheckBox的click中代码： 另外把烈属性中设为：longtime
Dim chk As WinForm.CheckBox
chk = Forms("考勤表").Controls("CheckBox1")
if chk.Checked = True then
currenttable.current("上午上班时间") = Date.now
end if
-- 发布时间：2009/5/29 18:19:00
--
应该是不错的东西，记号收下
-- 发布时间：2009/5/29 19:42:00
--
改进了一点，其他你参考着自己做吧：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:考勤 .table |