VB+access员工信息管理系统设计与实现(15)

b) 员工是否能够正常查看自己的考勤信息；
c) 管理员是否能够正常的查询、添加、修改、删除员工考勤信息。
（2）测试结果：
a）该功能运行正常。登录系统后，进入主界面后点击相应按钮可以进入员工考勤信息模块的一系列界面；
b)员工可以正常查看自己的考勤信息；
c)管理员可以成功查询、添加、修改、删除员工考勤信息。
（3）运行界面&主要程序代码

图4.8 员工考勤信息查看界面

图4.9 员工考勤信息界面
添加功能部分代码：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
     If cn.State = 1 Then
        cn.Close
    End If
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & App.Path & "\111.mdb;" & _
                    "Persist Security Info=False"
     cn.Open
     Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & App.Path & "\111.mdb;" & _
                    "Persist Security Info=False"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 员工考勤信息表"
    Adodc1.Refresh
End Sub
Private Sub Command2_Click()
    If Text1.Text = "" Or _
       Text2.Text = "" Or _
       Text3.Text = "" Or _
       DTPicker1.Value = "" Or _
       Text5.Text = "" Or _
       Text6.Text = "" Or _
       Text7.Text = "" Or _
       Text8.Text = "" Or _
       Text9.Text = "" Or _
       Text10.Text = "" Or _
       Text11.Text = "" Or _
       Combo1.Text = "" Then
       MsgBox "未添加成功"
    Else
        str1 = "select * from 员工考勤信息表 where 考勤编号='" & Text1.Text & "'"
        If rs.State = 1 Then
            rs.Close
        End If
        rs.Open str1, cn, 1, 3
        If rs.EOF Then
            rs.AddNew
            rs("考勤编号") = Text1.Text
            rs("员工编号") = Text2.Text
            rs("员工姓名") = Text3.Text VB+access员工信息管理系统设计与实现(15):http://www.youerw.com/jisuanji/lunwen_1399.html