医药销售管理系统的设计与实现

段文倩

摘要：该文设计并实现的医药销售管理其核心功能包括：药品的销售管理、药品的入库和出库管理、企业销售数据的统计、药品信息的添加、删除、查询和修改、单位职员信息管理和退出等。通过医药销售管理系统的使用与实施，使医药经营企业从纯手工的管理中解脱出来。该文设计并实现的医药销售管理系统用户界面友好，实用性强，可以使企业的管理更加方便，也让企业的工作效率得到提高。

关键词：医药；销售管理；企业

中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2014）28-6582-06

1 概述

本文设计并实现的医药销售管理系统的目标是做到操作界面简洁，让用户一目了然，并且上手简单，功能齐全。后台的数据库要保证其完整性和一致性，维护简单。该文设计并实现的医药销售管理系统的特点是操作简便，提高工作人员的效率。不同工作人员有不同的登陆ID，不同的ID可设置不同的权限范围。该文设计并实现的医药销售管理系统可以对不同操作员进行不同的权限设置，为不同的操作员分配其可以进行操作的模块，所有的用户按照各自权限的不同可以读取或修改数据库的内容。

2 系统功能结构

根据系统需求，医药销售管理系统可以分为六个模块，即药品销售模块、药品出入库管理模块、数据统计模块、药品基本信息管理模块、系统维护模块和退出模块。

系统功能模块图如图1所示。

3 数据库设计

本系统的数据库是使用SQL Server来创建的，涉及到的关键数据表主要有：

1）来往单位信息表

存储来往单位的基本信息，包括客户ID、简码、名称、法人、电话、地址、备注、类型、出入、联系人。来往单位信息表如表1所示。

4 关键模块实现

本文设计并实现的医药销售管理系统在实现基本功能的基础上，做到了操作简单，界面清晰，医药销售管理系统如图2所示。

4.1 药品基本信息管理

由于药品这类商品的特殊性，保证药品的安全性相当重要，对于药品信息的记录和统计必须仔细和准确。此模块包括药品浏览、新增药品、药品修改、药品调价四个功能。在新增药品、药品修改、药品调价的操作界面中加入对用户的提示，使用户注意对药品进行分类。为了避免操作上的复杂，新增药品、药品修改两个功能的界面都可以通过点击药品浏览界面中的添加、修改按钮来调出。但药品调价的界面则只能通过点击药品基本信息管理下拉菜单中“药品调价”来调出。

在新增药品、药品修改功能中，剂型、药品单位、生产厂家、药品类型四项可以通过下拉列表来选择，而药品编号、药品代码、药品名称、条码、药品规格、批准文号、库存最高限量、库存最低限量、批发价、零售价、功能主治则由于药品品种繁多必须通过人工手动输入。新增药品界面如图3所示。

药品浏览调出药品字典，药品字典包括数据库中所有药品的基本信息，包括名称、编号、简码、批发价、零售价、条码、单位、规格、生产厂家、批准文号、最高限量和最低限量。新增药品、药品修改、药品调价所调出的为同一个界面，但能使用的功能不同，新增药品可以填写药品的所有信息；药品修改可以重新修改、填写除价格外的所有信息；药品调价只能修改药品的零售价与批发价，不能修改其它信息。药品字典可以直接调用SQL Server数据库中药品信息表；新增药品、药品修改、药品调价将药品添加和修改的各种信息保存至药品信息表。

4.2 药品出入库管理

此模块包括药品入库、药品退货、药品报损和存货浏览四个功能。在此模块的入库、退药、报损和存货浏览是针对使用此系统的医药企业，属于后台的管理。药品出入库管理要能够保证药品入库和出库（退货、报损）的准确，明确药品入库、出库的责任人，包括操作人和经手人，并可将入库、出库单据打印出来，以便之后的核对与统计。

药品入库使医药销售企业掌握自身的药品进货情况，掌握的信息包括药品的成本、数量、规格、效期、进货单位等；药品退货实现对不符合企业要求的药品进行退货的功能；药品报损实现对于超过有效期或者质量出现问题的药品进行报损的功能；存货浏览可查看库存中各种药品的信息，包括药品的名称、简码、单位、规格、剂型、数量、购进单位、生产厂家和批准文号。

