药品销售管理系统 系统开发 PB9.0

忙了两周,终于可以初步搞定了,虽然还有好多东西没考虑周到.但起码能执行基本的业务操作了.待以后再修改了..

《管理信息系统》 课程设计

说 明 书

摘要

这次做的药品销售管理系统是在学习完管理信息系统的课程后做的课程设计,旨在将我们学到的知道应用到实践当中,本系统所选的选题是“柳州桂中大药房连锁有限责任公司药品销售管理系统设计与开发”,在经过一段时间的调查后,初步确定了系统的几个功能,如进药单管理,库存管理,卖药单管理,以及药品信息查询与修改等功能。

本系统使用的开发工具是PB9.0,后台数据库是本地Microsoft SQL server2000,通过专用接口Mss Microsoft SQL ServerPB9.0前台连接。在开发过程中,由于技术以及时间的限制我采用基于客户/服务器(Client/Server)的开发模式,通过这种开发模式,可以快速的建立系统的原型,缩短开发时间。本系统提供的功能模块有:系统设置模块,其中设有用户密码修改与添加用户,其中只有系统员有权限添加用户。系统修改与维护模块,其中设有最低库存设定,药品价格调整,药品信息修改。可以对库存与药品的信息进行修改,当然也是系统员才能修改。业务操作模块,下有进药单录入与卖药单录入。查询模块,可以对进药单与卖药单按日期进行查询,对库存药品信息进行查询。还有就是对失效药品的查询。此外还有销售统计模块,帮助模块。有了这些模块,就可以对日常药品销售业务进行计算机基本操作了。

关键字:药品,药品管理系统,药品销售管理系统,PB系统开发,系统设计

Abstract

This time it was done drug sales management system is completed in the study of management information systems courses do curriculum design, is to know that we have learned into practice, The system selected topics is "<city w:st="on"><place w:st="on">Liuzhou</place></city>, Guangxi, large pharmacy chain limited liability company drug sales management system design and development" After a period of investigation, the preliminary determination of the several functions, such as drugs into single management, inventory management, single management medications, and drug information inquiries with the revision, and other functions. The use of the system development tool is PB9.0. background database is a local Microsoft SQL Server2000. Mss through a dedicated interface for Microsoft SQL Server and connecting PB9.0 prospects. In the development process, As technology and time constraints, I have used based on client / server (Client / Server) Development model, through the development of this model, it is the rapid establishment of the prototype system, shortening development time. The system provides functional modules : system setup module, which provides users with password changes add users, Only members have authority system add users. System modifications and maintenance module, which provides a minimum inventory settings, adjust the prices of drugs, drug information changes. Be right inventory and drugs, the information changes, and of course members can amend the system. Operational modules, is a single-entry into drugs and medications single input. Query Module, right into prescriptions for medications and single query by date, the drug inventory information inquiries. There is the failure of the drugs inquiry. In addition, sales statistics module, module help. With this module, will be able to daily drug sales operations in the basic operation of the computer.

Keywords :medicine ,medicine management system ,medicine marketing management system,powerbuilder system development,system design



一、引言

信息全球化的今天,计算机作为当今重要的信息产品,成为大众必不可缺的工具。计算机技术广泛应用于日常办公,使我们可以进行文字处理、电子报表以及进行简单的人事管理、财务管理等,计算机的普及大大提高了我们的工作效率;代替人工进行许多繁杂的劳动;节省许多资源;使管理更具规范化,系统化,科学化[1]

随着计算机技术的发展和普及,各行各业的管理机构需要由计算机处理大量的信息。在我国药品品种繁多,规模甚大,以往的手工记载、查询操作容易出错且工作效率低,已经不能适应时代发展的要求,而且手工管理要浪费许多人力和物力,从管理的角度来看,对管理者会造成诸多的不便,还有可能疏忽一些细节,让不法商家逃脱罪责。

