药店管理信息系统报告.docx

1、药店管理信息系统报告成绩管理信息系统课程设计报告系统名称 药店信息管理系统 班级管093姓名张新萌、田新驰、李新雷学号04 、06、122011年12月14 日一、 系统分析系统名称 ： 药店管理信息系统 .开发背景、目的、意义 ：随着人们生活水平的提高，健康意识的增强，对医药产品的需 求也迅速增加。 药店作为医药产品的主要销售渠道， 也处于高速发展时期， 同时也加剧了产 业间的竞争。 为了加强企业的内部管理， 提高运营效率， 利用现代信息技术提高企业的管理 水平已非常迫切。另外，由于医药产品种类繁多、销售模式特殊、业务量大，单凭手工记账 已很难适应工作的需要。 医药作为一个关系到人们健良的特

2、殊行业， 国家对医药行业又有一 些不同于其他行业的管理政策， 这些都加大了管理的难度。 如何尽快建立和完善现代企业的 信息化管理机制问题，已成为医药企业发展的关键所在。本课题以提高药店的医药管理水平和效率为目标， 建立了管理信息系统。 该系统能集中处理 药品的进销存业务及其应付账目，实现了药店的现代化管理。实现目标： 面对医药行业的高速发展及其发展过程中出现的各种情况，药店管理信息系统 在实施后，应能够达到以下目标：(1)实现多点操作的信息共享，相互之间的信息传递准确，快捷和顺畅。(2)全面自动化管理，可随时掌握药品的库存、销售等情况。(3)系统界面友好美观，操作简单易行，查询灵活方便，数据存

3、储安全。(4)能够快速、准确地处理药品进、销、存、退、盘点、变价、折扣等多种业务模式。(5)提供助记码及支持多种结算方式。(6)系统维护方便可靠，有较高的安全性，满足实用性，先进性的要求。 ( 5)系统功能： 本系统由系统设置、日常业务、查询统计、库存管理、基础信息管理五大分系 统组成。主要功能如下：(1)系统设置：初期建账，密码设置，数据备份，数据恢复。(2)日常业务：入库单，销售单，入库退单，销售退单。(3)查询统计：入库查询，销售查询，入库退货查询，销售退货查询。 (5)库存管理：库存盘点，库存查询，价格管理。6)基础信息管理：客户管理，供应商管理。药店管理信息系统E-R图M查询管理2.

4、2概念模型通过对用户需求分析进行综合、归纳与抽象、形成一个独立于具体DBMS的概念模型。在本药店管理系统中涉及到了 2种概念模型的抽象聚集模型概况模型2.3用例图和顶层数据流图O总体分析的用例图代售经理与供货商的用例图顾客与经理间的用例图填好的仓库信息仓库信息真写仓库信息仓库信息仓库药品信息填好的药品信息药品信息填写药品信息药 品 来 自编好号的采购单顾客信息确认的消 费单2.0处理消费单* 顾客所购药品确定未付款 的消费单填 写药品采购单信息所需药品领取顾客凭盖好章 的消费单依据消费 单上的药 品歹U表为所需药品3.0采购依 据 信 息经理信息经理交易金额确认收货已编过号 的消费单消费单信息

5、付款后进 行未处理的 消费单填写经理信息1.0付款填好的经理信息经理信息顶层数据流图1.系统总体设计(1)分解的数据流图处理消费处理采购组织结构或数学方法、构造模型。药店管理信息系统二、系统设计说明：系统设计较为复杂，源程序代码较长，所以报告中只摘录了一小部 分程序代码，其余代码详见程序中，程序先进入登陆界面，登陆后进入主界面， 登陆到主界面后即可点击进入相应的窗口。该系统采用Access数据库，数据库名称为yyjxc,它包括以下8个表：供应 商基础信息表gys,库存表kc,客户基础信息表kh,入库表rkd,入库退单表rktd, 密码表ma,销售表xsd,销售退单表xstd。1、系统登录模块及

6、主程序界面设计(1)系统登录模块(窗体名：系统登录.frm )-jfe覩所有-：aooo-&oia -：源程序代码较长，此处省略，详见程序中实现目标：程序启动后，首先进入系统登录界面验证操作员密码。其实现的功能如下:a.可选择操作员，支持鼠标和键盘操作b.操作员和密码验证成功后，进入主界面c.操作员错误或密码错误提醒并返回错误点。d.输入三次错误的密码，系统自动退出(2)主程序界面设计(窗体名：主界面.frm)Dim x, y As StringIf Textl.Text = 1 Then Set myform = main_rcyw_rkIf Text1.Text = 2 Then Set

7、myform = main_rcyw_rktdIf Text1.Text = 3 Then Set myform = main_rcyw_xsIf Text1.Text = 4 Then Set myform = main_rcyw_xstdIf myform.mf1.CellWidth = 0 Or myform.mf1.CellHeight = 0 Then Exit Subx = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)y = myform.mf1.TextMatrix(myform.mf1.Row, 0)If

