药品存销信息管理系统(全)

1、信息工程学院数据库课程设计论文题 目：药品存销信息管理系统学号：专业班级：计算机科学与技术103姓名：指导老师：完成日期：2012 年 01 月13 日药品存销信息管理系统数据库设计（信息工程学院计算机科学与技术10 级 3 班）摘要本次课程设计是药品存销信息管理系统，伴随着社会的复杂化，传统的 “一支 笔，一本帐簿 ”的药品销售管理方式也慢慢的无法适应形势的变化。随着信息 技术的发展，计算机已被广泛的用于社会的各个领域， 成为推动社会发展的技术动力 因此设计药品存销信息系统是当务之急， 本系统包括药品采购， 药品存储，药品销 售。 药品采购包括采购员进货， 采购员退货。 药品存储包括仓库存储

2、以及仓库管理 员管理仓库。 药品销售包括顾客买药与顾客退药。 本系统包括几个视图来使数据库 使用者快速的查询想要得到的信息， 本系统包括几个 PL/SQL 语句块，还包括几个触 发器，使得数据得到同步修改，使数据库中的数据更加合理。关键字：数据库；经销存；药品管理系统10 级计算机科学与技术专业103 班数据库应用系统课程设计课程论文目录目录 - 1 -1.需 求分析 - 3 -1.1 需求分析阶段处理对象及组 织 - 3 -1.2 信息处理及系统功能 - 3 -1.2.2 数据字典 - 5 -2数据库结构设计 - 5 -2.1 概念设计 - 5 -2.2 逻辑设计 - 8 -2.2.1 建立

3、关系模式 - 8 -2.2.2 关系模式规范化处 理 -10-以上关 系 模式中的各实 体和联系之间 不存在非主属性 对主属性的部 分函数依 赖，也不存在 传递函数依赖，已经达到了 3NF。 -102.2.3 用户子模式建立 -10-3 数据库物理设计 -103.1 物理设计阶段目标和任务 -103.2 数据存储方面 -113.2.1 建立索引的原则 -11-4数据库实施与测试 -114.1 数据库实施 -114.1.1 数据库及数据库对象建 立 -11-5总结 -13-6附录 -13-附录 1 ： -13-附录 2 -17-附录 3 -22- 13 -引言随着全球信息技术的飞速发展，尤其是因

4、特网的出现和普及，企业和决策都 发生 了根本的改变。采用信息技术促进、改造药店的生产、经营、管理，有效 采集和处理 信息，增强企业决策的有效性，适应全球发展的要求，将成为企业 发展的必由之路。 信息管理系统已经成为现代企业的一个重要标志和衡量企业 综合实力的重要组成部分。 但是，信息管理系统的开发却非常困难。 开发一个成 功的企业信息管理系统， 不仅要有方方面面的专业知识， 还要充分分析企业内部、 外部环境的变化和关系，以及 在信息管理系统开发过程中所涉及的设备、技术 上的复杂性。这就需要系统开发者不断总结经验，不断探索更好的方法和技术。 如今药品无论在任何时候都是一个国家最重要的东西， 也是

5、对一个人最需要 的东西，药品管理正处于一个高速发展的时期。 药品的信息在供应商与销售部和顾 客之间大量的流通， 因此，建立一个合适的数据库来管理这些数据是必不可少的。 这样药品存销信息管理系统就这样诞生了，它可以高效的来管理这些数据， 是药品高效的发货和供应。本次数据库设计严格按照书上的要求和设计数据库步骤， 从需求分析， 概念 设计，逻辑设计，物理设计，到数据库最后的建立、运行。1. 需求分析主要包括内容： 处理对象及组织； 信息处理及系统功能； 数据库系统性能需 要，数据库系统开发环境需求等。 在阐述信息及其处理过程时， 要辅助业务流程 图、数据流程图及数据字典。 对上述三个问题可以以附录

