2)对各控件进行代码设置,具体代码如下:
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("购买者")
        Text9.Text = rs("购买日期")
        Text10.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("购买日期") = Text9.Text
        rs("管理员") = Text10.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("设备名称")
上一篇:《计算机网络》课程通用题库管理系统设计与实现
下一篇:C#公司考勤管理系统的设计实现+流程图+ER图

考证平台静态网页设计与制作

java+mysql通用试题库系统后台设计与实现

PHP+IOS的会议管理系统的设计+ER图

基于网络的通用试题库系...

基于消费者个性特征的化...

标准件经销管理系统【959字】

探析动画视听设计元素茬...

AT89C52单片机的超声波测距...

中国学术生态细节考察《...

承德市事业单位档案管理...

C#学校科研管理系统的设计

国内外图像分割技术研究现状

志愿者活动的调查问卷表

医院财务风险因素分析及管理措施【2367字】

公寓空调设计任务书

10万元能开儿童乐园吗,我...

神经外科重症监护病房患...