数据库课设Delphiymyf商品销售管理系统(论文加代码)

《数据库课设Delphiymyf商品销售管理系统(论文加代码)》由会员分享，可在线阅读，更多相关《数据库课设Delphiymyf商品销售管理系统(论文加代码)（30页珍藏版）》请在装配图网上搜索。

1、目 录引言11 商品销售管理系统的主要功能、作用及特点11.1 商品销售管理系统的主要功能11.2 商品销售管理系统的作用21.3 商品销售管理系统的特点22 商品销售管理系统的需求分析22.1 分析系统的数据要求22.2 功能需求32.3 业务流图32.4 技术可行性42.5 经济可行性42.6 操作可行性53 商品销售管理系统的设计53.1 任务53.2 方案设计53.3 系统结构图53.4 系统ER图说明73.5 数据字典74 数据库设计 64.1 数据库需求分析64.2 数据库备份与恢复65 软件设计75.1 Delphi 7 简介75.2 系统模块规划75.3 界面设计75.4 数据

2、库应用系统的优点和好处116 系统的使用与评价16.1 系统的使用126.2 系统评价137 结论138参考文献189附录17引言 随着计算机在各个领域的不断普及与发展，计算机的应用从最初的科学计算、实时控制等，发展到数据处理，又迅速扩展到非数值型的企事业管理与办公自动化领域，而数据库技术更加被广泛应用于各个领域。在现代企业中，信息管理工作将发挥越来越重要的作用。企业信息管理工作已经渗透到日常工作的许多方面，无论是其自身还是所发挥的作用，都为企业的创新，发展以及经济效益，做出了显著的贡献。因此，企业必须加强自身的信息基础建设，通过企业基础数据的信息化，企业基本业务流程和事物处理的信息化，企业内

3、部控制及实施控制过程的信息化，人的行为规范管理等企业基础管理信息化工程，确保在规模不断扩大和业务迅速发展的过程中保持坚实的管理基础和繁殖内核，促进企业的可持续发展。计算机业飞速发展，技术淘汰指标高得惊人，价格下降以及软件应用的快速扩展引发了以信息处理计算机化为标志的“微机革命”。 微型计算机的出现和普及，为信息处理提供了物美价廉的手段，对于推动信息管理系统的使用起到了重要作用。使用计算机对商品信息进行管理,具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、使用时间长、成本低等。这些优点能够极大地提高商品信息管理的效率,也是企业的科学化、正规化管理及与世界接轨

4、的重要条件。1 商品销售管理系统的主要功能、作用及特点企业的销售管理往往是很复杂烦琐的。由于销售的物资种类众多，进货，管理，销售各有差异，各类报表繁多。本论文以Sql sever 2005和Delphi 7为基础，实现一个简单的商品销售管理信息系统的建立。由于物资管理系统是一个庞大的工作，加之我对Sql sever 2005和Delphi 7的知识理解并不是太透彻，在老师和有关参考资料的帮助下，才完成了这个论文。因为经验不足，写作中的错误在所难免，敬请各位老师给予批评指正。1.1 商品销售管理系统的主要功能1.1.1 交易管理，包括进货登记管理，销售登记管理，退货登记管理等的查询，修改，删除等

5、功能； 1.1.2.进货统计管理，其中包括有关进货的各种统计数据表。1.1.3 销售统计管理，其中包括有关销售的各种统计数据表， 1.1.4 员工销售业绩的考核，可以很方便的查看各员工的销售情况，以便对各员工的业绩进行考核比较。1.1.5 .为了能够更好的了解企业各方面情况，以便于经营管理。还需要几个信息表来显示诸如库存，生产厂商，员工信息，各种报表等内容的功能。1.1.6 基于安全性的考虑，本系统还提供一个管理员登录的功能以及数据的备份与还原。1.2 商品销售管理系统的作用1.2.1 持续扩大市场范围，有利于持续开发全球市场。1.2.2 提高业务透明度，减少暗箱操作，有利于相互监督，减少腐败

