菜单
　　

            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, "警告"
  1. 上一篇：基于.net银行储蓄系统的设计与实现
  2. 下一篇：ASP.net+sqlserver手工艺分享网站设计与开发

  1. jsp+mysql学生选课信息系统设计与实现

  2. Ruby+mysql就业信息管理系统的设计与实现

  3. VB+sqlserver社区医院信息管理系统的设计与实现

  4. java+mysql房地产开发与销售...

  5. VB+sqlserver高校宿舍信息管理系统的设计与实现

  6. java+mysql车票预订信息系统设计与实现

  7. 基于信息技术课程培养初...

  8. 杂拟谷盗体内共生菌沃尔...

  9. 河岸冲刷和泥沙淤积的监测国内外研究现状

  10. 乳业同业并购式全产业链...

  11. 酸性水汽提装置总汽提塔设计+CAD图纸

  12. 当代大学生慈善意识研究+文献综述

  13. 十二层带中心支撑钢结构...

  14. 中考体育项目与体育教学合理结合的研究

  15. 大众媒体对公共政策制定的影响

  16. 电站锅炉暖风器设计任务书

  17. java+mysql车辆管理系统的设计+源代码

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回