《医药管理系统.doc》由会员分享，可在线阅读，更多相关《医药管理系统.doc（49页珍藏版）》请在三一办公上搜索。
1、医药管理系统摘 要 医院单位的药品信息和数据纷乱复杂，整理统计费力费时。要做好对企业的管理，企业就必须快速准确地获取自己企业单位的信息，这就要求及时统计数据并方便查看，以及对企业的数据信息进行维护。本软件是利用DELPHI 7.0设计开发的医院药品信息管理系统，是医院信息系统的一个重要组成部分，可实现对医院药品信息的分类管理和数据分析，从而使信息整理快速、准确、简单，以便于相关部门给予统筹安排，从而提高改进传统的管理方法，提高企业管理水平。本文所叙述的内容以及程序代码都是医院药品管理中的常见问题。关键词： DELPHI；医院信息系统；药品管理Abstract The hospital unit
2、s drugs information and the datas are chaotic and complex,and the reorganization of the statistics was full of trouble and consumed time.To speed up enterprises management,the enterprise must be quickly accurately gains oneself enterprise unit the information,which requests promotion of statistical
3、datas and the convenience examination,as well as carries on the maintenance to enterprises data message.This software is designed by DELPHI 7.0,which develops the hospital drugs information management system and is a hospital information system important constituent.To realize the hospital drugs inf
4、ormation classified management and the data analysis,thus causes the information to reorganize quickly and accurately is simple,by advantageous for the correlation department to give the overall plan arrangement,thus the enhancement improves tradition management,and raises the business management le
5、vel.This article narrates the content which is the frequently asked as well as the procedure code all are in the hospital drugs management.Keywords: DELPHI 7.0 ; Hospital information system; Drugs management目 录摘 要1Abstract2目 录3绪 论4第一章 需求分析611 医药企业信息化的客观形势612 医药企业信息化的现状613 可行性分析71.4系统开发环境7第二章 系统分析922
6、 系统流程详细分析1023 数据库功能分析1124 外部接口分析1325 性能需求1326 软件属性需求1327 系统的目标1428 系统设计的原则15第三章 详细设计1631 数据库的设计1632 详细设计及系统功能的实现17结 论45致 谢46参考文献47绪 论随着我国市场经济的发展和人们对医药产品需求的迅速增加，医药行业正处于一个高速发展的时期。行业的快速发展必然导致竞争的加剧，要想在激烈的时常竞争中谋求发展，客观上要求企业必须加强内部管理，提高运营效率。而我国大部分医药企业虽然经营实现了专业化，但是从信息机制上还没有摆脱陈旧的销售模式，企业内部没有形成完善、有效的激励和约束的信息化管理
7、机制，企业发展的动力不足，从而影响了企业的持续、稳定、快速的发展。同时，我国医药经营形式正在向集团化、连锁化发展。在这一发展过程中，旧的企业管理模式已不适应新型的社会主义市场经济的要求，而新的企业管理模式正在被广泛探讨、研究之中。这其中，如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率，已是许多医药经营企业特别关心的问题。再者，由于医药产品种类繁多、经营模式特殊、业务量大，单凭手工记账已很难适应工作的需要。医药作为关系到人们健康的特殊行业，国家对医药行业又有一些不同于其他行业的管理政策，这些都加大了管理的难度。新修订的中华人民共和国药品管理法规定，药品经营企业必须按照药品经营
8、质量管理规范（简称GSP）的要求从事药品经营。实现药品经营企业对物质流、资金流和信息流的实时监控、动态管理，最大程度地缩短药品交易时间，降低药品交易成本及企业管理成本，大大提高工作效率和经济效益。这就把药店的信息化管理摆上日程，药店急需一套既能够有效管理药品，又能够实时提供足够市场信息的药店管理信息系统。如何尽快建立和完善现代企业的信息化管理机制问题，已成为药品经营企业发展的关键所在。计算机基于语言基础融合了强大的数据库开发能力是一种非常好的数据开发工具。事实证明，计算机编程语言在工资档案管理体系的应用，使数据管理更现代化，自动化，智能化。减轻了人工管理的工作量，使其变得更具有条理性，科学性，
9、为解决医药管理行业的各种问题做出了巨大的贡献。为次，借这次毕业设计的机会，我对中国医科大学附属第一临床医院的药品管理做了全面细致的调查和用户需求分析，明确所要开发的系统应该具有的功能、性能、界面，清楚地了解了用户的要求，利用DELPHI 7.0的强大的应用程序开发工具,结合有关管理规范和实际调研，进行了对中国医科大学附属第一医院药房用于日常药品管理的软件“医药管理系统”的开发。该系统具有操作简单、稳定、安全和友好的用户界面等特点。 第一章 需求分析随着社会发展的日新月异，计算机的广泛应用已成为社会生产力发展的重要标志。21世纪是一个信息时代，信息技术正影响着庞大和对信息的准确要求、快速等因素国
10、民经济的各个领域。并且药店处理数据的日趋的存在，使得计算机及相应的管理软件在医院及药店管理中的应用成为必然趋势。根据软件工程学的要求，开发软件首先要进行需求分析，下面就中国医科大学附属第一医院药房药品管理系统的开发进行需求分析，以确定该软件的规模、范围、总体要求以及所需要的硬件环境和支持软件，根据用户的情况确定该软件对操作的要求，以及待开发软件总体上的约束和限制。11 医药企业信息化的客观形势1、我国已经加入了WTO，面对即将进驻中国，拥有雄厚国际资本，先进经营理念，优质服务意识的外国药品经营企业，民族药品经营企业要想在与狼共舞中生存、立足、发展，必须在管理上与国际接轨，采用计算机信息化管理手
11、段势在必行。2、药品质量关乎人民大众生命健康，国家药监局正在强力推行GSP认证达标工作，以加大行业监管力度，2004年底是企业GSP达标的最后时间表，绝大多数企业将在今年通过，而要达到这一标准从客观上讲离不开计算机软件的强有力支持。3、药品作为特殊商品有其相对独立的流通体系，这一流通体系的信息化工作需要有能够支持其特殊属性的专业化计算机软件为其服务。4、竞争日趋激烈，药品营销市场逐步规范，降价风潮迭起，利润空间缩小，采用计算机信息化管理，“向管理要效益”已经提上药品经营企业管理者们的议事日程。12 医药企业信息化的现状1、我国药品经营企业信息化起步较晚，最近两三年才刚刚开始，受地区经济水平差异
12、影响，发展状况也不平衡。2、绝大多数企业只是局部采用了管理软件，尚未实现真正的面向企业全局的信息化管理，经营管理上存在着这样或那样的漏洞，不具备足够的优势来迎接日趋激烈的国际、国内市场竞争挑战。3、少数率先步入信息化的企业使用的大多是在通用管理软件基础上修改出来的非专业化软件，对医药企业经营管理特点的针对性不够。13 可行性分析131 技术可行性 该软件的开发只需在Windows操作系统下进行，利用JavaServer Pages进行开发，在计算机上只需安装一般的字处理软件和一些支持软件，不需要大型的系统软件和应用软件来支持。132 经济可行性进行该软件的开发经费和投资较少，开发只需一台能运行
13、和安装windows操作系统以及JavaServer Pages以上的计算机，需要的支持软件较少，软件投入应用时也不需要很高配置的计算机设备和网络的安装，软件的运行寿命比较长，成本较低，所以开发该系统具有经济可行性。133 运行可行性该系统的研制和开发充分考虑用户的业务往来、管理流程和人员素质等方面的因素，从而能够满足使用的要求。窗口操作简单，直观，易于掌握。是具有运行可行性的。经上述的需求分析分析，系统的研制和开发具有可行性。1.4系统开发环境1、编程语言的采用：系统采用Borland的Delphi7.0进行开发。Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows
14、应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编辑器、最为领先的数据库技术。对于广大的程序开发人员来讲，使用Delphi开发应用软件，无疑会大大地提高编程效率。不同的数据库开发软件对数据库的操作是不一样的，在Delphi中，数据库应用程序可以通过Borland数据库引擎BDE (Borland DataBase Engine) 来操作数据库中的数据。事实上，应用程序是通过数据访问组件和BDE连接，再由BDE去访问数据库来完成对数据
15、库的操作的，并非直接操作BDE。这样用户只需关心数据组件即可，不用去直接和BDE打交道。数据库引擎(BDE)Delphi内置了数据库引擎（BORLANFD DATABASE ENGINE）（BDE），为开发数据库应用程序提供了灵活性和通用性工具。它基于驱动程序的体系结构和面向对象的特征为访问各种数据库提供了一致的接口。在Delphi中，数据库应用程序必须与数据库建立联系，而这个联系则通过BDE来完成，所有的数据库的存取也都是由BDE来完成的。要使Delphi的数据库应用程序可以访问数据，通常必须在用户端配置BDE和建立数据库别名（Alias）。例如，Paradox用一个目录来表示数据库，目录中
16、的每一个文件表示一个数据库表。基于BDE的数据库应用程序的结构如下图：基于BDE的数据库应用程序BORLANFD DATABASE ENGINEODBC SocketSQL LinksODBC驱动程序网络协议Oracle SybaseSQL ServerDB2 InformixParadox dBase ODBC数据源 图2.1 BDE数据库应用程序的结构82、数据库的选择：因为本系统要使用多个数据库，所以综合多方面因素，我决定采用的应用比较广泛，操作容易的界面化数据库是Paradox dBase数据库。因为本人对数据库的操作主要是通过Borland数据库引擎BDE，所以在设置系统环境变量的时
17、候，把数据库的连接文件加入到目录中，来实现对数据库的连接。 第二章 系统分析21 系统功能分析软件系统分析是软件生存周期中重要的一步，也是关键一步。根据对中国医科大学附属第一临床学院药店药品管理系统所作的系统分析，按照软件工程学开发软件的要求，对医院及药店的药品管理系统的全部功能和所需数据库进行具体分析，分析时采用结构化分析方法，自顶向下、逐层分解问题。 通过对该管理系统进行的系统分析确定系统应具有的功能。在科学技术迅速发展的今天，人们所处理的信息已不能用简单的手工记录来达到实际的要求，信息的数字化和信息量的日趋庞大，给手工记录带来了不少的麻烦与错误。当今的医药界也存在着所处理数据的庞大和不易
18、人工记录的问题，经过一段时间的调查与研究，医院及药店的药品管理系统应具有如下功能模块：（1）基础信息部分：包括对员工的管理,客户信息的管理,药品供应商的信息的添加,删除,修改和查询等功能的实现.（2）.药品信息部分：对药品信息的添加,删除修改及查询功能的实现.完成对药品的管理. （3）.药品出入库部分：包括药品的出库信息,入库信息及对药品入库信息的查询等功能.（4）.库存管理部分：对保存药品的库房进行管理,出入库的时间,药品等信息的录入。（5）.销售信息部分：包括对药品的销售情况及销售信息的查询.（6）.用户权限管理部分:可以对系统的用户的添加,密码的添加,及系统的退出的实现.确定的该软件系统
19、的结构如图2.1所示。医药管理系统从功能上可以划分为如下几个功能模块(如图3-1):图2.1 医药管理系统功能图22 系统流程详细分析 医院及药店的药品管理系统所处理的信息较多，功能强大，其基于药品管理的系统流程如图2.2所示： 销 售 作 业客 户表 供 应 商销 售 信 息表入 库 作 业表销 售 查 询表库 存 盘 点表库 存 查 询表价 格 管 理表库存信息管理系统 退货返厂管理系统 入库信息管理系统 客户退货管理系统 入库查询管理系统图2.2 医药管理系统的系统流程图23 数据库功能分析随着数据管理规模一再扩大，数据量急剧增加，数据库在软件中有不可替代的作用，成为了软件生存的血液，根
20、据软件工程和数据库原理的要求和设计初期的详细调研，对医院及药店的药品管理系统进行详细的数据库分析。231 要求分析医院及药店的药品管理系统是一个数据库管理系统，数据库设计的好坏直接影响着整个工程运行的好坏，在数据库系统分析和设计阶段多下一点工夫是值得的，根据对软件所做的系统分析和用户的要求，该系统是要对药品的基本信息进行添加、修改、删除和查询统计等操作，这样就需要有供应商数据库、库存数据库、客户基础信息数据库、操作员密码数据库、药品入库数据库、药品入库退货数据库、药品销售数据库、药品销售退货数据库等。通过以上的数据库来完成整个的药品信息的管理。232 概要设计根据数据库的要求分析，确定该管理系
21、统应具有的数据实体和数据实体的属性。在医院及药店的药品管理系统中包括的实体对象有药品实体、供应商实体、客户实体、操作员实体等。其每个实体的属性关系如下：1、 药品实体中主要包括商品名称、简称、批号、产地、规格、单位、进价、库存等属性，该实体关系如图2.3所示药品简称产地商品名称规格时间单位库存批号进价图2.3 药品实体图 2.客户实体包括客户编号、客户全称、地址、联系人、电话、其中编号是为每个固定顾客作的编号码，以便查找操作。其客户实体关系如图2.4所示:名称地址编号客户联系电话联系人 图2.4 客户实体图24 外部接口分析241 用户界面采用Windows的通用图形界面，对用户友好，且对鼠标
22、和键盘提供支持，界面的设计应遵循如下规则：1.界面要具有一致性，界面规范遵循 Windows软件界面的规范；2.提供简单的错误处理；3.提供信息反馈，用多种信息提示用户当前软件运行状态、软件界面元件的功能；4.操作可逆，其动作可以是单个的操作，或者是一个相对独立的操作序列；5.显示启动画面，画面简洁明快，富有现代气息，不能太过花哨；6.应遵循国家关于计算机词汇的标准，用词应当精练准确，没有歧义，图形的意义明朗。242 故障处理正常使用时不应出错，若运行时遇到不可恢复的系统错误，也必须保证数据库完好无损。25 性能需求1、数据精确度查询时应保证查全率，所有相应域包含查询关键字的记录都应能查到。查
23、询时应保证查准率，查到的记录应与给定的单项或组合查询条件完全匹配。2、时间特性一般操作的响应时间应在12秒内，对数据的导入和导出也应在可接受的时间内完成。3、适应性满足个人使用的需求。对前面提到的运行环境要求不应存在困难。26 软件属性需求1、正确性要求发布的软件达到用户的预期目标，运行时基本无错误。2、可靠性在一般条件下，应不出故障。3、效率对于浏览、查询、增加、删除、更新和密码设置的一般操作，要求及时响应，在12秒内。4、完整性要求能在发生意外（如掉电）的情况下，保证不丢失数据。5、易使用性要求能尽量为用户的使用提供方便，软件的界面符合目前流行的界面规范。6、可维护性要求该软件在运行中发现
24、错误时，能快速、准确对其进行定位、诊断和修改。7、可测试性设计时尽可能减少测试该软件的各项功能所需的工作量。8、复用性设计时应采取模块化的方法进行设计，对系统内各模块接口尽可能达到高内聚、低偶合的程度，以提高各模块的复用性。9、安全保密性要求提供身份验证，只允许通过身份验证的用户使用该软件。10、可理解性对于该软件提供的各种菜单命令，各信息提示，应易于用户理解。11、可移植性要求该软件在将来能易于向各种窗口操作系统上移植。27 系统的目标根据初步的调查和征询用户的意见，最后确定医院及药店的药品管理系统的目标如下：1、操作简单方便。2、提供友好的界面。3、提供药品出、入库的功能。4、实现基本信息
25、维护功能。5、简单账务管理。6、信息查询与药品盘点。7、提供重要数据备份的功能等。28 系统设计的原则在进行较详细的调查和征询用户的初步要求之后，在设计的过程中本着以下几点来开发和完善此系统：1、正确性 所有的命令按钮实现正确的功能，满足用户的需求。2、可用性 软件基本结构、实现方式、操作方法必须使一个非计算机专业人员能够方便、正确的使用。3、完整性 实现当前药店药品管理的要求。4、界面友好 设计出的软件要美观大方、操作方便简单。5、为了方便用户使用，应尽量减少键盘的操作,发挥鼠标的作用。6、系统的稳定性 要避免不注意的点击鼠标而产生意想不到的结果，或产生程序的错误，保证操作人员正常的工作。7
26、、减少执行一个功能的步骤，并尽量灵活，不要实现流程过深，而且应尽量能在任何界面中回到主界面，防止出现不能继续执行的现象。第三章 详细设计在明确了用户需求以后，根据软件工程学的要求对该系统进行软件设计，确定了该软件所具有的全部功能和开发方案。该药店药品管理系统的功能模块包括日常业务、库存管理、查询统计、基础信息管理、系统设置、GSP专项信息等。31 数据库的设计数据库系统是在文件系统的基础上发展而来的，经历了层次数据库、网状数据库、关系数据库三个阶段。由于关系数据库采用人们比较容易理解和接受的二维表格来组织数据，发展迅速，已成为数据库产品的主流。本系统的前端开发是使用JSP技术，通过JavaBe
27、ans进行逻辑控制和数据库连接，而后台数据库采用的是SQLServer2000。SQLServer2000数据库管理系统是一项全面完整的数据库与分析产品。SQLServer2000非常容易学习、使用，介绍、学习资料比较多，SQLServer2000全面支持Web功能的数据库解决方案，与此同时，SQLServer2000还在可伸缩性与可靠性方面保持着多项基准测试纪录，而这两方面特性又都是企业数据库系统在激烈市场竞争中克敌致胜的关键所在。无论以应用程序开发速度还是以事务处理运行速度来衡量，SQLServer2000都堪称最为快捷的数据库系统。对比SQLServer2000和其他的大型数据库管理系统
28、，SQLServer2000 具有可靠的安全性，较快的存储速度，高度的兼容性，简单易用，应用SQLServer2000作为后台数据库为系统的开发提供了强有力的支持，并对以后软件的运行提供了坚实的基础，因此，我们采用了SQLServer2000作为后台数据库。1、密码表（ma）：包括操作员和密码；主要用来保存操作员及操作员密码。其各个字段类型设置和字段长度设置见附录A表(3-4)所示。2、入库表（rk）：包括商品名称、简称、批号、产地、规格、包装、单位、数量、进价、金额、备注、供应商、日期、经手人、票号，用来保存商品入库的详细信息。其各个字段类型设置和字段长度设置见附录A表(3-5)所示。3、销
29、售表（xsd）：包括商品名称、批号、产地、规格、包装、单位、数量、单价、金额、备注、客户、日期、经手人、票号，用来保存商品销售的详细信息。其各个字段类型设置和字段长度设置见附录A表(3-7)所示。 医院及药店的药品管理系统的数据库E-R图如图 3.1所示：库存实体中是药品的相关信息，包括商品名称、产地和批号，他和其他表的关系全部为1对多关系，入库单，销单，入库退单，销售退单都和它有主外键的关系。供应商和客户这两个实体也是作为引用实体存在的，供应商和入库单实体和入库退单实体发生关系，客户和销售单和销售退单发生1对多关系。32 详细设计及系统功能的实现经过上述的需求分析和系统分析以及数据库的设计，
30、确定医院及药店的药品管理系统的全部功能和所需数据库，下面根据软件工程学对系统详细设计的任务要求,对该软件进行详细的设计及功能实现。在此过程中采用结构化的设计方法，来改善控制结构，降低程序的复杂度，从而提高程序的可读性、可测试性、可维护性。321 软件结构该软件顶层数据流图如图32所示。登录操作员身份验证数据处理图32 顶层数据流图322 各模块设计根据对医院及药店的药品管理系统所做的需求分析和系统分析，来实现医院及药店的药品管理系统的全部功能的设计。在此过程中采用模块化的设计方法，根据面向对象的设计要求，将系统分解成一个个独立的模块，从而完成具体的设计。医药管理系统是使用强大的DELPHI开发
31、工具完成全部的开发过程。SQL2000O数据库,不断推出它的各种更新更高的版本。它在继承以前版本优点的基础上，又新增加了诸多功能和特性，它速度快，具有强大且容易使用的可视化开发环境。1.登录窗体的设计(1)、功能：用于操作者身份验证。可以选择操作员，支持鼠标和键盘操作。操作员和密码验证成功后，进入主界面。操作员错误或密码错误提醒并返回错误点。输入三次错误的密码，系统自动退出。登陆模块的界面设计如图3.3所示：图3.3 登陆界面(2)、实现过程：在“医药管理系统”工程中，添加一个新Unit1窗体，命名为登录界面。实现的代码如下:unit Unit1;interfaceuses Windows,
32、Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, ExtCtrls, jpeg;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Button1: TButton; Button2: TButton; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; DataSource1:
33、 TDataSource; Image1: TImage; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation uses unit2;$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);begin ADOQuery1.Close; ADOQue
34、ry1.SQL.Clear; ADOQuery1.SQL.Add(select * from 登录 where 用户名=+edit1.Text+and +密码=+edit2.Text+ ); ADOQuery1.Open; if ADOQuery1.Eof then begin showmessage(用户号或密码不正确); form1.Visible:=true ; form2.Visible:=false; end else begin Hide; form2.Visible:=true; /用户名和密码正确将激活主界面/ ModalResult := mrOK; end;end;proc
35、edure TForm1.Button2Click(Sender: TObject);begin form1.closeend;2. 主界面的设计登录后,就能进入到主界面,实现的功能有:基础信息,药品信息,出入库,库存管理,销售管理和用主民用工业权限管理等等。界面如下：实现的代码如下：unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, Menus;type TForm2 = cl
36、ass(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; Label1: TLabel; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; Image1: TImage; N14: TMenuItem; procedure N12Click(S
37、ender: TObject); procedure N13Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N8Click(Sender: TOb
38、ject); procedure N14Click(Sender: TObject); procedure N9Click(Sender: TObject); private Private declarations public Public declarations end;var Form2: TForm2;implementation uses unit3,unit4,unit5,unit6,unit7,unit8,unit9,unit10;$R *.dfmprocedure TForm2.N12Click(Sender: TObject);begin form4.showend;pr
39、ocedure TForm2.N13Click(Sender: TObject);begin form2.closeend;procedure TForm2.N2Click(Sender: TObject);begin form3.showend;procedure TForm2.N3Click(Sender: TObject);begin form5.showend;procedure TForm2.N4Click(Sender: TObject);begin form6.showend;procedure TForm2.N10Click(Sender: TObject);begin for
40、m7.showend;procedure TForm2.N6Click(Sender: TObject);begin form8.showend;procedure TForm2.N7Click(Sender: TObject);begin form8.showend;procedure TForm2.N8Click(Sender: TObject);begin form8.showend;procedure TForm2.N14Click(Sender: TObject);begin form4.showend;procedure TForm2.N9Click(Sender: TObject
41、);begin form10.showend;3. 库存信息管理模块的设计 (1)、功能：程序启动后，选择“日常业务”菜单下的“入库单”项，将进入入库单模块。在入库单模块中主要实现如下功能：完成药品入库工作。自动生成入库票号。系统将自动统计入库品种、入库数量、入库金额。入库单界面设计如图3.5所示：实现的代码如下：unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtr
42、ls, jpeg, ExtCtrls;type TForm8 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; Button2: TButton; DBGrid1: TDBGrid; Label5: TLabel; Label6: TLabel; Edit5: TEdit; Edit6: TEdit; Button3: TButton; Bu
43、tton4: TButton; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; DataSource1: TDataSource; Label8: TLabel; Label9: TLabel; Edit8: TEdit; Edit9: TEdit; Image1: TImage; Label7: TLabel; Edit7: TEdit; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject)
44、; procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private Private declarations public Public declarations end;var Form8: TForm8;implementation$R *.dfmprocedure TForm8.Button1Click(Sender: TObject);beginif edit1.Text= then begin showmessage(入库单编号不
