【正文】 amp。 s) tmsetxwsb = CDate((下午上班時間)) tmsetswxb = CDate((上午下班時間)) tmsetxwxb = CDate((下午下班時間)) 39。判斷上午下班時間 If tmxb1 tmsetxwsb Then If tmxb1 tmsetswxb Then iearly = 1 MsgBox 早退 Else iearly = 0 MsgBox 正常下班 End If 39。判斷下午下班時間 Else If tmxb1 tmsetxwxb Then iearly = 1 MsgBox 早退 Else iearly = 0 MsgBox 正常下班 End If End If aflag = 出 (工號) = (姓名) = (當(dāng)前日期) = (下班時間) = amp。 : amp。 amp。 : amp。 (出入標(biāo)志) = aflag (早退次數(shù)) = iearly MsgBox 已完成添加下班信息, vbOKOnly + vbInformation, 添加結(jié)果！ Unload Me Exit Sub End IfEnd SubPrivate Sub Form_Load() = Date 39。初始化為當(dāng)天時間End Sub設(shè)置員工每日產(chǎn)量考勤 在該窗體中輸入相應(yīng)的信息，完成每日產(chǎn)量考勤具體如圖46所示，相應(yīng)部分代碼如下：圖46 員工每日產(chǎn)量考勤“保存”按鈕代碼如下：Private Sub cmdOK_Click() Dim rs As Dim strSql As String Dim strMsg As String 39。根據(jù)需要進(jìn)行字段限制 If = True Then If = Then MsgBox 產(chǎn)品類型不能為空 TextFocus Combo1 Exit Sub End If If = True Then If = Then MsgBox 產(chǎn)品類型二不能為空 TextFocus Combo2 Exit Sub End If If = 0 Then MsgBox 數(shù)量不能為空 TextFocus Txt3 Exit Sub End If End If If = True Then If = Then MsgBox 產(chǎn)品類型三不能為空 TextFocus Combo3 Exit Sub End If If = 0 Then MsgBox 數(shù)量不能為空 TextFocus Txt5 Exit Sub End If End If End If strSql = select * from checkinfo where 工號=39。 amp。 txtGH1 amp。 39。 Set rs = ExecuteSQL(strSql, strMsg) If = False Then MsgBox 已有相同的記錄，無法添加到數(shù)據(jù)庫！, vbOKOnly + vbExclamation, 警告 TextFocus txtGH1 If = True Then strSql = select * from salary Set rs = ExecuteSQL(strSql, strMsg) (工號) = (姓名) = (工作日) = (產(chǎn)品類型一) = (產(chǎn)品類型二) = (產(chǎn)品類型三) = If = Then (數(shù)量一) = 0 Else (數(shù)量一) = End If If = Then (數(shù)量二) = 0 Else (數(shù)量二) = End If If = Then (數(shù)量三) = 0 Else (數(shù)量三) = End If If = Then (單價一) = 0 Else (單價一) = End If If = Then (單價二) = 0 Else (單價二) = End If If = Then (單價三) = 0 Else (單價三) = End If (每日匯總) = Set rs = Nothing End If If = True Then strSql = select * from timekaoqin Set rs = ExecuteSQL(strSql, strMsg) (工號) = (工作日) = (上班時間) = dtpBT(0).Value (下班時間) = DTPicker1(0).Value (PM上班時間) = dtpBT(1).Value (PM下班時間) = DTPicker1(1).Value (單價) = (工作小時數(shù)) = (加班時間) = (加班單價) = (記時匯總) = Set rs = Nothing End If If = True Or = True Then MsgBox 添加成功 Else MsgBox 添加失敗 same = 2: same2 = 4 End If If same = 2 And same2 = 4 Then Exit Sub Else strSql = select * from checkinfo Set rs = ExecuteSQL(strSql, strMsg) (工號) = (工作日) = End If 39。Call RefreshGrid End IfEnd Sub