6、和职员跳槽事件。1.2.3 员工之间职责分工明确，有利于提高工作效率。1.2.4 提高企业对市场的快速反应能力，全面提高企业竞争力。1.2.5 提高企业的工作效率。1.2.6 提高职工的工作积极性。1.2.7 保持企业与销售人员和客户的紧密联系，充分发挥团队的协同作战优势。1.3 商品销售管理系统的特点1.3.1 功能完善，涵盖企业销售业务的各个方面。1.3.2 专业性强，针对企业的专业特点和管理特点。 1.3.3 灵活方便，功能可选择、可定制性强。 1.3.4 环境要求低，操作系统windows95以上。1.3.5 操作简单，界面人性化，便于操作。2 商品销售管理系统的需求分析需求分析的基本

7、任务是准确的回答“系统必须做什么？”这个问题。虽然在上一个阶段已经粗略的了解了用户的需求，但还是会遗漏一些细节方面的问题。所以需求分析这一阶段的研究比不可少，而且，它在整个系统开发过程中占有非常重要的地位。2.1 分析系统的数据要求任何一个系统本质上都是信息处理系统，系统必须处理的信息和系统应该产生的信息在很大程度上决定了系统的面貌，对软件设计有深远的影响。因此，必须分析系统的数据需求，这是软件需求分析的一个重要任务。复杂的数据由许多基本的数据元素组成，数据结构表示数据元素之间的关系。利用数据字典何以全面准确的定义数据，但是数据字典的缺点是不够形象直观。因此，数据流程图能够很方便的表明整个系统

8、的功能，数据在系统中传输的路径。需求分析阶段的一个重要而困难的任务是收集将来应用所涉及的数据，所以要在此阶段就要充分考虑到可能的扩充和改变，使设计易于更改，系统易于扩充。另外，在数据分析阶段，必须强调用户的参与，要与用户保持密切的联系，任何调查研究没有用户的积极参加是寸步难行的。在此阶段，我主要是做了一些了解商品销售方面的数据的调查工做，积极参与到实际的销售过程当中，不断与用户交流意见。2.2 功能需求根据当前的企业管理体制，一般企业的销售管理系统，总是根据掌握的商品类别，相应分成几个科室来进行商品的销售，进货，核销托收，验收入库，并随时按期进行库存盘点，作台帐，根据企业自身管理的需要按月，季

9、，年进行统计分析，产生相应的报表。但是这样的人工操作管理既浪费人力，财力，又浪费时间，严重影响了企业的效率。本章根据当前的企业机制，把企业销售管理系统划分为如下几个功能：交易管理，包括进货登记管理，销售登记管理，退货登记管理；进货统计管理，其中包括有关进货的各种统计数据表，如今日进货统计，本月进货统计，本极度进货统计，本年度进货统计等；销售统计管理，其中包括有关销售的各种统计数据表，如今日销售统计，本月销售统计，本极度销售统计，本年度销售统计等:员工销售业绩的考核，可以很方便的查看各员工的销售情况，以便对各员工的业绩进行考核比较同时，为了能够更好的了解企业各方面情况，以便于经营管理。还需要几个

10、信息表来显示诸如库存，生产厂商，员工信息等内容的功能。基于安全性的考虑，本系统还将提供一个管理员登录的功能。在没有登陆的情况下，各个功能是不可用的。2.3 业务流图在仔细分析调查有关企业销售信息需求的基础上，能得到如下图所示的企业销售管理人员： 管理员 普通用户系统管理人员（图1）系统的活动视图如下： 2.4 技术可行性2.4.1 开发软件可行性结合本项目实际，本企业的业务量很大，但是其操作流程并不是很复杂，各种结构及流程十分清晰，可以设计出符合实际需求的信息管理系统。vf6.0非常擅长对数据表和其间关系进行简单的操作，无论是查询，统计还是用报表进行数据输出，都能顺利完成。因此，从软件角度讲是

