VB设备管理系统设计+需求分析+可行性分析(21)
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()
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.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("设备名称")
Text3.Text = rs("设备编号")
Text4.Text = rs("设备数量")
Text5.Text = rs("登记人")
Text6.Text = rs("使用部门")
Text7.Text = rs("报废日期")
Text8.Text = rs("报废原因")
c = MsgBox("您确认要删除该记录吗?", 32 + 4, "特别提示")
If c = vbYes Then