利用计算机进行药品管理,堵塞了药品的流失。规范了价格管理,避免了人为的物价损失,从而明显地提高医院的经济效益。将销售行为纳入规范化、公开化的轨道,从制度上纠正医药商品购销活动中的不正之风。
21
世纪是信息时代,在这个信息时代里竞争异常激烈,手工管理这种传统的管理方法必然被计算机为基础的信息管理所取代,所以实现药品的信息智能化管理特别重要。通过药品管理系统可以让药品监督部门有效的管理各地方的售药机构;其次,让顾客增加对售药机构的可信度;再次,各个售药机构可以方便的了解到这一段时间的售药情况,顾客消费情况和顾客满意程度等等;更重要的是统一的药价管理机制,与顾客之间建立了友好的关系,增进了与顾客之间的交流,为售药机构自身发展提供有力的支持[1]

为了响应国家药品监督管理局提倡药品管理实现智能化的号召,我们开发药品管理系统为实现药品智能管理作了充分的准备工作。通过本系统的实施可以有效的提高药品录入统计工作。缩短业务流程,提高操作效率。为企业提高生产力水平发挥了重要作用。

二、项目背景介绍

(一)组织简介

柳州桂中大药房连锁有限责任公司是广西柳州医药有限责任公司(原广西柳州医药批发站)发起并控股的医药连锁企业。现有直营门店近四十家,其中北站路药店、五一药店、潭中药店、屏山新药特药店、鱼峰山药店、银雀药店、长风药店、阳光药店、银山药店、柳江朝阳药店为柳州医疗保险定点药店,全公司采取统一标识、统一采购配送、统一价格、统一服务规范、统一管理模式运作,并不断地朝着规范、规模化经营管理迈进。

柳州桂中大药房连锁有限责任公司是柳州市首家通过国家药品经营质量规范(GSP)认证的医药连锁企业。经营业务面向全国,涵盖全区。经营范围包括中药材、中药饮片、中成药、化学原料药、化学制剂、抗生素、生化药品、生物制品、诊断药品、滋补保健品、医疗器械、化学试剂、玻璃仪器等各大类医药商品,经营品种达一万多个。

柳州桂中大药房连锁有限责任公司药品销售部的组织结构图大致如下:

<shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><stroke joinstyle="miter"></stroke><formulas><f eqn="if lineDrawn pixelLineWidth 0"></f><f eqn="sum @0 1 0"></f><f eqn="sum 0 0 @1"></f><f eqn="prod @2 1 2"></f><f eqn="prod @3 21600 pixelWidth"></f><f eqn="prod @3 21600 pixelHeight"></f><f eqn="sum @0 0 1"></f><f eqn="prod @6 1 2"></f><f eqn="prod @7 21600 pixelWidth"></f><f eqn="sum @8 21600 0"></f><f eqn="prod @7 21600 pixelHeight"></f><f eqn="sum @10 21600 0"></f></formulas><path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></path><lock aspectratio="t" v:ext="edit"></lock></shapetype><shape id="_x0000_i1029" style="WIDTH: 458.25pt; HEIGHT: 217.5pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image001.png"></imagedata></shape>

(二)旧系统分析

柳州桂中大药房连锁有限责任公司各分药店现在用的系统主要是录入销售单据.其它的功能很少涉及到.比如药店内药品的种类,数量,以及各时间段内销售量等无法做出统计.用人员统计的同时也耗费的大量的时间.

三、新系统分析

()系统方案

新系统设计是采用客户端/服务器模式,通过各分药店的计算机与公司总部联机各项事务.

实现分药店的主要数据录入和总部的统计分析处理.为公司整合各药品信息,进药信息,销售信息与统计提供了很好的统计工具.

()需求分析

柳州桂中大药房连锁有限责任公司在柳州快速发展,在柳州各个地区都设了分店,联锁经营.这必然需要大量的表单以及数据处理.在公司总部做好计算机信息化实施的同时.各分药店也必须跟上,以便能使公司的总体运作效率提升一个台阶.在这个基础上,关于各个药店的信息化实施是很紧迫的.依赖于系统的主要业务有:进药单登记与保存,库存盘点.药品信息整理与修改,卖药单整理统计,销售额统计等.

()可行性分析

