醫(yī)藥銷售管理系統(tǒng)的設(shè)計與實現(xiàn)

段文倩

摘要：該文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理其核心功能包括：藥品的銷售管理、藥品的入庫和出庫管理、企業(yè)銷售數(shù)據(jù)的統(tǒng)計、藥品信息的添加、刪除、查詢和修改、單位職員信息管理和退出等。通過醫(yī)藥銷售管理系統(tǒng)的使用與實施，使醫(yī)藥經(jīng)營企業(yè)從純手工的管理中解脫出來。該文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理系統(tǒng)用戶界面友好，實用性強，可以使企業(yè)的管理更加方便，也讓企業(yè)的工作效率得到提高。

關(guān)鍵詞：醫(yī)藥；銷售管理；企業(yè)

中圖分類號：TP311 文獻(xiàn)標(biāo)識碼：A 文章編號：1009-3044（2014）28-6582-06

1 概述

本文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理系統(tǒng)的目標(biāo)是做到操作界面簡潔，讓用戶一目了然，并且上手簡單，功能齊全。后臺的數(shù)據(jù)庫要保證其完整性和一致性，維護(hù)簡單。該文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理系統(tǒng)的特點是操作簡便，提高工作人員的效率。不同工作人員有不同的登陸ID，不同的ID可設(shè)置不同的權(quán)限范圍。該文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理系統(tǒng)可以對不同操作員進(jìn)行不同的權(quán)限設(shè)置，為不同的操作員分配其可以進(jìn)行操作的模塊，所有的用戶按照各自權(quán)限的不同可以讀取或修改數(shù)據(jù)庫的內(nèi)容。

2 系統(tǒng)功能結(jié)構(gòu)

根據(jù)系統(tǒng)需求，醫(yī)藥銷售管理系統(tǒng)可以分為六個模塊，即藥品銷售模塊、藥品出入庫管理模塊、數(shù)據(jù)統(tǒng)計模塊、藥品基本信息管理模塊、系統(tǒng)維護(hù)模塊和退出模塊。

系統(tǒng)功能模塊圖如圖1所示。

3 數(shù)據(jù)庫設(shè)計

本系統(tǒng)的數(shù)據(jù)庫是使用SQL Server來創(chuàng)建的，涉及到的關(guān)鍵數(shù)據(jù)表主要有：

1）來往單位信息表

存儲來往單位的基本信息，包括客戶ID、簡碼、名稱、法人、電話、地址、備注、類型、出入、聯(lián)系人。來往單位信息表如表1所示。

4 關(guān)鍵模塊實現(xiàn)

本文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理系統(tǒng)在實現(xiàn)基本功能的基礎(chǔ)上，做到了操作簡單，界面清晰，醫(yī)藥銷售管理系統(tǒng)如圖2所示。

4.1 藥品基本信息管理

由于藥品這類商品的特殊性，保證藥品的安全性相當(dāng)重要，對于藥品信息的記錄和統(tǒng)計必須仔細(xì)和準(zhǔn)確。此模塊包括藥品瀏覽、新增藥品、藥品修改、藥品調(diào)價四個功能。在新增藥品、藥品修改、藥品調(diào)價的操作界面中加入對用戶的提示，使用戶注意對藥品進(jìn)行分類。為了避免操作上的復(fù)雜，新增藥品、藥品修改兩個功能的界面都可以通過點擊藥品瀏覽界面中的添加、修改按鈕來調(diào)出。但藥品調(diào)價的界面則只能通過點擊藥品基本信息管理下拉菜單中“藥品調(diào)價”來調(diào)出。

在新增藥品、藥品修改功能中，劑型、藥品單位、生產(chǎn)廠家、藥品類型四項可以通過下拉列表來選擇，而藥品編號、藥品代碼、藥品名稱、條碼、藥品規(guī)格、批準(zhǔn)文號、庫存最高限量、庫存最低限量、批發(fā)價、零售價、功能主治則由于藥品品種繁多必須通過人工手動輸入。新增藥品界面如圖3所示。

藥品瀏覽調(diào)出藥品字典，藥品字典包括數(shù)據(jù)庫中所有藥品的基本信息，包括名稱、編號、簡碼、批發(fā)價、零售價、條碼、單位、規(guī)格、生產(chǎn)廠家、批準(zhǔn)文號、最高限量和最低限量。新增藥品、藥品修改、藥品調(diào)價所調(diào)出的為同一個界面，但能使用的功能不同，新增藥品可以填寫藥品的所有信息；藥品修改可以重新修改、填寫除價格外的所有信息；藥品調(diào)價只能修改藥品的零售價與批發(fā)價，不能修改其它信息。藥品字典可以直接調(diào)用SQL Server數(shù)據(jù)庫中藥品信息表；新增藥品、藥品修改、藥品調(diào)價將藥品添加和修改的各種信息保存至藥品信息表。

