基于SQL和VB的药品管理系统设计

吴凯佳 马柳丹 李结映

摘要：在医药行业中，为摆脱过去人手操作的烦琐，充分满足医药经营企业的各种需求，从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理，越来越多的企业选择借助计算机的力量。

关键词：SQL;VB;药品管理系统

中图分类号：TP311.52    文献标识码：A    文章编号：1007-9416（2020）04-0000-00

1 背景

药品管理是一项琐碎、复杂而又十分细致的工作，药品数量之庞大、单价的变化、进货厂商的不同，一般不允许出错，如果利用计算机进行这些管理工作，不仅能够保证各种核算准确无误、快速记录，而且还可以利用计算机对有关的各种信息进行统计。

2 系统实现

本系统是在Windows 7 x64系统、SQL Server 2008 和Visual Basic 6.0的环境下完成的，因篇幅有限，暂展示部分代码及效果图[1-3]。

2.1 模块设计

在Visual Basic 6.0中添加一个模块module1。该部分主要包括一些全局变量的定义、main过程定义及和数据库的连接。代码如下：

'定义全局变量

Public ADOconn As New Connection

Public ADOrs As New Recordset

Public strSQL As String

Public Sub main（）

'连接数据库

Dim strSQLServer As String

strSQLServer = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MIS;Data Source=WKJ"

ADOconn.Open strSQLServer

'打开登录界面

form_login.Show 1

End Sub

2.2 添加入库信息

单击药品入库管理中的添加入库信息，则打开form_im_add窗体开始添加入库信息，若输入的药品信息已存在，则清空所有项目并提示重新输入，若不存在，则将该信息添加进药品入库信息表Drug_import。代码如下：

'添加药品入库信息

ADOrs.ActiveConnection = ADOconn

strSQL = "Select * From Drug_Import Where Import_name='" + Trim（Import_name.Text） + "'"

ADOrs.Open strSQL， ADOconn， adOpenDynamic， adLockOptimistic

If Not ADOrs.EOF Then

'若项目已存在则清空所有项目并提示

Import_name.Text = ""

Import_type.Text = ""

Import_num.Text = ""

Import_price.Text = ""

Prodcom.Text = ""

Prodplace.Text = ""

Buyer.Text = ""

Checker.Text = ""

MsgBox "該药品信息已存在！"， vbOKOnly + vbInformation， "信息提示"

Import_name.SetFocus

ADOrs.Close

Exit Sub

Else

'若项目不存在则添加

ADOrs.AddNew

ADOrs.Fields（"Import_name"）.Value = Trim（Import_name.Text）

ADOrs.Fields（"Import_type"）.Value = Trim（Import_type.Text）

ADOrs.Fields（"Import_num"）.Value = CDbl（Import_num.Text）

ADOrs.Fields（"Import_price"）.Value = CDbl（Import_price.Text）

ADOrs.Fields（"Prodcom"）.Value = Trim（Prodcom.Text）

ADOrs.Fields（"Prodplace"）.Value = Trim（Prodplace.Text）

ADOrs.Fields（"Buyer"）.Value = Trim（Buyer.Text）

ADOrs.Fields（"Checker"）.Value = Trim（Checker.Text）

ADOrs.Fields（"Import_time"）.Value = Now（）

MsgBox "记录已添加！"， vbOKOnly + vbInformation， "信息提示"

ADOrs.Update

ADOrs.Close

3 结语

SQL与VB配合是常用的开发手段，基于这两者开发的系统，具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等优点，能够极大地提高管理的效率，也是管理行业的科学化、正规化管理，与世界接轨的重要条件。

參考文献

[1] 陈志泊，王春玲.数据库原理及应用教程（第二版）[M].北京：人民邮电出版社，2008.

[2] 黄津津，王盈瑛，辛利.Visual Basic程序设计[M].北京：人民邮电出版社，2010.

[3] 龚沛曾.Visual Basic程序设计实验指导与测试（第四版）[M].北京：高等教育出版社，2013.

收稿日期：2020-03-09

作者简介：吴凯佳（1991—），男，广东揭阳人，本科，工程师，研究方向：计算机网络与软件开发。

通讯作者：李结映（1989—），女，广东肇庆人，硕士研究生，经济师，研究方向：医院管理。

Design of Drug Management System Based on SQL and VB

WU Kai-jia1， MA Liu-dan2， LI Jie-ying3

（1.Affiliated Tumor Hospital of Shantou University Medical College Information Centre， Shantou Guangdong 515031;

2.Affiliated Tumor Hospital of Shantou University Medical College Radiology Department， Shantou Guangdong 515031;

3.Affiliated Tumor Hospital of Shantou University Medical College Personnel Section， Shantou Guangdong 515031）

Abstract： In the pharmaceutical industry， in order to get rid of the cumbersome manual operation in the past， fully meet the needs of pharmaceutical enterprises， more and more enterprises choose to use the power of computer to manage the flow of people， logistics， capital and information from all aspects of pharmaceutical enterprises.

Key words： SQL; VB; drug management system