菜单
　　

        rs.Open str1, cn, 1, 3
        If rs.EOF Then
            MsgBox "不存在该设备"
        Else
            Text1.Text = rs("编号")
            Text2.Text = rs("设备名称")
            Text3.Text = rs("设备编号")
            Text4.Text = rs("设备数量")
            Text5.Text = rs("登记人")
            Text6.Text = rs("使用部门")
            Text7.Text = rs("报废日期")
            Text8.Text = rs("报废原因")
        End If
    End Sub
    Private Sub Command2_Click()
        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
            rs("设备数量") = Text4.Text
            rs("登记人") = Text5.Text
            rs("使用部门") = Text6.Text
            rs("报废日期") = Text7.Text
            rs("报废原因") = Text8.Text
            rs.Update
            MsgBox "数据添加成功", 64, "信息提示"
        Else
            MsgBox "该设备已经存在了", 16, "警告"
        End If
    End Sub
    Private Sub Command3_Click()
            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
            MsgBox "不存在该设备"
        Else
            Text1.Text = rs("编号")
            Text2.Text = rs("设备名称")
            Text3.Text = rs("设备编号")
            Text4.Text = rs("设备数量")
            Text5.Text = rs("登记人")
            Text6.Text = rs("使用部门")
            Text7.Text = rs("报废日期")
            Text8.Text = rs("报废原因")
            c = MsgBox("您确认要删除该记录吗?", 32 + 4, "特别提示")
            If c = vbYes Then
  1. 上一篇：《计算机网络》课程通用题库管理系统设计与实现
  2. 下一篇：C#公司考勤管理系统的设计实现+流程图+ER图

  1. 基于MATLAB的图像增强算法设计

  2. jsp+sqlserver高校二手商品交...

  3. 基于Kinect的手势跟踪与识别算法设计

  4. JAVA基于安卓平台的医疗护工管理系统设计

  5. java+mysql设备监控记录的大...

  6. ERP软件物料需求计划模块设计

  7. php+mysql志愿者服务平台前端页面设计

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

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

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

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

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

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

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

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

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

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

　　

About

751论文网手机版...

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

关闭返回