基于SQL和VB的藥品管理系統(tǒng)設(shè)計(jì)

吳凱佳 馬柳丹 李結(jié)映

摘要：在醫(yī)藥行業(yè)中，為擺脫過去人手操作的煩瑣，充分滿足醫(yī)藥經(jīng)營企業(yè)的各種需求，從醫(yī)藥經(jīng)營企業(yè)的各個(gè)環(huán)節(jié)對人流、物流、資金流、信息流進(jìn)行統(tǒng)一系統(tǒng)的管理，越來越多的企業(yè)選擇借助計(jì)算機(jī)的力量。

關(guān)鍵詞：SQL;VB;藥品管理系統(tǒng)

中圖分類號：TP311.52? ? 文獻(xiàn)標(biāo)識碼：A? ? 文章編號：1007-9416（2020）04-0000-00

1 背景

藥品管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，藥品數(shù)量之龐大、單價(jià)的變化、進(jìn)貨廠商的不同，一般不允許出錯(cuò)，如果利用計(jì)算機(jī)進(jìn)行這些管理工作，不僅能夠保證各種核算準(zhǔn)確無誤、快速記錄，而且還可以利用計(jì)算機(jī)對有關(guān)的各種信息進(jìn)行統(tǒng)計(jì)。

2 系統(tǒng)實(shí)現(xiàn)

本系統(tǒng)是在Windows 7 x64系統(tǒng)、SQL Server 2008 和Visual Basic 6.0的環(huán)境下完成的，因篇幅有限，暫展示部分代碼及效果圖[1-3]。

2.1 模塊設(shè)計(jì)

在Visual Basic 6.0中添加一個(gè)模塊module1。該部分主要包括一些全局變量的定義、main過程定義及和數(shù)據(jù)庫的連接。代碼如下：

'定義全局變量

Public ADOconn As New Connection

Public ADOrs As New Recordset

Public strSQL As String

Public Sub main（）

'連接數(shù)據(jù)庫

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窗體開始添加入庫信息，若輸入的藥品信息已存在，則清空所有項(xiàng)目并提示重新輸入，若不存在，則將該信息添加進(jìn)藥品入庫信息表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

'若項(xiàng)目已存在則清空所有項(xiàng)目并提示

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

'若項(xiàng)目不存在則添加

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 結(jié)語

SQL與VB配合是常用的開發(fā)手段，基于這兩者開發(fā)的系統(tǒng)，具有手工管理所無法比擬的優(yōu)點(diǎn)，例如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等優(yōu)點(diǎn)，能夠極大地提高管理的效率，也是管理行業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。

參考文獻(xiàn)

[1] 陳志泊，王春玲.數(shù)據(jù)庫原理及應(yīng)用教程（第二版）[M].北京：人民郵電出版社，2008.

[2] 黃津津，王盈瑛，辛利.Visual Basic程序設(shè)計(jì)[M].北京：人民郵電出版社，2010.

[3] 龔沛曾.Visual Basic程序設(shè)計(jì)實(shí)驗(yàn)指導(dǎo)與測試（第四版）[M].北京：高等教育出版社，2013.

收稿日期：2020-03-09

作者簡介：吳凱佳（1991—），男，廣東揭陽人，本科，工程師，研究方向：計(jì)算機(jī)網(wǎng)絡(luò)與軟件開發(fā)。

通訊作者：李結(jié)映（1989—），女，廣東肇慶人，碩士研究生，經(jīng)濟(jì)師，研究方向：醫(yī)院管理。

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