随着计算机技术的发展和普及,各行各业的管理机构需要由计算机处理大量的信息,逐步实现智能化,从以前的以人为主到今天的以机器为主。在我国药品品种繁多,规模甚大,以往的手工记载、查询操作容易出错且工作效率低,浪费许多人力和物力,对管理人员会造成诸多的不便,还有可能疏忽一些细节,使顾客的利益将受到侵害。综上所述,药品管理系统的开发及应用是有前景的,有意义的,且是势在必行的。

小型的药品销售管理系统不需花费很大的开支,而且开发之后就可以不再开销而实施到各分药店当中,从经济上来说是可行的。另外在技术上,用计算机代替手工执行业务操作的基本技术已比较普遍。经过一定量时间也会开发并测试系统。因此,对各药店实施药品销售管理系统是可行的。

()系统功能分析

各药店的销售管理系统功能上以实际的业务操作了基础,相应设计出几个功能,具体有如下几个:

1.系统设置模块,设有用户密码修改与添加用户,其中只有系统员有权限添加用户。

2.系统修改与维护模块,其中设有最低库存设定,药品价格调整,药品信息修改。可以对库存与药品的信息进行修改,当然也是系统员才能修改。

3.业务操作模块,下有进药单录入与卖药单录入。

4查询模块,可以对进药单与卖药单按日期进行查询,对库存药品信息进行查询。还有就是对失效药品的查询

5.销售统计模块。列出某个时间段的卖药单列表,统计销售总额,

6.帮助模块。对系统的使用提供帮助。

四、系统流程分析

(一)业务流程图及分析

<shape id="_x0000_i1030" style="WIDTH: 343.5pt; HEIGHT: 516pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image003.emz"></imagedata></shape>

以上是销售部分大致的流程.

(二)数据流程图及分析

根据需求分析,所设计系统的相关数据流程如下:
1
、基础数据录入:包括对药品信息的录入,进药单卖药单录入.

2、数据查询:对进药单信息、卖药单信息、药品基本信息等的查询。

3、数据分析:对药品销售情况的统计,即对一段时间内销售额情况的统计与图形分析.

4、统计查询结果的输出:根据用户需要,输出打印各种表单以及信息查询结果.

根据对系统整体的数据分析与设计,得出了以下数据流程图:

<shape id="_x0000_i1025" style="WIDTH: 467.25pt; HEIGHT: 356.25pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image005.emz"></imagedata></shape>

(三)实体-关系图

<shape id="_x0000_i1031" style="WIDTH: 459pt; HEIGHT: 233.25pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image007.png"></imagedata></shape>

<shape id="_x0000_i1032" style="WIDTH: 468pt; HEIGHT: 261.75pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image009.png"></imagedata></shape>

(四)数据字典

1.用户表:

<shape id="_x0000_i1033" style="WIDTH: 253.5pt; HEIGHT: 78pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image011.png"></imagedata></shape>

2.药品表:

<shape id="_x0000_i1034" style="WIDTH: 246.75pt; HEIGHT: 128.25pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image013.png"></imagedata></shape>

3.库存表:

<shape id="_x0000_i1035" style="WIDTH: 254.25pt; HEIGHT: 102.75pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image015.png"></imagedata></shape>

4.药店表:

<shape id="_x0000_i1036" style="WIDTH: 259.5pt; HEIGHT: 78pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image017.png"></imagedata></shape>

5.进药表:

<shape id="_x0000_i1037" style="WIDTH: 258pt; HEIGHT: 114pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image019.png"></imagedata></shape>

6.卖药表:

<shape id="_x0000_i1038" style="WIDTH: 258.75pt; HEIGHT: 114pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image021.png"></imagedata></shape>

(五)系统代码设计

(1)进药单号设计:

进药单号由两个部分组成:第一部分是进药的简称(jy),第二部分是6位数的顺序编号,000001开始累计。合起来是jy000001 如图:

jy 000001


拼音首字母 顺序编号

(2)卖药单号设计:

卖药单号跟进药单号一样,也是由两个部分组成,第一部分是卖药的简称(my),第二部是6位数的顺序编号, 也从000001开始累计。合起来是my000001,如图:

