菜单
　　

    消耗报表.Show
    Unload Me
    End Sub
    Private Sub基本信息汇总_Click()
    设备基本信息报表.Show
    Unload Me
    End Sub
    Private Sub 领用情况_Click()
    领用查询.Show
    Unload Me
    End Sub
    Private Sub 退出_Click()
    Unload Me
    End Sub
    Private Sub 消耗登记_Click()
    设备消耗登记.Show
    Unload Me
    End Sub
    Private Sub Ï消耗情况_Click()
    消耗查询.Show
    Unload Me
    End Sub
    Private Sub 修改密码_Click()
    改密码.Show
    Unload Me
    End Sub
    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
             设备基本信息.Show
             Unload Me
        Case 2
           设备领用登记.Show
            Unload Me
        Case 3
           设备消耗登记.Show
            Unload Me
        Case 4
          Unload Me
        End Select
    End Sub

    修改密码：
    Private Sub Command1_Click()
    Adodc1.RecordSource = "select * from 登录界面 where 用户名='" & Text1.Text & "'"
            If Text4.Text = Text3.Text Then
                Adodc1.Recordset.Fields("密码") = Text3.Text
                MsgBox "密码修改成功！", vbInformation
                Adodc1.Recordset.Update
                 主界面.Show
                Unload Me
            Else
                MsgBox "两次密码不相同，请输入新密码！", vbInformation
            End If
    End Sub
    Private Sub Command2_Click()
     主界面.Show
    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
            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("设备数量")
  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

关闭返回