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

        Text7.Text = Adodc1.Recordset.Fields(7)
        Text8.Text = Adodc1.Recordset.Fields(8)
        Text9.Text = Adodc1.Recordset.Fields(9)
        Text10.Text = Adodc1.Recordset.Fields(10)
        Text11.Text = Adodc1.Recordset.Fields(11)
        Text12.Text = Adodc1.Recordset.Fields(12)
        Combo1.Text = Adodc1.Recordset.Fields(4)
    End If
End Sub
Private Sub Command6_Click()
    管理员主界面.Show
    cn.Close
    Unload Me
End Sub
4.2.4 员工薪资信息模块界面的测试
（1）测试目的：
a）验证员工薪资信息管理功能是否能正常运行；
b) 员工是否能够正常查看自己的薪资信息；
c) 管理员是否能够正常的查询、添加、修改、删除员工薪资信息。
（2）测试结果：
a）该功能运行正常。登录系统后，进入主界面后点击相应按钮可以进入员工薪资信息模块的一系列界面；
b)员工可以正常查看自己的薪资信息；
c)管理员可以成功查询、添加、修改、删除员工薪资信息。
（3）运行界面&主要程序代码

图4.10 员工薪资信息查看界面

图4.11 员工薪资信息界面
删除功能部分代码：
Private Sub Command3_Click()
    If Adodc1.Recordset.EOF = False Then
        c = MsgBox("您确认要删除该记录吗?", 32 + 4, "特别提示")
        X = Adodc1.Recordset.Fields(0)
        If c = vbYes Then
            str1 = "select * from 员工薪资信息表 where 计发编号='" & X & "'"
            If rs.State = 1 Then
            rs.Close
            End If
            rs.Open str1, cn, 1, 3
            Adodc1.Recordset.Delete
            Adodc1.CommandType = adCmdText
            Adodc1.RecordSource = "select * from 员工薪资信息表"
            Adodc1.Refresh
            MsgBox "该员工所有信息成功删除", 64, "信息提示"
            Adodc1.Refresh
            Text1.Text = ""
            Text2.Text = ""
            Text3.Text = ""
            Text4.Text = ""
            Text5.Text = ""
            Text6.Text = ""
            DTPicker1.Value = Now
       End If
    Else
        MsgBox "当前数据库中已经没有可删除的记录", 64, "警告" VB+access员工信息管理系统设计与实现(17):http://www.youerw.com/jisuanji/lunwen_1399.html