my 000001


拼音首字母 顺序编号

五、系统设计

(一)开发工具与环境

本次系统设设计计使用的前台开发工具是powerbuilder9.0,后台数据库是SQL server2000.powerbuilder开发完后编译,并打包。开发的操作系统是windows xp sp2

(二)系统功能结构设计

根据需求分析及系统设计得出了系统的功能结构:

模 块 名 称

模块功能

系统设置

密码修改

修改已经登陆的用户的密码

用户信息维护

添加删除用户,其中只有系统员有权限添加用户

系统修改与维护

最低库存设定

可以对库存中的最低库存量进行设置,动态调整

药品价格调整

当市场上药品价格改变时,可以对某类药品的价格进行调整

药品信息修改

对药品的信息进行修改,维护

业务操作

进药单录入

日常业务操作,录入后日后可以查询

卖药单录入

日常业务操作,录入后日后可以查询

进药单查询

对进药单进行查询,统计信息,包括总额。

单药单查询

对卖药单进行查询,统计信息,包括总额。

库存药品查询

查看库存中药品的库存情况

失效药品查询

查看失效药品的信息,以及对预定日期失效药品的查询

销售统计

销售统计

以图形形式显示一个时间段内的销售额情况。方便企业高层进行决策。

帮助模块

关于

关于系统版本的信息

帮助

对系统中出现的问题的帮助信息。

(三)系统功能模块介绍

<shape id="_x0000_i1039" style="WIDTH: 467.25pt; HEIGHT: 241.5pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image026.emz"></imagedata></shape>

(四)系统界面特点介绍

(1)库存预警

这次的系统我设计了一个缺货库存预警,当库存量低于最低库存时,操作员一登陆,系统就会提示库存缺货.只有用户点击确定才能登陆到主系统窗口.

<shape id="_x0000_i1040" style="WIDTH: 163.5pt; HEIGHT: 90pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image028.png"></imagedata></shape>

(2)进药单录入窗口:

打开时默认进入进药单录入项

<shape id="_x0000_i1041" style="WIDTH: 444pt; HEIGHT: 243.75pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image030.png"></imagedata></shape>

录入后可以点击查看标签查看.

<shape id="_x0000_i1042" style="WIDTH: 467.25pt; HEIGHT: 286.5pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image032.png"></imagedata></shape>

(3)最低库存设定窗口:

在这个窗口可以设定某种药品在某个药店的最小库存量,另外,当发现库存总价或数量与实际不符时可点更新按钮重新核算。

<shape id="_x0000_i1043" style="WIDTH: 468pt; HEIGHT: 331.5pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image034.png"></imagedata></shape>

(4)进药单查询窗口:

<shape id="_x0000_i1044" style="WIDTH: 467.25pt; HEIGHT: 292.5pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image036.png"></imagedata></shape>

六、系统实施

(一)硬件实施

硬件最低配置:

CPU: 奔腾366mhz

内存:64MB

显示卡:标准VGA256色显示模式以上

其它设备:键盘、鼠标

(二)软件实施

中文Windows 98/2000/ME/NT/XP操作系统任何一种均可。因为本系统是在SQL server中生成数据库以及要用到PB来开发,所以在运行时必须要有SQL server以及PB软件平台的支持。

七、系统维护与调试

(一)系统调试

在系统设计实施完成了以后,我对系统进行了各方面的不断调试与维护,发现了好多问题并且绝大部分都解决了。比如,在进药单录入时,会出现进药单有记录而库存量却没有增加的情况。这是代码设计时考虑的情况不周引起的。

(二)系统维护

系统的整个维护分为:改正性维护、适应性维护和完善性维护。在具体的操作中主要是对系统的代码、程序以及数据进行维护。代码维护主要是指设置、修正、重新排列、添加和删除数据项等内容,程序对维护就是在调试的过程中,对操作方面的问题进行程序重写,而数据的维护就是不定期地对数据文件或数据库进行整理、修补以及备份,这里不包括主文件或主数据库的定期更新。