11、vf6.0是完全可以胜任的。2.4.2 开发硬件可行性开发本系统所使用的vf6.0软件对于计算机的要求比较低：WINDOWS 98以上版本80486或更高的处理器MS WINDOWS支持的VGA或更高分辨率的显应用程序要求8MB RAM这样的要求市场上的计算机配置都能够达到，所以硬件的可行性也可达到。2.5 经济可行性 由于销售企业目前完全采用手工方式完成业务，进行报表制作，对数据进行综合分析等。管理系统建成后由于不是直接用于生产，因此直接经济效益较小，但是一定会间接的创造出十分可观的经济效益。由此可见，开发此系统在经济上是完全可行的。而且，由于系统在未来较长的时间内稳定发挥作用，这对于提高公

12、司的综合管理水平、简化日常业务操作都将会起到很大的帮助。2.6 操作可行性销售企业的大多数员工从未使用过类似的管理系统，但是WINDOWS友好的界面和本系统简易的操作设置，可以使企业的内部员工很快掌握其各种操作。不仅如此，系统还附有详细的使用帮助文件，为本系统的正确使用给以图文并茂的形式加以说明。同时，在开发过程中，我们还可以尽量给用户以方便，充分考虑到用户需求的实际情况，在输入界面，查询界面、报表打印等部分添加注释或提示，并尽可能的采用相关联的数据自动输入的功能，帮助用户尽快掌握系统的使用和减少数据的输入，以提高本系统的使用效率。 3 商品销售管理系统的设计通过这个阶段的工作应该划分出组成系

13、统的物理元素。但是每个物理元素仍然处于黑盒子级，这些黑盒子里的具体内容将在后面章节中详细设计。系统设计阶段的另一个重要任务是设计软件的结构，也就是要确定系统中每个程序是由哪些模块组成的，以及这些模块相互间的关系。系统设计过程首先寻找实现目标系统的各种不同方案，需求分析阶段得到的数据流图是设想各种可能方案的基础。然后对比各种合理方案的利弊，推荐一个最佳方案，并且为最佳的方案制定详细的实现计划。3.1 任务系统开发的总体任务是实现企业销售管理的系统化，规范化和自动化，从而达到提高企业管理效率的目的。经过需求调查与分析阶段的工作，系统必须完成的工作和功能已经清楚，接下来就是划分组成系统的程序数据库和

14、设计软件的结构，也就是确定系统中每个程序是由哪些模块组成，以及这些模块相互之间的关系。3.2 方案设计在对系统做了详细的需求调查与分析之后，对于目标系统，我的方案是：基于 Delphi为设计语言并以Sql sever2005为数据库进行企业信息的管理该系统的优点是操作方便，适用性强，发周期短，成本低，因此选用该方案作为实施方案。3.3 系统结构图整个系统开发过程中，主要涉及到的实体有：管理、用户、商品、销售，他们之间的关系如下：3.4 系统ER图说明3.4.1 商店中的所有用户（员工）可以销售多种商品，每种商品可由不同用户（员工）销售；3.4.2 每个顾客可以购买多种商品，不同商品可由不同顾客

15、购买；3.4.3 店主供应多种不同商品，每种商品由一个店主供应；3.4.4会员可以买多种商品，商品可以卖给多个会员。3.5 数据字典关系描述：表1：商品信息表字段名字段类型长度字段值约束备注MerchNamechar8Not null商品名称MerchPriceDouble8Not null价格MerchPriceDouble8Not null成本MerchNumInt4数量CautionNumInt4报警数量SalesProPriceDouble4促销价格SalesProDateSchar8促销起日期SalesProDateEchar8促销止日期表2：管理员表字段名字段类型长度字段值约束备注

16、Namechar8Not null用户名字Passchar8Not null用户密码Typechar8Not null用户类型表3：商品销售表字段名字段类型长度字段值约束备注MerchIDint4Not null商品名称（外键）MerchPricedouble8Not null价格MerchNumInt4Not null数量MerchDateDatetime4Not null销售日期表4：商品进出货表字段名字段类型长度字段值约束备注MerchNumInt4Not null数量MerchNamechar8Not null商品名称StockDateDatetime8Not null进货日期Stoc

