Question

关于VB的一些问题

' ******************************************************************************
Private Sub updatetbOffWork()
Dim strSQL As String
Dim rstWork As ADODB.Recordset
Dim result As Boolean
Dim intWorkHour As Integer
strSQL = "select * from tbOnWork where EmpId='" + Trim(gUserName) + "' and DateWork='" + StrDate + "'"
result = ExecuteSQL(strSQL, rstWork, False)
If rstWork.RecordCount = 0 Then
MsgBox "您今天没有出勤记录！", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
Me.lblName.Visible = True
Me.lblTextOn.Visible = True
Me.lblOnTime.Visible = True
Me.lblTextHour.Visible = True
Me.lblHour.Visible = True
Me.lblTextOff.Visible = True
Me.lblOffTime.Visible = True
Me.lblName.Caption = gUserName
If rstWork.Fields("Flag") = "已确认" Then
MsgBox "出勤信息已经被确认,退勤时间不能修改！", vbOKOnly + vbExclamation, "警告"
If Not IsNull(rstWork.Fields("OnWorkFrom")) Then
Me.lblOnTime.Caption = Mid(CStr(rstWork.Fields("OnWorkFrom")), 11)
End If
If Not IsNull(rstWork.Fields("OnWorkTo")) Then
Me.lblOffTime.Caption = Mid(CStr(rstWork.Fields("OnWorkTo")), 11)
End If
If (Not IsNull(rstWork.Fields("OnWorkTo"))) And _
(Not IsNull(rstWork.Fields("OnWorkFrom"))) Then
intWorkHour = DateDiff("h", rstWork.Fields("OnWorkFrom"), rstWork.Fields("OnWorkTo"))
Me.lblHour.Caption = intWorkHour
End If
Exit Sub
Else
intWorkHour = DateDiff("h", rstWork.Fields("OnWorkFrom"), Now)
Me.lblOnTime.Caption = Mid(CStr(rstWork.Fields("OnWorkFrom")), 11)
Me.lblOffTime.Caption = Time
Me.lblHour.Caption = intWorkHour
strSQL = "update tbOnWork set OnWorkTo='" + CStr(Now) + "', WorkHour='" + CStr(intWorkHour)
strSQL = strSQL + "' where EmpId='" + Trim(gUserName) + "' and DateWork='" + StrDate + "'"
result = ExecuteSQL(strSQL, rstWork, True)
End If
End If
End Sub
大概的意思是什么,语句是什么?

Answer 1

大概意思是 查找这个人有没有上班记录 如果没有记录就提示"出勤信息已经被确认,退勤时间不能修改！", 如果有记录检查是不是已经确认下班了 如果已经下班则下班时间不再更改 否则设置当前时间为下班时间