菜单
　　

                rs.Delete
                rs.Update
                MsgBox "删除成功", 64, "信息提示"
            End If
        End If
    End Sub
    Private Sub Command4_Click()
            str1 = "select * from 设备消耗登记表 where 编号='" & Text1.Text & "'"
        If rs.State = 1 Then
            rs.Close
        End If
        rs.Open str1, cn, 1, 3
            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
            rs.Update
          End If
         End Sub
    Private Sub Command5_Click()
        str1 = "select * from 设备消耗登记表 where 编号='" & Text1.Text & "'"
        If rs.State = 1 Then
            rs.Close
        End If
        rs.Open str1, cn, 1, 3
            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, "信息提示"
        End Sub
    Private Sub Command6_Click()
        主界面.Show
        cn.Close
        Unload Me
    End Sub

    领用查询：
    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 & "\设备管理系统.mdb " & "Persist Security Info=False"
        cn.Open
    End Sub
    Private Sub command1_Click()
        str1 = "select * from 设备领用登记表where 编号='" & Text1.Text & "'"
        If rs.State = 1 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

关闭返回