计算机毕业设计修改药品功能介绍：
在修改药品信息时，用到了SQL语言中的UPDATE语句来修改药品信息，而且在修改药品信息时用到了IF语句来控制药品代码、药品名称、新类别不能为空，而且药品单价必须为数字。UPDATE语句的语法格式：UPDATE [表集合] SET [表达式] WHERE [条件]。
|
以下是引用片段：
本系统修改药品信息代码如下：
Private Sub btn添加_Click()
If Trim(Me.Text1.Text) = "" Or Trim(Me.DataCombo1.BoundText) = "" Or Trim(Me.Text2.Text) = "" Then
MsgBox "药品代码、药品名称或新类别不能为空!"
Exit Sub
End If //校验信息的正确性
Dim strResult As String
strResult = Exec_SqL("update 药品 set 药品名称='" & Trim(Me.Text1.Text) & "',计量单位='" & Me.Combo1.Text & "',药品单价=" & Val(Me.Text6.Text) & "" _
& ",类别代码='" & Me.DataCombo1.BoundText & "' where 药品代码='" & Me.Text2.Text & "'")
If strResult <> "OK" Then
MsgBox strResult
End If //更新药品信息记录
Private Sub Text6_LostFocus()
If IsNumeric(Me.Text6.Text) = False Then
MsgBox "单价必须是数字!"
Me.Text6.Text = 2.5
End If
End Sub //判断单价文本框的输入必须为数字
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第8页为计算机毕业论文删除功能介绍......