8、 y ThenIf myform.mf1.Col - myform.mfl. LeftCol 0 And myform.mf1.CellHeight 0 Then myform.Text1.Width = myform.mf1.CellWidth myform.Text1.Height = myform.mf1.CellHeight myform.Text1.Left = myform.mf1.CellLeft + myform.mf1. Left myform.Text1.Top = myform.mf1.CellTop + myform.mf1.TopEnd Ifx = myform.mf

9、1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)y = myform.mf1.TextMatrix(myform.mf1.Row, 0)p = myform.mf1.TextMatrix(myform.mf1.Row, myform.mf1.Col) myform.Text1.Text = myform.mf1.Textmyform.Text1.SelStart = 0myform.Text1.SelLength = Len(myform.Text1.Text)End IfEnd SubPublic Sub moveright()If Tex

10、t1.Text = 1 Then Set myform = main_rcyw_rkIf Text1.Text = 2 Then Set myform = main_rcyw_rktdIf Text1.Text = 3 Then Set myform = main_rcyw_xsIf Text1.Text = 4 Then Set myform = main_rcyw_xstdIf myform.Text1.Text Thenmyform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text)End IfIf myf

11、orm.mf1.Col + 1 = myform.mf1.Cols - 1 Thenmyform.mf1.Col = myform.mf1.Col + 1ElseIf myform.mf1.Row + 1 = myform.mf1.Rows - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1End IfEnd IfEnd SubPublic Sub moveleft()If Text1.Text = 1 Then Set myform = main_rcyw_rkIf Text1.Text = 2 Then Set m

12、yform = main_rcyw_rktdIf Text1.Text = 3 Then Set myform = main_rcyw_xsIf Text1.Text = 4 Then Set myform = main_rcyw_xstdIf myform.Text1.Text Thenmyform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text)End IfIf myform.mf1.Col - 11 = myform.mf1.Cols + 1 Thenmyform.mf1.Col = myform.mf1

13、.Col - 1If myform.mf1.Col = 0 Then myform.mf1.Col = 1ElseIf myform.mf1.Row + 1 = myform.mf1.Row - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1End IfEnd IfEnd SubPublic Sub movereturn()If Text1.Text = 1 Then Set myform = main_rcyw_rkIf Text1.Text = 2 Then Set myform = main_rcyw_rktdI

14、f Text1.Text = 3 Then Set myform = main_rcyw_xsIf Text1.Text = 4 Then Set myform = main_rcyw_xstdIf myform.mf1.Col = 10 Thenmyform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1ElseIf myform.mf1.Col + 1 = myform.mf1.Cols - 1 Then myform.mf1.Col = myform.mf1.Col + 1ElseIf myform.mf1.Row + 1 = myform

15、.mf1.Rows - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1End IfEnd IfEnd IfEnd SubPrivate Sub Form_Load() 在标题栏上显示软件名称及版本Me.Caption = App.Title & 版本： V & App.Major & . & App.Minor & . & App.RevisionDim i As Integer 定义一个整型变量For i = 0 To 1Label1(i).Caption = App.TitleNext iLabel2.Captio

16、n = 版本： V & App.Major & . & App.Minor & . & App.RevisionEnd SubPrivate Sub rkd_Click() 调入入库单Load main_rcyw_rk main_rcyw_rk.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsd_Click() Load main_rcyw_xs main_rcyw_xs.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsth_Click() Load main_rcyw_xstd main_

17、rcyw_xstd.Show frm_main.Enabled = FalseEnd SubPrivate Sub rkth_Click() Load main_rcyw_rktd main_rcyw_rktd.Show frm_main.Enabled = FalseEnd SubPrivate Sub kccx_Click() Load main_kcgl_kccx main_kcgl_kccx.Show frm_main.Enabled = FalseEnd SubPrivate Sub kcpd_Click() Load main_kcgl_kcpd main_kcgl_kcpd.Sh

18、ow frm_main.Enabled = FalseEnd SubPrivate Sub jggl_Click() Load main_kcgl_jggl main_kcgl_jggl.Show frm_main.Enabled = FalseEnd SubPrivate Sub rkcx_Click() Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = 0 frm_main.Enabled = FalseEnd SubPrivate Sub thfccx_Click() Load main_rqDialog m

19、ain_rqDialog.Show main_rqDialog.Text1.Text = 1 frm_main.Enabled = FalseEnd SubPrivate Sub xscx_Click() Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = 2 frm_main.Enabled = FalseEnd SubPrivate Sub xsthcx_Click() Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = 3 frm_m

20、ain.Enabled = FalseEnd SubPrivate Sub gysgl_Click() 调入销售单调入销售退货调入退货返厂调入库存查询调入库存盘点调入价格管理调入入库查询调入退货返厂调入销售查询调入销售退货查询调入供应商管理Load main_jbxx_gys main_jbxx_gys.Show frm_main.Enabled = FalseEnd Sub Private Sub khgl_Click() Load main_jbxx_kh main_jbxx_kh.Show frm_main.Enabled = FalseEnd SubPrivate Sub cqjz_C