6、的形式详细罗列， 但正 文中必须指明做了哪些业务流程图、数据流程图和数据字典的规模。1.1 需求分析阶段处理对象及组织（1）熟悉业务并绘制业务路程图；（2）根据业务流程图明确有哪些数据流动，绘制数据流程图；（3）建立数据字典，其中包括数据项、数据结构、数据流、数据存储、处 理过程等。1.2 信息处理及系统功能1.2.1 数据流程图药品存销信息管理系统数据流程图如下（3）第一层数据流程图图 1-1 第一层数据流程图2）第二层数据流程图进货图 1-2 进货数据流程图4）第二层数据流程图销售图 1-3 销售数据流程图5）第二层数据流程图存储图 1-4 存储数据流程图1.2.2 数据字典1）包含数据项

7、、数据结构、数据流、处理逻辑、数据存储定义（详见附录2数据库结构设计2.1 概念设计阶段要求：（1）能真实、充分地反映现实世界，包括事物与事物之间的联系，能满足 用户对数据的处理要求，是对现实世界的一个真实模型；（2）易于理解，因此可以用它和不熟悉计算机的用户交换意见；（3）易于更改，当应用环境和应用要求改变时，容易对概念模型修改和扩 充；（4）易于向关系、网状、层次等各种数据模型转换。2.2.1 分 E-R 图的建立建立分 E-R 图的思想：对需求分析阶段收集到的数据进行分类、组织（聚集），形成实体、实体的属性，标识实体的码，确定实体之间的联系类型1:1 ， 1:n,m:n, 设计分 E-R

8、 图；参照数据流程图画出分（ 1 ）进货时的分E-R 图E-R 图图 2-1进货时的分 E-R 图2 ）销售时的分 E-R 图图 2-2 销售时的分 E-R 图3 ）盘存时的分 E-R 图图 2-3 盘存时的分 E-R 图2.1.2 全局 / 整体 E-R 图1. 每次集成局部 E-R 图是，分两步走E-R（ 1 ）合并。解决各分 E-R 图之间的冲突， 将各分 E-R 图合并起来生成初步的 图。2）修改和重构。消除不必要的冗余总 E-R 图2.2 逻辑设计图 2-4 总 E-R 图概念设计阶段 是独立于任何一种数据模型的，而逻辑设计阶段则与现阶段设计好的基本 E-R 图转 构。具体任务包括将

9、 E-R 图 、用户模式设计。实结合起来， 逻辑设计的任务就是将概念设计换为与项目所 支持的数据模型相符合的逻辑结转换成关系模 型、模型优化、数据库模式定义2.2.1 建立关系模式转化规则：一个实体型转 换为一个关系模式，实体的属 性就是关系的属性， 实体的码就是 关系的码。一个 1 ： 1 联系可以转换 为一个独立关系模式，也 可以与任意一 端关系模式合并；一个1： N 联系可以转换为 一个独立关系模式，也可以与 n 端实对 应的关系模式合并；一个 M： N 联系 转换为一个独立 关系模式，具 有相同码的关系模式可以合并根据以上转化 规则可得供应商 （供应商的编号，供应商的名称，供应商的地址

10、，供应商的联系电话）供应商的编号 -> 供应商的名称， 供应商的编号 -> 供应商的地址， 供应商的编号 -> 供应商的联系电话药品（药品的编号， 药品名称，药品重量， 药品类别，药品单价，药品生产日期， 药品保质期）药品的编号 -> 药品名称， 药品的编号 -> 药品重量， 药品的编号 -> 药品类别，药 品的编号 -> 药品单价，药品的编号 -> 药品生产日期，药品的编号 -> 药品保质期顾客（顾客姓名，顾客编号，顾客年龄，顾客联系电话，顾客地址，顾客邮编） 顾客编号 -> 顾客姓名，顾客编号 -> 顾客年龄，顾客编号 -&