系统需要随时进行细致和周到的系统维护,根据维护活动具体内容的不同,系统数据维护的主要内容为:

1、程序维护:改写一部分或全部程序,充分利用原有的程序框架。

2、数据维护:不定期的对数据文件或数据库进行整理和修补,这里不包括主要

文件或主数据库的定期更新。

3、代码维护:包括设置、修正、重新排列、添加和删除数据项等内容。

八、系统评价与总结

在开发系统的过程中,总会不断地冒出问题,我们也总是在遇见问题,解决问题中学到了新的知识。从整个系统来看,能大致实现了现实中的业务流程,但用在实际当中应当还会不断的暴露出新的问题。限于时间问题,我也没有能够进行长时间的调试与维护。只能暂时的做到系统的正常运行。

我想,这次的系统设计我还是想出了以前没有做出没想到的新功能,比如:这次的系统我设计了一个缺货库存预警,当库存量低于最低库存时,操作员一登陆,系统就会提示库存缺货。对于药品的进药卖药单,我也能做到了非常好的整理,能够随时查询。并做好了销售额的统计分析。总的来说,这次的设计使我收益很大,当自己通过努力能把现实中的问题用计算机来解决时真的很有成就感。

致谢

感谢给我们传授数据库系统原理,powerbuilder开发工具知识,计算机原理等等关于计算机知识和编程的老师,学了这些知识,我才懂得了如何分析数据库,如何设计数据库的思路,并为我开发系统打下了良好的基础。在做系统的过程中,宿舍的舍友和同班的同学也给予了我极大的帮助,在此对他们表示感谢!在开发系统的过程中,我不断学习新的操作以及新的知识并因此掌握了更加深入的编程方法。实践是巩固所学知识最好的方法。这次的系统设计使我学到了很多知识和编程技巧。也使我自己的水平提升到了一个新的台阶。再次感谢给予我帮助的老师和同学们。

参考文献

[1]医院信息资源管理的兴起与发展趋势. 医学信息, 2003

[1] powerbuiler数据库应用系统开发教程 北京 清华大学出版社 2005.3

[2] powerbuiler8.0数据库应用系统开发教程 北京 清华大学出版社 2002.1

[3] powerscript语言·事件·函数 北京 电子工业出版社 2004.5

[4]王珊 陈红 数据库系统原理教程 北京 清华大学出版社 1998.7

[5]卫 海 等 powerbuiler课程设计案例精编 北京 中国水利水电出版社 2002.8

[6]吴志华 等 突破powerbuilder8.0编程实例五十讲北京 中国水利水电出版社 2002.6

[7]李政 等 powerbuilder8.0应用开发实例 北京 中国水利水电出版社 2002.5

[8]杨志鸿 等 powerbuilder基础类库技术详解 北京 中国水利水电出版社 2002.5

[9]刘云洲 于德壹 powerbuilder8.0数据窗口实用编程技术 北京 中国水利水电出版社2002.1

[10]袁松 powerbuilder8.0高级应用与开发 北京 中国水利水电出版社 2002.3

[11] 黄梯云 李一军 管理信息系统 北京 高等教育出版社 2005.3

[12]雷长海,严新文 朱志年. 院校教学信息管理系统的规划和设计. 医学信息, 2001,1

[13]崔亮,刘向东 等. 西京医院器材科信息管理网络系统的开发及相关技术. 医疗设备信息 2002.

[14]刘海鑫, 欧阳颖, 刘晓兰, 龚水如, 潘明阳. 新时期科研管理及科研保障工作的要求. 解放军医院管理杂志, 2002. 8

[15]薛原,胡敏 等 口腔医院器材管理的计算机信息系统. 解放军医院管理杂志, 2002,11

[16]薛华成. 管理信息系统. 北京: 清化大学出版社, 1993. 5

[17]罗正祥. 高校实验室管理信息化研究. 实验室研究与探索, 1998.3

[18]沙勇忠. 信息资源管理发展趋势. 情报资料工作, 2001, 1. 6~9

[19]卢泰宏. 当代信息资源管理的三维构架. 信息经济与技术, 1993, 12: 3~5

