【正文】 根據(jù)需要進(jìn)行字段限制 If = True Then If = Then MsgBox 產(chǎn)品類型不能為空 TextFocus Combo1 Exit Sub End If If = True Then If 。 (出入標(biāo)志 ) = aflag (早退次數(shù) ) = iearly XXXVI MsgBox 已完成添加下班信息 , vbOKOnly + vbInformation, 添加結(jié)果！ Unload Me Exit Sub End If End Sub Private Sub Form_Load() = Date 39。 amp。判斷下午下班時(shí)間 Else If tmxb1 tmsetxwxb Then iearly = 1 MsgBox 早退 Else iearly = 0 MsgBox 正常下班 End If End If aflag = 出 (工號(hào) ) = (姓名 ) = (當(dāng)前日期 ) = ( 下班時(shí)間 ) = amp。 s) tmsetxwsb = CDate((下午上班時(shí)間 )) tmsetswxb = CDate((上午下班時(shí)間 )) tmsetxwxb = CDate((下午下班時(shí)間 )) 39。 m amp。判斷上下午下班時(shí)間是否早退 tmxb1 = XXXV h = Hour(tmxb1) m = Minute(tmxb1) s = Second(tmxb1) tmxb1 = CDate(h amp。 (出入標(biāo)志 ) = aflag (遲到次數(shù) ) = ilate MsgBox 已完成添加上班信息 , vbOKOnly + vbInformation, 添加結(jié)果！ Unload Me Exit Sub End If 39。 amp。判斷下午上班時(shí)間是否遲到 Else If tmsb1 tmsetxwsb Then ilate = 1 MsgBox 遲到 Else ilate = 0 MsgBox 正常上班 End If End If aflag = 入 (工號(hào) ) = (姓名 ) = (當(dāng)前日期 ) = (上班時(shí)間 ) = amp。 s) tmsetswsb = CDate((上午上班時(shí)間 )) tmsetswxb = CDate((上午下班時(shí)間 )) tmsetxwsb = CDate((下午上班時(shí)間 )) 39。 m amp。判斷上下午上班時(shí)間是否遲到 tmsb1 = h = Hour(tmsb1) m = Minute(tmsb1) s = Second(tmsb1) tmsb1 = CDate(h amp。 ) MsgBox 時(shí)間已經(jīng)設(shè)置 , vbOKOnly + vbInformation, 設(shè)置結(jié)果！ Unload Me End Sub Private Sub Form_Load() Dim sql As String Dim rs As New XXXII Dim strMsg As String sql = select * from TimeSetting Set rs = ExecuteSQL(sql, strMsg) If Then Exit Sub = (上午上班時(shí)間 ) = (上午下班時(shí)間 ) = (下午上班時(shí)間 ) = (下午下班時(shí)間 ) End Sub 、 添加員工考勤信息 添加上下班信息 窗體如圖 45 所示，填入相應(yīng)的信息，部分代碼如下 ： 圖 45 添加員工考勤信息 添加上下班信息 Private Sub cmdOK_Click() Dim sql As String Dim sql2 As String Dim rs As New Dim strMsg As String Dim strmsg2 As String XXXIII Dim rsTime As New Dim tmsetswsb, tmsetswxb, tmsetxwsb, tmsetxwxb As Date Dim tmsb1, tmxb1 As Date sql = select * from AttendanceInfo order by ID desc sql2 = select * from TimeSetting Set rs = ExecuteSQL(sql, strMsg) Set rsTime = ExecuteSQL(sql2, strmsg2) If InFlag = False And OutFlag = False Then MsgBox 請(qǐng)選擇上下班 , vbOKOnly + vbExclamation, 警告 ! End If 39。 amp。 ) (下午下班時(shí)間 ) = CDate( amp。 amp。 ) (下午上班時(shí)間 ) = CDate( amp。 amp。 ) (上午下班時(shí)間 ) = CDate( amp。 amp。設(shè)置焦點(diǎn) Exit Sub End If sql = select * from TimeSetting Set rs = ExecuteSQL(sql, strMsg) ( 上 午 上 班 時(shí)間 ) = CDate( amp。設(shè)置焦點(diǎn) Exit Sub End If If = Or = Or = Then 39。 查找數(shù)據(jù)庫(kù)，讀取記錄 If = Then 39。二進(jìn)制模式 .Open .LoadFromFile strFileName End With (照片 ) = Else End If XXX Set rs = Nothing = True Call DisabledControl = True MsgBox 添加成功 If blnDel Then If tmpPath Then Kill tmpPath End If End If Call RefreshGrid End Sub 、 員工考勤信息的實(shí)現(xiàn) 、 設(shè)置員工上下班時(shí)間 在 該窗體中輸入相應(yīng)的上下班信息，具體如 圖 44 所示，相應(yīng)部分代碼如下 ： 圖 44 設(shè)置上下班時(shí)間 XXXI Private Sub cmdOK_Click() 39。日期型 (合同開(kāi)始時(shí)間 ) = (合同終止時(shí)間 ) = If = Then (工齡 ) = 0 Else (工齡 ) = End If 39。年齡為數(shù)字型 If = Then (年齡 ) = 0 Else (年齡 ) = End If 39。 Set rs = ExecuteSQL(strSql, strMsg) If = False Then MsgBox 已有相同的工號(hào)，無(wú)法 添加到數(shù)據(jù)庫(kù)！ , vbOKOnly + vbExclamation, 警告 TextFocus txtGH Exit Sub End If End If strSql = select * from t_br Set rs = ExecuteSQL(strSql, strMsg) (工號(hào) ) = (姓名 ) = If = Then (工資類別 ) = Null Else (工資類別 ) = End If If = Then (健康狀況 ) = Null Else (健康狀況 ) = End If If = Then (性別 ) = Null Else (性別 ) = End If If = Then (職工類型 ) = Null XXVII Else (職工類型 ) = End If If = Then (部門 ) = Null Else (部門 ) = End If If = Then (職務(wù) ) = Null Else (職務(wù) ) = End If If = Then (文化程度 ) = Null Else (文化程度 ) = End If If = Then (民族 ) = Null Else (民族 ) = End If 39。 amp。 XXVI Set rs = ExecuteSQL(strSql, strM