超市销售系统毕业设计正文-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 第一章 总论 1.1 Delphi 7.0 简介 Delphi7.0 是著名的 Borland（现在已和 Inprise 合并）公司开发的可视化软件开发工具。 “真正的程序员用 c，聪明的程序员用Delphi”，这句话是对 Delphi 最经典、最实在的描述。 Delphi 被称为第四代编程语言，它具有简单、 高效、功能强大的特点。和 VC相比， Delphi 更简单、更易于掌握，而在功能上却丝毫不逊色；和VB 相比， Delphi 则功能更强大、更实用。可以说 Delphi 同时兼备了 VC 功能强大和 VB 简单易学的特点。它一直是程序员至爱的编程工具。 Delphi 具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与 Windows 编程紧密结合，强大而成熟的组件技术。但最重要的还是 Object Pascal 语言，它才是一切的根本。 Object Pascal 语言是在 Pascal 语言的基础上发展起来的，简 单易学。 Delphi 提供了各种开发工具，包括集成环境、图像编辑（ Image Editor ）， 以 及 各 种 开 发 数 据 库 的 应 用 程 序 ， 如DesktopDataBase Expert 等。除此之外，还允许用户挂接其它的应无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 用 程 序 开 发 工 具 ， 如 Borland 公司的资源编辑器（ Resourse Workshop）。 在 Delphi 众多的优势当中，它在数据库方面的特长显得尤为突出：适应于多种数据库结构，从客户机服务 器 模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量 的企业组件 1 1 1 专业的客户 /服务器开发工具 客户 /服务器是一种将任务进行分解，然后协同解决的计算模式。客户端的应用程序负责提出任务需求，服务器端的应用程序则为客户提供服务，例如数据查询、打印等。用 Delphi7.0 开发出的应用程序能够与数据库服务器完美地协同工作，构成客户 /服务器计算模式。 1 1 2 面向对象的编程 在 Delphi7.0 中创建的窗口、菜单、数据窗口等都是对象。除了使用系统预先定义的对象外，开发人员可以自行构造新的对象，扩展系统的预定义对象，将各种对象有机地组合起来就构成了Delphi 应用程序。 1 1 3 Delphi 和 Object Pascal Object Pascal 是 Delphi 的语言基础， Delphi 是 Object Pascal的加速引擎。软件开发工具在任何发展阶段都具有一个永远不变的目标：提高软件生产力。换句话说，就是最大程度为开发者提供方便，在最短时间内建立应用程序。例如，为了降低代码编写难度（对于近几年来才入门的程序员，汇编语言是晦涩难懂的，更不要说去编写代码了），最早的 C 语言和 Pascal 语言出现了；为了提高代码无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 效率，面向对象技术应用到编程语言中；为了提高开发效率，可 视化开发工具出现了；为了实现跨平台应用， Delphi6 和 Kylix 出现了。 Delphi 的精华是 VCL。离开了 VCL，开发者又回到了刀耕火种的年代。你可以试着将你编写的单元中的 uses 子句中由 Delphi 自动添加的如 SysUtils、 Forms 等单元名删除，你会发现你编写的代码无法编译。 VCL 封装了 Windows 消息机制，因此开发者可以方便地通过属性、事件、方法来控制对象； VCL 封装了数据库游标机制（准确地说是 BDE 封装的），因此用 Delphi 进行数据库应用开发的开发者完全可以对关系数据库的游标机制一无所知 。 Delphi已经充分提供了积木元件（组件、类、标准例程），而开发者只需要加以利用就能够快速实现构想（应用程序）。可见，快速应用开发（ RAD）对于 Delphi 来说是当之无愧的 1 1 4 Delphi 和 SQL SQL 语言作为关系数据库管理系统中的一种通用的结构查询语言， 已经被众多的数据库管理系统所采用，如 ORACLE、Sybase、 Informix 等数据库管理系统，它们都支持 SQL 语言。 Delphi与使用 SQL 语言的数据库管理系统兼容，在使用 Delphi 开发数据库应用程序时，我们可以使用 SQL 语言编程 ，支持 SQL 编程是Delphi 的一个重要特征，这也是体现 Delphi 作为一个强大的数据库应用开发工具的一个重要标志。 1 1 5 Delphi 的数据库特性及功能简介 直到目前为止，计算机软件的开发分为两个不同的体系，其无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 中一个体系是使用传统的程序设计语言（如 Pascal、 Basic 和 C 等）开发数值控制、数值运算等软件，围绕它们的重点是算术、数据结构以及近年产生的面向对象技术。另一个体系则是通用的数据库管理软件领域（数据库应用程序的开发）。这两个体系的发展都极为迅猛，但是二者并没出现混合渗透迹象。如果使用数 据库语言进行传统的算术编程，虽然也能完成相应的功能，但是其编程过程可能极为复杂。如果使用传统的编程语言进行数据库编程，通过调用专用的数据库应用程序接口函数和过程，利用这些函数和过程提供的功能，可能也能做得比较完善，但这做起来大多是极其困难的。而Delphi 结合了两个体系的优点，它结合了传统的编程语言 Object Pascal 和数据库语言的强大功能， 它即可以用于传统的算术编程又可以用于数据库编程，特别是 Delphi 具有强大的数据库功能，利用 Delphi 的数据库工具，我们根本不需要编写任何 Object Pascal代码便可以创建一个简单的数据库应用。 1 1 6 Delphi 对多种数据库管理系统的支持 Delphi 在 Window3.1 以上版本的系统环境下运行，目前具有两个版本： Delphi 的标准版本和客户 /服务器版本。标准版本包含一个 Borland Database Engine 的局部拷贝，它允许用户创建能访问dBASE、 Paradox 和 Local InterBase 服务器的数据库应用， 它还支持具有 ODBC 接口的数据库。 Delphi 的客户 /服务器版本包括Borland SQL Link， 它能 直接访问 ORACLE 、 SyBase 和Microsoft SQL Server,Informix 以及 InterBase 数据库服务器。 Delphi可以访问多种数据库管理系统的数据库，凭借窗体 (Forms)和报表无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： (Reports)， BDE(Borland Database Engine)可以访问诸如 Paradox、dBASE、本地 InterBase 服务器的数据库，也可以访问远程数据库服务器上的数据库 (如 ORACLE、 SyBase、 Informix 等客户 /服务器数据库中的数据库 )，或任何经 ODBC(Open Database Connecticity) 可访问的数据库管理系统中的数据库。 1 1 7 异常处理与程序调试 在应用程序开发中如何检测、处理程序的运行错误是一个很重要的问题。在 Delphi 的集成开发环境 ( IDE )中提供了一个完善的内置调试器，可以帮助你发现大部分程序错误。但并不是所有的错误都可以被发现，而且当程序涉及到与外设的数据交换或操作外设，如要求用户输入、读写磁盘等时，错误的发生是程序无法控制的，如输入非法字符、磁盘不能读写等。这些情况不仅会导致应用程序异常中止而且可能引起系统的崩溃。 针对这些问题， Delphi同时提供了一套强大的异常处理机制。巧妙地利用它，可以使你的程序更为强健，使用更为友好。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第二章 系统设计 2 1 系统功能分析 超市销售系统目前国内外做得较多，比较成熟，这个系统是毕业生毕业前的最后一次模拟，对毕业生的软件开发能力有很大帮助。本系统主要由以下几个功能组成： 商品入库，用于将进来的商品录入到库里。 商品销售，用于售货员销售商品。 商品信息管理，现有库存、库存警报、商品报表三部分。 查询，管理员根据自己的需要进行查询，可按商品代号和商品名称查询。 口令更改，用于员工更改自己的口令。 员工信息维护，用于管理员修改员工的信息。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2 2 系统功能模块设计 根据系统功能要求可以将系统分解成几个子系统模块来分别设计应用程序界面， 如图所示： 超市销售管理系统 入 库 子 系 统 销 售 子 系 统 商品信息管理 查 询 子 系 统 口 令 更 改 子 系 统 员 工 信 息 维 护 子 系 统 入库子 系统 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 原库存无 原库存有 销售子系统 前台销售界面 顾客清单 商品信息管理 库存警报 商品信息报表 现有库存 查询子系统 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2 3 数据流程图 数据流程图描绘了系统的逻辑模型，图中没 有任何具体的物理元素，只是描绘信息在系统中的流动和处理情况。 对数据流的分析，主要是整体数据流、单元模块数据流。整体数据流概括为进入计算机操作员系统的操作过程和用户（各部门或个人）进入系统的数据流向。 整体数据流：用户通过密码进入系统，分别对上述几大功能逐一实现，其中涉及到模块数据流分析。 根据上一节业务流程的分析以及业务流程图我们可以得出系统的数据流程。 数据流图图例表示： 数据的源点 /终点 变换数据的处理 顾客查询 管理员查询 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 数据存储 数据流 本系统各功能模块的数据流程图如下图所示： 入库模块流程图： 销售模块流程图： 新 进 商品 库存 入库记录 库存原有 库存原无 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 商品信息管理模块流程图： 库 存 库 存 销 售 销售信息 库存 现有库存报 进货报表 库存警报报 现有库存 库存警报 进 货 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 查询模块流程图： 口令更改模块流程图： 员工信息维护模块流程图： 管理员查询 库 存 员工口令 员工口令 管理员查询结果 口令更改 增加 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第三章 数据库设计 3 1 数据库需求分析 数据库是信息管理的基础。数据库结构直接关系到各种功能的实现和程序运行的效率。 进行数据库设计首先必须准确了解与分析用户需求（包括数据与处理）。需求分析是整个设计过程的基础，是最困难、最耗费时间的一步。需求分析的结果是否准确地反映了用户的实际要求，将直接影响到后面各个阶段的设计，并影响到设计结果是否合理和实用。 根据上一章的流程图，可以列出以下各模块记录信息所需的数据项和 数据结构： 1入库信息管理 员工信息 删 除 员工信息 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 入库记录：商品编号（ SPNO）、商品名称（ SPNAM）、经办人员（ JBREN）、进货数量（ JHNUM）、进货小计（ inprice）、备注 (BEIZHU) 2.销售信息管理 销售记录：商品编号（ SPNO）、商品数量（ SPNUM）、经办人员（ JBREN）、商品名称（ SPNAM）、标准价格（ BZJG）、销售小计（ XSXJ） 3.商品信息管理 商品信息记录：商品编号（ SPNO）、商品名称（ SPNAM）、本店库存量（ BDKCL）、默认成本（ MORCB）、供应商编号（ GYSNO）、商品分类（ SPKIN）、安全存量（ SAFCL）、商品规格（ SPGG）、库存单位（ KCDW）、商品颜色（ SPCOL）、商品尺寸（ SPSIZ）、标准价格（ BEIZHU BZJG）、会员价格（ HYJG）、批发价格（ PFJG）、备注（ BEIZHU） 4.员工信息管理 员工信息：用户名（ user）、口令（ password） 3 2 数据库概念结构设计 概念模型是对信息世界的建模，所以概念模型应该能够方便、准确的表示出信息世界中的常用概念。实体 -关系模型（ Entity-Relationship Module,简 称 E-R 图）是数据库结构设计常用的方法。 E-R 图提供了表示实体、属性和联系的方法。 实体型：用矩形表示，矩形框内写明实体名 属性：用椭圆型表示，并用无向边与其相应实体连接起来 联系：用菱形表示，菱形框内写明联系名，并用无向边无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 与其有关实体连接起来，同时在边旁边标上联系的类型（ 1： 1，1： n 或 m： n）。 对象类型的组成成份可以抽象为实体的属性。组成成份与对象之间是“ is part of”的关系。 实际上实体与属性是相对而言的，很难有截然划分的界限。同一事物，在一种应用环境中作为“属性”，在另一种环境中就必须作为“实体”。一般来说，在给定的应用环境中，属性不能再具有需要描述的性质。即属性必须是不可分的数据项，不能再由另一些属性组成。属性不能与其它实体具有联系。联系只发生在实体之间。 本系统中部分 E-R 图如图所示： 1： m 库存 安全存量 本店库存量 包含 入库 查询 入库价格 商品名称 商品编号 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 1： m 1： m 1： m 3 3 数据库结构实现 商品信息表（ SPXXB）结构： 入库信息 管理员 商品 销售信息 销售 入库数量 销售价格 销售数量 供应商编号 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 销售信息表（ XSB）结构： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 进货信息表（ JHZB）结构： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 供应商信息表（ GYSB）结构： 第四章 详细设计 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 4 1 登录界面 为了提高系统的安全性，我们完全有理由相信，设置用户以及密码是必要的。用户登录界面很简单，首先在用户输入框输入用户名，再对应输入密码，程序将与用户数据库连接，确认用户是其中一员，并输入了正确的密码，然后进入主界面，否则警告出错，让用户重新输入。界面设置如下： 4 2 主界面 主窗口界面主要是完成系统功能模块的划分。超市销售系统主窗口包括四个按纽，进货作业按纽、商品信息按纽、供应商信息按纽、销售作业按纽。界面设置如下： 4 3 入库子系统 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 商品入库是将购进的商品进行入库。在入库时由入库员将商品信息输入到入库信息表中，然后系统将入库的商品的代号与库存里的商品信息比较，如果能找到相同的代号，则说明库存里有这种商品，只要相应增加这种商品的库存量。如果找不到，则说明原来库存里没有这种 商品，则要增加这种商品的一系列信息，如商品代号、商品名称、进价等，界面设置如下： 4 4 销售子系统 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 商品销售是将顾客购买的商品销售出去。在销售时，由销售员将顾客购买的商品代号输入到销售窗口中，系统自动根据商品代号把这种商品的相应信息反馈到数据窗口中，每一种商品都有一个小计，最后算出总计。 最后点击“打印”便可打印出顾客清单了。销售界面界面设置如下： 4 5 商品信息管理子系统 商品信息管理子系统包括三个小的基本功能，即： 1 现有库存，本功能是统计现在库存中所有的商品的信息，包括商品的代号，商品名 ，进价，售价，还有库存量等，主要是要库存量，因为后面的库存警报和进货报表都要建立在现在库存量的基础上。同样，点击“打印”按钮便可打印现有商品的库存信息了。 2 库存警报，本功能是根据现有商品的库存量来判断哪种商品的库存量少于最小库存量，这就能提示管理员哪些商品无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 需要进货。一开始打开窗口时，数据窗口内也是显示所有的库存商品信息，通过点击“安存不足”按钮便可查询库存量过少的商品信息了。 3 进货报表，本功能是显示要进货的商品的信息，它是建立在库存警报窗口中的过少的商品的信息上的。点击“打印安存不足”便可打印出进货报表，供 进货员去进货。 其功能界面设置如下： 4 6 查询子系统 查询功能实现管理员查询所需的商品信息。在商品信息界面的快速查询部分，管理员可以根据商品编号、商品名称、供应商编号、商品分类来查询相应的商品信息。界面设置同上。 4 7 口令更改子系统 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 口令更改功能实现了员工更改自己的口令，在更改口令时，要求用户输入旧口令、新口令和确认新口令，用户必须输入正确的旧口令和两次相同的新口令，如果输入的旧口令不正确，则系统会弹出错误警告告诉用户旧口令错误，请用户重新输入旧口令。两样，如果两次新口令不一致，也会弹出警告窗 口，提醒用户两次新口令不一样，请重新输入两次新口令。最后，点击“确认”就完成口令更改了。 4 8 员工信息维护子系统 员工信息维护功能实现了管理员修改员工的信息。这也要求先用管理员用户名和口令登录，点击“增加”后，数据窗口会自动插入新的一行，管理员在数据窗口中输入员工的用户名和口令后按“保存”就完成增加员工信息的功能了。同样，要删除一个员工的信息只要先选中这个员工的信息，按“删除”后，这个员工的信息就在数据窗口中删除了，再点击“保存”就可以了。 4 9 帮助子系统 任何一个系统都会有帮助系统，它用来解决用户的一 些疑问，如用户对系统的功能及一些功能的使用方面可能有疑问，这时，可参考帮助系统提供的信息，能有效的给用户提供帮助。本系统的帮助系统对每一个子系统的功能及使用方法都有介绍，如用户有疑问或参考。 第五章 各功能模块的部分源代码 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 主界面代码： procedure TFMMAIN.BitBtn1Click(Sender: TObject)； begin FMSPXXB.SHOW； end； 当点击商品信息按纽时调用 show 方法打开商品信息管理界面。 procedure TFMMAIN.BitBtn2Click(Sender: TObject)； begin FMGYSB.Show； end； 当点击供应商信息按纽时调用 show 方法打开供应商信息管理界面。 procedure TFMMAIN.BitBtn3Click(Sender: TObject)； begin FMJH.Show； end； 当点击进货作业按纽时调用 show 方法打开进货作业界面。 procedure TFMMAIN.BitBtn4Click(Sender: TObject)； begin FMXSB.SHOW； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 当点击销售作业按纽时调用 show 方法打开商品销售界面。 1 入库子系统 procedure TFMJH.BitBtn2Click(Sender: TObject)； VAR LOC1:BOOLEAN； LOC2:BOOLEAN； N:REAL； Na:REAL； STR1:STRING； begin IF (EDIT1.Text=) OR (EDIT2.Text=) THEN BEGIN SHOWMESSAGE(请输入商品编号和进货数量！ )； ABORT； END； LOC1:=FMSPXXBD.TSPXXB.Locate(SPNO,EDIT1.Text,LOCASEINSENSITIVE)； IF LOC1=TRUE THEN BEGIN FMSPXXBD.TSPXXB.Edit； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： FMSPXXBD.TSPXXB.FieldByName(BDKCL).Value:=FMSPXXBD.TSPXXB.FieldByName(BDKCL).Value+STRTOINT(EDIT2.Text)； FMSPXXBD.TSPXXB.Post； SHOWMESSAGE(新增商品数量成功！ )； END； IF LOC1=FALSE THEN BEGIN IF (EDIT1.Text=) OR (EDIT2.Text=) OR (EDIT3.Text=) OR (EDIT4.Text=) OR (EDIT5.Text=) OR (EDIT6.Text=) OR (EDIT7.Text=) OR (EDIT8.Text=) OR (EDIT9.Text=) OR (EDIT10.Text=) OR (EDIT11.Text=) OR (EDIT12.Text=) THEN BEGIN SHOWMESSAGE(新商品！请输入完全信息！)； abort； END ELSE BEGIN FMSPXXBD.TSPXXB.InsertRecord(EDIT1.Text,STRTOINT(EDIT2.Text),EDIT3.Text,STRTOFLOAT(EDIT4.Text),Edit6.TEXT,EDIT7.Text,STRTOFLOAT(EDIT8.Text),EDIT9.Text,EDIT10.Text,EDIT11.Text,EDIT12.Text)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： SHOWMESSAGE(新增商品成功！ )； END； END； BEGIN LOC2:=FMJHD.TJHZB.Locate(SPNO,EDIT1.Text,LOCASEINSENSITIVE)； IF LOC2=FALSE THEN BEGIN FMJHD.TJHZB.Active:=TRUE； FMSPXXBD.TSPXXB.Active:=TRUE； FMJHD.TJHZB.InsertRecord(EDIT1.Text,STRTOINT(EDIT2.Text),EDIT3.Text,EDIT5.Text,Memo1.Text)； FMSPXXBD.TSPXXB.FindKey(EDIT1.Text)； N:=FMSPXXBD.TSPXXB.FieldByName(MORCB).AsFloat； STR1:=FMSPXXBD.TSPXXB.FieldByName(SPNAM).AsString； FMJHD.TJHZB.FindKey(EDIT1.Text)； FMJHD.TJHZB.Edit； FMJHD.TJHZB.FieldByName(JHXJ).AsFloat:=STRTOFLOAT(Edit2.Text)*N； FMJHD.TJHZB.FieldByName(SPNAM).Value:=STR1； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： FMJHD.TJHZB.Post； END； IF LOC2=True THEN BEGIN FMJHD.TJHZB.Active:=TRUE； FMSPXXBD.TSPXXB.Active:=TRUE； FMSPXXBD.TSPXXB.FindKey(EDIT1.Text)； Na:=FMSPXXBD.TSPXXB.FieldByName(MORCB).AsFloat； FMJHD.TJHZB.FindKey(EDIT1.Text)； FMJHD.TJHZB.Edit； FMJHD.TJHZB.FieldByName(JHNUM).Value:=FMJHD.TJHZB.FieldByName(JHNUM).Value+STRTOINT(EDIT2.Text)； FMJHD.TJHZB.FieldByName(JHXJ).AsFloat:=STRTOFLOAT(Edit2.Text)*Na+FMJHD.TJHZB.FieldByName(JHXJ).Value； END； END； 当点击存盘按纽时，先检查商品编号和商品数量是否为空，为空就输出消息 请输入商品编号和进货数量！ ，不为空就检查商品无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 信息表中是否有记录用的是 Locate（），有就直接存盘增加库存量，没有就要求输入完整的信息再存盘。 2 销售子系统 procedure TFMXSB.BitBtn2Click(Sender: TObject)； VAR LOC3:BOOLEAN； LOC4:BOOLEAN； LOCOP:TLOCATEOPTIONS； Nb:REAL； Nc:REAL； STR2:STRING； begin IF (EDIT1.Text=) OR (EDIT2.Text=) THEN BEGIN SHOWMESSAGE(请输入商品编号和数量！ )； ABORT； END； LOC3:=FMSPXXBD.TSPXXB.Locate(SPNO,EDIT1.Text,LOCOP)； IF LOC3=TRUE THEN BEGIN FMSPXXBD.TSPXXB.Edit； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： FMSPXXBD.TSPXXB.FieldByName(BDKCL).Value:=FMSPXXBD.TSPXXB.FieldByName(BDKCL).Value-STRTOINT(EDIT2.Text)； FMSPXXBD.TSPXXB.Post； END； IF LOC3=FALSE THEN BEGIN SHOWMESSAGE(无此商品！ )； abort； END； / LOC4:=FMXSBD.TXSB.Locate(SPNO,EDIT1.Text,LOCOP)； BEGIN IF LOC4=FALSE THEN BEGIN FMXSBD.TXSB.Active:=TRUE； FMSPXXBD.TSPXXB.Active:=TRUE； FMXSBD.TXSB.InsertRecord(EDIT1.Text,STRTOINT(EDIT2.Text),EDIT3.Text)； FMSPXXBD.TSPXXB.FindKey(EDIT1.Text)； STR2:=FMSPXXBD.TSPXXB.FieldByName(SPNAM).AsString； Nb:=FMSPXXBD.TSPXXB.FieldByName(MORCB).AsFloat； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： FMXSBD.TXSB.FindKey(EDIT1.Text)； FMXSBD.TXSB.Edit； FMXSBD.TXSB.FieldByName(XSXJ).AsFloat:=STRTOFLOAT(Edit2.Text)*Nb； FMXSBD.TXSB.FieldByName(SPNAM).Value:=STR2； FMXSBD.TXSB.FieldByName(BZJG).Value:=Nb； FMXSBD.TXSB.Post； END； IF LOC4=True THEN BEGIN FMXSBD.TXSB.Active:=TRUE； FMSPXXBD.TSPXXB.Active:=TRUE； FMSPXXBD.TSPXXB.FindKey(EDIT1.Text)； Nc:=FMSPXXBD.TSPXXB.FieldByName(MORCB).AsFloat； FMXSBD.TXSB.FindKey(EDIT1.Text)； FMXSBD.TXSB.Edit； FMXSBD.TXSB.FieldByName(SPNUM).Value:=FMXSBD.TXSB.FieldByName(SPNUM).Value+STRTOINT(EDIT2.Text)； FMXSBD.TXSB.FieldByName(XSXJ).AsFloat:=STRTOFLOAT(Edit2.Text)*Nc+FMXSBD.TXSB.FieldByName(XSXJ).Value； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： END； END； 在点击存盘按纽后，将该商品的库存量减少。 3 查询子系统 procedure TFMSPXXB.BitBtn2Click(Sender: TObject)； begin WITH FMSPXXBD.QSPXXB DO BEGIN CLOSE； SQL.Clear； SQL.Add(SELECT * FROM SPXXB)； SQL.Add(WHERE SPNO IS NOT NULL)； SQL.Add(AND BDKCL=SAFCL)； SQL.Add(ORDER BY BDKCL,SAFCL)； OPEN； END； end； 点击安存不足按纽执行上述代码， Delphi 对 SQL 的支持可以体现在 Tquery 组件上， Tquery 组件有一个 SQL 属性可以在其中添加SQL 语句，上面代码中的 SQL 语句就是在商品信息表中查询本店库存量小于安全存量的记录并按 BDKCL,SAFCL 排序 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第六章 设计中遇到的问题和解决办法 （ 1） 一开始建立数据库时，没有把开发系统时将会遇到的一些问题考虑详细。导致在数据库建立好之后，在以后的系统设计过程中发现当时数据库建立得不够完全，还要不断添加一些表。还有就是一些已建立好的 表其中有的变量类型不对，所以又要修改，因此浪费了很多宝贵的时间。后来，仔细分析了一下系统，将开发中会遇到的问题都考虑清楚了，才建立数据库。这样，以后就不要改动数据库，为设计节约了很多时间。 （ 2） 一开始做的时候，对数据窗口的操作及编程语言还了解不够透彻，因此在实现数据窗口之间数据传递的功能遇到了很大的困难。后来，经过查询资料学习，对它有了较多的了解，做设计的时候也加快了进度。 （ 3） 在入库的时候，原来库里有的只要相应增加这个商品的库存量，这个功能实现了，但原来库里没有的就要增加这种商品的一系列信息，这个功能一直困扰我， 但现在解决了。 （ 4） 在销售商品时，商品销售总额的计算这个问题还没解决，正在想办法，以求尽快解决。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第七章 自我评价 7 1系统的特点 本系统是采用 Delphi7.0开发，该系统由四个主要的功能来实现的。（ 1）入库功能。本功能实现了将进来的货品录入到库存中，使之在库存中有这些商品的记录，在入库的同时，要修改库存量。 （ 2）销售功能。本功能实现了出售商品的功能，在销售商品的同时要减少库存量。 （ 3）商品信息管理功能。本功能实现了将一天下来所有入库和销售的商品信息统计出来 ，有助于管理员查询。 （ 4）查 询功能。本功能实现管理员可以根据自己需要查询相应的商品信息，管理员可根据商品代号和商品名来查询。 7 1 1优点 本系统软件具有统一的人机界面，这不至于会增加超市员工和管理员的负担，让他们始终以一种轻松的感觉去思考和操作。该系统界面友好，输出界面尽可能接近实际，以增加人机亲和力。 7 1 2缺点 由于时间仓促，本软件功能还不够强大， 系统对实验信息的操作还不够完善，某些地方还存在问题，还有待于进一步改进。日期信息的存盘还没有解决，正在想办法。在销售模块还有缺陷，有些功能还没有实现， 比如顾客给钱后的找 零。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 结 论 为期半个学期的设计生活很快就要过去， 回忆这一段时间，我的感触很深，由于是第一次开发一个很实用的管理系统，而且是用一种以前我们不太了解的语言，虽然以前学过，但涉及不多。所以开发起来有一定的难度，我们都感到肩上的压力很大。随着开发的进程，一个个问题都被克服了，这使我 深深的体会到了学习的乐趣和运用的艰辛。 首先，这次设计我觉得最大的收获是软件设计概念思想的建立。以前我们做一些小软件的开发或课程设计时，常常是没有明确的思路，就开始编写代码，当遇到问题是才发现是由于刚开始考虑的不够周到所致。通过 这次设计我发现，软件设计前工作准备的重要性。 在做开题报告的过程中，我们通过主动的系统调查、系统分析，完成系统的结构设计，数据库规划等工作，这对我们将要开发的系统有了更深的了解，为下一步系统开发做好了准备。这使我们建立了软件设计的正确概念，为今后继续开发系统奠定了基础。 这次我做的课题是超市销售系