17、ktypechar8Not null进出货类型4 数据库设计数据库在信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接影响系统的运行效率的高低和数据是否具有完整性和一致性。设计数据库系统时即要充分了解用户目前的需求，还要考虑到将来可能增加的要求。4.1 数据库需求分析用户的需求具体体现在各种信息的提供，保存，更新和查询上，这就要求数据库结构能充分满足各种数据的输出和输入，收集和查询。经过对系统功能分析和需求总结，考虑到将来功能上的扩展，设计如下面所示的数据项和数据结构。商品基本信息：包括商品编号，商品名称，供应商名称，供应商编号，商品进价，商品售价，进货日期，库存量，备注。商品供应商

18、信息：供应商编号，供应商名称，负责人，联系电话，联系地址，备注等。商品销售信息：商品编号，销售日期，销售单价，销售数量，折扣，小计。商品销售记录：商品编号，销售日期，销售单价，销售数量，折扣，合计等。管理员信息：包含管理员代码，管理员姓名，密码，备注，rank（权限）等。在上面的需求分析，数据结构设计基础上，下面可以开始数据库逻辑结构设计了。4.2 数据库的备份和恢复信息数据是企业中非常重要的资源，因此保证数据库的安全可靠、正确有效是非常重要的问题。为了保证数据库的安全性,本系统特意设计了数据库的备份与恢复。数据库备份主要用于对数据库中的现有数据进行备份，以便日后使用。数据库恢复主要用于当数据

19、库中的数据损坏时进行数据的还原，以保证系统的正常运行和数据库中的数据的安全性。5 软件设计5.1 Delphi简介Delphi是一个极有代表性的面向对象开发工具；它将面向对象的程序设计方法与数据库技术；网络技术以及可视化；事件驱动，代码自动生成等先进技术完美的结合在一起，使用它可以直观的，快速地开发，高质量的windows应用程序。Delphi强大的易用的特点得到程序员的青睐。Delphi7.0除了保留以前版本的强大功能之处，更在数据库程序开发方面提供了强有力的支持，使程序员完全可能轻松开发出复杂且功能强大的数据库程序。Delphi类可以粗略地分成两部分：一部分是组件类，这些组件类通常以某种方

20、式出现在组件面板上，当用户从组件面板上点取一个类的图标后，在程序中就自动生成了该类的对象（非可视组件除外）；另一部分是功能类，这此功能类的对象通常出现在程序代码中，起着不可代替的作用，但是这些功能类在组件面板上是找不到的。在Delphi中，每一个类的祖先都是Tobject类,整个类的层次结构就像一棵倒挂的树，在最顶层的树根即为Tobject类。这样，按照面向对象编程的基本思想，就使得用户可用Tobject类这个类型代替任何其它类的数据类型。5.2 系统模块规划商店销售管理系统系统管理模块基本资料模块商品品管理模块查询模块销售管理模块报表查看模块关于模块5.3 界面设计5.3.1登录界面登录界面

21、通过连接数据库的管理员表，用表中相应的登录名和密码进行登录，并进行了权限的设置，分为管理员和一般用户，分别可以进入不同的系统管理界面，并有相关的权限限制。 5.3.2 界面设计 根据需求分析建立了如下目录列表 ：系统管理、基本资料、销售管理、报表查看、关于等五个主目录。 5.3.3 用户名管理设置其中包括了用户名查看，添加，删除 ，修改，等功能，使使用者方便管理和操作，使软件人性化。5.3.4 销售查看，管理，统计 这些都是系统的核心内容，系统的关键部分，包括了商品的进货，库存，销售等的管理，包括查询，添加，删除，修改，统计等，可以按查询当天的销售统计，也可以查询本星期，本月的销售记录都 可以

22、。还可以进行最后的库存查询，还包括各种商品的报表查询，打印。5.4 数据库应用系统的优点和好处 5.4.1 数据库应用系统的优点数据库能够存储大量数据，且占用空间少。随着计算机技术的发展，无论是文字、图片，还是声音或视频，多媒体信息都可以使用数据库进行存储，且存储量很大，堪称海量存储；又由于数据库技术的应用，大大减少了数据冗余，使得储存数据所占用的空间较少。管理操作方便、快捷、高效。数据维护简单、安全。使用数据库管理信息资源，可以进行添加、修改、插入、删除等操作，而且方便、快捷。检索统计准确、迅速、高效。数据库应用系统的使用，可以按关键词对数据进行各种分类，而且关键词还可以作各种各样的组合，使

