VB设备管理系统设计+需求分析+可行性分析(18)
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
rs("购买日期") = Text9.Text
rs("管理员") = Text10.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"