药品管理系统

沈阳理工大学课程 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 专用纸 No19 1． 概述 在计算机技术飞速发展的今天，计算机管理已经在很多领域得到广泛的应用。计算机化已成为医院现代化一个不可或缺的因素。目前很多医院的信息管理还比较落后，劳动强度大且效率低，因此，开发医院管理信息系统将提高医院的各项工作效率。医院的药品管理师一个非常重要的和繁杂的事务，需要完成药品的购入、存储、售出等很多操作，这就使得使用药品存销管理系统来管理这样的事务有着很好的效果。 软件开发环境：SQL server2008，Visual Basic 6.0 2． 需求 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 药品存销管理系统主要需要实现药品入库信息 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 、药品的库存管理、药品出库信息管理等功能。具体要实现的功能包括： （1） 药品入库信息管理功能。记录入库药品名称、价格、数量、采购员、生产日期、生产厂商等资料，能够实现对药品入库信息的添加功能。 （2） 药品库存资料管理。记录库存药品的名称、销售价格、库存量、生产日期等资料，能够实现对库存药品信息的查询功能。在顾客购买药品取走后，在表中同时减去相应的药品的数量。 （3） 药品出库信息管理。记录药品出库的名称、类型、销售价格、数量、病人名称、联系方式等资料，能够实现对出库药品信息的修改、删除和查询功能。 3． 概念结构设计 （1）.入库 E - R模型 (2)出库 E - R模型 （3）.药品、员工和顾客之间的E-R 图 4． 逻辑结构设计 药品信息：药品编号、药品名称、生产厂家、生产日期、保质期、用途、价格、数量、经手人等； 员工信息：员工编号、姓名、性别、年龄、学历、职务等；客户信息：客户编号、姓名、联系方式、购买时间、购买药品编号、名称、数量等。 （1） 药品信息： 属性 数据类型 可否为空 字段说明 药品编号 INT 否 主键，自增 药品名称 CHAR 否 生产厂家 CHAR 否 生产日期 CHAR 否 价格 CHAR 否 数量 INT 否 采购员 CHAR 否 （2） 员工信息： 属性 数据类型 可否为空 字段说明 员工编号 INT 否 姓名 CHAR 否 主键 性别 CHAR 否 年龄 CHAR 否 职务 CHAR 否 （3） 顾客信息： 属性 数据类型 可否为空 字段说明 客户编号 INT 否 主键，自增 姓名 CHAR 否 联系方式 CHAR 否 购买时间 CHAR 否 购入药品标号 INT 否 数量 INT 否 五．数据库设计 打开Microsoft SQL Server 2008，并创建一个名为药品存储信息管理系统的数据库，用SQL语句建立Medicinal表，Staff表和Customer表。程序如下： CREATE TABLE Medicinal ( 药品编号 INT PRIMARY KEY, 药品名称 CHAR(20)UNIQUE, 生产厂商 CHAR(20)UNIQUE, 生产日期 CHAR(20) UNIQUE, 价格 CHAR(20) UNIQUE, 数量 INT UNIQUE, ); CREATE TABLE Staff ( 员工编号 INT PRIMARY KEY, 姓名 CHAR(20) UNIQUE, 性别 CHAR(20) UNIQUE, 年龄 CHAR(20) UNIQUE, 职务 CHAR(20) UNIQUE, ); CREATE TABLE Customer ( 客户编号 INT PRIMARY KEY, 姓名 CHAR(20) UNIQUE, 联系方式 CHAR(20) UNIQUE, 购买时间 CHAR(20) UNIQUE, 购入商品编号 INT UNIQUE, 数量 INT UNIQUE, ); 运行结果如下： Medicinal表： Customer表： Staff表： 之后编辑各个表，并在表的设计中将表级联起来： Medicinal表： Staff表： Customer表： 三个表的关系图： 六．VB6.0做前台，界面设计与程序 （1）主界面如下： 主界面代码如下： Private Sub Timer1_Timer() Label1.Left = (Form1.Width - 1000) * Rnd Label1.Top = (Form1.Height - 1200) * Rnd End Sub Private Sub 库存药品信息_Click() Me.Hide Form4.Show End Sub Private Sub 退出药品管理系统_Click() Dim ask As Integer ask = MsgBox("确定退出系统？", vbYesNo) If ask = 7 Then Form1.Show Else End End If End Sub Private Sub 药品出库信息_Click() Me.Hide Form3.Show End Sub Private Sub 药品入库信息_Click() Me.Hide Form2.Show End Sub （2）当在主界面的菜单栏中点击药品入库信息时，跳转到如下页面： 设计时该页面的程序如下： Public ColVal As String '读取表中列值的变量 Public objConn As New ADODB.Connection Public objRS As New ADODB.Recordset '连接数据库设置 Public Sub OpenDB() objConn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=药品存销信息管理系统;Data Source=WIN-7P8V88AM9J0\DONGRUIMING" objConn.Open End Sub Public Sub CloseDB() objConn.Close End Sub Private Sub Command1_Click() Dim a As Integer If Trim(Text1.Text) = "" Then MsgBox "药品入库名称不能为空!", vbOKOnly Exit Sub End If If Trim(Text2.Text) = "" Then MsgBox "生产厂商不能为空!", vbOKOnly Exit Sub End If If Trim(Text3.Text) = "" Then MsgBox "药品生产日期不能为空!", vbOKOnly Exit Sub End If If Trim(Text4.Text) = "" Then MsgBox "药品入库价格不能为空!", vbOKOnly Exit Sub End If If Trim(Text5.Text) = "" Then MsgBox "入库数量不能为空!", vbOKOnly Exit Sub End If If Trim(Text6.Text) = "" Then MsgBox "采购员不能为空!", vbOKOnly Exit Sub End If OpenDB Dim strSQL As String strSQL = "Select * from Medicinal" '添加药品入库信息 objRS.Open strSQL, objConn, adOpenKeyset, adLockOptimistic objRS.AddNew objRS.Fields(1) = Trim(Text1.Text) objRS.Fields(2) = Trim(Text2.Text) objRS.Fields(3) = Trim(Text3.Text) objRS.Fields(4) = Trim(Text4.Text) objRS.Fields(5) = Trim(Text5.Text) objRS.Fields(6) = Trim(Text6.Text) objRS.Update objRS.Close CloseDB a = MsgBox("添加成功！继续否？", vbYesNo) If a = 6 Then Form2.Show Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Else Me.Hide Form1.Show End If End Sub Private Sub Command2_Click() Me.Hide Form1.Show End Sub （3）当在主界面的菜单栏中点击药品出库信息时，跳转到如下页面： 其代码如下： Private Sub Command1_Click() If Text1 > "" Then Adodc1.Recordset.Find "药品名称='" & Text1.Text & "' ", , , 1 If Adodc1.Recordset.EOF Then MsgBox "无此药品！", , "提示" End If End Sub Private Sub Command2_Click() Me.Hide Form5.Show End Sub Private Sub Command3_Click() Me.Hide Form1.Show End Sub 当按查询按钮时，引发Command1_Click()事件，当按返回系统时，跳转当系统主页，当按确定购买键的时侯，跳转到如下界面： 其代码如下： Public objConn As New ADODB.Connection Public objRS As New ADODB.Recordset Public objConn1 As New ADODB.Connection Public objRS1 As New ADODB.Recordset Public Sub OpenDB() objConn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=药品存销信息管理系统;Data Source=WIN-7P8V88AM9J0\DONGRUIMING" objConn.Open objConn1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=药品存销信息管理系统;Data Source=WIN-7P8V88AM9J0\DONGRUIMING" objConn1.Open End Sub Public Sub CloseDB() objConn.Close objConn1.Close End Sub Private Sub Command1_Click() Dim a As Integer If Trim(Text1.Text) = "" Then MsgBox "姓名不能为空!", vbOKOnly Exit Sub End If If Trim(Text2.Text) = "" Then MsgBox "联系方式不能为空!", vbOKOnly Exit Sub End If If Trim(Text3.Text) = "" Then MsgBox "家庭住址不能为空!", vbOKOnly Exit Sub End If If Trim(Text4.Text) = "" Then MsgBox "药品编号不能为空!", vbOKOnly Exit Sub End If If Trim(Text5.Text) = "" Then MsgBox "数量不能为空!", vbOKOnly Exit Sub End If If Trim(Text6.Text) = "" Then MsgBox "日期不能为空!", vbOKOnly Exit Sub End If OpenDB Dim strSQL As String strSQL = "Select * from Customer" Dim strSQL1 As String strSQL1 = "Select * from Medicinal" objRS.Open strSQL, objConn, adOpenKeyset, adLockOptimistic objRS1.Open strSQL1, objConn, adOpenKeyset, adLockOptimistic objRS.AddNew objRS.Fields(1) = Trim(Text1.Text) objRS.Fields(2) = Trim(Text2.Text) objRS.Fields(3) = Trim(Text6.Text) objRS.Fields(4) = Trim(Text4.Text) objRS.Fields(5) = Val(Text5.Text) objRS.Update objRS.Close Adodc2.RecordSource = "select * from Medicinal where 药品名称='" & Text4 & "'" Adodc2.Refresh objRS1.Fields("数量") = objRS1.Fields("数量") - Val(Text5) objRS1.Update CloseDB a = MsgBox("购买成功！继续否？", vbYesNo) If a = 6 Then Form2.Show Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Else Me.Hide Form1.Show End If End Sub Private Sub Command2_Click() Me.Hide Form1.Show End Sub Private Sub Form_Load() Dim mlink$, mpath$ mpath = App.Path If Right(mpath, 1) <> "\" Then mpath = mpath + "\" mlink = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=药品存销信息管理系统;Data Source=WIN-7P8V88AM9J0\DONGRUIMING" Adodc2.ConnectionString = mlink Adodc2.CommandType = adCmdUnknown End Sub 当按确定键时，先判断所填内容是否符合要求，若不符合要求，则提示错误，若正确，则提示购买成功，并把顾客信息写入顾客表中，并且所对应药品的数量应减去客户所购买的数量。 当点是按钮时，则继续购买，否则返回系统主界面。当在主界面菜单栏中点击药品库存信息时，进入下面界面： 代码如下： Private Sub Command1_Click() Me.Hide Form1.Show End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Adodc1.RecordSource = "Select * from Medicinal,Staff Where Staff.姓名=Medicinal.采购员 and 药品名称='" & Text1 & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "无此药品", , "提示" End Sub Private Sub Form_Load() Dim mlink$, mpath$ mpath = App.Path If Right(mpath, 1) <> "\" Then mpath = mpath + "\" mlink = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=药品存销信息管理系统;Data Source=WIN-7P8V88AM9J0\DONGRUIMING" Adodc1.ConnectionString = mlink Adodc1.CommandType = adCmdUnknown End Sub 当点击查询按钮时，引发Command3_Click()事件，把该药品信息和采购员的信息显示来。如下： 七．课设总结 在进行本次实验之前，有关数据库的知识只是在课本上学了一点基础知识而已，对于实际中，数据库是如何应用的所知胜少。对于我来说，之前，看到那些管理软件觉得很陌生。在这次的试验中，我学习了： eq \o\ac(○,1)Visual Basic的菜单和链接窗口的构建和链接方法； eq \o\ac(○,2)练习了Visual Basic窗口的设计，包括文本框的属性设置和按钮的触发事件 eq \o\ac(○,3)学习了将SQL Server 2008数据表中信息在窗口中的文本框显示出来的方法和将文本框中的信息放入SQL Server数据表中的方法。 在设计的过程中，也遇到了很多问 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 ，比如链接数据库并对其进行增、删、改操作耗费了大量的时间。在解决这些问题的同时，进一步加深了对Visual和SQL Server的运用和理解，对于数据库的使用也有了更深的理解。 但是，由于对这方面的知识不太了解，现学现卖，并且做之前没有作充分的需求分析，造成考虑不周全，系统不够完善，存在很多不足和漏洞。 总的来说，这个课程设计对我意义重大，通过这次的学习，锻炼并提高了了自己的动手能力和编程能力。 八．参考文献 1.《Visual Basic 程序设计 教程 人力资源管理pdf成真迷上我教程下载西门子数控教程protel99se入门教程fi6130z安装使用教程 （第三版）》 龚沛曾等编 2.《数据库系统概论（第四版）》 王珊萨师煊 3. 《SQL Server 2008 基础教程》(英)Robin Dewson 董明（译） 药品名称 价格 生产厂商 入库药品 数量 生产日期 采购员 购买人家庭住址 购买人 姓名 购买数量 药品编号 联系方式 购买日期 出库药品 购买时间 联系方式 姓名 顾客编号 购买 采购员 顾 客 性别 员工编号 职务 年龄 姓名 采购 生产日期 药品编号 生产厂家 药品名称 数量 药 品 员 工 药品编号 购买数量 沈阳理工大学