[20]陈功贯,潭必思. 基于客户/服务器模式的医学信息系统. 中南民族学院学报(自然科学版),2000

[21]徐一新. 信息网络基础及其医学应用. 上海: 上海医科大学出版社, 1999. 58

[22]王香灵. 如何发挥好计算机在医院管理中的作用. 中国卫生经济, 1998, 7: 52~53

[23]葛晓茗, 陆斌杰 中华现代医院管理杂志 20042月 第2卷 第2

[14]何忠芳, 陈岚, 张虹.中华实用医药杂志 2003年第3卷第11

附录一柳州桂中大药房有限责任公司药品销售管理系统部分源代码

(1)进药单录入:

添加按钮:

select max(jy_id)

into :ls_jy_id

from jinyao ;

if ls_jy_id ='' or isnull(ls_jy_id) then

ls_jy_id ="jy000001"

else

ls_jy_id ="jy" + string(integer(right(ls_jy_id,6)) + 1,"000000")

end if

ll_row = dw_1.insertrow(0)

dw_1.scrolltorow(ll_row)

dw_1.setitem(ll_row,"jy_id",ls_jy_id)

dw_1.setfocus()

dw_1.setcolumn('yp_id')

保存按钮:

tab_1.tabpage_1.dw_1.settransobject(sqlca)

//从数据窗口中取进药数量,药品编号,药店编号

jy_shuliang=tab_1.tabpage_1.dw_1.getitemnumber(ll_row,"jy_shuliang")

yp_id=tab_1.tabpage_1.dw_1.getitemstring(ll_row,"yp_id")

yd_id=tab_1.tabpage_1.dw_1.getitemstring(ll_row,"yd_id")

//jy_date=(tab_1.tabpage_1.dw_1.getitemstring(ll_row,"jy_date"))

//保存进药单

if ls_jy_id="" or isnull(ls_jy_id) or yp_id="" or yd_id="" then

messagebox("提示","信息不全,请重新填写")

else

tab_1.tabpage_1.dw_1.update()

if sqlca.sqlcode<>0 then

rollback;

messagebox("提示","保存失败!",stopsign!)

return;

else

commit;

end if

//读取数据库中库存数量,药品价格

select yaopin.yp_jiage,kucun.kc_shuliang

into :yp_jiage,:kc_shuliang

from yaopin,kucun,yaodian

where kucun.yp_id=yaopin.yp_id and

kucun.yp_id=:yp_id;

//更新库存中库存数量,药品总价.

long new_ku_shuliang

new_ku_shuliang=kc_shuliang+jy_shuliang

update kucun

set kc_shuliang=:new_ku_shuliang,

kc_zongjia=:new_ku_shuliang*:yp_jiage

where yp_id=:yp_id and yd_id=:yd_id

using sqlca;

if sqlca.sqlcode=0 then

commit;

messagebox("提示","保存信息成功!")

else

rollback;

messagebox("提示","保存信息失败!")

end if

end if

tab_1.tabpage_2.dw_2.retrieve(date('1900-00-00'),date('2200-12-30'))

// tab_1.tabpage_2.dw_2.retrieve(ls_jy_id)

tab_1.tabpage_1.cb_3.enabled=false

tab_1.tabpage_1.cb_4.enabled=true

2)卖药单录入:

确定卖出按钮:

ls_my_id=trim(tab_1.tabpage_1.sle_1.text)

yp_id=tab_1.tabpage_1.ddlb_1.text

yd_id=tab_1.tabpage_1.ddlb_2.text

my_shuliang=long(tab_1.tabpage_1.sle_5.text)

//my_zongjia=```` //卖药总价在总价那已经算出

my_date=date(tab_1.tabpage_1.em_1.text)

my_beizhu=tab_1.tabpage_1.mle_1.text

if sle_1.text="" or tab_1.tabpage_1.ddlb_1.text="" or tab_1.tabpage_1.ddlb_2.text="" then

messagebox("提示:","输入的信息不全,请确认!")

else

ll_row=tab_1.tabpage_2.dw_1.insertrow(0)

