药品存销管理系统

Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-date药品存销管理系统皖西学院计算机科学与技术系皖西学院计算机科学与技术系实 验 报 告课程名称数据库原理及应用课程设计实验项目课程设计实验类型课程设计完成人何传喜所在班级计科0702指导教师严仍荣 李瑞霞 徐华丽 马艳完成日期2009年12月18日实验课题名称医院药品存销管理系统综合性实验项目课程设计服务课程数据库实验实验小组组长何传喜指导教师严仍荣 李瑞霞 徐华丽 马艳参与实验人员及其在实验课题中承担的主要任务学 号小组成员姓名班 级在实验课题中的主要作用20071508何传喜计科0702系统界面设计，数据库设计，数据库连接，问题处理2007150荣灯有计科0702其他事项-一 概述在计算机技术飞速发展的今天，计算机管理已经在很多领域得到广泛的应用。计算机化已成为医院现代化一个不可或缺的因素。目前很多医院的信息管理还比较落后，劳动强度大且效率低，因此，开发医院管理信息系统将提高医院的各项工作效率。医院的药品管理师一个非常重要的和繁杂的事务，需要完成药品的购入、存储、售出等很多操作，这就使得使用药品存销管理系统来管理这样的事务有着很好的效果。软件开发环境：window XP，SQL server2000，Visual Basic6.0二 需求分析医院药品存销管理系统主要需要实现药品入库信息记录、药品的库存管理、药品出库信息管理等功能。具体要实现的功能包括：（1） 药品入库信息管理功能。记录入库药品名称、价格、数量、业务员、生产厂商等资料，能够实现对药品入库信息的添加、修改、删除和查询功能。（2） 药品库存资料管理。记录库存药品的名称、类型、入库价格、销售价格、库存量、入库时间、有效期等资料，能够实现对库存药品信息的添加、修改、删除和查询功能。在病人购买药品取走后，在表中同时删除相应的药品的数量。（3） 药品出库信息管理。记录药品出库的名称、类型、销售价格、数量、病人名称、应付费用等资料，能够实现对出库药品信息的添加、修改、删除和查询功能。E-R模型图： 入库药品E-R图 库存药品E-R图出库药品E-R图三 数据库逻辑设计1、 药品入库资料表Drug_import名 称说 明数据类型是否空字段说明Import_id药品入库编号INTN自增，主键Import_name入库药品名称NVARCHARNImport_type入库药品类型NVARCHARNImport_num药品入库数量FLOATNImport_price药品入库价格FLOATNImport_time入库时间DATETIMENProdcom生产厂商NVARCHARNProdplace产地NVARCHARNBuyer采购员NVARCHARNChecker验收员NVARCHARN2、 库存药品资料表Drug_info名 称说 明数据类型是否空字段说明Drug_id库存药品编号INTN自增，主键Drug_name库存药品名称NVARCHARNDrug_type库存药品类型NVARCHARNImport_price药品入库价格FLOATNExport_price药品出库价格FLOATNDrug_num药品库存量FLOATNImport_time入库时间DATETIMENProdcom生产厂商NVARCHARNProdplace产地NVARCHARN3、 药品出库资料表Drug_export名 称说 明数据类型是否空字段说明Export_id药品出库编号INTN自增，主键Exoprt_name出库药品名称NVARCHARNExoprt_type出库药品类型NVACHARNExport_num药品出库数量FLOATNExport_price药品出库价格FLOATN单价Patient_name购药病人姓名NVARCHARNPatient_num购药病人编号NVARCHARNExport_time出库时间DATETIMEN四 软件功能设计及界面设计当系统运行时，首先启动系统主界面frm_main.Show。主界面具体设计如下表所示级别菜单名称单击链接窗口主菜单药品入库管理Menu_import子菜单添加入库信息Menu_im_addfrm_im_add.Show删除入库信息Menu_im_delfrm_im_del.Show修改入库信息Menu_im_updfrm_im_upd.Show查询入库信息Menu_im_quefrm_im_que.Show主菜单库存药品管理Menu_info子菜单添加库存信息Menu_inf_addfrm_inf_add.Show删除库存信息Menu_inf_delfrm_inf_del.Show修改库存信息Menu_inf_updfrm_inf_upd.Show查询库存信息Menu_inf_quefrm_inf_que.Show主菜单药品出库管理Menu_export子菜单添加出库信息Menu_ex_addfrm_ex_add.Show删除出库信息Menu_ex_delfrm_ex_del.Show修改出库信息Menu_ex_updfrm_ex_upd.Show查询出库信息Menu_ex_quefrm_ex_que.Show主菜单退出药品存销管理系统Menu_quitfrm_quit.Show主界面如下图所示下面给出主界面实现各界面菜单的操作程序代码：Private Sub Menu_im_add_Click() frm_im_add.ShowEnd SubPrivate Sub Menu_im_del_Click() frm_im_del.ShowEnd SubPrivate Sub Menu_im_upd_Click() frm_im_upd.ShowEnd SubPrivate Sub Menu_im_que_Click() frm_im_que.ShowEnd SubPrivate Sub Menu_inf_add_Click() frm_inf_add.ShowEnd SubPrivate Sub Menu_inf_del_Click() frm_inf_del.ShowEnd SubPrivate Sub Menu_inf_upd_Click() frm_inf_upd.ShowEnd SubPrivate Sub Menu_inf_que_Click() frm_inf_que.ShowEnd SubPrivate Sub Menu_ex_add_Click() frm_ex_add.ShowEnd SubPrivate Sub Menu_ex_del_Click() frm_ex_del.ShowEnd SubPrivate Sub Menu_ex_upd_Click() frm_ex_upd.ShowEnd SubPrivate Sub Menu_ex_que_Click() frm_ex_que.ShowEnd SubPrivate Sub Menu_quit_Click() Unload MeEnd Sub在定义一些全局变量和与数据库相关的变量Public ColVal As String读取表中列值的变量Public objConn As New ADODB.ConnectionPublic objRS As New ADODB.Recordset 连接数据库设置Public Sub OpenDB()objConn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=;Initial Catalog=Drug;Data Source=CST-D22Initial Catalog是数据库名；Data Source是服务器名 objConn.Open End SubPublic Sub CloseDB() objConn.CloseEnd Sub（1）药品入库管理系统设计在药品入库管理系统中需要设计实现如下图中的功能单击“添加入库信息”选项，启动frm_im_add.Show.进入“添加入库信息”界面。单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd Sub单击“确定”按钮，将触发Cmd_OK_Click事件，把输入的入库药品信息添加到SQL Secer对应的数据表中，相应的代码如下：Private Sub Cmd_OK_Click() If Trim(Import_name.Text) = Then MsgBox 药品入库名称不能为空!, vbOKOnly Exit Sub End If If Trim(Import_type.Text) = Then MsgBox 入库药品类型不能为空!, vbOKOnly Exit Sub End If If Trim(Import_num.Text) = Then MsgBox 药品入库数量不能为空!, vbOKOnly Exit Sub End If If Trim(Import_price.Text) = Then MsgBox 药品入库价格不能为空!, vbOKOnly Exit Sub End If If Trim(Import_time.Text) = Then MsgBox 入库时间不能为空!, vbOKOnly Exit Sub End If If Trim(Prodcom.Text) = Then MsgBox 生产厂商不能为空!, vbOKOnly Exit Sub End If If Trim(Prodplace.Text) = Then MsgBox 产地不能为空!, vbOKOnly Exit Sub End IfIf Trim(Buyer.Text) = Then MsgBox 采购员不能为空!, vbOKOnly Exit Sub End IfIf Trim(Checker.Text) = Then MsgBox 验收员不能为空!, vbOKOnly Exit Sub End IfOpenDBDim strSQL As StringstrSQL = Select * from Drug_Import添加药品入库信息objRS.Open strSQL, objConn, adOpenKeyset, adLockOptimisticobjRS.AddNew 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.UpdateobjRS.CloseCloseDBMsgBox 记录已添加!, vbOKOnlyUnload MeEnd Sub单击“删除入库信息”选项，启动。frm_im_del.Show.进入“删除入库信息”界面单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd Sub单击“查询”按钮，将触发Cmd_Query_Click事件，查询想要删除的入库药品名称，将集体的入库信息显示在窗口中。相应的代码如下：Private Sub Cmd_Query_Click()Dim QueName As StringDim strSQL As StringQueName = Trim(import_del_que.Text) If QueName = Then MsgBox 输入的药品名称不能为空!, vbOKOnly Exit SubElse OpenDB strSQL = SELECT * FROM Drug_import WHERE Import_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic If objRS.EOF Then MsgBox 没有该药品的入库信息!, vbOKOnly objRS.Close CloseDB Exit Sub 如果找到了该药品的信息，则将查询到的内容显示在窗口中 Else Import_name.Text = objRS.Fields(1).Value Import_type.Text = objRS.Fields(2).Value Import_num.Text = Str(objRS.Fields(3).Value) Import_price.Text = Str(objRS.Fields(4).Value) Import_time.Text = Str(objRS.Fields(5).Value) Prodcom.Text = objRS.Fields(6).Value Prodplace.Text = objRS.Fields(7).Value Buyer.Text = objRS.Fields(8).Value Checker.Text = objRS.Fields(9).ValueEnd If End If objRS.Close CloseDBEnd Sub查询结束后，查询到的入库药品信息将显示在界面中，这个时候如果确定需要删除，则单击“删除”按钮，将触发Cmd_Del_Click事件，删除选择的数据库表中保存的入库药品信息。相应的代码如下：Private Sub Cmd_del_Click() Dim QueName As String Dim strSQL As String QueName = Trim(import_del_que.Text) OpenDB strSQL = SELECT * FROM Drug_import WHERE Import_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic 如果没有找到查询的药品名称，则提示 If objRS.EOF Then MsgBox 没有该药品信息，无法删除!, vbOKOnly objRS.Close CloseDB Exit Sub 在数据库中删除选择的入库药品信息 Else strSQL = Delete FROM Drug_import WHERE Import_name = + QueName + objConn.Execute (strSQL)objRS.CloseCloseDBMsgBox 该药品已删除!, vbOKOnlyEnd IfEnd Sub单击“修改入库信息”，启动frm_im_upd.Show,进入“修改入库信息”界面。单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd Sub单击“查询”按钮，将触发Cmd_Query_Click事件，查询想要修改的入库药品名称，将具体的入库药品信息显示在界面中。具体的代码同前面的Cmd_Query_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 = SELECT * FROM Drug_import WHERE Import_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic 如果没有找到查询的药品名称，则提示 If objRS.EOF Then MsgBox 没有该药品信息，无法修改!, vbOKOnly objRS.Close CloseDB Exit Sub Else objRS.Close strSQL = Select * from Drug_Import where Import_name = + QueName + 添加药品入库信息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.UpdateobjRS.CloseCloseDBMsgBox 记录已修改!, vbOKOnlyUnload MeEnd IfEnd Sub单击“查询入库信息”选项，启动frm_im_que.Show，进入“查询入库信息”界面，单击“查询”按钮，将触发Cmd_Query_Click事件，具体的代码和前面的Cmd_Query_Click事件相同。（2）库存药品管理系统设计在库存药品管理系统中需要设计下图中的功能 单击“添加库存信息”选项，启动frm_inf_add.Show，进入“添加库存药品信息”界面，如下图单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd Sub单击“添加”按钮，将触发Cmd_Add_Click事件，把输入的库存药品信息添加到SQL Sever对应的数据表中。相应的代码如下：Private Sub Cmd_Add_Click() Dim strSQL As String OpenDB strSQL = Select * from Drug_info objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic objRS.AddNew objRS.Fields(1).Value = Trim(Drug_name.Text) objRS.Fields(2).Value = Trim(Drug_type.Text) objRS.Fields(3).Value = CDbl(Trim(Import_price.Text) objRS.Fields(4).Value = CDbl(Trim(Export_price.Text) objRS.Fields(5).Value = CDbl(Trim(Drug_num.Text) objRS.Fields(6).Value = CDate(Trim(Import_time.Text) objRS.Fields(7).Value = Trim(Prodcom.Text) objRS.Fields(8).Value = Trim(Prodplace.Text) objRS.Update objRS.Close CloseDB MsgBox 记录已添加!, vbOKOnlyUnload MeEnd Sub单击“删除库存信息”选项，启动frm_inf_del.Show，进入“删除库存药品信息”界面 单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd Sub单击“查询”按钮，将触发Cmd_del_que_Click事件，查询想要删除的库存药品名称，将具体的入库药品信息显示在界面中。具体的代码如下：Private Sub Cmd_del_que_Click()Dim QueName As StringDim strSQL As String QueName = Trim(del_que.Text)If QueName = Then MsgBox 查询内容不能为空, vbOKOnly Exit SubElse OpenDB strSQL = Select * from Drug_info Where Drug_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else Drug_name.Text = objRS.Fields(1).Value Drug_type.Text = objRS.Fields(2).Value Import_price.Text = Str(objRS.Fields(3).Value) Export_price.Text = Str(objRS.Fields(4).Value) Import_time.Text = Str(objRS.Fields(6).Value) Drug_num.Text = Str(objRS.Fields(5).Value) Prodcom.Text = objRS.Fields(7).Value Prodplace.Text = objRS.Fields(8).Value End If End IfobjRS.CloseCloseDBEnd Sub查询完毕后，查询到的库存药品信息将显示在界面中，这个时候如果确定要删除，则单击“删除”按钮，将触发Cmd_del_Click事件，删除选择的数据库表中保存的库存药品信息。相应的代码如下：Private Sub Cmd_del_Click()Dim QueName As StringDim strSQL As String QueName = Trim(del_que.Text)If QueName = Then MsgBox 查询内容不能为空, vbOKOnly Exit SubElse OpenDB strSQL = Select * from Drug_info Where Drug_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else objRS.Close strSQL = Delete from Drug_info Where Drug_name= + QueName + objConn.Execute (strSQL) CloseDB MsgBox 记录已删除, vbOKOnly End If End IfEnd Sub单击“修改库存信息”选项，启动frm_inf_upd.Show，进入“修改库存药品信息”界面单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd 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 = SELECT * FROM Drug_import WHERE Import_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic 如果没有找到查询的药品名称，则提示 If objRS.EOF Then MsgBox 没有该药品信息，无法修改!, vbOKOnly objRS.Close CloseDB Exit Sub Else objRS.Close strSQL = Select * from Drug_Import where Import_name = + QueName + 添加药品入库信息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.UpdateobjRS.CloseCloseDBMsgBox 记录已修改!, vbOKOnlyUnload MeEnd IfEnd Sub单击“查询库存信息”选项，启动frm_inf_que.Show，进入“查询库存药品信息”界面单击“查询”按钮，将触发Cmd_Query_Click事件，具体的代码和前面Cmd_que_Click事件基本相同能够。（4） 药品出库管理系统设计在药品出库管理系统中需要设计完成的功能如下单击“添加出库信息”选项，启动frm_ex_add.Show，进入“添加出库信息”界面单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd Sub单击“添加”按钮，将触发Cmd_OK事件，把输入的出库药品信息添加到SQL Sever对应的数据表中。相应的代码如下：Private Sub Cmd_ex_OK_Click()Dim strSQLIf Trim(Export_name) = Then MsgBox 药品名称不能为空, vbOKOnly Exit SubEnd IfIf Trim(Export_type) = Then MsgBox 出库类型不能为空, vbOKOnly Exit SubEnd IfIf Trim(Export_price) = Then MsgBox 出库价格不能为空, vbOKOnly Exit SubEnd IfIf Trim(Export_num) = Then MsgBox 出库数量不能为空, vbOKOnly Exit SubEnd IfIf Trim(Patient_name) = Then MsgBox 病人姓名不能为空, vbOKOnly Exit SubEnd IfIf Trim(Patient_num) = Then MsgBox 病人编号不能为空, vbOKOnly Exit SubEnd IfIf Trim(Export_time) = Then MsgBox 出库时间不能为空, vbOKOnly Exit SubEnd If OpenDB strSQL = Select * from Drug_export objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic objRS.AddNew objRS.Fields(1).Value = Export_name.Text objRS.Fields(2).Value = Export_type.Text objRS.Fields(4).Value = CDbl(Export_price.Text) objRS.Fields(3).Value = CDbl(Export_num.Text) objRS.Fields(5).Value = Patient_name.Text objRS.Fields(6).Value = Patient_num.Text objRS.Fields(7).Value = CDate(Export_time) objRS.Update objRS.Close CloseDB MsgBox 记录已添加, vbOKOnly Unload Me End Sub单击“删除出库信息”按钮，启动frm_ex_del.Show，进入“删除出库信息”界面单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd Sub单击“查询”按钮，将触发Cmd_del_que_Click事件，查询想要删除的出库药品名称，将具体的出库药品信息显示在界面中。程序代码如下Private Sub Cmd_del_que_Click()Dim QueName As StringDim strSQL As StringQueName = Trim(del_que.Text)If QueName = Then MsgBox 查询名称不能为空, vbOKOnly Exit SubElse OpenDB strSQL = Select * from Drug_export where export_name= + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else Export_name.Text = objRS.Fields(1).Value Export_type.Text = objRS.Fields(2).Value Export_price.Text = Str(objRS.Fields(4).Value) Export_num.Text = Str(objRS.Fields(3).Value) Patient_name.Text = objRS.Fields(5).Value Patient_num.Text = objRS.Fields(6).Value Export_time.Text = Str(objRS.Fields(7).Value) objRS.Close CloseDB End IfEnd IfEnd Sub查询完毕后，查询到的出库药品的具体信息将显示在界面中，这个时候如果确定需要删除，则单击“删除”按钮，将触发Cmd_ex_del_Click事件，删除选择的数据库表中保存的出库药品信息。程序代码如下：Private Sub Cmd_ex_del_Click()Dim strSQL As StringDim QueName As StringQueName = Trim(del_que.Text)If QueName = Then MsgBox 查询名称不能为空, vbOKOnly Exit SubElse OpenDB strSQL = Select * from Drug_export Where Export_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else objRS.Close strSQL = Delete from Drug_export where Export_name = + QueName + objConn.Execute (strSQL) CloseDB MsgBox 记录已删除, vbOKOnly End IfEnd IfEnd Sub单击“修改出库信息”选项，启动frm_ex_upd.Show，进入“修改出库信息”界面单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下：Private Sub Fault_Click() Unload MeEnd Sub单击“查询”按钮，将触发Cmd_upd_que_Click事件，查询想要修改的出库药品名称，将具体的出库药品信息显示在界面中。查询完毕后，查询到的出库药品的具体信息将显示在界面中，这个时候如果确定修改，则直接在界面现实的内容处添写文字直接修改。修改完毕后，单击“修改”按钮，将触发Cmd_ex_upd_Click事件，将修改后的出库药品信息存入相应的数据库表中。相应的程序代码如下：Private Sub Cmd_ex_upd_Click()Dim strSQL As StringDim QueName As StringQueName = Trim(upd_que.Text)If QueName = Then MsgBox 查询名称不能为空, vbOKOnly Exit SubElse If Trim(Export_name) = Then MsgBox 药品名称不能为空, vbOKOnly Exit SubEnd IfIf Trim(Export_type) = Then MsgBox 出库类型不能为空, vbOKOnly Exit SubEnd IfIf Trim(Export_price) = Then MsgBox 出库价格不能为空, vbOKOnly Exit SubEnd IfIf Trim(Export_num) = Then MsgBox 出库数量不能为空, vbOKOnly Exit SubEnd IfIf Trim(Patient_name) = Then MsgBox 病人姓名不能为空, vbOKOnly Exit SubEnd IfIf Trim(Patient_num) = Then MsgBox 病人编号不能为空, vbOKOnly Exit SubEnd IfIf Trim(Export_time) = Then MsgBox 出库时间不能为空, vbOKOnly Exit SubEnd If OpenDB strSQL = Select * from Drug_export Where Export_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else objRS.Close strSQL = Select * from Drug_export where Export_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic objRS.Fields(1).Value = Export_name.Text objRS.Fields(2).Value = Export_type.Text objRS.Fields(4).Value = CDbl(Export_price.Text) objRS.Fields(3).Value = CDbl(Export_num.Text) objRS.Fields(5).Value = Patient_name.Text objRS.Fields(6).Value = Patient_num.Text objRS.Fields(7).Value = CDate(Export_time) objRS.Update objRS.Close CloseDB MsgBox