21、lick() Load main_xt_cqjz main_xt_cqjz.Show frm_main.Enabled = FalseEnd SubPrivate Sub mmsz_Click() Load main_xt_mmsz main_xt_mmsz.Show frm_main.Enabled = FalseEnd SubPrivate Sub sjbf_Click() Load main_xt_sjbf main_xt_sjbf.Show frm_main.Enabled = FalseEnd SubPrivate Sub sjhf_Click() Load main_xt_sjhf

22、 main_xt_sjhf.Show frm_main.Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase Is = rkd rkd_ClickCase Is = xsd xsd_ClickCase Is = xscx xscx_ClickCase Is = kccx kccx_ClickCase Is = gys gysgl_ClickCase Is = kh khgl_ClickCase Is = cqjz c

23、qjz_ClickEnd SelectEnd Sub 实现目标：密码验证成功后，进入程序主界面。其实现的功能如下：a. 选择主界面的菜单或工具栏，调用相应程序，进行相应操作。 b. 显示开发者信息、系统日期和时间。调入客户管理调入初期建帐调入密码设置调入数据备份调入数据恢复调入入库单调入销售单调入销售查询调入库存查询调入供应商管理调入客户管理调入初期建帐2、日常业务设计（ 1）入库单模块设计（窗体名：入库单 .frm ）程序代码过长，内容较多，详见程序中程序启动后，选择“日常业务”菜单下的“入库单”项，将进入入库单模块。其实现的 功能如下：a.完成药品入库工作，入库采用智能化表单式录入。b.自

24、动生成入库票号，可利用键在列表框中选择供应商信息c.系统自动统计入库品种、入库数量、入库金额。(2)销售单模块设计(窗体名：销售单.frm)程序代码过长，内容较多，详见程序中程序启动后，选择“日常业务”菜单下的“销售单”项，将进入销售单模块。其实现的 功能如下：a.完成药品销售的功能。b.自动生成销售票号、销售日期；统计销售品种、销售数量、销售金额。c.根据商品名称或简称自动检索相应的商品信息。(3)销售退单模块设计(窗体名：销售退单.frm)程序代码过长，内容较多，详见程序中程序启动后，选择“日常业务”菜单下的“销售退单”项，将进入销售退单模块。其实 现的功能如下：a.完成药品销售退货功能。

25、b.自动生成销售退单票号、销售退单日期；统计退货品种、退货数量、退货金额。c.根据商品名称或简称自动检索相应的商品信息。3、库存管理设计（1）库存查询模块设计（窗体名：库存查询.frm）Private Sub Form_Activate()向combo1添加查询项目列表Combo1.AddItem (商品名称)Combo1.Addltem ( 简称)Combo1.Addltem ( 批号)Combo1.List In dex = 0End SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & yyjxc.mdb 自动识别数据库路径E

26、nd SubPrivate Sub Form_Unl oad(Ca ncel As In teger)frm_mai n.En abled = TrueEnd SubPrivate Sub Comma nd1_Click()查询库存信息Data1.RecordSource = select * from kc where (kc. & Combol.Text & & like+ Chr(34) + Textl.Text + * + Chr(34) + )Datal.RefreshEnd SubPrivate Sub Comma nd2_Click() 删除库存信息On Error Resume

27、 NextDatal.Recordset.DeleteDatal.RefreshData2.RefreshEnd SubPrivate Sub Comma nd3_Click()frm_mai n.En abled = TrueUn load MeEnd Sub程序启动后，选择“库存管理”菜单下的“库存查询”项，将进入库存查询模块。其实 现的功能如下：a.选择字段查询库存商品信息，可模糊查询。b.删除库存商品信息。(2)库存盘点模块设计(窗体名：库存盘点.frm )Private Sub Form_Activate()设置ms1表格的列宽MSI.ColWidth(O) = 12 * 25 *

28、0: MSI.ColWidth(l) = 12 * 25 * 8MS1.ColWidth(2) = 12 * 25 * 0: MS1.ColWidth(5) = 12 * 25 * 5MS1.ColWidth(9) = 12 * 25 * 3: MS1.ColWidth(10) = 12 * 25 * 0 End SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & yyjxc.mdb End SubPrivate Sub Form_Unl oad(Ca ncel As In teger) frm_mai n.En abled =

29、TrueEnd SubPrivate Sub Comma nd1_Click()自动识别数据库路径盘点库存大于零的库存信息Data1.RecordSource = select * from kc where kc. Data1.RefreshMS1.Col = 9: MS1.Sort = flexSortNumericAsce ndi ng End SubPrivate Sub Comma nd2_Click()frm_mai n.En abled = TrueUn load MeEnd SubPrivate Sub MS1_Click()End Sub库存0 第9行按升序排序程序启动后，选择“库存管理”菜单下的“库存盘点”项，将进入库存盘点模块。其实现的功能是盘点库存商品信息。(3)价格管理模块设计(窗体名：价格管理.frm)Public Sub eval()If Data2.Recordset(0)=0If Data2.Recordset(1)定义赋值函数 Then pz.Caption = Data2.Recordset(0) Else pz.Caption Then hjsl.Caption = Data2.Recordset(1) Else hjsl.Caption = 0If Da