汽车零件销售管理系统-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 目 录 前言 . 2 1 系统的可行性分析 . 2 2 系统需求分析 . 3 2.1 系统调查 . 3 2.2 数据流图 . 4 3 系统概要设计 . 5 3.1 系统功能模块 . 5 3.2 数据库概念模型设计 . 6 3.3 开发平台选择 . 8 4 详细设计 . 9 4.1 各功能模块设计 . 9 4.2 数据库表的设计 . 10 5 系统实现 . 13 5.1 用户界面设计 . 13 5.2 基础信息模块的实现 . 15 5.3 基础业务功能模块的实现 . 17 5.4 系统查询模块的实现 . 20 5.5 系统报表模块 . 23 5.6 系统设置 . 24 5.7 数据备份 . 25 6 结束语 . 25 参考文献 . 26 1 汽车零件销售管理系统的实现 摘要 :汽车零件销售 管理系统是 从销售公司实际业务出发 ，分析了 汽车零件管理的工作流程，并以入库管理和出库管理为重点 ，实现 了对汽车零件 的材料管理、出入库管理、查询管理等功能 ,描述了两 个子系统 的模块结构设计及实施过程中的技术要点。用户可以通过相应的模块，对 汽车零件 的基本情况进行更新、删除和查询，对 零件 材料的出库和入库进行管理，并实现了 出入库明细进行查询，对出库 、 入库和 客户信息的 报表生 成， 同时设计了 数据备份等 系统管理功能。 本系统是使用 Delphi 7.0 开发工具 ,Access 数据库结合 BDE 数据访问对象来实现数据库的操作 。 关键词 :汽车零件销售管理； Delphi 7；管理信息系统 The Development of Vehicle Components Sale Management System Abstract: The vehicle components sale management system is a management information system which was developed according to the actual operation of the distribution company and the analysis of the vehicle components management process.It makes the vehicle components going into&out of the storage management as its two major modules and has functions to manage the material,going into&out of storage and query of vehicle components.This test makes an particular explanation about the design of these two subsystems module frame and the important technique used in the process of its development.Users can update,delete and search the basic information about vehicle components,manage the going into&out of the storage vehicle components materials according to corresponding modules.This sale management system can create report forms of going into&out of the storage and copy data automatically, at the same time it set popedom according to different users.This system uses the Delphi7 as its development tool, and the Access database as well as BDE data access object to operate the database. Key words:vehicle components sale management； Delphi 7； management information system 2 前言 当今时代是飞速发展的信息时代，在各行各业中离不开信息 的 处理，这正是计算机被广泛应用于信息管理环境 的原因 。计算机的最大好处在于利用它能够进行信息管理 ,利用 计算机进行信息 管理 不仅提高了工作效率， 而且 对于复杂的信息计算机能够充分发挥它的优越性。 信息管理系统是进行信息的采集、存储、加工、维护和使用的系统。它是随着管理科学 和技术科学的发展而形成的。 随着科学技术的不断提高 ,计算机科学日渐成熟 ， 它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分 ,使用计算机对进销存信息进行管理 ,具有手工管理无法比拟的优点 。 例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高信息管理的效率 ,也是企业走向科学化、正规化、与世界接轨的重要条件。因此，开发这样一套管理软件是有必要的。 1 系统的可行性分析 开发的系统是给用户提供更方便的操作环境，首先系统要具有可行性。本系统主 要从技术可行性 、 经济可行性 、 操作可行性三个方面进行分析 。 技术可行性 :该系统所需硬件设备，市场上有销售且价格适中，操作系统采用 Windows系列操作系统，开发工具采用 Delphi，数据库管理采用 Access,这些软件在 MIS开发中已被大量应用，技术上都比较成熟 ,因此在技术上是可行的。 经济可行性 :该系统所需的成本并不高 ,给企业带来的效益远远超过所需要的成本 ,因此开发这个系统在经济上是可行的。 操作可行性 :本系统的操作并不需要有很高的计算机专业知识 ,一般的操作员都很容易学会 ,操作简单易行 ,具有一般电脑操作知识 即可 ,所以本系统在操作上也是可行的。 3 2 系统需求分析 2.1 系统调查 随着人们生活水平的不断提高 ,汽车走进企业走单位走进家庭是当前发展的必然趋势 ,这么多的车辆免不了要修车和换零件 。 零件销售企业通常都有来自四面八方的客户 ,要求各种不同型号车辆的零件 ,面对这种较为复杂的情况 ,很多小型零件销售公司还采用手工记录 ,因此会有以下一些问题 : 1.对零件的管理工作缺乏规范性 ,有关人员对零件的基本情况缺乏了解 。 2.手工记录工作量大 ,出错率高 ,容易给日常工作带来麻烦 。 3.如果负责人对货物信息掌握不及时、不准确 ,会影响 到企业的决策效果。 根据现实情况 ,汽车零件销售管理系统开发工作 ,有以下几个开发目标 : （ 1） 提高管理效率 ,降低人工成本。 （ 2） 系统具有可移植性、数据共享性 ,能适应企业未来业务的发展。 （ 3） 通过系统加工的数据，及时调整营销策略。 基于以上的开发目标，系统开发有三个方面的需求 :功能需求 、 报表需求和安全性需求 。 1.功能需求 :系统涉及部分零件资料，包括零件入库、出库等功能；提供强大的查询功能，可进行不同类型查询；系统还要提供客户信息的添加 、 修改。 2.报表需求 :系统要对客户信息和零件的入库 、 出库和退货信息生产报表便于管理者 查看信息 。 3.安全性需求 :根据汽车零件销售公司的管理流程 ,为了增强系统安全性 ,进入系统前需进行身份验证 ,用户登录后 ,根据不同操作需求 ,完成对汽车零件入库 、 出库 、 退货的管理 。 图 2-1为登录时的流程图 。 N Y N Y 图 2-1登录时的流程图 用户登录 身份验证 正确 ? 主窗体 退出系统 显示错误信息 是否超过三次 ? 4 2.2 数据流图 数据流图是对系统调研阶段绘制的业务流程图进行分析的基础上 ,从系统的科学性 、 管理的合理性 、 实际运行的可行性角度出发 ,将信息处理功能和彼此之间的联系自顶向下逐层分解 ,从逻辑上精确地描述系统应具有的数据加工功能 、数据输入 、 数据输出 。 本系统数据流图如图 2-1(系统顶层数据流图 )和 2-2(系统第 一层数据流图 )所示 。 事务 信息报表 数据库信息 数据库 图 2-2系统顶层数据流图 D1 数据库用户管理表 数据库信 息 事务 事务 相关信息报表 相关信息 事务相关信息 D2 数据库相关表 图 2-3 系统第一层数据流图 管理员 汽车零件销售 管理系统 管理员 管理员 1 接受 事务 2 处理 事务 3 产生 报表 管理员 5 3 系统概要设 计 3.1 系统功能模块 汽车零件销售管理系统从功能上可以划分为如下几个功能模块 (如图 3-1) : 图 3-1系统功能模块图 汽 车零件销售管理系统 基础信息 客户信息管理 基础业务 入库登记管理 出库登记管理 退货登记管理 产品信息查询 客户信息查询 入库信息查询 出库信息查询 退货信息查询 系统查询 客户信息报表 产品信息报表 入库信息报表 出库信息报表 退货信息报表 系统报表 用户管理 数据备份 系统设置 系统维护 产品信息管理 信息添加 、 修改 田添加 、 修改 用户添加 、 修改 添加 、 /保存信息 打印报表 6 3.2 数据库概念模型设计 3.2.1 系统实体图 系统中涉及到多个实体 ,各自有不同的属性下面用实体图来表示各个实体 。主要包括客户实体、汽车零件实体和用户实体 (1) 客户实体图 图 3-2 客户信息实体图 (2)汽车零件实体图 图 3-3 汽车零件实体图 客户 Id 客户全称 联系电话 联系人 手机 地址 传真 网址 开户银行 银行帐号 纳税号 邮编 汽车零件 Id 产品名称 产品型号 单价 单位 车型 产地 7 (3)用户实体图 图 3-4 用户实体图 3.2.1 系统 E-R 图 系统各种功能的实现都离不开数据库的支持 ,因此数据库的设计是本系统不可缺少的 一部分 。 对数据库进行 E-R图的分析帮助我们进一步的了解系统各个功能之间的联系 ,本系统 E-R图如 3-5所示 。 1 N N N 1 1 N N 图 3-5 系统 E-R 图 用户 Id 姓名 性别 年龄 登录身份 登录口令 职 务 用 户 汽车零件 客户 售货 退货 入库 入库日 期 数量 应付款 数量 金额 出库日期 数量 退库日期 金额 8 3.3 开发平台选择 本系统的开发选择了 Delphi 7开发工具和 Access数据库 ,下面简单介绍一下 Delphi 7和 Access。 3.3.1 Delphi 7 介绍 本系统是采用 delphi 7 开发工具进行开发的 ,Delphi 不仅是编辑器和编译器 ,还是一种使用构件进行编程的工具 ,可使软件开发工作更简单。 Delphi 作为一种面向对象的可视化开发工具 ,其主要特性主要有以下几点 : (1) 应用程序的快速开发。 Delphi是基于 Object Pascal的开发工具 ,它具有高性能的 32 位本地优化代码编译器。其应用程序像 C+语言编写的应用程序一样 ,可直接运行 ,能够最终生成可单独执行的 DLL 与 EXE 文件。 (2) 高效的可视化构件库与面向对象的架构。 (3) 具有集成的快速报表生成工具和集成的图表构件 ,能将企业数据库转换成决策信息。 (4) 能可视化地创建构件 ,通过鼠标拖放生成构件模板 ；具有对 Windows 和Server的完全支持。 (5) 具有多种操作向导 ,可加速程序编写和减少语法错误。 (6) 具有开放式数据库架构 ,可轻松连接企业内的各式数据库结 构。 (7) 具有集成的数据库开发工具、强大的客户 /服务器运算开发功能。 (8) 具有可伸缩的多层面数据库架构 ,便于维护和增加重要性。 (9) 具有 Web 数据库应用程序开发的能力。 在 Delphi 众多的优势当中，它在数据库方面的特长显得尤为突出：适应于多种数据库结构，从客户机服务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量的企业组件。 3.3.2 ACCESS 简介 Microsoft 所推出的 Microsoft SQL Server 与 Microsoft Access 两大数据库管理系统是目前应用最广泛的两种 。 Access 数据库系统虽然不如 SQL Server 功能齐全 ,但对于本管理系统的应用来说 ,已经是绰绰有余了 。 Microsoft Access 就是一种采用关系结构的数据库管理系统 ,它具备一般数据库管理系统所拥有的功能 ,从而具有易学易用的特性 ,使它成为最适合的数据库入门软件 。 相对于其他大型数据库管理系统 ,Microsoft Access提供了一个经济 9 实惠的解决方案它不但在价格上比其他系统便宜许多 ,而且 “ 麻雀虽小 ,五脏俱全 ” ,因此十分适合用来开发小 型的数据库应用系统 。 在 Access数据库中包含常用的 5个数据库对象 ,分别是 “ 表 ” 、 “ 查询 ” 、“ 窗体 ” 、 “ 报表 ” 、 “ 页 ” 。 表是存放数据的容器，被设计成行和列的格式，就像电子表中的那样。 查询是一个 Access 对象，它询问数据库中有关数据的问题。根据设计方法的不同，查询能够在数据库中检索并组合来自不同表的数据 。 窗体是一个窗口，它提供一种很方便的途径来查看数据库中已有记录或向数据库中增添新记录。 报表是一个 Access 对象，设计来显示数据，其作用类似于窗体，但 主要是用于数据打印，不能输入数据。 页是一种特殊类型的窗体，它使用户能够利用 Web 浏览器查看和编辑Access的表。 4 详细设计 4.1 各功能模块设计 1.基础信息模块 (1) 产品信息管理模块 :产品信息管理模块包括产品的添加 、 修改和保存三个部分 。 用户可以通过前进键和后退键逐个查看产品信息 。 (2) 客户信息管理模块 :客户信息管理模块包括客户信息的添加 、 修改和保存三个部分 。 用户可以通过前进键和后退键逐个查看客户信息 。 2.基础业务模块 (1) 入库登记管理模块 :入库登记管理主要是 对入库零件信息录入 ,然后生产入库信息报表 。 (2) 出库登记管理模块 :出库登记管理主要是对出库零件信息录入 ,然后生成出库信息报表 。 (3) 退货登记管理模块 :退货登记管理主要是对客户不满意退回的零件信息的记录 ,然后生成退货信息报表 。 3.系统查询模块 本系统提供了强大的信息查询功能包括产品信息查询 、 客户信息查询 、 入库信息查询 、 出库信息查询和退货信息查询 5个 。 用户可以有条件的对这些信息进行查询 ,如果数据库中有所要查询的信息 ,列表中将会列出零件的全部信息 。 10 4. 系统报表模块 本系统提 供对某些信息的报表输出 ,主要有客户信息报表、产品信息报表、入库信息报表、出库信息报表和退货信息报表 ,在用户对基础信息和基础业务进行操作后就会生成相应的报表 ,用户可以查看相关报表 。 5. 系统设置模块 系统设置是指用户管理，系统中只有管理员可以对用户进行访问，用户管理中有用户的添加、修改 。 系统的用户包括管理员和操作员。 6. 系统维护 系统维护主要是数据备份，数据备份中有入库数据备份、出库数据备份和退货数据备份三个内容。 系统流程图如图 4-1所示。 N Y N Y 图 4-1系统流程图 4.2 数据库表的设计 根据系统的 E-R图和实体图 ,本系统所需要的数据表包括客户信息表、入库产品信息表、出库产品信息表、退货产品信息表、用户管理表和汽车零件信息表。 用户登录 身份验证 正确 ? 退出系统 显示错误信息 是否超过三次 ? 基础信息 基本业务 系统查询 系统报表 系统设置 系统维护 11 表 4-1客户信息表 kehu 编号 字段名称 数据类型 说明 1 Id 自动编号 ,长整型 主键 2 Khqc 文本 , 长度为 40 客户全称 3 Lxdh 数字 , 长整型 联系电话 4 Lxr 文本 , 长度为 20 联系人 5 Sj 数字 , 长整型 手机 6 Di 文本 , 长度为 40 地 址 7 Yb 数字 , 长整型 邮编 8 Cz 数字 , 长整型 传真 9 Wz 文本 , 长度为 20 网址 10 Khyh 文本 , 长度为 20 开户银行 11 Yhzh 数字 , 长整型 银行帐号 12 Nsh 数字 , 长整型 纳税号 表 4-2入库零件信息表 chanrk 编号 字段名称 数据类型 说明 1 Id 自动编号 , 长整型 主键 2 Cpmc 文本 , 长度为 40 产品名称 3 Cpxh 文本 , 长度为 20 产品型号 4 Jsr 文本 , 长度为 20 经手人 5 Rdate 日期 /时间 , 长日期 入库日期 6 Danjia 货币 单价 7 Dan 文本 , 长度为 4 单位 8 Shuliang 数字 , 长整型 数量 9 Cx 文本 , 长度为 20 车型 10 Cd 文本 , 长度为 20 产地 11 Pi 货币 批发价 12 Ling 货币 零售价 13 Ying 货币 应付款 14 Shi 货币 实付款 12 表 4-3出库零件信息表 chanck 编号 字段名称 数据类型 说明 1 Id 自动编号 ,长整型 主键 2 Cpmc 文本 , 长度为 40 产品名称 3 Cpxh 文本 , 长度为 20 产品型号 4 Cdate 日期 /时间 ,长日期 出库日期 5 Jsr 文本 , 长度为 20 经手人 6 Dan 文本 , 长度为 4 单位 7 Shuliang 数字 , 长整型 数量 8 Cx 文本 , 长度为 20 车型 9 Cd 文本 , 长度为 40 产地 10 Khbh 数字 , 长整型 客户编号 11 Khqc 文本 , 长度为 40 客户全称 12 Lxdh 数字 , 长整型 联系电话 13 Ling 货币 零售价 14 Je 货币 金额 15 Ying 货币 应付款 表 4-4退货零件信息表 chanth 编号 字段名称 数据类型 说明 1 Id 自动编号 ,长整型 主键 2 Cpmc 文本 , 长度为 40 产品名称 3 Cpxh 文本 , 长度为 20 产品型号 4 Rdate 日期 /时间 ,长日期 出库日期 5 Tui 文本 , 长度为 20 退货经手人 6 Tdate 日期 /时间 ,长日期 退货日期 7 Dan 文本 , 长度为 4 单位 8 Shuliang 数字 , 长整型 数量 9 Khbh 数字 , 长整型 客户编号 10 Khqc 文本 , 长度为 40 客户全称 11 Lxdh 数字 , 长整型 联系电话 12 Je 货币 金额 13 表 4-5用户信息管理表 pass 编号 字段名称 数据类型 说明 1 Id 自动编号 ,长整型 主键 2 Xm 文本 , 长度为 20 姓名 3 Xb 文本 , 长度为 5 性别 4 Nl 文本 , 长度为 5 年龄 5 Dlsf 文本 , 长度为 20 登录身份 6 Zw 文本 , 长度为 20 职务 7 Kl 文本 , 长度为 50 登录口令 表 4-5汽车零件信息表 chanji 编号 字段名称 数据类型 说明 1 Id 自动编号 ,长整型 主键 2 Cpmc 文本 ,长度为 40 产品名称 3 Cpxh 文本 ,长度为 20 产品型号 4 Danjia 货币 单价 5 Dan 文本 ,长度为 4 单位 6 Cx 文本 ,长度为 20 车型 7 Cd 文本 ,长度为 40 产地 4.3 系统运行环境 系统要正常运行 ,必然要一个稳定的运行环境 。 一般用户对 windows 界面比较熟悉 ,因此建议使用 windows98/2000/xp 操作系统 。 另外系统的 硬件配置是根据用户对系统的稳定性要求、系统的容量以及用户的维护水平来决定 。 本系统的硬件配置要求在 256MB/20G 以上的计算机 。 5 系统实现 5.1 用户界面设计 由于汽车零件管理系统的最终使用者是对计算机并不精通的业务管理人员 ,从他们的应用需求出发 ,系统采用了传统的基于菜单选择、填写表格和简单回答等友好的人机互交方式。 14 为了保证系统的安全性 ,进入系统之前必须经过必要的安全性验证。简洁、清晰、友好是此界面设计的风格。图 5-1 是用户登录界面。 图 5-1 用户登录证界面 主要代码实现是 : procedure TPASS.FormCreate(Sender: TObject)； begin Table1.DatabaseName:=moed； /设置与该组件连接的数据库名 / table1.DatabaseName:=db1； TAble1.TableName:=pass； /指定该组件封装的数据表名 TAble1.open； end； procedure TPASS.FormShow(Sender: TObject)； begin EDIT1.setfocus； / 将焦点定位到操作员输入框 pass1:=0； /设置变量为 0 end； procedure TPASS.Edit1KeyDown(Sender: TObject； var Key: Word；Shift: TShiftState)； begin If Key = 13 Then edit2.SetFocus ； /回车移动焦点 end； procedure TPASS.Edit2KeyDown(Sender: TObject； var Key: Word； Shift: TShiftState)； begin If Key = 13 Then BITBTN1.SetFocus ； /回车移动焦点 end； procedure TPASS.BitBtn1Click(Sender: TObject)； /确定 begin if TAble1.locate(DLSF；KL,VARarrayOF(Edit1.TExt,edit2.Text),loCaseInsensitive) then begin MRQP.Label1.caption:=Table1.FieldByName(xm).Asstring； MRQP.statusbar1.panels1.text:=操作员： +PASS.Table1.fieldbyname(xm).asstring； /主窗体状态栏显示操作员 close； End 15 Else begin pass1:=pass1+1； /累计密码输入错误次数 showmessage(口令错误，请从新输入。 )； Edit2.Text:=； Edit2.setfocus； /重新输入密码 if pass1=3 then begin /三次输入错误密码 showmessage(没有口令，系统无法识别您的身份。 )； PASS.close； /退出 MRQP.close； end； end； end； procedure TPASS.BitBtn2Click(Sender: TObject)； /退出 begin pass.close； mrqp.close； end； end. 主界面由主菜单、树形目录和工具栏组成 ,如图 5-2,在界面的上方为主菜单区 ,用于显示本菜单子功能 ,用户 可以用鼠标或光标来选择下拉菜单项选择。用户双击左边的树形目录也可进入工作状态 ,工具栏只要单击即可进行工作。 图 5-2 系统界面 5.2 基础信息模块的实现 5.2.1 产品信息管理模块 本模块主要是对零件信息进行录入 ,主要含有以下信息 :产品编号、产地、 16 产品名称、平日单价、产品型号、批发价、单位、零售价、车型、建议价等主要信息，本模块有添加 、 修改和查询功能 。 图 5-3 产品信息管理模块界面 5.2.2 客户信息管理模块 本模块主要是对客户信息进行录 入 ,主要含有以下信息 :客户编号、联系电话、网址、客户全称、地址、开户银行、联系电话、邮编、银行帐号、联系人、传真、纳税号等信息 , 本模块有添加、修改、查询等功能。 模块设计界面如图 5-4: 图 5-4客户信息管理界面 产品信息管理 (CPXXGL)和客户信息管理 (KHXXGL)的实现代码如下 : procedure TCPXXGL.Button1Click(Sender: TObject)；/添加新产品 (TKHCCG 为添加客户信息 ) var I:integer； begin try 17 Table1.Last； if table1.fieldbyname(cpbh).asstring then I:=strtoint(table1.fieldbyname(cpbh).asstring)+1 else i:=1； Table1.close； Table1.open； Table1.append； ENFALSE； dbedit1.Text:=formatfloat(000000,i)； /生成 6 位产品编号 Dbedit2.setfocus； Except on Exception do showmessage(数据连接错误！ )； end； end； procedure TCPXXGL.Button3Click(Sender: TObject)； /保存产品信息 begin try Table1.Post； Table1.close； Table1.open； ENTRUE； table1.indexfieldnames:=id； button1.setfocus； Except on Econverterror do showmessage(aaaaaaaa)； on Exception do showmessage(数据连接错误！ )； end； end； procedure TCPXXGL.FormKeyPress(Sender: TObject； var Key: Char)； begin if key=#13 then /回车 begin if (activecontrol is TDBedit) then Perform(WM_nextdlgctl,0,0)； end； end； procedure TCPXXGL.FormClose(Sender: TObject； var Action: TCloseAction)； /退出 begin CPXXGL.Release； end； 5.3 基础业务功能模块的实现 5.3.1 产品入库登记模块 本模块主要是对入库信息进行管理 ,主要含有以下信 息： 客户信息添加 (客户 18 编号、联系人、邮编、客户全称、地址等等 )、产品信息添加 (产品编 号、 批发价、数量、产品名称、零售价、产品标识、单价、实付款等等 )，添加的结果在表格中列出。 本模块界面如 5-5所示 : 图 5-5 产品入库登记模块界面 5.3.2 产品出库登记模块 有入库模块就会有相对应的出库模块 ,本模块是登记出库信息 ,主要有 :客户信息 (编号、全称、电话等 )、 产品信息 (编号、产品名称、价格、数量、金额等 )添加完成后 ,便可在下列表查看得到。 本模块主要界面如图 5-6 所示 : 图 5-6产品出库登记模块 5.3.3 产品退货登记管理模块 本模块包含出货信息一览、信息查询栏和系统操作栏 ,其中 出货信息一览中包括全部的产品信息和客户信息。系统操作栏包括了查询、刷新、退货、退出四个操作。信息查询栏的选择条件有客户编号、客户全称等 。 其界面如 5-7所示 : 19 图 5-7产品退货登记管理模块 退货子系统的实现代码主要有 : procedure Tcpckth.FormShow(Sender: TObject)； begin Combobox1.itemindex:=0； / 设置默认查询框查询字段 edit1.text:=； /默认查询 值为空 tuihou:=cpbh； /默认查询字段 end； procedure Tcpckth.ComboBox1Click(Sender: TObject)； begin case combobox1.ItemIndex of /选择查询字段 0:begin tuihou:=cpbh； end； 1:begin tuihou:=cpmc； end； 2:begin tuihou:=cpxh； end； 3:begin tuihou:=khbh； end； 4:begin tuihou:=khqc； end； 5:begin tuihou:=jsr； end； end； end； procedure Tcpckth.BitBtn2Click(Sender: TObject)； /刷新 20 begin table1.Filtered:=false； end； procedure Tcpckth.BitBtn1Click(Sender: TObject)； /查询 begin table1.filtered:=true； table1.filter:=format(tuihou+=+%s,edit1.text)； end； procedure Tcpckth.BitBtn3Click(Sender: TObject)； /退货 begin if table1.fieldbyname(cpmc).asstring then begin if messagedlg(您真的要 退货吗！ , mtInformation,mbyes,mbno,0)=mryes then begin cpckthsl.showmodal； /调入退货数量输入窗体 end； 5.4 系统查询模块的实现 5.4.1 产品信息查询 产品信息录入完了之后 ,就可以通过本查询模块对数据库中的信息进行有条件的查询。产品信息查询的界面如下 : 图 5-8产品信息查询模块 5.4.2 客户信息查询 客户信息查询可以通过 客户编号、客户全称、联系电话和联系人四个元素进行查询 ,在选择查询条件进行查询后就会显示所要查询的内容 ,要返回按刷新按钮即可 ,退出则按退出按钮。 客户信息查询的界面如图 5-9: 21 图 5-9客户信息查询界面 5.4.3 入库 /出库 /退货查询 入库出库退货的查询是对产品进出的记录 ,它们都拥有相同的界面 ,查询方法也是一样的。系统的入库、出库和退货查询可以供管理人员及时的了解产品的销售情况 ,为决策提供进一步的证据。图 5-10、 5-11、 5-12分别是出库、入库和退货的查询报表。 5-10产品出库查询界面 5-11产品退货查询界面 22 图 5-12 产品出库查询界面 在产品出库查询中数据刷新、查询用到的主要的代码如下。 procedure Trkxxcx.BitBtn2Click(Sender: TObject)； /刷新数据 begin table1.filtered:=false； end； procedure Trkxxcx.BitBtn1Click(Sender: TObject)； /查询数据 begin table1.filtered:=true； table1.filter:=format(tuihou+=+%s,edit1.text)； end； procedure Trkxxcx.FormShow(Sender: TObject)； /设置默认查询字段和内容 begin Combobox1.itemindex:=0； edit1.text:=； /查询内容为空 tuihou:=cpbh； /默 认查询字段为产品编号 end； procedure Trkxxcx.Edit1KeyPress(Sender: TObject； var Key: Char)； /开始查询 begin if key=chr(13) then begin table1.filtered:=true； table1.filter:=format(tuihou+=+%s,edit1.text)； end； end； procedure Trkxxcx.BitBtn3Click(Sender: TObject)； /退出 begin close； end； 23 5.5 系统报表模块 系统报表主要供管理员较为直观明了、全面的了解产品及客户的情况。本系统含有产品信息报表、客户信息报表、入库信息报表、出库信息报表和退货信息报表等。报表的界面如 5-13(产品信息报表和入库信息报表 )所示。 产品信息报表 产品入库信息报表之一 产品出库信息报表之一 图 5-13 在系统中调用报表语句如下 : if treeview1.selected.text=客户信息报表 then begin /调入客户信息报表 application.Createform(tKHXXBB,KHXXBB)； khXXBB.quickrep1.previewmodal end； if treeview1.selected.text=产品信息报表 then begin /调入产品信息报表 application.Createform(tCPXXBB,CPXXBB)； CPXXBB.quickrep1.previewmodal end； if treeview1.selected.text=入库信息报表 then begin /调入入库信息报表 application.Createform(tRKBB,RKBB)； 24 RKBB.quickrep1.previewmodal end； if treeview1.selected.text=出库信息报表 then begin /调入出库信息报表 application.Createform(tCKBB,CKBB)； CKBB.quickrep1.previewmodal end； if treeview1.selected.text退货信息报表 then begin /调入退货信息报表 application.Createform(Tthbb,thbb)； thbb.quickrep1.previewmodal end； 5.6 系统设置 本系统的用户管理是对系统使用者相关信息的管理 ,可以添加 、 修改和删除用户 ,用户信 息有 :用户编号 、 年龄 、 用户名称 、 性别 、 登录身份 、 登录口令 、 职务等信息 。 系统中只有管理员才可以对用户管理进行操作。 用户管理的界面如图 5-14所示 : 图 5-14用户管理 用户管理模块用添加用户的代码有 : procedure TYHGL.BitBtn1Click(Sender: TObject)； var I:integer； begin table1.First； I:=1； while not table1.Eof do begin I:=I+1； table1.next； end； 25 5.7 数据备份 数据备份是企业最基本的存储需求 ,其基本目标是保证数据的一致性和完整性 。 一般来说 ,完善的备份系统必须符合稳定性 、 安全性 、