菜单
　　

            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("领用日期")
        End If
    End Sub
    Private Sub Command2_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
            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("报废原因")
        End If
    End Sub
    Private Sub Command2_Click()
       主界面.Show
        cn.Close
        Unload Me
    End Sub

    基本信息报表：
    Private Sub Command1_Click()
    DataReport1.Show
    DataReport1.LeftMargin = 0
    DataReport1.RightMargin = 0
    DataReport1.TopMargin = 0
    DataReport1.BottomMargin = 0
    DataReport1.ReportWidth = 纸张宽度 * 56.7
    End Sub
    Private Sub Command2_Click()
        主界面.Show
        Unload Me
    End Sub

    领用报表：
    Private Sub Command1_Click()
    DataReport2.Show
    DataReport2.LeftMargin = 0
    DataReport2.RightMargin = 0
    DataReport2.TopMargin = 0
    DataReport2.BottomMargin = 0
    DataReport2.ReportWidth = 纸张宽度 * 56.7
    End Sub
    Private Sub Command2_Click()
        主界面.Show
        Unload Me
    End Sub

    消耗报表：
    Private Sub Command1_Click()
    DataReport3.Show
  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

关闭返回