4.2 藥品出入庫管理

此模塊包括藥品入庫、藥品退貨、藥品報損和存貨瀏覽四個功能。在此模塊的入庫、退藥、報損和存貨瀏覽是針對使用此系統(tǒng)的醫(yī)藥企業(yè)，屬于后臺的管理。藥品出入庫管理要能夠保證藥品入庫和出庫（退貨、報損）的準(zhǔn)確，明確藥品入庫、出庫的責(zé)任人，包括操作人和經(jīng)手人，并可將入庫、出庫單據(jù)打印出來，以便之后的核對與統(tǒng)計。

藥品入庫使醫(yī)藥銷售企業(yè)掌握自身的藥品進(jìn)貨情況，掌握的信息包括藥品的成本、數(shù)量、規(guī)格、效期、進(jìn)貨單位等；藥品退貨實現(xiàn)對不符合企業(yè)要求的藥品進(jìn)行退貨的功能；藥品報損實現(xiàn)對于超過有效期或者質(zhì)量出現(xiàn)問題的藥品進(jìn)行報損的功能；存貨瀏覽可查看庫存中各種藥品的信息，包括藥品的名稱、簡碼、單位、規(guī)格、劑型、數(shù)量、購進(jìn)單位、生產(chǎn)廠家和批準(zhǔn)文號。

藥品入庫、藥品退貨和藥品報損是對藥品信息表中的藥品數(shù)量和購進(jìn)、退貨、報損金額進(jìn)行加減后保存，故可以記錄藥品入庫、藥品退貨和藥品報損的信息。藥品庫存瀏覽是直接調(diào)用數(shù)據(jù)庫中藥品信息表內(nèi)的信息進(jìn)行查看。

藥品庫存瀏覽界面如圖4所示。

4.3 系統(tǒng)維護(hù)

系統(tǒng)維護(hù)模塊包括員工管理、部門管理、往來單位、更換密碼、用戶管理、備份數(shù)據(jù)功能。

員工信息、部門信息、往來單位信息均可在基本信息界面中直接修改，三者也可通過員工信息按鈕、部門信息按鈕和往來單位按鈕進(jìn)行切換。系統(tǒng)維護(hù)模塊中，員工信息提供工作人員各類信息的查詢與修改功能，包括員工編號、姓名、簡碼、性別、年齡、所屬部門、職務(wù)、雇傭日期、學(xué)歷、住址、身份證號、聯(lián)系方式、備注；部門信息提供各部門的信息查詢和修改功能，包括部門編號、部門名稱、簡碼；往來單位提供業(yè)務(wù)單位的信息查詢、修改功能，包括單位名稱、單位簡碼、單位類型、貨物流向、法人、聯(lián)系人、電話、地址、備注；更換密碼提供當(dāng)前系統(tǒng)登錄用戶修改自己密碼的權(quán)力，要求輸入舊密碼以確認(rèn)用戶身份以及輸入新密碼進(jìn)行修改；用戶管理模塊只有管理員有權(quán)使用，管理員可以通過此功能模塊新增、刪除用戶，并授予新用戶其工作所需要的權(quán)限，同時也可以對老用戶的權(quán)限進(jìn)行修改以適應(yīng)其新的工作要求；備份數(shù)據(jù)提供備份當(dāng)前藥品信息的功能；恢復(fù)數(shù)據(jù)提供恢復(fù)上一次所備份藥品信息的功能。

用戶管理如圖5所示。

員工管理直接讀取SQL Server數(shù)據(jù)庫中員工信息表；部門管理直接讀取SQL Server數(shù)據(jù)庫中部門信息表；往來單位直接讀取SQL Server數(shù)據(jù)庫中往來單位信息表；更換密碼修改用戶表中的密碼；用戶管理在用戶表中添加或刪除權(quán)限；實現(xiàn)備份功能的關(guān)鍵代碼為：

label1.Caption：='正在備份....'；

a1.Active：=true；

adodm.cback.CommandText：='backup database yd to disk=''d：＼Program Files＼Microsoft SQL Server＼MSSQL＼BACKUP＼yd.back'''；//設(shè)置備份地址

try

adodm.cback.Execute；

label1.Caption：='備份成功！'； a1.Active：=false；

except

label1.Caption：='備份失??！'；a1.Active：=false；

end；

//恢復(fù)備份的關(guān)鍵代碼

begin

label1.Caption：='正在恢復(fù)....'；

adodm.ydconn.Close；

if application.MessageBox（'此操作將使上次備份以來的所有數(shù)據(jù)丟失，是否繼續(xù)？'，'恢復(fù)數(shù)據(jù)'，MB_OKCANCEL）=idok then

begin

a1.Active：=true；

