共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：边问边学,求代码
1楼
shixia 发表于：2009/5/29 8:51:00点击按钮"签到",则根据登录的用户名和当天系统日期来查找"姓名"和"日期"符合条件相对应的行,并定位到该行,然后调出"考勤表"窗口,这样"考勤表窗口"就显示的是该行的数据,当勾选对应的字段时,例如:勾选"上午上班"时,就把勾选时的系统时间(不含日期的长时间)填写入"上班时间",当勾选"上午下班"时,就把勾选时的系统时间(不含日期的长时间)填写入"下班时间".
如果再配上摄像头和对应的软件来人像识别，只有用户名和图像对应的才能进入考勤就最好了，可惜我不知有什么样的软件可以和狐表相配套
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:考勤.table |
如果再配上摄像头和对应的软件来人像识别，只有用户名和图像对应的才能进入考勤就最好了，可惜我不知有什么样的软件可以和狐表相配套
[此贴子已经被作者于2009-5-29 9:18:07编辑过]
2楼
yangming 发表于：2009/5/29 12:08:003楼
mr725 发表于：2009/5/29 12:11:00CheckBox的click中代码： 另外把烈属性中设为：longtime
Dim chk As WinForm.CheckBox
chk = Forms("考勤表").Controls("CheckBox1")
if chk.Checked = True then
currenttable.current("上午上班时间") = Date.now
end if
Dim chk As WinForm.CheckBox
chk = Forms("考勤表").Controls("CheckBox1")
if chk.Checked = True then
currenttable.current("上午上班时间") = Date.now
end if
4楼
hbfnmxb 发表于：2009/5/29 18:19:00应该是不错的东西，记号收下
5楼
mr725 发表于：2009/5/29 19:42:00
共5 条记录, 每页显示 10 条, 页签:
[1]