23、得数据的检索、统计等操作形式多样，结果准确；又由于几乎所有的数据库都采用了索引技术，使得检索数据速度快，效率高。数据应用共享性好。由于对数据进行集中管理，可以通过网络等各种技术，使得数据额应用能够共享，并且数据应用的效率也高。 无论是常用的数据库应用系统，还是网上搜索引擎或在线数据库，都可以存储和管理庞大的信息，使得原本繁杂的数据变得规范有序，管理的方式也由人工管理或文件管理向自动化和集中管理转变，并通过网络实现信息的高度共享，提供高效的检索服务。5.4.2 数据库应用的好处 商品销售管理系统存储了大量的商品（如商品编号、商品名称、生产厂家、生产日期、购买量、库存量等），对这些信息进行分类录入

24、和分级管理，能根据用户输入的信息或实际操作，进行各项统计工作和信息检索服务，并能在较短时间内得到结果，从而实现高效检索。 网上搜索引擎或在线数据库功能强大，使用对象广泛而多样，它们对所搜集的信息实行了规范化的分类和分级管理，人们在感受到信息量丰富的同时，也享受到更加高效的信息检索和数据统计等服务。它们已经是人们日常生活中经常使用的工具。 正是由于数据库应用系统在存储、管理和检索信息方面存在如此巨大的优势，它们在社会各个领域中得到了广泛的应用并产生了深远的影响。因此，熟悉运用这些系统的基本操作方法和使用技巧，从中掌握科学评价和适当选择系统的方法，应当成为我们每个人具备的生活技能。6 系统的使用与

25、评介6.1 系统的使用6.1.1 本系统的使用方法每次运行时，打开程序所在的目录，双击程序（或右击选择打开）是会打开如下的登陆界面： 用户登陆界面它对操作员进行口令验证，防止非法用户进入系统，任意增加、修改和删除数据。在选择或输入用户并提供正确的密码后，点“登陆”按钮即可进入系统，点“退出”放弃登录，退出系统。如果不能提供正确密码，在点“确定”按钮后会有相应提示，系统的管理员分为两个级别：系统管理员和普通管理员。系统管理拥有一切权限，可以对数据进行备份、数据恢复、删除和修改其他的管理员信息。登陆时候请确认您的管理员级别。6.1.2 系统目录 系统的主要功能都集中于此。从左起第一个子菜单就是“系

26、统管理”，系统管理下面有“重新登录”、“数据初使化”、“用户管理”、“数据备份与恢复”、“退出” 等子菜单，现在分别介绍它们的功能：重新登录：想换管理员时可用，近入登录界面。数据初始化：清空当前系统中除用户信息之外的所有数据，恢复成系统的初始状，本操作只限系统管理员可用。用户管理： 管理员进行用户的查询，添加，删除，修改用户的功能，本操作只限系统管理员可用。 数据备份与恢复：备份系统当前数据，可自行选择要备份的数据及备份去向，用以前备份的数据替换系统当前的数据， 6.1.3 数据查询进入系统后，。从左起第二个菜单是“基本资料”。其主要功能是查询系统当前的数据，“基本资料”下面的子菜单有：“员工

27、资料”、“商家资料”、“销售表资料”、“商品资料”。打开相应的界面进行查询，各个界面都可以根据用户输入的数据进行相应的查询。其中，“员工资料”和“商家资料”只限系统管理可用。6.1.4 商品销售用户进入系统后，从左起第三个菜单是销售管理，下面的子菜单有：“销售表”、“销售统计”、“库存统计”。销售表：用来记录销售商品的表，包括添加，删除，修改等功能。销售统计：用来统计销售的总数量，总价格，并计算所得的利润。库存统计：用来统计商品的剩余量。6.1.5报表打印进入系统后，从左起第四个菜单是“报表查看”，其主要功能是打印和预览系统设定的报表。下面的子菜单有：“库存报表统计”、“销售统计”、“员工报表

