数据库课设--.doc

学 号 11741120数据库系统原理课程设计设计说明书药品库房管理系统起止日期： 2012 年 1月 3 日 至 2012 年 1 月 7 日学生姓名班级11计算机11班成绩指导教师(签字)电子与信息工程系2012年1月8日摘 要在医药行业中，医药经营企业的物流管理以及相应的财务管理、信息处理，长期以来一直采用手工操作，但随着产业结构调整、全新的市场竞争环境，企业管理和运营效率已经成为企业成败的关键所在，手工方式的弊端。这就要求医药管理摆脱过去人工操作的繁琐过程，对所有的医药管理数据实行智能管理，促使医药管理朝着科学化和规范化的方向前进。药库管理信息系统是面向医院、药品经营部门的药品库房日常办公的应用系统软件。它的最终目标是提高工作效率，增强工作协同能力，减少人工操作的重复、复杂程度，消除在传统办公中信息的存储、分发、管理的障碍和迟缓，提高药库的日常办公水平。同时，可以改善药库管理的办公环境，改进办公条件，规范作业流程，使药库管理水平进一步科学化和现代化。本系统采用C/S开发模式，以VB+SQLSERVER作为开发工具，通过实际调研、系统分析、系统设计和程序编码，完成了药品库房管理系统的设计与开发，基本达到了要求的效果。关键词：库存；药品管理；VB；目 录第1章 系统定义4第2章 需求分析42.1 系统综合需求42.2 系统逻辑模型4第3章 系统设计63.1 概念结构设计63.2 逻辑结构设计63.3 子模块划分及功能概述8第4章 详细设计104.1开发平台及工具104.2编码设计104.3界面设计16第5章 课程设计总结18参考文献19第1章 系统定义当今医药业发展正盛，大量的医院出现在各个城市，这使得大量药房要求提高自己的数据管理的水平， 所以药品库房管理系统有待提升。本系统以一个统一的界面，分别就药品的库存提供了不同的操作及管理功能。数据库服务器可配置在独立的服务器上，也可配置在一台运行本系统的计算机上。适用于中小型医院。第2章 需求分析2.1 系统综合需求作为一个药品库房管理系统，应该给用户提供方便、友好而简洁的界面进行应用，并对药品的入库和出库做详细的记录，并将这些数据进行逻辑上的融合，以便于用户查看、分析及管理。针对中小型医院的运营模式，药品库房管理主要管理医院药库药品的进货管理、库存管理和发出。药库从药品厂家直接进货，制作入库单。药库可以把药品从库存中发到各个药房，填写调拨单。也可以把药品卖出，填写出库单。药品可能会调价、报损，分别填写调价单和报损单。药库要定期盘点药品库存，把盘亏和盘盈的药品要记录单据。设计要求：1）录入药品名称、规格、批号、价格、生产厂家、供货商、包装单位、发药单位等药品信息以及医疗保险信息中的医疗保险类别和处方药标志等。2）提供药品入库、出库、调价、调拨、盘点、报损丢失、退药等功能。3）提供特殊药品入库、出库管理功能(如：赠送、实验药品等)。4）提供药品库存的日结、月结、年结功能，并能校对帐目及库存的平衡关系。5）可随时生成各种药品的入库明细、出库明细、盘点明细、调价明细、调拨明细、报损明细、退药明细以及上面各项的汇总数据。 2.2 系统逻辑模型数据字典下所示。项目组成类型说明去向变动频度药品库存信息 名称，规格，价格，批号，上产厂家，包装单位，发药单位 数据流用于记录库存中的药品的名称-售出，报损，赠送，实验用药增加不频繁，更改信息不频繁数据存储销售药品信息品药批号，售价，销售数量，销售日期， 数据流记录销售信息，以及查询-个人经常增加数据存储药品信息 名称，规格， 价格，批号，生产厂家，供货商，包装单位，发药单位 数据流用于查看药品-入库，出库，赠送 -增加不频繁，基本无更改数据存储 药品入库批号，名称，规格，供应商，价格，生产厂家，供货商，入库日期数据流药库从药品厂家直接进货，制作入库单库房，实验室用药增加有时，基本无更改 数据存储第3章 系统设计3.1 概念结构设计1系统E-R图如图3-1所示。 姓名电话住址供应供应量药品批号库房药品价格药品名库存存取时间库存量供货商名价格格mp批号包装单位规格生产商供应商生产商nm规格包装单位供应商名名称 图3-1 系统E-R图2 关系模型药品（名称，规格，价格，生产商，批号，包装单位，供货商名）供货商（姓名，电话，住址）库房药品（药品名,规格,价格,生产商,批号，包装单位，供货商名）库存（库存量，存取时间，药品名）供应（供应量，供应商姓名，药品名） 3.2 逻辑结构设计1.系统数据表如下所示：药品库存表药品销售记录表药品信息表供货商信息表2.表关系图如图3-2所示：图3-2 表关系图 3.3 子模块划分及功能概述1.系统层次结构图如图3-3所示。登陆药品的管理药品销售管理药品基本信息库存信息的查询药品的入库管理药品信息的录入药品信息的查询药品的出库管理销售记录的查询销售记录的更新 图3-3 系统层次结构图2.系统的功能说明系统设置了三个功能模块：、药品基本信息，药品的管理，药品销售管理。登录后，可以选择进入不同的功能模块。l 药品信息的管理(1)添加药品信息：填写药品的名称，规格，供应商和价格， 生产商，包装单位，批号的基本信息，之后把信息添加到数据库中。(2)药品信息的查询：可以根据药品的名称，供应商，价格，生产厂家，供货商进行查询。显示的信息包括药品批号，名称，规格，价格，供应商，生产厂家，包装单位。 l 药品库存管理（入库，出库，修改）(1)药品出库：录入药品的相关信息，药品的名称，规格，供应商和价格， 生产商，包装单位，批号等，可以完成药品信息的删除。 (2)药品入库：录入药品的相关信息，药品的名称，规格，供应商和价格， 生产商，包装单位，批号等，可以完成药品信息的入库操作。(3)药品信息的修改：在药品信息列表中选择一行，对其基本信息进行修改。修改商品工作流程如图所示。 修改商品工作流程 也可以单独修改库存药品的某一个属性。l 药品销售的管理(1)查看销售信息：可以按售出日期进行查询，也可以按名称进行查询。填写相应的信息，即可查询销售的记录。 如图所示。第4章 详细设计4.1开发平台及工具l 开发工具 Visual Basic 6.0 精简版l DBMS：Microsoft SQL Server 20054.2编码设计1. 数据源连接方面，使用AOD+DataGrid控件来实现数据库的连接。使用Recordset对象来实现数据的增，删，改，查。连接数据库的具体过程如下图所示：2.程序的源代码： form1中的代码Private Sub Command1_Click()pw1$ = zhaoyanlingpw2$ = 123Title$ = 密码核对框info1$ = 你输入了正确的密码info2$ = 你输入的密码或用户名不正确If Text1.Text = pw1$ And Text2.Text = pw2$ Thenanswer = MsgBox(info1$, 65, Title$)Elseanswer = MsgBox(info2$, 277, Title$)End IfIf answer = 2 Then EndIf answer = 1 ThenForm2.ShowForm1.Visible = FalseEnd IfEnd SubPrivate Sub Form_Load()End SubForm2中的代码Private Sub Command1_Click()If Combo1.Text = 按药品名称 ThenAdodc4.CommandType = adCmdUnknownAdodc4.RecordSource = select *from Medicine where M_name= + Text4.Text + Adodc4.RefreshIf Adodc4.Recordset.RecordCount = 0 ThenMsgBox (系统没有此信息！)Adodc4.RecordSource = select * from MedicineAdodc4.RefreshExit SubEnd IfEnd IfIf Combo1.Text = 按药品规格 ThenAdodc4.CommandType = adCmdUnknownAdodc4.RecordSource = select *from Medicine where M_scale= + Text4.Text + Adodc4.RefreshIf Adodc4.Recordset.RecordCount = 0 ThenMsgBox (系统没有此信息！)Adodc4.RecordSource = select * from MedicineAdodc4.RefreshExit SubEnd IfEnd IfIf Combo1.Text = 按药品价格 ThenAdodc4.CommandType = adCmdUnknownAdodc4.RecordSource = select *from Medicine where M_price= + Text4.Text + Adodc4.RefreshIf Adodc4.Recordset.RecordCount = 0 ThenMsgBox (系统没有此信息！)Adodc4.RecordSource = select * from MedicineAdodc4.RefreshExit SubEnd IfEnd IfIf Combo1.Text = 按生产厂家 ThenAdodc4.CommandType = adCmdUnknownAdodc4.RecordSource = select *from Medicine where M_production= + Text4.Text + Adodc4.RefreshIf Adodc4.Recordset.RecordCount = 0 ThenMsgBox (系统没有此信息！)Adodc4.RecordSource = select * from MedicineAdodc4.RefreshExit SubEnd IfEnd IfIf Combo1.Text = 按供货商 ThenAdodc4.CommandType = adCmdUnknownAdodc4.RecordSource = select *from Medicine where Su_name= + Text4.Text + Adodc4.RefreshIf Adodc4.Recordset.RecordCount = 0 ThenMsgBox (系统没有此信息！)Adodc4.RecordSource = select * from MedicineAdodc4.RefreshExit SubEnd IfEnd IfEnd SubPrivate Sub Command11_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command4_Click()Dim myval As Stringmyval = MsgBox(是否要删除此信息记录？, vbYesNo)If myval = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLastExit SubEnd IfExit SubEnd SubPrivate Sub Command5_Click()Adodc5.CommandType = adCmdUnknownAdodc5.RecordSource = select *from Store where M_name= + Text8.Text + Adodc5.RefreshIf Adodc5.Recordset.RecordCount = 0 ThenMsgBox (系统没有此信息！)Adodc5.RecordSource = select * from StoreAdodc5.RefreshExit SubEnd IfEnd SubPrivate Sub Command7_Click()If Combo2.Text = 出库 ThenDim myval As Stringmyval = MsgBox(是否要删除此信息记录？, vbYesNo)If myval = vbYes ThenAdodc2.Recordset.DeleteAdodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLastExit SubEnd IfExit SubEnd IfIf Combo2.Text = 入库 ThenAdodc2.Recordset.AddNewEnd IfIf Combo2.Text = 修改 ThenText5.SelStart = 0Text5.SelLength = Len(Text2)End IfEnd SubPrivate Sub Command3_Click()If Combo3.Text = 按售出日期 ThenAdodc3.CommandType = adCmdUnknownAdodc3.RecordSource = select *from Sell where S_date= + Text9 + Adodc3.RefreshIf Adodc4.Recordset.RecordCount = 0 ThenMsgBox (系统没有此信息！)Adodc3.RecordSource = select * from SellAdodc3.RefreshExit SubEnd IfEnd IfIf Combo3.Text = 按名称 ThenAdodc3.CommandType = adCmdUnknownAdodc3.RecordSource = select *from Sell where M_name= + Text9.Text + Adodc3.RefreshIf Adodc3.Recordset.RecordCount = 0 ThenMsgBox (系统没有此信息！)Adodc3.RecordSource = select * from SellAdodc3.RefreshExit SubEnd IfEnd IfEnd SubPrivate Sub Form_Load()Combo1.AddItem 按药品名称Combo1.AddItem 按药品规格Combo1.AddItem 按药品价格Combo1.AddItem 按生产厂家Combo1.AddItem 按供货商Combo2.AddItem 入库Combo2.AddItem 出库Combo2.AddItem 修改Combo3.AddItem 按售出日期Combo3.AddItem 按名称End SubPrivate Sub Label16_Click()End Sub4.3界面设计登录界面（如图4-1所示）：图4-1登录界面系统主页面如下图所示：第5章 课程设计总结这次课程设计我花了十几天的时间来完成，起初什么也不知道，前期只做了一些准备工作，了解了一般药品库房管理方面的背景知识，查找了一些资料，并完成了初步的需求分析。之后选择开发语言，我认为VB挺适合面向对象的数据库开发，而且再短的时间里可以很快的学会它，所以开发语言我选择了VB。我自己用了一些时间来学习VB，先了解一下它的语法，对象，还有一些常用的控件，特别是连接数据库的控件。但是这些还是不行，我又到图书馆借VB连接数据库的书以及上网百度等等。数据