药品存销管理系统

Dim strSQL As String

QueName = Trim(del_que.Text) If QueName = \

MsgBox \查询内容不能为空\ Exit Sub Else

OpenDB

strSQL = \ objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then

MsgBox \没有所查询的药品\ objRS.Close CloseDB Exit Sub Else

objRS.Close

strSQL = \ objConn.Execute (strSQL) CloseDB

MsgBox \记录已删除\ End If End If End Sub

单击“修改库存信息”选项，启动frm_inf_upd.Show，进入“修改库存药品信息”界面

单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下： Private Sub Fault_Click() Unload Me

15

End Sub

单击“查询”按钮，将触发Cmd_Query_Click事件，查询想要修改的入库药品名称，将具体的入库药品信息显示在界面中。具体的代码和前面的Cmd_del_que_Click事件基本相同。

查询完毕后，查询到的库存药品的具体信息将显示在界面中，这个时候如果确定需要修改，则直接在界面显示的内容处添写文字直接修改。修改完毕后，单击“修改”按钮，将触发Cmd_upd_Click事件，将修改后的库存药品信息存入相应的数据库表中。相应的代码如下：

Private Sub Cmd_upd_Click() Dim QueName As String Dim strSQL As String

'得到想要查询的入库药品名称

QueName = Trim(import_upd_que.Text)

OpenDB

'在数据库表中寻找查询的入库药品具体信息

strSQL = \\

objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic '如果没有找到查询的药品名称，则提示 If objRS.EOF Then

MsgBox \没有该药品信息，无法修改!\ objRS.Close CloseDB Exit Sub Else

objRS.Close

strSQL = \'添加药品入库信息

objRS.Open strSQL, objConn, adOpenKeyset, adLockOptimistic objRS.Fields(1).Value = Trim(Import_name.Text) objRS.Fields(2).Value = Trim(Import_type.Text)

objRS.Fields(3).Value = CDbl(Trim(Import_num.Text)) objRS.Fields(4).Value = CDbl(Trim(Import_price.Text)) objRS.Fields(5).Value = CDate(Trim(Import_time.Text)) objRS.Fields(6).Value = Trim(Prodcom.Text) objRS.Fields(7).Value = Trim(Prodplace.Text) objRS.Fields(8).Value = Trim(Buyer.Text) objRS.Fields(9).Value = Trim(Checker.Text) objRS.Update

16

objRS.Close CloseDB

MsgBox \记录已修改!\Unload Me End If

End Sub

单击“查询库存信息”选项，启动frm_inf_que.Show，进入“查询库存药品信息”界面

单击“查询”按钮，将触发Cmd_Query_Click事件，具体的代码和前面Cmd_que_Click事件基本相同能够。

（4） 药品出库管理系统设计

在药品出库管理系统中需要设计完成的功能如下

单击“添加出库信息”选项，启动frm_ex_add.Show，进入“添加出库信息”界面

17

单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下： Private Sub Fault_Click() Unload Me End Sub 单击“添加”按钮，将触发Cmd_OK事件，把输入的出库药品信息添加到SQL Sever对应的数据表中。相应的代码如下： Private Sub Cmd_ex_OK_Click() Dim strSQL

If Trim(Export_name) = \

MsgBox \药品名称不能为空\ Exit Sub End If

If Trim(Export_type) = \

MsgBox \出库类型不能为空\ Exit Sub End If

If Trim(Export_price) = \

MsgBox \出库价格不能为空\ Exit Sub End If

If Trim(Export_num) = \

MsgBox \出库数量不能为空\ Exit Sub End If

If Trim(Patient_name) = \

MsgBox \病人姓名不能为空\ Exit Sub End If

If Trim(Patient_num) = \

MsgBox \病人编号不能为空\ Exit Sub

18