11、gt; 顾客联系电话， 顾客编 号 -> 顾客地址，顾客编号 -> 顾客邮编仓库（仓库编号，仓库当前库存量，仓库最大库存量，仓库最小库存量）仓库编号 -> 仓库当前容量， 仓库编号 -> 仓库最大容量， 仓库编号 -> 仓库最小容量工作人员 （人员编号，人员名称，人员电话，人员地址，人员类型）人员编号 -> 人员名称，人员编号 -> 人员电话，人员编号 -> 人员地址，人员编号 -> 人员类型 销售员售货 （人员编号，顾客编号，货物编号，购买数量，销售日期）（人员编号，顾客编号）（人员编号，顾客编号）-> 货物编号，（人员编号，顾客编

12、号） -> 购买数量-> 销售日期顾客退货 （人员编号，顾客编号，退货数量，退货日期）（人员编号，顾客编号） -> 退货数量，（人员编号，顾客编号） -> 退货日期采购员进货 （供应商编号，采购员编号，进货数量，进货日期） （供应商编号，采购员编号） -> 进货数量，（供应商编号，采购员编号） -> 进货日期采购员退货 （供应商编号，采购员编号，退货数量，退货日期）10 级计算机科学与技术专业103 班数据库应用系统课程设计课程论文2.2.2 关系模式规范化处理以上关系 模式中 的各实 体和联系 之间不 存在非 主属性 对主属 性的部 分函数 依赖，也不存

13、在传递函数依赖，已经达到 了 3NF 。2.2.3 用户子模式建立表 2-1 关系外模式序号视图名称作用备注1price查询各种商品的单价2StorageNow查询目前仓库货物数量3Workweight查询采购员的采购信息4worksale查询售货员买了多少东西2.2.4 关系模式逻辑结构定义详细的逻辑结 构定义见附录 23 数据库物理设计3.1 物理设计阶段目标和任务数据库的物理 设计是为逻辑数据模型选取一个 最合适应用需求的物理结构的过程， 在这个阶段中需要完成的任务是 ：(1) 确定数据库的物理结构 ，在关系数据库中主要是存取方 法和存储结构；(2) 对物理结构进行评价， 评价的重点是时

14、间和空间效率。3.2 数据存储方面3.2.1 建立索引的原则(1) 如果一个或一组属性经 上建立索引。(2) 如果一个经常作为最大 这个属性上建 立索引。(3) 如果一个或一组属性经 在这个属性上 建立索引。建立索引一般 有以下三个原则：常在查询条件中出现，则考虑在这个属性值和最小值等聚集函数的参数，则考虑在常在连接操作的连接条件中出现，则考虑表 3.1 索引所在表名索引名称索引类型建立索引的项供应商信息表supplier index唯一SupNumber药品信息表goods index唯一Gnumber客户信息表customer index唯一Cusnum4数据库实施与测试主要包括数据库实施

15、和测试两个部分。4.1 数据库实施4.1.1 数据库及数据库对象建立主要包括：数据库、基本表、视图、索引、触发器以及存储过程； 对于具体的 DDL 语句以及相关代码，见附录 3。(1)建立索引：Create unique index supplie_index on Supplier(SupNumber);Create unique index goods_index on Goods(Gnumber);Create unique index customer_index on Customer(Cusnum);2 )创建的视图如表 4.1 所示-17-10 级计算机科学与技术专业103 班数

16、据库应用系统课程设计课程论文表 4.1 视图序号视图名称作用备注1price查询各种商品的单价2StorageNow查询目前仓库货物数量3Workweight查询采购员的采购信息4worksale查询售货员买了多少东西(3) 创建的存储过程如表 4.2 所示：表 4.2 存储过程编号存储过程名称作用P1SupPhone输入一个供应商编号查询其电话号码P2goodsprice查询哪些药品大于 20P3Storagenow输入仓库号查询其剩余货物量P4worker_Insert向员工基本信息表插入一个元组P5Book_Insert向订单基本信息表插入一个元组P6sale_Insert向销售单基本信