28、”。当点击这些菜单时会打开相应的报表浏览。如果没有安装打印机，将会提示安装打印机，此时应该点“否”并选“忽略”，否则系统将会产生错误；“打印报表”可以打印生成的报表。6.2 系统评价6.2.1 经济评价由于使用了本系统，减少了相关人员的手工操作的工作量，以前很多人长时间才能完成的工作，现在只需要少数的几个人在短时间内就可以完成。这样即可以在现有的员工人数不变的情况下扩大业务也可以实现减员增效。这样无形中就增加了公司的经济收入。同时由于使用了本系统增也提升业务效率，其中的无形价值更加巨大。6.2.2 性能评价由于使用了本系统，使得企业在商品入库管理，商品销售管理，商品价格调整和各种信息查询等方面

29、有了质的突破。并且实现了查询、统计的功能，使企业的经营状况清晰可见，整个商品销售管理更加科学化，规范化。6.2.3 管理评价在使用本系统之后，不但提高了商品信息的管理效率，同时也改掉了很多手工操作的弊端，提高了管理效率，还将现行的管理体制以及人力、物力进行了更加合理的配置和优化。7 结论经过两个星期的努力，商品销售管理系统终于完成。通过实践，提高了系统分析的能力，对数据流图、数据字典、系统流程图等系统设计工具的使用有了更加深刻的认识。开始很陌生的设计开始逐渐的熟悉起来，为以后的工作、学习的进一步提高打下了坚实的基础。难题的出现，才使我有了很大的收获。尤其是在设计阶段觉得很容易的一件事可能就是你

30、在具体实现过程中遇到的一个很头疼的问题，有了这些经验，我相信在今后做设计的时候一定对我有很大帮助！在本次毕业设计中，老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高。这对于我以后的工作和学习都有一种巨大的帮助，感谢老师耐心的辅导。另外，在系统开发过程中我的同学也给予我很大的帮助，帮助解决了不少的难点，这里并不一一表示感谢。8 参考文献01 王学庆Delphi7数据库设计实例导航北京：科学出版社200302 付军Delphi7实例编程100例北京：中国铁道出版社200503黄梯云.管理信息系统. 北京：经济科学

31、出版社 200704甘仞初.信息系统开发. 北京：经济科学出版社 2009 05王珊.数据组织与结构. 北京：经济科学出版社 2001 06 方美琪.软件开发工具. 北京：经济科学出版社 2008 07 美Raghu Ramakrishnan Johannes Gehrke.数据库管理系统原理与设计. 北京：清华大学出版社.20079 附录Form1implementationuses Unit3, Unit11, Unit10;$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);beginadoquery1.SQL.Clear; ad

32、oquery1.SQL.Add(select * from 管理员 where 用户名=+edit1.text+ and 密码=+edit2.text+) ; adoquery1.Open; if(adoquery1.RecordCount0) and ( adoquery1.FieldByName(权限).AsString=1) then form2.Show else if (adoquery1.RecordCount0) and ( adoquery1.FieldByName(权限).AsString=0) then form11.Show else showmessage(账号或密码错

33、误!)end;procedure TForm1.Button2Click(Sender: TObject);beginform1.Closeend;end. Form4implementation$R *.dfmprocedure TForm4.Button1Click(Sender: TObject);beginform4.Closeend;procedure TForm4.Button2Click(Sender: TObject);begin if(edit1.text=) then showmessage(商品编号不能为空!) else if(edit1.text= ) then sho

34、wmessage(商品编号不能为空!) else if(edit2.text=) then showmessage(商品名称不能为空!)else if(edit2.text= ) then showmessage(商品名称不能为空!)else if(edit3.text=) then showmessage(商品价格不能为空!)else if(edit3.text= ) then showmessage(商品价格不能为空!)else if(edit4.text=) then showmessage(商品容量不能为空!)else if(edit4.text= ) then showmessage

