免费VB+员工管理系统(十二)

免费VB+员工管理系统(十二) ;       Me.ToYear.ListIndex = 0
    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 系统的运行与维护
 系统的运行：

首页 上一页 9 10 11 12 13 下一页 尾页 12/13/13

免费VB+员工管理系统(十二)由毕业论文网（www.huoyuandh.com）会员上传。