毕业论文

打赏
当前位置: 毕业论文 > 计算机论文 >

VB设备管理系统设计+需求分析+可行性分析(11)

时间:2016-11-23 19:01来源:毕业论文
Text3.Text = rs(设备编号) Text4.Text = rs(设备单价) Text5.Text = rs(设备数量) Text6.Text = rs(制造商) Text7.Text = rs(国别) Text8.Text = rs(购买者) Text9.Text = rs(购买日期) Te


        Text3.Text = rs("设备编号")
        Text4.Text = rs("设备单价")
        Text5.Text = rs("设备数量")
        Text6.Text = rs("制造商")
        Text7.Text = rs("国别")
        Text8.Text = rs("购买者")
        Text9.Text = rs("购买日期")
        Text10.Text = rs("管理员")
        c = MsgBox("您确认要删除该记录吗?", 32 + 4, "特别提示")
        If c = vbYes Then
            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("购买者")
        Text9.Text = rs("购买日期")
        Text10.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 VB设备管理系统设计+需求分析+可行性分析(11):http://www.youerw.com/jisuanji/lunwen_192.html
------分隔线----------------------------
推荐内容