17、息表插入一个元组P7Return_Insert向退货单基本信息表插入一个元组P8Person delete从员工基本信息表中删除一个元组(4)创建的触发器如表 4.3 所示：表 4.3 触发器编号触发器名作用T1book当向订货单插入一条数据时修改仓库数据T2return采购员退货触发器T3DeCustomer删除顾客信息的同时删除其他表中关于此人的信息4.1.2数据入库将 10 张表导入到数据库中5总结十天数据库实习已经结束， 实习期间有三门重要的考试， 使我们一边应付考 试，一边做实习，晚上还要上通宵自习， 感觉真的很累， 有很多问题感到很难解 决，还好，这些问题在不断的思考中被解决了。这

18、次数据库实习让我学到了很多的东西，原来上课的时候总感到有些不足，因为 自己不知道数据库到底在现实生活中有什么用处， 因此感觉数据库与现实生活没有 多大联系。 通过这次数据库实习让我了解了数据库的重要性， 知道了数据库在现实 生活中到底怎么用。 原来看课本上的数据库设计步骤总是不能理解， 不知道应该怎 么用，通过本次实习，使我深刻的理解了每一个步骤到底是干什么的，怎么干，应该 得到哪些东西。通过本次实习，我学习了很多数据库开发的技巧，例如如何画数据流程图， 然后怎样从数据流程图中抽取出实体， 如何画 E-R 图等等，这些东西都为自己开 发数据库提供了很多技巧。 这也让我明白了团里合作的重要性，

19、当自己遇到不懂 得地方时，通过与同学和老师的交流， 使得我对一些问题得到了更加深刻的理解， 使得我能够按时完成本次数据库实习。非常感谢学院能够安排本次数据库实习，同时感谢老师细心，耐心详细的讲 解，没有他们本次数据库实习不可能圆满结束。6附录附录 1 ：数据字典：（ 1） 数据项 ：表 6-1DI-1SupNumber供应商的编号varchar(20)DI-2SupName供应商的名称varchar(20)DI-3SupAddress供应商的 地址varchar(20)DI-4SupPhone供应商的联系电话varchar(20)DI-5Gnumber药品的编号varchar(20)DI-6G

20、name药品名称varchar(20)DI-7Gweight药品重量floatDI-8Gtype药品类别varchar(20)DI-9Gprice药品单价floatDI-10Gdate药品生产日期dateDI-11Gstodate药品保质期intDI-12Cusname顾客姓名varchar(20)DI-13Cusnum顾客编号varchar(20)DI-14Cusage顾客年龄intDI-15CusPhone顾客联系电话varchar(20)DI-16CusAddress顾客地址varchar(20)DI-17Cusnumber顾客邮编varchar(20)DI-18Gthdate顾客退货时

21、间dateDI-19Gjhdate顾客购药日期dateDI-20Jhdate进货日期dateDI-21Thdate退货日期dateDI-22StorageSno仓库编号intDI-23StorageNow仓库目前库存intDI-24StorageMin仓库最小容量intDI-25StorageMax仓库最大容量intDI-26StoragePho仓库联系电话varchar(20)DI-27mannum人员编号varchar(20)DI-28manname人员名称varchar(20)DI-29manPho人员电话varchar(20)DI-30manAdd人员地址varchar(20)DI-3

22、1mantype人员类型varchar(20)(2) 数据结构表 6-2数据结构编号数据结构名数据结构含义组成DS-1Supplier供应商SupNumber SupNameSupAddressSupPhoneDS-2Customer顾客Cusname CusageCusPhoneCusAddressCusnumberDS-3Goods货物Gnumber GnameGtype Gweight GpriceGdateDS-4Storage仓库StorageSnoStorageMaxStoragePho StorageAdmDS-5StorageManager仓库管理员Stonumber Ston

23、ame StoAddress StoPhoneDS-6Delvebook发货单SupName Gnumber Gname Gtype Gweight Gprice GdateDS-7Orderbook订货单SupNumber SupName Purmannum Gnumber Gweight JhdateDS-8Returnbook1退货单SupNumberPurmannum GnumberGweight ThdateDS-9Salebook顾客购药单SalemannumCusname Gnumber GnameGtypeGweightGpriceGjhdateDS-10Rerurnbook2

