药店管理信息系统报告
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
myform.Text1.SelStart = 0
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
End Sub
Public Sub moveright()
If Text1.Text = "1" Then Set myform = main_rcyw_rk
本课题以提高药店的医药管理水平和效率为目标， 建立了管理信息系统。 该系统能集中处理 药品的进销存业务及其应付账目，实现了药店的现代化管理。
实现目标：面对医药行业的高速发展及其发展过程中出现的各种情况，药店管理信息系统 在实施后，应能够达到以下目标：
(1)实现多点操作的信息共享，相互之间的信息传递准确，快捷和顺畅。
Else
If myform.mf1.Row+ 1 <=myform.mf1.Rows- 1Then myform.mf1.Row=myform.mf1.Row+ 1myform.mf1.Col= 1
End If
End If
End If
End Sub
Private Sub Form_Load()
'在标题栏上显示软件名称及版本
If myform.mf1.Col- 11 <=myform.mf1.Cols+ 1Then
myform.mf1.Col=myform.mf1.Col- 1
If myform.mf1.Col= 0Then myform.mf1.Col= 1
Else
If myform.mf1.Row+ 1 <=myform.mf1.Row- 1Then myform.mf1.Row=myform.mf1.Row+ 1myform.mf1.Col= 1
If Text1.Text= "4"Then Set myform=main_rcyw_xstd
If myform.mf1.Col= 10Then
myform.mf1.Row=myform.mf1.Row+ 1myform.mf1.Col= 1
Else
If myform.mf1.Col+ 1 <=myform.mf1.Cols- 1Then myform.mf1.Col=myform.mf1.Col+ 1
源程序代码较长，此处省略，详见程序中
实现目标：
程序启动后，首先进入系统登录界面验证操作员密码。其实现的功能如下:
a.可选择操作员，支持鼠标和键盘操作
b.操作员和密码验证成功后，进入主界面
c.操作员错误或密码错误提醒并返回错误点。
d.输入三次错误的密码，系统自动退出
(2)
Dim x, y As String
该系统采用Access数据库，数据库名称为yyjxc,它包括以下8个表：供应 商基础信息表gys,库存表kc,客户基础信息表kh,入库表rkd,入库退单表rktd,密码表ma,销售表xsd,销售退单表xstd。
1
(1)系统登录模块(窗体名：系统登录.frm)
---jfe覩所有-：aooo-&oia--：：：：：
End If
If myform.mf1.CellWidth > 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.Top
If myform.Text1.Text <> "" Then
myform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text)
End If
If myform.mf1.Col+1 <= myform.mf1.Cols-1 Then
myform.mf1.Col = myform.mf1.Col+1
Else
If myform.mf1.Row+ 1 <=myform.mf1.Rows- 1Then myform.mf1.Row=myform.mf1.Row+ 1myform.mf1.Col= 1
End If
End If
End Sub
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
付款后进 行
未处理的 消费单
填写经理
信息
1.0
付款
填好的经
理信息
经理信息
顶层数据流图
1.
(1)分解的数据流图
处理消费
处理采购
组织结构或数学方法、构造模型。
药店管理信息系统
二、系统设计
说明：系统设计较为复杂，源程序代码较长，所以报告中只摘录了一小部 分程序代码，其余代码详见程序中，程序先进入登陆界面，登陆后进入主界面， 登陆到主界面后即可点击进入相应的窗口。
End If
x = myform.mf1.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.Text
If Textl.Text = "1" Then Set myform = main_rcyw_rk
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
系统功能：本系统由系统设置、日常业务、查询统计、库存管理、基础信息管理五大分系 统组成。主要功能如下：
(1)系统设置：初期建账，密码设置，数据备份，数据恢复。
(2)日常业务：入库单，销售单，入库退单，销售退单。
(3)查询统计：入库查询，销售查询，入库退货查询，销售退货查询。 (5)库存管理：库存盘点，库存查询，价格管理。
(2)全面自动化管理，可随时掌握药品的库存、销售等情况。
(3)系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。
(4)能够快速、准确地处理药品进、销、存、退、盘点、变价、折扣等多种业务模
式。
(5)提供助记码及支持多种结算方式。
(6)系统维护方便可靠，有较高的安全性，满足实用性，先进性的要求。(5)
6)基础信息管理：客户管理，供应商管理。
药店管理信息系统
M
2.2
通过对用户需求分析进行综合、归纳与抽象、形成一个独立于具体
概念模型。在本药店管理系统中涉及到了
聚集模型
概况模型
2.3
O
总体分析的用例图
代售
经理与供货商的用例图
顾客与经理间的用例图
填好的仓
库信息
仓库信息
真写仓库
信息
仓库信息
仓库
药ห้องสมุดไป่ตู้信息
填好的药
End Sub
Private Sub kccx_Click()'Load main_kcgl_kccx main_kcgl_kccx.Show frm_main.Enabled=False
End Sub
Private Sub kcpd_Click()'Load main_kcgl_kcpd main_kcgl_kcpd.Show frm_main.Enabled=False
成绩
管理信息系统课程设计报告
系统名称
班级
管093
姓名
张新萌、
田新驰、
李新雷
学号
04、
06
、12
2011年12月14日
一、 系统分析
系统名称
开发背景、目的、意义：随着人们生活水平的提高，健康意识的增强，对医药产品的需 求也迅速增加。 药店作为医药产品的主要销售渠道， 也处于高速发展时期， 同时也加剧了产 业间的竞争。 为了加强企业的内部管理， 提高运营效率， 利用现代信息技术提高企业的管理 水平已非常迫切。另外，由于医药产品种类繁多、销售模式特殊、业务量大，单凭手工记账 已很难适应工作的需要。 医药作为一个关系到人们健良的特殊行业， 国家对医药行业又有一 些不同于其他行业的管理政策， 这些都加大了管理的难度。 如何尽快建立和完善现代企业的 信息化管理机制问题，已成为医药企业发展的关键所在。
Public Sub moveleft()
If Text1.Text= "1"Then Set myform=main_rcyw_rk
If Text1.Text= "2"Then Set myform=main_rcyw_rktd
If Text1.Text= "3"Then Set myform=main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
If myform.mf1.CellWidth <= 0 Or myform.mf1.CellHeight <= 0 Then Exit Sub
x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)
End Sub
Private Sub rkd_Click()'调入入库单
Load main_rcyw_rk main_rcyw_rk.Show frm_main.Enabled=False
End Sub
Private Sub xsd_Click()'
Load main_rcyw_xs main_rcyw_xs.Show frm_main.Enabled=False
品信息
药品信息
填写药品
信息
药 品 来 自
编好号的采购单
顾客信息
确认的消 费单
2.0处理
消费单
*■顾客
所购药品
确定未付款 的消费单
填 写
药品
采购单信息
所需药品
领取
顾客
凭盖好章 的消费单
依据消费 单上的药 品歹U表为
所需药品
3.0
采购
依 据 信 息
经理信息
经理
交易金额
确认收货
已编过号 的消费单
消费单信息
Me.Caption=App.Title& "版本：V"&App.Major& "." &App.Minor& "." &App.Revision
Dim i As Integer'定义一个整型变量
For i= 0To1
Label1(i).Caption=App.Title
Next i
Label2.Caption= "版本：V"&App.Major& "." &App.Minor& "." &App.Revision
End If
End If
End Sub
Public Sub movereturn()
If Text1.Text= "1"Then Set myform=main_rcyw_rk
If Text1.Text= "2"Then Set myform=main_rcyw_rktd
If Text1.Text= "3"Then Set myform=main_rcyw_xs
If Text1.Text= "4"Then Set myform=main_rcyw_xstd
If myform.Text1.Text<> ""Then
myform.Text1.SelStart= 0myform.Text1.SelLength=Len(myform.Text1.Text)
End If
End Sub
Private Sub xsth_Click()'
Load main_rcyw_xstd main_rcyw_xstd.Show frm_main.Enabled=False
End Sub
Private Sub rkth_Click()'
Load main_rcyw_rktd main_rcyw_rktd.Show frm_main.Enabled=False
y = myform.mf1.TextMatrix(myform.mf1.Row, 0)
If y <> "" Then
If myform.mf1.Col-myform.mfl. LeftCol <= 3 Then
myform.mfl. LeftCol = myform.mfl .L eftCol+1
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
End Sub
Public Sub moveright()
If Text1.Text = "1" Then Set myform = main_rcyw_rk
本课题以提高药店的医药管理水平和效率为目标， 建立了管理信息系统。 该系统能集中处理 药品的进销存业务及其应付账目，实现了药店的现代化管理。
实现目标：面对医药行业的高速发展及其发展过程中出现的各种情况，药店管理信息系统 在实施后，应能够达到以下目标：
(1)实现多点操作的信息共享，相互之间的信息传递准确，快捷和顺畅。
Else
If myform.mf1.Row+ 1 <=myform.mf1.Rows- 1Then myform.mf1.Row=myform.mf1.Row+ 1myform.mf1.Col= 1
End If
End If
End If
End Sub
Private Sub Form_Load()
'在标题栏上显示软件名称及版本
If myform.mf1.Col- 11 <=myform.mf1.Cols+ 1Then
myform.mf1.Col=myform.mf1.Col- 1
If myform.mf1.Col= 0Then myform.mf1.Col= 1
Else
If myform.mf1.Row+ 1 <=myform.mf1.Row- 1Then myform.mf1.Row=myform.mf1.Row+ 1myform.mf1.Col= 1
If Text1.Text= "4"Then Set myform=main_rcyw_xstd
If myform.mf1.Col= 10Then
myform.mf1.Row=myform.mf1.Row+ 1myform.mf1.Col= 1
Else
If myform.mf1.Col+ 1 <=myform.mf1.Cols- 1Then myform.mf1.Col=myform.mf1.Col+ 1
源程序代码较长，此处省略，详见程序中
实现目标：
程序启动后，首先进入系统登录界面验证操作员密码。其实现的功能如下:
a.可选择操作员，支持鼠标和键盘操作
b.操作员和密码验证成功后，进入主界面
c.操作员错误或密码错误提醒并返回错误点。
d.输入三次错误的密码，系统自动退出
(2)
Dim x, y As String
该系统采用Access数据库，数据库名称为yyjxc,它包括以下8个表：供应 商基础信息表gys,库存表kc,客户基础信息表kh,入库表rkd,入库退单表rktd,密码表ma,销售表xsd,销售退单表xstd。
1
(1)系统登录模块(窗体名：系统登录.frm)
---jfe覩所有-：aooo-&oia--：：：：：
End If
If myform.mf1.CellWidth > 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.Top
If myform.Text1.Text <> "" Then
myform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text)
End If
If myform.mf1.Col+1 <= myform.mf1.Cols-1 Then
myform.mf1.Col = myform.mf1.Col+1
Else
If myform.mf1.Row+ 1 <=myform.mf1.Rows- 1Then myform.mf1.Row=myform.mf1.Row+ 1myform.mf1.Col= 1
End If
End If
End Sub
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
付款后进 行
未处理的 消费单
填写经理
信息
1.0
付款
填好的经
理信息
经理信息
顶层数据流图
1.
(1)分解的数据流图
处理消费
处理采购
组织结构或数学方法、构造模型。
药店管理信息系统
二、系统设计
说明：系统设计较为复杂，源程序代码较长，所以报告中只摘录了一小部 分程序代码，其余代码详见程序中，程序先进入登陆界面，登陆后进入主界面， 登陆到主界面后即可点击进入相应的窗口。
End If
x = myform.mf1.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.Text
If Textl.Text = "1" Then Set myform = main_rcyw_rk
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
系统功能：本系统由系统设置、日常业务、查询统计、库存管理、基础信息管理五大分系 统组成。主要功能如下：
(1)系统设置：初期建账，密码设置，数据备份，数据恢复。
(2)日常业务：入库单，销售单，入库退单，销售退单。
(3)查询统计：入库查询，销售查询，入库退货查询，销售退货查询。 (5)库存管理：库存盘点，库存查询，价格管理。
(2)全面自动化管理，可随时掌握药品的库存、销售等情况。
(3)系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。
(4)能够快速、准确地处理药品进、销、存、退、盘点、变价、折扣等多种业务模
式。
(5)提供助记码及支持多种结算方式。
(6)系统维护方便可靠，有较高的安全性，满足实用性，先进性的要求。(5)
6)基础信息管理：客户管理，供应商管理。
药店管理信息系统
M
2.2
通过对用户需求分析进行综合、归纳与抽象、形成一个独立于具体
概念模型。在本药店管理系统中涉及到了
聚集模型
概况模型
2.3
O
总体分析的用例图
代售
经理与供货商的用例图
顾客与经理间的用例图
填好的仓
库信息
仓库信息
真写仓库
信息
仓库信息
仓库
药ห้องสมุดไป่ตู้信息
填好的药
End Sub
Private Sub kccx_Click()'Load main_kcgl_kccx main_kcgl_kccx.Show frm_main.Enabled=False
End Sub
Private Sub kcpd_Click()'Load main_kcgl_kcpd main_kcgl_kcpd.Show frm_main.Enabled=False
成绩
管理信息系统课程设计报告
系统名称
班级
管093
姓名
张新萌、
田新驰、
李新雷
学号
04、
06
、12
2011年12月14日
一、 系统分析
系统名称
开发背景、目的、意义：随着人们生活水平的提高，健康意识的增强，对医药产品的需 求也迅速增加。 药店作为医药产品的主要销售渠道， 也处于高速发展时期， 同时也加剧了产 业间的竞争。 为了加强企业的内部管理， 提高运营效率， 利用现代信息技术提高企业的管理 水平已非常迫切。另外，由于医药产品种类繁多、销售模式特殊、业务量大，单凭手工记账 已很难适应工作的需要。 医药作为一个关系到人们健良的特殊行业， 国家对医药行业又有一 些不同于其他行业的管理政策， 这些都加大了管理的难度。 如何尽快建立和完善现代企业的 信息化管理机制问题，已成为医药企业发展的关键所在。
Public Sub moveleft()
If Text1.Text= "1"Then Set myform=main_rcyw_rk
If Text1.Text= "2"Then Set myform=main_rcyw_rktd
If Text1.Text= "3"Then Set myform=main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
If myform.mf1.CellWidth <= 0 Or myform.mf1.CellHeight <= 0 Then Exit Sub
x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)
End Sub
Private Sub rkd_Click()'调入入库单
Load main_rcyw_rk main_rcyw_rk.Show frm_main.Enabled=False
End Sub
Private Sub xsd_Click()'
Load main_rcyw_xs main_rcyw_xs.Show frm_main.Enabled=False
品信息
药品信息
填写药品
信息
药 品 来 自
编好号的采购单
顾客信息
确认的消 费单
2.0处理
消费单
*■顾客
所购药品
确定未付款 的消费单
填 写
药品
采购单信息
所需药品
领取
顾客
凭盖好章 的消费单
依据消费 单上的药 品歹U表为
所需药品
3.0
采购
依 据 信 息
经理信息
经理
交易金额
确认收货
已编过号 的消费单
消费单信息
Me.Caption=App.Title& "版本：V"&App.Major& "." &App.Minor& "." &App.Revision
Dim i As Integer'定义一个整型变量
For i= 0To1
Label1(i).Caption=App.Title
Next i
Label2.Caption= "版本：V"&App.Major& "." &App.Minor& "." &App.Revision
End If
End If
End Sub
Public Sub movereturn()
If Text1.Text= "1"Then Set myform=main_rcyw_rk
If Text1.Text= "2"Then Set myform=main_rcyw_rktd
If Text1.Text= "3"Then Set myform=main_rcyw_xs
If Text1.Text= "4"Then Set myform=main_rcyw_xstd
If myform.Text1.Text<> ""Then
myform.Text1.SelStart= 0myform.Text1.SelLength=Len(myform.Text1.Text)
End If
End Sub
Private Sub xsth_Click()'
Load main_rcyw_xstd main_rcyw_xstd.Show frm_main.Enabled=False
End Sub
Private Sub rkth_Click()'
Load main_rcyw_rktd main_rcyw_rktd.Show frm_main.Enabled=False
y = myform.mf1.TextMatrix(myform.mf1.Row, 0)
If y <> "" Then
If myform.mf1.Col-myform.mfl. LeftCol <= 3 Then
myform.mfl. LeftCol = myform.mfl .L eftCol+1