35、(商品容量不能为空!)else beginadoquery1.sql.clear;Adoquery1.sql.add(insert into 商品(商品编号,商品名称,商品价格,商品容量,剩余)values (:1,:2,:3,:4,:5);Adoquery1.parameters.parambyname(1).value:=+Edit1.Text+;Adoquery1.parameters.parambyname(2).value:=+Edit2.Text+;Adoquery1.parameters.parambyname(3).value:=+edit3.Text+;Adoquery1.p

36、arameters.parambyname(4).value:=+edit4.Text+;Adoquery1.parameters.parambyname(5).value:=+edit5.Text+;adoquery1.SQL.Add(select * from 商品);Adoquery1.open;adoquery1.active:=true endend;procedure TForm4.Button3Click(Sender: TObject);begin if(edit1.text=) then showmessage(商品编号不能为空!) else if(edit1.text= )

37、 then showmessage(商品编号不能为空!)else beginadoquery1.SQL.Clear;adoquery1.SQL.Add(delete from 商品 where 商品编号=+edit1.text+) ;adoquery1.SQL.Add(select * from 商品);adoquery1.Open;adoquery1.active:=true endend;procedure TForm4.Button4Click(Sender: TObject);beginedit1.Clear;edit2.Clear;edit3.Clear;edit4.Clear ;e

38、dit5.Clearend;procedure TForm4.Button5Click(Sender: TObject);beginif(edit1.text=) then showmessage(商品编号不能为空!)else if(edit1.text= ) then showmessage(商品编号不能为空!)else if(edit2.text=) then showmessage(商品名称不能为空!)else if(edit2.text= ) then showmessage(商品名称不能为空!)else if(edit3.text=) then showmessage(商品价格不能为

39、空!)else if(edit3.text= ) then showmessage(商品价格不能为空!)else if(edit4.text=) then showmessage(商品容量不能为空!)else if(edit4.text= ) then showmessage(商品容量不能为空!)else if(adoquery1.RecordCount0) then ADOQuery1.Active:=true else showmessage(性别输入错误!)end;procedure TForm5.Button3Click(Sender: TObject);beginadoquery1.

40、SQL.Clear; adoquery1.SQL.Add(select * from 员工表 where 部门=+edit2.text+); adoquery1.Open ; if(adoquery1.RecordCount0) then ADOQuery1.Active:=true else showmessage(该公司无此部门!) Form8implementation$R *.dfmprocedure TForm8.Button1Click(Sender: TObject);beginif(edit1.text=) then showmessage(编号不能为空!)else if(ed

41、it1.text= ) then showmessage(编号不能为空!)else if(edit2.text=) then showmessage(用户名称不能为空!)else if(edit2.text= ) then showmessage(用户名称不能为空!)else if(edit3.text=) then showmessage(密码不能为空!)else if(edit3.text= ) then showmessage(密码不能为空!)else if(edit4.text=) then showmessage(权限不能为空!)else if(edit4.text= ) then

42、showmessage(权限不能为空!)else beginadoquery1.sql.clear;Adoquery1.sql.add(insert into 管理员(编号,用户名,密码,权限)values(:1,:2,:3,:4);Adoquery1.parameters.parambyname(1).value:=+Edit1.Text+;Adoquery1.parameters.parambyname(2).value:=+Edit2.Text+;Adoquery1.parameters.parambyname(3).value:=+edit3.Text+;Adoquery1.param

43、eters.parambyname(4).value:=+edit4.Text+;adoquery1.SQL.Add(select * from 管理员);Adoquery1.open;adoquery1.active:=true endend;procedure TForm8.Button2Click(Sender: TObject);beginif(edit1.text=) then showmessage(编号不能为空!)else if(edit1.text= ) then showmessage(编号不能为空!)else beginadoquery1.SQL.Clear;adoquer

44、y1.SQL.Add(delete from 管理员 where 编号=+edit1.text+) ;adoquery1.SQL.Add(select * from 管理员);adoquery1.Open;adoquery1.active:=true endend;procedure TForm8.Button3Click(Sender: TObject);begin if(edit1.text=) then showmessage(编号不能为空!) else if(edit1.text= ) then showmessage(编号不能为空!) else if(edit2.text=) the

45、n showmessage(用户名称不能为空!)else if(edit2.text= ) then showmessage(用户名称不能为空!)else if(edit3.text=) then showmessage(密码不能为空!)else if(edit3.text= ) then showmessage(密码不能为空!)else if(edit4.text=) then showmessage(权限不能为空!)else if(edit4.text= ) then showmessage(权限不能为空!)else if(adoquery1.RecordCount0) then ADOQ

46、uery1.Active:=trueend;procedure TForm8.Button6Click(Sender: TObject);beginform8.CloseForm9:implementation$R *.dfmprocedure TForm9.Button1Click(Sender: TObject);varpath:string;beginif SaveDialog1.Execute thenif SaveDialog1.FileName thenbeginpath := ExtractFilePath(application.ExeName);trycopyfile(pch

47、ar(path+ db.mdb), pchar(SaveDialog1.FileName+.bak), false); showmessage(备份成功！);exceptshowmessage(备份失败，请重试！);end;end;end;if OpenDialog1.Execute thenif OpenDialog1.FileName thenbeginpath := ExtractFilePath(application.ExeName);tryDeletefile(path+db.mdb);copyfile(pchar(OpenDialog1.FileName),pchar(path

48、+ db.mdb), false);showmessage(成功恢复数据！);Application.Terminate;exceptshowmessage(恢复失败，请重试!);end;end;end;procedure TForm9.Button3Click(Sender: TObject);beginform9.close Form10implementation$R *.dfmprocedure TForm10.Button1Click(Sender: TObject);beginadoquery1.SQL.Clear; adoquery1.SQL.Add(select * from

49、销售表); adoquery1.Open ; if(adoquery1.RecordCount0) then ADOQuery1.Active:=trueend;procedure TForm10.Button2Click(Sender: TObject);begin if(edit1.text=) then showmessage(商家编号不能为空!) else if(edit1.text= ) then showmessage(商家编号不能为空!) else if(edit2.text=) then showmessage(商品名称不能为空!)else if(edit2.text= ) t

50、hen showmessage(商品名称不能为空!)else if(edit3.text=) then showmessage(商品价格不能为空!)else if(edit3.text= ) then showmessage(商品价格不能为空!)else if(edit4.text=) then showmessage(商品容量不能为空!)else if(edit4.text= ) then showmessage(商品容量不能为空!)else beginadoquery1.sql.clear;Adoquery1.sql.add(insert into 销售表(商家编号,商品编号,购买日期,价

51、格,购买数量)values (:1,:2,:3,:4,:5);Adoquery1.parameters.parambyname(1).value:=+Edit1.Text+;Adoquery1.parameters.parambyname(2).value:=+Edit2.Text+;Adoquery1.parameters.parambyname(3).value:=+edit3.Text+;Adoquery1.parameters.parambyname(4).value:=+Edit4.Text+;Adoquery1.parameters.parambyname(5).value:=+e

52、dit5.Text+;adoquery1.SQL.Add(select * from 销售表);Adoquery1.open;adoquery1.active:=trueend;end;procedure TForm10.Button3Click(Sender: TObject);beginif(edit1.text=) then showmessage(商家编号不能为空!)else if(edit1.text= ) then showmessage(商家编号不能为空!)else beginadoquery1.SQL.Clear;adoquery1.SQL.Add(delete from 销售

53、表 where 商家编号=+edit1.text+) ;adoquery1.SQL.Add(select * from 销售表);adoquery1.Open;adoquery1.active:=true end Form13implementation$R *.dfmprocedure TForm13.Button1Click(Sender: TObject);beginadoquery1.SQL.Clear; adoquery1.SQL.Add(select * from 销售表); adoquery1.Open ; if(adoquery1.RecordCount0) then ADOQuery1.Active:=trueend;procedure TForm13.Button2Click(Sender: TObject);begin adoquery1.SQL.Clear; adoquery1.SQL.Add(select 商品.商品名称,购买数量 fr