基于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