24、顾客退货单SalemannumCusname Gnumber GnameGtypeGweightGpriceGthdateDS-11Deposit仓库库存StorageSnoStonumber GnumberGweightDS-12Saleman售货员Salemannum Salemanname SalemanPho SalemanAddDS-13Purchase采购员Purmannum Purmanname PurmanPho PurmanAdd3 ）数据流表 6-3数据流编 号数据流名 称简述数据流来 源数据流去 向数据流组 成数据流量高峰流量F1采购部订货单药店向供 应商提供 药品需求

25、单采购部供应商商品编码 +商品名 称+进货 量 + 商品 进价15 次/月30 次 /月F2采购发货 单供应商发 出的收货 单供应商检验货物的模块商品编码 +商品名 称+进货 量 + 商品 进价15 次/月30 次 /月F3库存清单库存帐目 共采购部 参考的单 据库存账目采购部差库模块商品编码 +商品名 称 + 库存 量30 次/月60 次 /月F4采购部退货单采购部向 提供商发 出的退货 单检验货物的模块供应商商品编码 +商品名 称+退货 量5 次/ 月10 次 /月F5顾客购物 单顾客购买 药物是开 的订单销售人员顾客商品编号 +商品名 称 + 购买 量 + 商品 售价+购 买日期60 次

26、/月100 次 /月F6顾客退货 单顾客将要 退药的单 据发给销 售部顾客退货模块确认退货模块商品编号 +销售人 员编号 + 购买量 + 退货日期10 次/月20 次 /月F7不合格单采购部检 查到的不 合格药品 的单子检验货物的模块退货模块药品编号 +药品重 量+退货 日期5 次/ 月10 次 /月F8合格单检验货物 模块填写 的合格药 品的单据检验货物的模块入库管理模块药品编号 +药品名 称10 次/月20 次 /月F9入库单库管理员填写的要入库药品库管员仓库药品编号 +药品数 量15 次/月30 次 /月的清单4 ）处理逻辑表 6-4处理逻辑处理逻辑输入的数输出的数编号名称简述据流处理据

27、流处理频率根据清单采购部采F1 库存清确认采购F2 采购订P1.1采购查库购依据单商品货单30 次 /月根据发货F4 不合格采购部检F3 采购发单检验商单， F6 合格P1.2验货验来货货单品单15 次 /月检验不合F4 不合格F5 采购退P1.3采购退货格退去单确认退货货单10 次 /月检验合格F6 检验合登记库存P1.4入库入库格单帐目F7 入库单15 次 /月销售部向F9 顾客订P2.1销售顾客卖货单导购提货F10 销售单1000 次 / 月附录 2基本表的建立：货物表 6-5属性名类型取值范围是否为主键是否可为空Gnumbervarchar(20)YNGnamevarchar(20)N

28、NGweightFloat>0NYGtypevarchar(20)NYGpriceFloat>0NYGdateDateNYGstodateInt>0NY供应商表 6-6属性名类型取值范围是否为主键是否可为空SupNumbervarchar(20)YNSupNamevarchar(20)NYSupAddressvarchar(20)NYSupPhonevarchar(20)NY仓库表 6-7属性名类型取值范围是否为主键是否可为空StorageSnoInt>0YNStorageMinInt>0 and <1000NYStorageNowInt>=0and&

29、lt;10000NYStorageMaxInt>0NYMannumVarchar(20)NNJhdateDateNN工作人员表 6-8属性名类型取值范围是否为主键是否可为空mannumvarchar(20)YNmannamevarchar(20)NNmanPhovarchar(20)NYmanAddvarchar(20)NYmantypevarchar(20)NN顾客表 6-9属性名类型取值范围是否为主键是否可为空Cusnamevarchar(20)NNCusageInt>0NYCusnumVarchar(20)YNCusPhonevarchar(20)NYCusAddressva