药品入库、药品退货和药品报损是对药品信息表中的药品数量和购进、退货、报损金额进行加减后保存，故可以记录药品入库、药品退货和药品报损的信息。药品库存浏览是直接调用数据库中药品信息表内的信息进行查看。

药品库存浏览界面如图4所示。

4.3 系统维护

系统维护模块包括员工管理、部门管理、往来单位、更换密码、用户管理、备份数据功能。

员工信息、部门信息、往来单位信息均可在基本信息界面中直接修改，三者也可通过员工信息按钮、部门信息按钮和往来单位按钮进行切换。系统维护模块中，员工信息提供工作人员各类信息的查询与修改功能，包括员工编号、姓名、简码、性别、年龄、所属部门、职务、雇佣日期、学历、住址、身份证号、联系方式、备注；部门信息提供各部门的信息查询和修改功能，包括部门编号、部门名称、简码；往来单位提供业务单位的信息查询、修改功能，包括单位名称、单位简码、单位类型、货物流向、法人、联系人、电话、地址、备注；更换密码提供当前系统登录用户修改自己密码的权力，要求输入旧密码以确认用户身份以及输入新密码进行修改；用户管理模块只有管理员有权使用，管理员可以通过此功能模块新增、删除用户，并授予新用户其工作所需要的权限，同时也可以对老用户的权限进行修改以适应其新的工作要求；备份数据提供备份当前药品信息的功能；恢复数据提供恢复上一次所备份药品信息的功能。

用户管理如图5所示。

员工管理直接读取SQL Server数据库中员工信息表；部门管理直接读取SQL Server数据库中部门信息表；往来单位直接读取SQL Server数据库中往来单位信息表；更换密码修改用户表中的密码；用户管理在用户表中添加或删除权限；实现备份功能的关键代码为：

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

a1.Active：=true；

adodm.cback.CommandText：='backup database yd to disk=''d：＼Program Files＼Microsoft SQL Server＼MSSQL＼BACKUP＼yd.back'''；//设置备份地址

try

adodm.cback.Execute；

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

except

label1.Caption：='备份失败！'；a1.Active：=false；

end；

//恢复备份的关键代码

begin

label1.Caption：='正在恢复....'；

adodm.ydconn.Close；

if application.MessageBox（'此操作将使上次备份以来的所有数据丢失，是否继续？'，'恢复数据'，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'；//设置恢复地址

try

try

adodm.cback.Execute；

label1.Caption：='恢复成功！'；

except

showmessage（'数据库正在被使用！请确定已关闭其它药店管理程序！'）；

label1.Caption：='恢复失败！'；

end；

5 小结

本文设计并实现的医药销售管理系统，打破了传统医药销售手工化的模式，促进了医药销售信息化、计算机化的建设发展。

参考文献：

[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'''；//设置备份地址

try

adodm.cback.Execute；

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

except

label1.Caption：='备份失败！'；a1.Active：=false；

end；

//恢复备份的关键代码

begin

label1.Caption：='正在恢复....'；

adodm.ydconn.Close；

if application.MessageBox（'此操作将使上次备份以来的所有数据丢失，是否继续？'，'恢复数据'，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'；//设置恢复地址

try

try

adodm.cback.Execute；

label1.Caption：='恢复成功！'；

except

showmessage（'数据库正在被使用！请确定已关闭其它药店管理程序！'）；

label1.Caption：='恢复失败！'；

end；

5 小结

本文设计并实现的医药销售管理系统，打破了传统医药销售手工化的模式，促进了医药销售信息化、计算机化的建设发展。

参考文献：

[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'''；//设置备份地址

try

adodm.cback.Execute；

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

except

label1.Caption：='备份失败！'；a1.Active：=false；

end；

//恢复备份的关键代码

begin

label1.Caption：='正在恢复....'；

adodm.ydconn.Close；

if application.MessageBox（'此操作将使上次备份以来的所有数据丢失，是否继续？'，'恢复数据'，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'；//设置恢复地址

try

try

adodm.cback.Execute；

label1.Caption：='恢复成功！'；

except

showmessage（'数据库正在被使用！请确定已关闭其它药店管理程序！'）；

label1.Caption：='恢复失败！'；

end；

5 小结

本文设计并实现的医药销售管理系统，打破了传统医药销售手工化的模式，促进了医药销售信息化、计算机化的建设发展。

参考文献：

[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.