VB设备管理系统设计+需求分析+可行性分析(17)
时间:2016-11-23 19:01 来源:毕业论文 作者:毕业论文 点击:次
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("设备名称") 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 (责任编辑：qin) |