Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：如何根据作息时间表来判断登记事件及事件说明？


  共有3983人关注过本帖树形打印复制链接

主题：求助：如何根据作息时间表来判断登记事件及事件说明？
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		求助：如何根据作息时间表来判断登记事件及事件说明？  发帖心情 Post By：2014/6/3 20:04:00 [显示全部帖子]

求助：如何根据作息时间表来判断登记事件及事件说明？

当登记时间发生变动时候，开始判断作息时间表中的对应时间段，来定义登记事件，并完成事件说明。

当王五第一次登记时候为签到，再次登记为签退 。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:考勤管理求助.table


图片点击可在新窗口打开查看此主题相关图片如下：00112233.jpg
图片点击可在新窗口打开查看

效果如：
王五         加班签到
王五         加班签退
李四         加班签到
张三         加班签到
李四         加班签退
张三         加班签退
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）datacolchanged事件，代码 ...  发帖心情 Post By：2014/6/3 20:51:00 [显示全部帖子]

感谢老师的指导 我学习学习

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		如何让外来人员不用根据作息时间表来进行判断，直接让登记状态为来访签到、来访签退。  发帖心情 Post By：2014/6/4 15:06:00 [显示全部帖子]

有点甜老师！


利用这个代码进行身份证号码来判断该身份证是否属于与单位职工还是外来人员？
Dim sd As WinForm.TextBox = Forms("考勤与来访登记").Controls("TextBox4")
Dim sfzh As String = sd.Text
Dim dr As DataRow
Dim po As Integer
dr = DataTables("员工资料").Find("身份证号码 = '" & sfzh & "'")
po = Tables("员工资料").FindRow(dr)
If po >= 0 Then '如果找到
    r("人员类型")  = "单位职工"
    r("登记类型")  = "员工考勤登记"
    r("事项详情")  = "员工考勤登记"
Else
    r("人员类型")  = "外来人员"
    r("登记类型")  = "来人来访登记"
    r("事项详情")  = "来人来访登记"
End If

下面这个代码如何完善呢？让外来人员不用根据作息时间表来进行判断，直接让登记状态为来访签到、来访签退。
If e.DataCol.Name = "姓名" Then
    e.DataRow("登记时间") =Date.now()