30、rchar(20)NYCusnumbervarchar(20)NY仓库货物表 6-10属性名类型取值范围是否为主键是否可为空StorageSnoIntYNGnumbervarchar(20)YNStorageNowInt>0NN订货单表 6-11属性名类型取值范围是否为主键是否可为空SupNumbervarchar(20)YNmannumvarchar(20)YNGnumbervarchar(20)YNGweightFloat>0NYGpriceFloat>0NYJhdateDateNY-29-10 级计算机科学与技术专业103 班数据库应用系统课程设计课程论文退货单表 6-

31、12属性名类型取值范围是否为主键是否可为空SupNumbervarchar(20)YNmannumvarchar(20)YNGnumbervarchar(20)YNGweightFloat>0NYThdateDateNY销售员售货表 6-13属性名类型取值范围是否为主键是否可为空mannumvarchar(20)YNGnumbervarchar(20)YNCusnumvarchar(20)YNGweightFloat>0NYGpriceFloat>0NYGjhdateDateNY顾客退货表 6-14属性名类型取值范围是否为主键是否可为空mannumvarchar(20)YNG

32、numbervarchar(20)YNCusnumvarchar(20)YNGweightFloatNYGthdateDateNY2.SQL 语言实现创建货物表create table Goods(Gnumber varchar ( 20) primarykey ,Gname varchar( 20) not null ,Gweightfloatcheck (Gweight> 0),Gtypevarchar( 20),Gpricefloatcheck (Gprice>0),Gdatedate ,Gstodate int check(Gstodate> 0) )创建供应商表cr