adodm.cback.CommandText：='restore database yd from disk=''d：＼Program Files＼Microsoft SQL Server＼MSSQL＼BACKUP＼yd.back'' with replace'；//設(shè)置恢復(fù)地址

try

try

adodm.cback.Execute；

label1.Caption：='恢復(fù)成功！'；

except

showmessage（'數(shù)據(jù)庫正在被使用！請確定已關(guān)閉其它藥店管理程序！'）；

label1.Caption：='恢復(fù)失??！'；

end；

5 小結(jié)

本文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理系統(tǒng)，打破了傳統(tǒng)醫(yī)藥銷售手工化的模式，促進(jìn)了醫(yī)藥銷售信息化、計算機化的建設(shè)發(fā)展。

參考文獻(xiàn)：

[1] Barrow John.Introducing Delphi Programming[M].Oxford Univ，2005.

[2] Turley Paul.Beginning Transact-SQL With SQL Server 2000[M].Bokkazine，2005.

[3] Michael Wood.The Road to Delphi[M].Picador，2004.

label1.Caption：='正在備份....'；

a1.Active：=true；

adodm.cback.CommandText：='backup database yd to disk=''d：＼Program Files＼Microsoft SQL Server＼MSSQL＼BACKUP＼yd.back'''；//設(shè)置備份地址

try

adodm.cback.Execute；

label1.Caption：='備份成功！'； a1.Active：=false；

except

label1.Caption：='備份失??！'；a1.Active：=false；

end；

//恢復(fù)備份的關(guān)鍵代碼

begin

label1.Caption：='正在恢復(fù)....'；

adodm.ydconn.Close；

if application.MessageBox（'此操作將使上次備份以來的所有數(shù)據(jù)丟失，是否繼續(xù)？'，'恢復(fù)數(shù)據(jù)'，MB_OKCANCEL）=idok then

begin

a1.Active：=true；

adodm.cback.CommandText：='restore database yd from disk=''d：＼Program Files＼Microsoft SQL Server＼MSSQL＼BACKUP＼yd.back'' with replace'；//設(shè)置恢復(fù)地址

try

try

adodm.cback.Execute；

label1.Caption：='恢復(fù)成功！'；

except

showmessage（'數(shù)據(jù)庫正在被使用！請確定已關(guān)閉其它藥店管理程序！'）；

label1.Caption：='恢復(fù)失??！'；

end；

5 小結(jié)

本文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理系統(tǒng)，打破了傳統(tǒng)醫(yī)藥銷售手工化的模式，促進(jìn)了醫(yī)藥銷售信息化、計算機化的建設(shè)發(fā)展。

參考文獻(xiàn)：

[1] Barrow John.Introducing Delphi Programming[M].Oxford Univ，2005.

[2] Turley Paul.Beginning Transact-SQL With SQL Server 2000[M].Bokkazine，2005.

[3] Michael Wood.The Road to Delphi[M].Picador，2004.

label1.Caption：='正在備份....'；

a1.Active：=true；

adodm.cback.CommandText：='backup database yd to disk=''d：＼Program Files＼Microsoft SQL Server＼MSSQL＼BACKUP＼yd.back'''；//設(shè)置備份地址

try

adodm.cback.Execute；

label1.Caption：='備份成功！'； a1.Active：=false；

except

label1.Caption：='備份失?。?；a1.Active：=false；

end；

//恢復(fù)備份的關(guān)鍵代碼

begin

label1.Caption：='正在恢復(fù)....'；

adodm.ydconn.Close；

if application.MessageBox（'此操作將使上次備份以來的所有數(shù)據(jù)丟失，是否繼續(xù)？'，'恢復(fù)數(shù)據(jù)'，MB_OKCANCEL）=idok then

begin

a1.Active：=true；

adodm.cback.CommandText：='restore database yd from disk=''d：＼Program Files＼Microsoft SQL Server＼MSSQL＼BACKUP＼yd.back'' with replace'；//設(shè)置恢復(fù)地址

try

try

adodm.cback.Execute；

label1.Caption：='恢復(fù)成功！'；

except

showmessage（'數(shù)據(jù)庫正在被使用！請確定已關(guān)閉其它藥店管理程序！'）；

label1.Caption：='恢復(fù)失??！'；

end；

5 小結(jié)

本文設(shè)計并實現(xiàn)的醫(yī)藥銷售管理系統(tǒng)，打破了傳統(tǒng)醫(yī)藥銷售手工化的模式，促進(jìn)了醫(yī)藥銷售信息化、計算機化的建設(shè)發(fā)展。

參考文獻(xiàn)：

[1] Barrow John.Introducing Delphi Programming[M].Oxford Univ，2005.

[2] Turley Paul.Beginning Transact-SQL With SQL Server 2000[M].Bokkazine，2005.

[3] Michael Wood.The Road to Delphi[M].Picador，2004.