tab_1.tabpage_2.dw_1.setitem(ll_row,1,ls_my_id)

tab_1.tabpage_2.dw_1.setitem(ll_row,2,yp_id)

tab_1.tabpage_2.dw_1.setitem(ll_row,3,yd_id)

tab_1.tabpage_2.dw_1.setitem(ll_row,4,my_shuliang)

tab_1.tabpage_2.dw_1.setitem(ll_row,5,my_zongjia)

tab_1.tabpage_2.dw_1.setitem(ll_row,6,my_date)

tab_1.tabpage_2.dw_1.setitem(ll_row,"my_beizhu",my_beizhu)

messagebox("提示:","卖出成功,请点击保存按钮保存!")

end if

保存按钮:

tab_1.tabpage_2.dw_1.settransobject(sqlca)

if yp_id="" or ls_my_id="" or yd_id="" then

messagebox("提示:","请先卖出后再保存!")

else

//读取数据库中库存数量/

select kucun.kc_shuliang

into :kc_shuliang

from kucun

where kucun.yp_id=:yp_id;

//更新库存中库存数量,药品总价.//

long new_ku_shuliang

new_ku_shuliang=kc_shuliang - my_shuliang

if new_ku_shuliang<=0 then

messagebox("提示:","库存量不够!")

else

update kucun

set kc_shuliang=:new_ku_shuliang,

kc_zongjia=:new_ku_shuliang*:yp_jiage

where yp_id=:yp_id and yd_id=:yd_id

using sqlca;

if sqlca.sqlcode=0 then

commit;

else

rollback;

return

end if

//更新卖药单表

if tab_1.tabpage_2.dw_1.update()=1 then

commit;

messagebox("提示:","保存成功!")

else

rollback;

messagebox("提示:","保存失败!")

end if

end if

end if

3)库存量设定:

设置按钮:

string yp_id

kc_min_new=real(trim(sle_4.text)) //取得新库存数量

//更新数据窗口里的最低库存数量

dw_1.setitem(ll_row,7,kc_min_new)

//保存数据

//yp_id=dw_1.getitemstring(ll_row,"yp_id") //取得药品编号

update kucun

set kc_min=:kc_min_new

where kucun.yp_id=:yp_id

using sqlca;

if sqlca.sqlcode=0 then

commit;

messagebox("提示","新最低库存量保存成功!")

sle_3.text=""

else

rollback;

messagebox("提示","数据库出错,保存失败!")

end if

4)进药单查询:

按时间段查询按钮:

date ls_stat_date,ls_end_date

ls_stat_date =date(em_1.text)

ls_end_date =date(em_2.text)

dw_1.settransobject(sqlca)

dw_1.retrieve(ls_stat_date,ls_end_date)

附录二柳州桂中大药房有限责任公司药品销售管理系统使用说明书

1.在计算机上已安装有Microsoft SQL Server 2000数据库服务器的以及powerbuidler8.0的情况下,用户可以按照安装系统安装包过程中的提示进行安装,完成之后即可运行使用。

2.在运行系统后如库存量低于最底库存量的话,就会弹出如同下图所示的提示。

<shape id="_x0000_i1045" style="WIDTH: 154.5pt; HEIGHT: 96pt" type="#_x0000_t75"><imagedata o:title="{04B94433-5586-4533-AB76-2FB232AC55C7}" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image038.png"></imagedata></shape>

3.主界面

由下图可以看出本系统主要由系统设置、系统修改与维护、业务操作、查询、销售统计、帮助等模块组成,由于篇幅所限,以下只详细介绍主要功能模块的使用说明。

<shape id="_x0000_i1046" style="WIDTH: 349.5pt; HEIGHT: 118.5pt" type="#_x0000_t75"><imagedata o:title="{AF493A12-551A-4C07-A6B3-5AB377061302}" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image040.gif"></imagedata></shape>

4业务操作

1)在业务操作模块中主要是对进来的药品和卖出的药品根据进药单以及卖药单录入基础数据,在打开“进药单录入”项点击【添加】按扭后后,系统会自动对进药单进行编号,减少了操作员的操作失误。如下图所示:

<shape id="_x0000_i1047" style="WIDTH: 415.5pt; HEIGHT: 149.25pt" type="#_x0000_t75"><imagedata o:title="{F3D97742-8350-4BC4-8404-872962B89A00}" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image041.png"></imagedata></shape>

2)在打开“卖药单录入”项后系统会自动编写卖药单号,减少了操作员的操作失误,其他的项目则由操作员进行手工输入,在信息没有填写完整的时候,系统会提示“输入的信息不全,请确认”的信息,。如下图所示

<shape id="_x0000_i1048" style="WIDTH: 414.75pt; HEIGHT: 248.25pt" type="#_x0000_t75"><imagedata o:title="04" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image043.png"></imagedata></shape>

5.系统修改与维护

1)在此模块操作员以及系统员可以对最低库存量以及药品的价格和药品信息进行调整。可以看出当输入药品编号的时候,高亮度条会进行实时检索,减少了操作员的操作时间。

<shape id="_x0000_i1049" style="WIDTH: 415.5pt; HEIGHT: 212.25pt" type="#_x0000_t75"><imagedata o:title="05" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image045.png"></imagedata></shape>

2)在打开药品价格调整菜单项后,操作员在输入药品编号后,系统会自动检索出药品原来的价格,在用户输入新的价格后,就可以点击【保存】按扭了,在保存成功后,系统会提示“保存信息成功!”

<shape id="_x0000_i1050" style="WIDTH: 414.75pt; HEIGHT: 201pt" type="#_x0000_t75"><imagedata o:title="06" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image047.png"></imagedata></shape>

6.查询

1)在查询模块,操作员可以进行进药、卖药、失效药品以及库存药品的查询,在操作员打开“进药单查询”菜单项后,可以按进药日期查询,也可以按进药编号检索,同时可以将检索结构导出到excel以及word中,也可以将其通过打印的方式将结果打印出来。其界面如下图:

<shape id="_x0000_i1051" style="WIDTH: 414.75pt; HEIGHT: 213.75pt" type="#_x0000_t75"><imagedata o:title="08" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image049.png"></imagedata></shape>

2)打开“库存药品查询”菜单项后,系统会自动检索出在库药品的信息,并可以导出到excel以及word中,点击“打印”按扭后可以显示如下窗口,在此可以设置打印的字体以及缩放比例等。

<shape id="_x0000_i1052" style="WIDTH: 415.5pt; HEIGHT: 165.75pt" type="#_x0000_t75"><imagedata o:title="09" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image051.png"></imagedata></shape>

3)在打开“失效药品查询”后,可以设置要查看到何期限的失效药品,也可以全部显示失效的药品,同时可以统计出经济损失的金额。其界面如下:

<shape id="_x0000_i1028" style="WIDTH: 414.75pt; HEIGHT: 218.25pt" type="#_x0000_t75"><imagedata o:title="03" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image053.png"></imagedata></shape>

7.系统设置

1)在此模块中操作员以及系统员可以更改自己的密码,以及添加新才用户信息。打开“密码修改”菜单项后,会弹出如下的窗口,在此窗口中用户更改自己的信息。

<shape id="_x0000_i1026" style="WIDTH: 346.5pt; HEIGHT: 145.5pt" type="#_x0000_t75"><imagedata o:title="01" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image055.png"></imagedata></shape>

2)在“用户信息维护”菜单项中,可以添加新的用户,也可以删除其他用户的信息。其窗口如下:

<shape id="_x0000_i1027" style="WIDTH: 363.75pt; HEIGHT: 186.75pt" type="#_x0000_t75"><imagedata o:title="02" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image057.png"></imagedata></shape>

<shape id="_x0000_i1027" style="WIDTH: 363.75pt; HEIGHT: 186.75pt" type="#_x0000_t75"><imagedata o:title="02" src="file:///C:/DOCUME~1/qinxike/LOCALS~1/Temp/msohtml1/01/clip_image057.png"></imagedata></shape>

  • 1
    点赞
  • 0
    评论
  • 7
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值