End If '年龄为数字型
If txtAge.Text = \ Else End If '日期型
rs.Fields(\生日\
If cboPolity.Text = \ Else End If
If cboMarry.Text = \ Else End If
If cboNativePlace.Text = \ Else End If
If txtHandset.Text = \ Else End If
If txtIdentity.Text = \ Else
rs.Fields(\身份证号\rs.Fields(\手机\rs.Fields(\手机\
rs.Fields(\籍贯\rs.Fields(\籍贯\
rs.Fields(\婚姻状况\rs.Fields(\婚姻状况\rs.Fields(\政治面貌\rs.Fields(\政治面貌\rs.Fields(\年龄\rs.Fields(\年龄\
26
End If
rs.Fields(\身份证号\
If txtTelphone.Text = \
rs.Fields(\联系电话\
rs.Fields(\联系电话\
Else End If
If txtHomeAddress.Text = \ Else End If '日期型
rs.Fields(\合同开始时间\ rs.Fields(\合同终止时间\
If txtLong.Text = \
rs.Fields(\工龄\
rs.Fields(\工龄\
Else End If '添加照片
Set iStm = New ADODB.Stream If Len(strFileName) > 0 Then Else End If
rs.Close
rs.Update With iStm
.Type = adTypeBinary '二进制模式 .Open
.LoadFromFile strFileName
rs.Fields(\家庭住址\rs.Fields(\家庭住址\
End With
rs.Fields(\照片\rs.Update iStm.Close
27
Set rs = Nothing cmdDel.Enabled = True Call DisabledControl cmdNew.Enabled = True MsgBox \添加成功\
If blnDel Then
If tmpPath <> \
Kill tmpPath End If End If
Call RefreshGrid End Sub
4.4、员工考勤信息的实现
4.4.1、设置员工上下班时间
在该窗体中输入相应的上下班信息，具体如图4-4所示，相应部分代码如下：
图4-4 设置上下班时间
28
Private Sub cmdOK_Click() '设置上下班时间 Dim sql As String
Dim rs As New ADODB.Recordset Dim strMsg As String
sql = \
Set rs = ExecuteSQL(sql, strMsg) ' 查找数据库，读取记录 If dtpBT.Value >= DTPicker1.Value Then ' 判断下班时间大于上班时间 MsgBox \请正确的输入时间\警告！\ Me.dtpBT.SetFocus '设置焦点 Exit Sub End If
If dtpBT2.Value >= DTPicker2.Value Or dtpBT2.Value <= DTPicker1.Value Or dtpBT2.Value <=
dtpBT.Value Then '判断下班时间大于上班时间
MsgBox \请正确的输入时间\警告！\
Me.dtpBT2.SetFocus '设置焦点 Exit Sub End If
sql = \ Set rs = ExecuteSQL(sql, strMsg) rs.AddNew
rs.Fields(\上午上班时间\= CDate(dtpBT.Hour & \& dtpBT.Minute & \&
dtpBT.Second)
rs.Fields(\上午下班时间\= CDate(DTPicker1.Hour & \& DTPicker1.Minute & \&
DTPicker1.Second)
rs.Fields(\下午上班时间\= CDate(dtpBT2.Hour & \& dtpBT2.Minute & \&
dtpBT2.Second)
rs.Fields(\下午下班时间\= CDate(DTPicker2.Hour & \& DTPicker2.Minute & \&
DTPicker2.Second)
rs.Update rs.Close
MsgBox \时间已经设置\设置结果！\ Unload Me End Sub
Private Sub Form_Load() Dim sql As String
Dim rs As New ADODB.Recordset
29
Dim strMsg As String
sql = \ Set rs = ExecuteSQL(sql, strMsg) If rs.EOF Then Exit Sub
dtpBT.Value = rs.Fields(\上午上班时间\ DTPicker1.Value = rs.Fields(\上午下班时间\ dtpBT2.Value = rs.Fields(\下午上班时间\ DTPicker2.Value = rs.Fields(\下午下班时间\End Sub
4.4.2、添加员工考勤信息
1、添加上下班信息
窗体如图4-5所示，填入相应的信息，部分代码如下：
图4-5 添加员工考勤信息
添加上下班信息
Private Sub cmdOK_Click() Dim sql As String Dim sql2 As String
Dim rs As New ADODB.Recordset Dim strMsg As String Dim strmsg2 As String
30