Else If e.DataCol.Name = "登记时间" Then
    If e.NewValue <> Nothing Then
        Dim d As Date = new Date(1, 1, 1, e.NewValue.hour, e.newValue.minute, 0)
        Dim fdr As DataRow = DataTables("作息时间表").Find("开始时间 < #" & d & "#", "开始时间 desc")
        e.DataRow("登记事项") = fdr("作息类型") & "登记"
        Dim dr As DataRow = e.DataTable.Find("姓名 = '" & e.DataRow("姓名") & "' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If dr Is Nothing Then
            e.DataRow("登记状态") = fdr("作息类型") & "签到"
        Else
            If dr("登记状态").Contains("签到") Then
                e.DataRow("登记状态") = fdr("作息类型") & "签退"
            Else
                e.DataRow("登记状态") = fdr("作息类型") & "签到"
            End If
        End If
    Else
        e.DataRow("登记事项") = Nothing
        e.DataRow("事项详情") = Nothing
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		  发帖心情 Post By：2014/6/4 15:45:00 [显示全部帖子]

有点甜老师  代码已经弄成如下，但是是否出现了一个逻辑错误。
运行效果如下啦


图片点击可在新窗口打开查看此主题相关图片如下：000.jpg
图片点击可在新窗口打开查看
外来人员登记效果正常


图片点击可在新窗口打开查看此主题相关图片如下：111.jpg
图片点击可在新窗口打开查看
单位职工登记效果不正常了  没有根据作息时间来判断咯


代码如下：
If e.DataCol.Name = "姓名" Then
    e.DataRow("登记时间") =Date.now()
Else If e.DataCol.Name = "登记时间" Then
    If e.NewValue <> Nothing Then
        Dim lx As String
        Dim sd As WinForm.TextBox = Forms("考勤与来访登记").Controls("TextBox4")
        Dim sfzh As String = sd.Text
        Dim dr1 As DataRow
        Dim po As Integer
        dr1 = DataTables("员工资料").Find("身份证号码 = '" & sfzh & "'")
        po = Tables("员工资料").FindRow(dr1)
        If po >= 0 Then '如果找到 
                Dim d As Date = new Date(1, 1, 1, e.NewValue.hour, e.newValue.minute, 0)
                Dim fdr As DataRow = DataTables("作息时间表").Find("开始时间 < #" & d & "#", "开始时间 desc")
                e.DataRow("登记事项") = fdr("作息类型") & "登记"
                lx = fdr("作息类型")
            Else
                e.DataRow("登记事项") = "来访登记"
                lx = "来访"
            End If
            Dim dr As DataRow = e.DataTable.Find("姓名 = '" & e.DataRow("姓名") & "' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
            If dr Is Nothing Then
                e.DataRow("登记状态") = lx & "签到"
            Else
                If dr("登记状态").Contains("签到") Then
                    e.DataRow("登记状态") = lx & "签退"
                Else
                    e.DataRow("登记状态") = lx & "签到"
                End If
            End If
        Else
            e.DataRow("登记事项") = Nothing
            e.DataRow("事项详情") = Nothing
        End If
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）改一下这段，如果还错，自己弹出一下...  发帖心情 Post By：2014/6/4 15:58:00 [显示全部帖子]

有点甜老师  弹出提示内容是正常 可以读取身份证号  问题就在哪逻辑判断咯 
如果员工信息表中有现在录入的这个身份证号 那么就将登记事项 登记状态更改为作息时间表中对应的信息
目前外来人员的是正常的 如上图！
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）?逻辑不会有错，你去 员工资料表...  发帖心情 Post By：2014/6/4 16:18:00 [显示全部帖子]

老师 之前单独使用时候进行判断查找员工资料中的身份证号码 都是存在的 且可以正确进行 
现在逻辑也没有错误  那还真不知道问题错在哪里咯  


TextBox4这个里面的内容是由身份证阅读器自动读取身份证后写上身份证号  然后根据这个身份证号来作为内容到员工资料表中去查找是否有这个身份证号码 如果有就说明是单位职工 那就根据时间判断来结合作息时间表来进行作息性质判断 对应显示为登记状态 登记i事件 如员工考勤登记 上班签到 下班签退    如果没有就是外来人员 那么就是来访登记 来访签到 来访签退  
[此贴子已经被作者于2014-6-4 16:22:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 自己调试，在代码里面弹出身份...  发帖心情 Post By：2014/6/4 17:10:00 [显示全部帖子]

老师  弹出来的是当前录入的身份证号码‘

现在问题如图：

图片点击可在新窗口打开查看此主题相关图片如下：0123.jpg
图片点击可在新窗口打开查看
外来人员图 信息显示正常


图片点击可在新窗口打开查看此主题相关图片如下：01234.jpg
图片点击可在新窗口打开查看
内部职工图  信息圈中部分不正常  
应该根据作息时间来进行判断  如：外出签到 外出签退

现在代码：
If e.DataCol.Name = "姓名" Then
    e.DataRow("登记时间") =Date.now()
Else If e.DataCol.Name = "登记时间" Then
    If e.NewValue <> Nothing Then
        Dim lx As String
        Dim sd As WinForm.TextBox = Forms("考勤与来访登记").Controls("TextBox4")
        Dim sfzh As String = sd.Text
        Dim dr1 As DataRow
        Dim po As Integer
        dr1 = DataTables("员工资料").Find("身份证号码 = '" & sfzh & "'")
        po = Tables("员工资料").FindRow(dr1)
        'If po >= 0 Then '如果找到
        If dr1 IsNot Nothing Then '如果找到
            
            Dim d As Date = new Date(1, 1, 1, e.NewValue.hour, e.newValue.minute, 0)
            Dim fdr As DataRow = DataTables("作息时间表").Find("开始时间 < #" & d & "#", "开始时间 desc")
            e.DataRow("登记事项") = fdr("作息类型") & "登记"
            lx = fdr("作息类型")
        Else
            e.DataRow("登记事项") = "来访登记"
            lx = "来访"
        End If
        Dim dr As DataRow = e.DataTable.Find("姓名 = '" & e.DataRow("姓名") & "' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If dr Is Nothing Then
            e.DataRow("登记状态") = lx & "签到"
        Else
            If dr("登记状态").Contains("签到") Then
                e.DataRow("登记状态") = lx & "签退"
            Else
                e.DataRow("登记状态") = lx & "签到"
            End If
        End If
    Else
        e.DataRow("登记事项") = Nothing
        e.DataRow("事项详情") = Nothing
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 你去看看窗口控件是否有代码影...  发帖心情 Post By：2014/6/4 17:34:00 [显示全部帖子]

有点甜老师 窗口控件没有代码事件 
之前的操作是外来人员不能显示来访登记 是直接调用作息表的状态登记  比如外出签到 外出签退

现在加上判断之后出现了 职工考勤不能根据作息时间表的状态登记  外来人员实现了来访登记 来访签退

求指导，因为是连接身份证阅读器 所以直接发例子没有用  求老师加我QQ15115205帮我远程看看 可否   十分感谢！
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（李孝春）回复：（有点甜） 你去看看窗口...  发帖心情 Post By：2014/6/4 17:58:00 [显示全部帖子]

十分感谢有点甜老师  辛苦啦

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08105 秒, 6 次数据查询