33、eate table Supplier(SupNumber varchar ( 20) primarykey ,SupName varchar ( 20) not null ,SupAddress varchar ( 20),SupPhone varchar ( 20)创建仓库存储表 create table Storageage(StorageSno int primary key ,StorageMin intcheck (storagemin>0),StorageNow intcheck (storagenow>0 and storagenow<= 1000),Stor

34、ageMax intcheck (storagemax> 0 and storagemax<= 1000),mannum varchar ( 20) referencesWorker(mannum),Jhdate date)创建工人表create table Worker(mannum varchar ( 20) primary key, manname varchar ( 20) not null , manPho varchar ( 20),manAdd varchar ( 20), mantype varchar ( 20)创建顾客表create table Customer

35、(Cusnum varchar ( 20)primary key,Cusname varchar ( 20) not null , Cusage int ,CusPhone varchar ( 20),CusAddress varchar ( 20), Cusnumber varchar ( 20)仓库货物create table Manger(StorageSno int primary key ,Gnumber varchar ( 20) references goods(gnumber),StorageNow intcheck (StorageNow> 0)订货单createtab

36、le Orderbook(SupNumber varchar ( 20), mannum varchar ( 20), Gnumber varchar ( 20),Gweight float check (Gweight> 0),Gpricefloat check (Gprice> 0),Jhdatedate ,primarykey (SupNumber,mannum,Gnumber),foreignkey (SupNumber) references Supplier(SupNumber),foreignkey (mannum) references Worker(mannum)

37、,foreignkey (Gnumber) references Goods(Gnumber)退货单createtable Returnbook1(SupNumber varchar ( 20), mannum varchar ( 20), Gnumber varchar( 20),Gweight float check (Gweight> 0),Thdatedate ,primarykey (SupNumber,mannum,Gnumber),foreignkey (SupNumber) references Supplier(SupNumber),foreignkey (mannum

38、) references Worker(mannum),foreignkey (Gnumber) references Goods(Gnumber)销售员售货createtable Salebookmannum varchar ( 20),Gnumber varchar ( 20),Cusnum varchar ( 20),Gweight float check (Gweight> 0),Gpricefloat check(Gprice> 0),Gjhdatedate ,primarykey (mannum,Gnumber,Cusnum),foreignkey (mannum) r

39、eferences Worker(mannum),-35-10 级计算机科学与技术专业103 班数据库应用系统课程设计课程论文foreignkey (Gnumber)referencesGoods(Gnumber),foreignkey (Cusnum)referencesCustomer(Cusnum)顾客退货createtable Rerurnbook2( mannumvarchar ( 20),Gnumber varchar ( 20),Cusnum varchar ( 20),Gweightfloat check (Gweight> 0),Gthdatedate ,primary

40、key (mannum,Gnumber,Cusnum),foreignkey (mannum)referencesWorker(mannum),foreignkey (Gnumber)referencesGoods(Gnumber),foreignkey (Cusnum)referencesCustomer(Cusnum)附录 3一 . 数据库视图1. 创建 各种商品的单价的视图create view price asselect Gname,Gprice from goodsselect gname,gprice from price-37-2. 查询目前仓库货物数量的试图create vi

41、ew StorageNowasselect StorageSno,StorageNow from manger select StorageSno,StorageNowfrom storagenow3. 查询采购员的采购信息createview Workweightasselectmannum,Gweightfrom orderbookselectfrom workweight10 级计算机科学与技术专业103 班数据库应用系统课程设计课程论文4. 查询售货员卖了多少东西二 . 存储过程1. 输入一个供应商编号查询其电话号码create or replace procedure SupPhon

42、e (v_supsno in Supplier.Supnumber% type ,v_supphone outSupplier.Supphone% type ) isbeginselect supphoneinto v_supphonefrom Supplierwhere v_supsno=supnumber;end;测试declarea varchar2 ( 10):= '4'b varchar2 ( 20);beginsupphone(a,b);-43-dbms_output.put_line(b);end;结果输出2. 查询哪些药品价格大于20 （用游标）create o

43、r replaceproceduregoodspriceisv_Gname goods.gname% type ;_Gprice Goods.Gprice%type ;cursor c1 isselect Gname, Gprice from Goodswhere Gweight> 20;beginopen c1;loopfetch c1 into v_Gname,v_Gprice;exit when c1%notfound ;dbms output.put line(v Gname|'-' |v Gprice);end loop ;close c1;end;检验：beg

44、in goodsprice; end;输出结果3. 输入仓库号查询其剩余货物量createorreplaceprocedureStoragenow1 (v_storagesnoinStorageage.Storagesno%type ,v_storagenowout Storageage.Storagenow% type )is beginselect Storagenow into v_storagenow From mangerwhere v_storagesno=Storagesno; end;测试 declare a int := 5; b int ;beginStoragenow1(

45、a,b); dbms_output.put_line(b);end;输出结果4. 向员工基本信息表插入一个元组create or replaceprocedure worker_Insert(v_mannumworker.mannum%type ,v_mannameworker.manname%type ,v_manphoworker.manpho%type ,v_manaddworker.manadd%type ,v_mantypeworker.mantype% type )asbegininsert into worker(mannum,manname,manpho,manadd,mant

46、ype) values (v_mannum,v_manname,v_manpho,v_manadd,v_mantype); commit;end;测试：begin worker_insert( '99' , '99' , '99' , '99' , ' 售货员 ' ); end;from worker输出结果select10 级计算机科学与技术专业103 班数据库应用系统课程设计课程论文5.向订单基本信息表插入一个元组create or replaceprocedureBook_Insert(v_mannumord

47、erbook.SupNumber% type ,v_mannameorderbook.mannum%type ,v_manphoorderbook.Gnumber% type ,v_manaddorderbook.Gweight% type ,v_mantype orderbook.Gprice%type )asbegininsert into orderbook(SupNumber,mannum,Gnumber,Gweight,Gprice) values (v_mannum,v_manname,v_manpho,v_manadd,v_mantype); commit;end;测试：begin Book_Insert( '1' , '27' , '2' , 5, 5); end;select from orderbook结果输出6. 向销售单基本信息表插入一个元组create or replace procedure Book_Insert(v_mannum salebook.mannum%type ,v_manname salebook.Gnumber% type ,v