End If
For i = 1 To 12 '设置月
Me.FromMonth.AddItem i
Me.ToMonth.AddItem i
Next i
Me.FromMonth.ListIndex = 0
Me.ToMonth.ListIndex = 0
End Sub
§4.3 员工管理系统测试
在开发员工管理系统的时候，为了使系统能够稳定
运行，对系统进行了测试：
查询功能测试：为了保证系统的每一项功能都可能顺利执行，尤其是查询功能的执行，特进行各项查询方式的不同索引，确保各种查询方式均可查询到正确记录。
安全测试：为了保证系统的安全性，对密码进行严格测试，达到了不同权限，不同保密程度的需求。
报表打印测试：企业中报表是不可忽视的一部分，对本系统的报表打印的不同格式进行测试，证明本系统提供的打印类型合乎企业不同部门的不同需要。
3.设置上下班时间
图4－6
相关代码如下：
Private Sub cmdCancel_Click()
Unload Me
Exit Sub
End Sub
Private Sub cmdOK_Click()
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = "delete from TimeSetting"
TransactSQL (SQL)
If IsDate(Me.BeginTime) = False Or Me.BeginTime = "" Then
MsgBox "请正确地输入时间！", vbOKOnly + vbExclamation, "警告！"
Me.BeginTime.SetFocus
Else
If IsDate(Me.EndTime) = False Or Me.EndTime = "" Then
MsgBox "请正确地输入时间！", vbOKOnly + vbExclamation, "警告！"
Me.EndTime.SetFocus
Else
SQL = "select * from TimeSetting"
Set rs = TransactSQL(SQL)
rs.AddNew '设置时间
rs.Fields(0) = Me.BeginTime
rs.Fields(1) = Me.EndTime
rs.Update
rs.Close
MsgBox "时间已经设置！", vbOKOnly + vbExclamation, "设置结果！"
End If
End If
Unload Me
End Sub
Private Sub Form_Load()
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = "select * from TimeSetting"
Set rs = TransactSQL(SQL)
If rs.EOF = True Then
Me.BeginTime = ""
Me.EndTime = ""
Else
Me.BeginTime = rs(0)
Me.EndTime = rs(1)
End If
rs.Close
End Sub
§4.4 系统的运行与维护
系统的运行：