计算机毕业设计添加药品功能介绍：
4.2.3 添加功能的实施
本系统在添加新药品信息时规定了必须添加的信息，如果不添加的话就会报错，提醒你该添加什么信息。
在添加新药品信息时，用到了INSERT INTO语句来添加新药品信息，而且在添加新药品信息时用到了IF语句来控制药品名称、新类别不能为空，药品代码不能重复，而且药品单价必须为数字。
|
以下是引用片段：
本系统添加药品信息代码如下：
Private Sub UserControl13_Click()
If Trim(Me.Text1.Text) = "" Or Trim(Me.DataCombo1.BoundText) = "" Then
MsgBox "药品名称或新类别不能为空!"
Exit Sub
End If
If ExecSql("select * from 药品 where 药品代码='" & Trim(Me.Text2.Text) & "'").RecordCount > 0 Then
MsgBox "药品代码不能重复!"
Exit Sub
End If // 校验信息的正确性
Dim strResult As String
strResult = Exec_SqL("insert into 药品 (药品代码,药品名称,计量单位,药品单价,类别代码) values " _
& " ('" & Trim(Me.Text2.Text) & "','" & Trim(Me.Text1.Text) & "'" _
& ",'" & Me.Combo1.Text & "'," & Val(Me.Text6.Text) & "," _
& "'" & Me.DataCombo1.BoundText & "')")
If strResult <> "OK" Then
MsgBox strResult
End If
frmSpxx.UpdateList //添加一条药品信息记录
Private Sub Text6_LostFocus()
If IsNumeric(Me.Text6.Text) = False Then
MsgBox "单价必须是数字!"
Me.Text6.Text = 2.5
End If
End Sub // 判断单价文本框的输入必须为数字
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第7页为计算机毕业论文修改药品功能介绍......