做了一个任务表,有开始时间, 结束时间. 然后根据开始时间和结束时间计算所用工时.
主管负责安排任务, 任务的开始时间与结束时间由职工通过自己的名称登陆点开始和结束.
怎么可以防止职工通过修改他自己的电脑时间来蒙骗系统的计算,防止 最后得出的时间不真实呢?
以下是部分代码:
Dim r As Row = Tables("设计时间统计表").current
If r IsNot Nothing Then
If r.IsNull("设计师") OrElse r.IsNull("项目编号") OrElse r.IsNull("工作内容") Then
MessageBox.Show("还没有建立任务")
Else
If r.IsNull("起始时间") Then
MessageBox.Show("任务还没开始")
Else
If r.IsNull("结束时间") Then
Tables("设计时间统计表").Current("结束时间") = Date.Now