产品仓库管理系统 数据库课程设计.doc

课 程 设 计 书学院 专业 班级 题目 教师 学生 年 月 日目录一、课题设计背景11.1 概述11.2 需求分析11.2.1 仓库分析及研究11.2.2 环境要求11.3 解决方案2二、系统分析22.1 可行性分析22.2数据流程图32.3 数据字典5三、系统设计部分93.1功能结构图设计93.1.1 系统功能概述93.1.2 货物入库和出库的管理103.1.3 出库入库记录的查询103.1.4 货物信息的管理103.1.5 其他信息的管理103.2数据库概念结构设计113.3数据库逻辑结构设计153.4 界面设计173.5.1系统登陆模块的功能183.5.2系统用户管理模块的功能203.5.3密码更改模块的功能213.5.4数据库备份模块的功能243.5.5主窗口模块的功能253.5.6产品资料管理模块273.5.7仓库信息管理模块的功能273.5.8供应商及客户管理模块的功能283.5.9入库和出库模块的实现293.5.10入库查询模块的实现30四、系统实施部分30五、设计总结31六、参考资料31七、小组分工31 III一、课题设计背景仓库在企业的整个供应链中起着至关重要的作用，如果不能保证正确的进货和库存控制及发货，将会导致管理费用的增加，服务质量难以得到保证，从而影响企业的竞争力。传统简单、静态的仓储管理已无法保证企业各种资源的高效利用。如今的仓库作业和库存控制作业已十分复杂化多样化，仅靠人工记忆和手工录入，不但费时费力，而且容易出错，给企业带来巨大损失。 使用信息化管理系统 , 对仓储各环节实施全过程控制管理，并可对货物进行货位、批次、保质期、配送等实现序列号管理，对整个收货、发货、补货、集货、送货等各个环节的规范化作业，还可以根据客户的需求制作多种合理的统计报表 ，将条码引入仓库管理，解决库房信息陈旧滞后的弊病。不论物品流向哪里，我们都可以自动跟踪。 1.1 概述仓库管理系统是通过入库业务、出库业务、仓库调拨、库存调拨和虚仓管理等功能，综合批次管理、物料对应、库存盘点、质检管理、虚仓管理和即时库存管理等功能综合运用的管理系统，有效控制并跟踪仓库业务的物流和成本管理全过程，实现完善的企业仓储信息管理。该系统可以独立执行库存操作，与其他系统的单据和凭证等结合使用，可提供更为完整全面的企业业务流程和财务管理信息。1.2 需求分析1.2.1 仓库分析及研究传统的仓库管理，一般依赖于一个非自动化的、以纸张文件为基础的系统来记录、追踪进出的货物，完全由人工实施仓库内部的管理，因此仓库管理的效率极其低下，所能管理的仓库规模也很小。随着计算机的应用普及，目前大多数企业的仓库管理数据资料已开始采用计算机数据系统管理，但数据还是采用先纸张记录、再手工输入计算机的方式进行采集和统计整理。这不仅造成大量的人力资源浪费，而且由于人为的因素，数据录入速度慢、准确率低。随着企业规模的不断发展，仓库管理的物资种类机数量在不断增加、出入库频率剧增，仓库管理作业也已十分复杂和多样化，传统的人工仓库作业模式和数据采集方式已难以满足仓库管理的快速、准确要求，严重影响了企业的运行工作效率，成为制约企业发展的一大障碍。1.2.2 环境要求经过前面的初步调研分析,总结出仓库管理工作具有以下特点：在仓库管理中存在帐目品种杂、重复次数多的问题，目前仓库对所有信息的管理均以手工完成，既由资料管理员以各种记录台帐方式完成信息的登记，在需要某种信息的时候查找台帐记录。很明显，目前的工作方法效率低下，信息保存的准确性、安全性难以保证，信息查询的快速性、完整性也难以保证，致使销售管理工作费人，费时，费力，繁琐枯燥,效率低下。因此实现仓库管理的计算机化迫在眉睫, 本系统是集仓库管理、货物管理、仓库货物进出库管理、客户统计、进出库统计等功能于一体的综合性仓储管理系统。支持多种类型的入库、出库、补货方式，同时支持多种查询方式和全面的日志管理，可应用于各种行业的单体仓库精细化管理或者应用于制造企业、物流企业、流通业及其它特殊行业的仓库管理。可以轻松解决物流企业在仓库管理、货物流动分析等一系列问题，迅速提高物流企业对仓库经营管理水平、稳固客户群，增加经济效益，以最小的投资获得双盈的优秀管理。帮助生产企业、分公司、分销商、代理商、商场、商店等之间建立起一套完善、高效、具有快速反应能力和管理能力的业务平台，可以极大的提高企业竞争力，为企业创造价值果！1.3 解决方案使用信息化管理系统 , 对仓储各环节实施全过程控制管理，并可对货物进行数量、批次、保质期、配送等实现序列号管理，对整个收货、发货、集货、送货等各个环节的规范化作业 ,去掉了手工书写票据和送到机房输入的步骤，解决库房信息陈旧滞后的弊病。不论物品流向哪里，我们都可以自动跟踪。信息技术的结合帮助企业合理有效地利用仓库空间，以快速、准确、低成本的方式为客户提供最好的服务。仓库管理系统是通过入库业务、出库业务管理等功能，综合批次管理、物料对应、库存盘点和库存盘点管理等功能综合运用的管理系统，有效控制并跟踪仓库业务的物流和成本管理全过程，实现完善的企业仓储信息管理。该系统可以独立执行库存操作，使得企业仓库管理更加的高效、方便、实用。二、系统分析2.1 可行性分析本设计从以下三个方面进行可行性研究：1. 技术可行性。本设计“仓库管理系统”是为企业仓库管理人员开发的。数据库课程设计中采用delphi7.0SQL server 2005设计开发，对于开发管理信息系统的人来说，其开发的技术采用面向对象的设计特点，其开发的技术相当的成熟技术更加成熟，能够充分的满足大多数客户的系统需求。由于本设计最重要体现的是实用性，所以，通过一定的社会调查和分析，系统的技术能够很好的满足各种的技术特性。本系统可以运行在Win2000，Win XP, Win 2007操作系统之上, 市场上流行的操作系统都可以支持。因此技术可行性绝不会成为仓库管理信息系统的问题。 2. 经济可行性。成本方面：由于本软件面向中小型企业构建，采用的是常用的数据库SQL server 2005，软件的开发采用面向对象的软件delphi设计，开发者的研发简单、开发周期短，所以开发本软件的成本是非常低的。效益方面：为企业开发一个完整、合理的仓库管理系统，可大大节余人力，以前需要多人干的工作，使用本系统只需一个人或几个人就能完成，且工作量和劳动强度大大降低。所以开发本软件可以为社会带来很好的经济效益。从以上分析看开发本软件在经济上是可行的。 3. 操作可行性。本系统操作简单, 有机算计基础的人无需培训即可使用, 即使是没有计算机基础的人只需经过简单的培训就可以很熟练的使用本系统。系统运行后，就用户方而言，由于用户使用本系统时，不会也不必关心系统内部的结构及实现方法，即对用户来说是透明的，所以本系统对用户而言，是定位在界面友好、操作方便、功能齐全的原则上的，用户只需简单的用鼠标点击各界面上的选项卡或按钮就能执行相应的功能，就管理者而言，关心的是如何处理各种数据，只要把用户的信息输入计算机，管理者就可运行相应的后台程序进行处理。而以上的这些功能都能在所选择的开发环境中用所选择的开发工具来实现。所以说本系统在用户使用可行性上是没有问题的。所以从以上几个方面的分析来看，开发本软件是完全可行的。2.2数据流程图基于以上设计目标和设计思想，采用自顶向下、逐层分解的方式分析所需系统，将功能分解为若干子功能，每个子功能还可以继续分解，直到把系统工作过程表示清楚为止。在处理功能逐步分解的同时，它们所用的数据也逐级分解，形成若干层次的数据流图，如下图所示。 图2.2总数据流图 图2.2外借登记表数据流图 图2.3外借登记表数据流图 图2.4维修仪器仪表数据流图图2.5管理人员管理仪器仪表数据流图2.3 数据字典数据流图表达了数据和处理的关系，数据字典则是系统中各类数据描述的集合，是进行详细的数据收集和数据分析所获得的主要成果。数据字典在数据库设计中占有很重要的地位。数据字典通常包括数据项、数据结构、数据流、数据存储和处理过程5个部分。其中数据项是数据的最小组成单位，若干个数据项可以组成一个数据结构，数据字典通过对数据项和数据结构的定义来描述数据流、数据存储的逻辑过程。根据以上所得到的数据流图可得出如下数据字典。数据项数据项名数据类型长度说明物品数量float物品信息的库存数量联系人Varchar(10)10用户姓名Varchar(10)10系统用户的姓名用户权限Varchar(10)10发票号Varchar(10)10发票号仓管员Varchar(10)10仓库的管理员手机Varchar(15)15电话Varchar(15)15供应商名称Varchar(20)20供应商公司名称客户名称Varchar(20)20客户公司名称用户密码Varchar(20)20系统用户的密码物品名称Varchar(20)20物品规格Varchar(20)20物品信息的规格入库时间Varchar(20)20出库时间Varchar(20)20仓库名称Varchar(20)20仓库名称仓库地址Varchar(30)30仓库的地址供应商编号Varchar(5)5客户编号Varchar(5)5用户编号Varchar(5)5系统用户编号物品编号Varchar(5)5物品信息的编号物品型号Varchar(5)5物品信息的型号物品单位Varchar(5)5物品信息的单位仓库编号Varchar(5)5仓库编号备注Varchar(50)50数据结构 编号：D01 名称：操作员 别名：用户简述：操作员的基本信息组成：用户编号，用户姓名，用户密码，用户权限编号：D02 名称：供应商 别名：简述：供应商的基本信息组成：供应商编号，供应商名称，联系人，手机，电话，备注编号：D03 名称：客户 别名：简述：客户的基本信息组成：客户编号，客户名称，联系人，手机，电话，备注编号：D04 名称：物品 别名：产品简述：物品的基本信息组成：物品编号，物品名称，物品型号，物品规格，物品单位，备注编号：D05 名称：仓库 别名：简述：仓库的基本信息组成：仓库编号，仓库名称，仓库地址，仓管员，备注编号：D06 名称：库存 别名：简述：物品存储在仓库的记录信息组成：维修号，维修日期，维修完成日期，仪器仪表编号编号：D07 名称：入库 别名：入库登记简述：物品入库的记录信息组成：发票号，供应商，库存仓库，操作员，物品编号，入库时间，物品数量， 备注编号：D08 名称：出库 别名：出库登记简述：物品出库的记录信息组成：发票号，客户，库存仓库，操作员，物品编号，出库时间，物品数量，备注编号：D09 名称：外借 别名：外借登记简述：物品外借的记录信息组成：发票号，客户，库存仓库，操作员，物品编号，出库时间，入库时间， 物品数量，备注数据流编号：F101 名称：客户相关信息 别名：简述：客户的基本信息组成：D01 D03 D04 D05 D09若为数据流来源：客户相关信息去向：借用记录编号：F102 名称：借用物品处理相关信息 别名：简述：借用的基本信息组成：D01 D03 D04 D05 D09若为数据流来源：借用记录的相关信息去向：借用处理编号：F103 名称：物品出库相关信息 别名：简述：出库的基本信息组成：D01 D03 D04 D05 D08若为数据流来源：客户相关信息去向：出库处理编号：F104 名称：物品出库处理相关信息 别名：简述：物品完成出库形成的基本信息组成：D01 D03 D04 D05 D08若为数据流来源：出库处理去向：出库记录编号：F105 名称：物品入库相关信息 别名：简述：入库的基本信息组成：D01 D02 D04 D05 D07若为数据流来源：供应商相关信息去向：入库处理编号：F106 名称：物品入库处理相关信息 别名：简述：物品完成入库形成的基本信息组成：D01 D02 D04 D05 D07若为数据流来源：入库处理去向：入库记录三、系统设计部分3.1功能结构图设计3.1.1 系统功能概述 图3.1.1-1 系统功能图3.1.2 货物入库和出库的管理仓库是用来存放货物的，货物进入仓库要进行登记记录，货物从仓库出库也要进行登记记录，这是仓库管理的主要内容。货物进入仓库，从入库申请的人员向执行货物入库的仓库保管员提交货物开始。入库申请人向仓库管理员提交货物和入库申请单，入库申请单记录本次入库的货物名称、数量、提交货物的单位、执行提交货物的人员以及货物注意事项等信息。库管依据送货人员提供的入库申请单对待入库货物进行检查。若待入库货物与入库申请单信息一致，则允许入库；若不一致，则禁止入库，请提交货物的单位重新出具入库申请单。对允许入库的货物，执行库管要对货物的信息进行登记，这些信息包括入库货物名称、入库数量、入库时间、送货入库人员的信息、执行货物入库的执行人。进行登记后，将货物存入仓库。货物存入仓库后，执行入库操作的库管给提出入库申请的入库人员开具入库单，入库流程结束。货物从仓库中出库，是从需求货物的出库单位出库人员向执行出库操作的库管提交出库申请开始的。首先，出库人员向库管提交出库申请单。出库申请记录申请出库的货物名称、申请出库的数量、申请出库的单位、执行出库申请的人员等信息。执行出库的库管首先对出库单的真伪进行检验。对有效的出库单，依据其要求出库的货物名称查找仓库库存货物的信息和此货物的库存数量。如果有此货物，并且其库存数量满足出库申请单的数量，则执行出库操作的库管保存出库申请单并进行出库登记。在出库登记中，执行库管要记录出库货物的名称、出库数量、出库后剩余数量、出库时间、货物去向、出库的仓库、执行出库的库管名称等信息。进行出库登记后，将货物出库。出库结束后，执行库管给提出出库申请的出库人员开具出库单，出库流程结束。3.1.3 出库入库记录的查询仓库的管理人员要对仓库存储的货物信息、入库记录和出库记录等及时掌握，这样才能及时了解仓库的运行现状，才有可能会使仓库处在良好的运行状态。所以，一般仓库管理过程中要能提供仓库的入库、出库记录的查询功能，并且能够将出库、入库记录生成报表，供管理人员使用，所以，对入库、出库记录的查询并将这些信息生成报表是仓库管理系统的重要功能之一。3.1.4 货物信息的管理仓库要存放货物，关于这些货物本身的信息，对货物的正常存储是非常重要的，例如，哪些货物需要防潮，哪些货物需要轻搬轻放等，所以，对货物本身的信息的登记、管理是仓库管理的重要内容。3.1.5 其他信息的管理除了以上提到的一些功能外，仓库管理系统还应该能对一些其他的信息进行管理。例如，对每个仓库来说，都有一些存储位置用来存放货物，仓库管理过程中包括对这些存储位置进行的管理；每个仓库都有一些仓库管理员，对这些仓库管理员的管理也是仓库管理系统的功能之一。3.2数据库概念结构设计 图3.2-1操作员E-R图图3.2-2客户E-R图图3.2-3供应商E-R图图3.2-4物品E-R图图3.2-5仓库E-R图图3.2-6库存E-R图图3.2-7入库登记E-R图图3.2-8出库登记E-R图图3.2-9外借E-R图图3.2-10总E-R图3.3数据库逻辑结构设计现在需要将在上面的数据库概念结构转化为sql server 2005 数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。仓库管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格所示在数据库中的一个表。表3.3-1供应商信息表字段名称字段描述数据类型可否为空说明VendorID供应商编号Varchar(5)主键VendorName供应商名称Varchar(20)Null供应商公司名称Linkman联系人Varchar(10)NullHandset手机Varchar(15)NullTel电话Varchar(15)NullRemark备注Varchar(50)Null表3.3-2客户信息表字段名称字段描述数据类型可否为空说明CustomerID客户编号Varchar(5)主键CustomerName客户名称Varchar(20)Null客户公司名称Linkman联系人Varchar(10)NullHandset手机Varchar(15)NullTel电话Varchar(15)NullRemark备注Varchar(50)Null表3.3-3操作员信息表字段名称字段描述数据类型可否为空说明OperatorID用户编号Varchar(5)主键系统用户编号user_name用户姓名Varchar(10)Null系统用户的姓名user_pwd用户密码Varchar(20)Null系统用户的密码power_level用户权限Varchar(10)Null表3.3-4物品信息表字段名称字段描述数据类型可否为空说明MaterialID物品编号Varchar(5)主键物品信息的编号MaterialName物品名称Varchar(20)NullMaterialModal物品型号Varchar(5)Null物品信息的型号MaterialSpecs物品规格Varchar(20)Null物品信息的规格MaterialUnit物品单位Varchar(5)Null物品信息的单位Remark备注Varchar(50)Null表3.3-5仓库信息表字段名称字段描述数据类型可否为空说明WarehouseID仓库编号Varchar(5)主键仓库编号WarehouseName仓库名称Varchar（20）Null仓库名称WarehouseAddr仓库地址Varchar（30）Null仓库的地址WarehouseMan仓管员Varchar（10）Null仓库的管理员Remark备注Varchar(50)Null表3.3-6库存信息表字段名称字段描述数据类型可否为空说明WarehouseID仓库编号Varchar(5)主键仓库编号MaterialID物品编号Varchar（10）Null物品信息的编号MaterialNum物品数量floatNull物品信息的库存数量Remark备注Varchar(50)Null表3.3-7入库登记信息表字段名称字段描述数据类型可否为空说明InvoiceNO发票号Varchar(10)Null发票号VendorID供应商Varchar(5)Null供应商编号WarehouseID库存仓库Varchar(5)Null库存仓库编号Operator操作员Varchar(5)NullMaterialID物品编号Varchar(10)Null物品信息的编号InReceiveDate入库时间Varchar(20)NullMaterialNum物品数量floatNull物品数量Remark备注Varchar(50)Null表3.3-8出库登记信息表字段名称字段描述数据类型可否为空说明InvoiceNO发票号Varchar(10)Null发票号CostomerID客户Varchar(5)Null客户编号WarehouseID库存仓库Varchar(5)Null库存仓库编号OperatorID操作员Varchar(5)NullMaterialID物品编号Varchar(10)Null物品信息的编号OutputDate出库时间Varchar(20)NullMaterialNum物品数量floatNull物品数量Remark备注Varchar(50)Null表3.3-9外借登记信息表字段名称字段描述数据类型可否为空说明InvoiceNO发票号Varchar(10)Null发票号CostomerID客户Varchar(5)Null客户编号WarehouseID库存仓库Varchar(5)Null库存仓库编号OperatorID操作员Varchar(5)NullMaterialID物品编号Varchar(10)Null物品信息的编号OutputDate出库时间Varchar(20)NullInreceiveDate入库时间Varchar(20)NullMaterialNum物品数量floatNull物品数量Remark备注Varchar(50)Null视图的建立，代码如下：create view 库存信息(仓库编号,仓库名称,产品编号,产品名称,产品型号,产品规格,产品单位,产品数量,备注)asselect a.warehouseid,b.warehousename,c.materialid,c.materialname,c.materialmodel,c.materialspecs,c.materialunit,a.materialnum,a.remarkfrom warehouse as ainner join wareinfo as b on a.warehouseid=b.warehouseidinner join materialinfo as c on a.materialid=c.materialidwith check optioncreate view 出库登记(发票号,出库时间,仓库编号,仓库名称,产品编号,产品名称,产品型号,产品规格,产品单位,产品数量,客户编号,客户名称,操作员编号,操作员姓名,备注)asselect invoiceno,outputdate,b.warehouseid,b.warehousename,c.materialid,c.materialname,c.materialmodel,c.materialspecs,c.materialunit,a.materialnum,d.customerid,d.customername,e.operatorid,e.user_name,a.remarkfrom outwarehouseinfo as ainner join wareinfo as b on a.warehouseid=b.warehouseidinner join materialinfo as c on a.materialid=c.materialidinner join customer as d on a.customerid=d.customeridinner join user_table as e on a.operatorid=e.operatoridwith check optioncreate view 入库登记(发票号,入库时间,仓库编号,仓库名称,产品编号,产品名称,产品型号,产品规格,产品单位,产品数量,供应商编号,供应商名称,操作员编号,操作员姓名,备注)asselect invoiceno,inreceivedate,b.warehouseid,b.warehousename,c.materialid,c.materialname,c.materialmodel,c.materialspecs,c.materialunit,a.materialnum,d.Vendorid,d.Vendorname,e.operatorid,e.user_name,a.remarkfrom inwarehouseinfo as ainner join wareinfo as b on a.warehouseid=b.warehouseidinner join materialinfo as c on a.materialid=c.materialidinner join Vendor as d on a.Vendorid=d.Vendoridinner join user_table as e on a.operatorid=e.operatoridwith check option3.4 界面设计此系统是基于Delphi7.0开发的库存管理系统。它主要包括三大模块，系统设置、业务处理及基础资料。基础数据用于设计一些基础项目，库存操作是对应的入库出库一类对库存所作的操作，其他操作包括系统的备份还原及一些基本资料的数据。3.5.1系统登陆模块的功能用户通过此登陆模块，可登陆到系统的内部，从而进行所需的操作。同时，它能用来校验用户是否具有其相应的权限，是即应有对应的权限，其对应只能操作相关模块的操作或者相关模块的进入。 图3.5.1-1 程序启动动画图3.5.1-2 用户登陆界面功能及代码：功能：可以实现超级用户和系统管理员根据自己的权限进入相应的功能。系统自动的根据登陆的用户名到系统中自动的查找其权限的功能，使得用户的功能是一个自动化的过程。系统用户的相应权限只在相应的情况下启用。程序启动动画代码：implementationprocedure Tmovefrm.FormCreate(Sender: TObject);begindate_lb.Caption :=今天是+datetostr(now);end;end.用户登陆界面代码：implementationuses mainfrmUnit2, dblinkfrmUnit4, basefindUnit1, baseholdUnit1, checkhold, rewardfind, workagefind, pro_titlefind, protitle, userhold;procedure Tloginfrm.login_btnClick(Sender: TObject);var b:bool;begin /创建Tusertable实例 usertable:=Tusertable.create ; try/判断数据表中是否有记录存在b:=usertable.CheckUser(user_ed.Text);except loginfrm.Hide; dblinkfrm.show; exit;end;if b=false thenbeginapplication.MessageBox(对不起，没有这个用户名！,提示：,mb_ok);exit;endelsebeginif pwd_ed.Text=usertable.GetUserPwd(user_ed.Text) thenbeginpowerlevel:=usertable.GetUserLevel(user_ed.Text);mainfrm.show;loginfrm.Hide;endelsebeginapplication.MessageBox(对不起，你的密码不对！,提示：,mb_ok);pwd_ed.SetFocus ;end;end;/释放类的实例usertable.Free;end;procedure Tloginfrm.cancel_btnClick(Sender: TObject);beginapplication.Terminate ;end;end.3.5.2系统用户管理模块的功能图3.5.2-1 系统用户管理界面功能及代码：功能：左边的用户列表可以查看用户名、密码及权限，也可以删除某个用户；右边可以新添加用户并设置其口令和权限。主要是系统超级用户为操作该系统的人员分配帐号，管理其他人员相应的操作权限的功能。代码：implementationprocedure Tuseraddfrm.cancel_btnClick(Sender: TObject);beginusernameed.Text :=;userpwded.Text :=;useraddfrm.Close;end;procedure Tuseraddfrm.User_AddClick(Sender: TObject);var sql:string;beginusertable:=Tusertable.create ;if (usernameed.Text=) or (userpwded.Text=) or (levelcb.Text=) thenbeginshowmessage(请将内容输入完整！);exit;end;/判断录入的用户名是否存在if usertable.CheckUser (usernameed.Text) thenbeginshowmessage(该用户名已经存在，请更换用户名！);usernameed.SetFocus ;exit;end;/赋值插入操作语句sql:=insert into user_table(user_name,user_pwd,power_level+)values(+usernameed.Text+,+userpwded.Text+,+levelcb.Text+);/执行插入操作usertable.UserInsert(sql);showmessage(添加成功！);usertable.Free;end;end.3.5.3密码更改模块的功能图3.5.3-1 用户密码更改界面功能及代码：功能说明：当前登陆的用户可以更改自己的密码。首先输入原始密码，不正确有相应的提示；新密码两次输入不一样也有相应的提示。更改完毕后提示更改成功。代码：implementation$R *.dfmprocedure Tuserholdfrm.cancel_btnClick(Sender: TObject);beginusernameed.Text:=;userpwded.Text :=;userholdfrm.Close;end;procedure Tuserholdfrm.Pwd_ModClick(Sender: TObject);var sql:string;beginif application.MessageBox(要修改吗？,提示:,mb_yesno+mb_iconquestion)=idyes thenbeginif usernameed.Text = thenbeginshowmessage(请输入用户名！);exit;end;if loginfrmUnit3.powerlevel系统管理员 thenbegin/判断原密码是否为空if pastpwd.Text = thenbeginshowmessage(请输入原密码！);exit;end;/判断原密码是否正确if usertable.GetUserPwd(usernameed.Text)pastpwd.Text thenbeginshowmessage(原密码不正确，修改密码失败！);exit;end;end;/判断新密码是否为空if userpwded.Text = thenbeginshowmessage(请输入新密码！);exit;end;/判断确认密码是否有误if newpwd1.Textuserpwded.Text thenbeginshowmessage(确认新密码有误，请重新输入！);exit;end;/判断修改记录是否存在if usertable.CheckUser(usernameed.Text)=false thenbeginshowmessage(该用户名不存在！);exit;end;/赋值修改操作语句sql:=update user_table set user_pwd=+userpwded.Text+ +where user_name=+usernameed.Text+;/执行修改操作usertable.UserUpdate(sql);showmessage(密码修改成功！);end;end;procedure Tuserholdfrm.User_DelClick(Sender: TObject);var delsql:string;beginif application.MessageBox(要删除吗？,警告:,mb_yesno+mb_iconquestion)=idyes thenbeginif usernameed.Text = thenbeginshowmessage(请输入要删除帐户的用户名！);exit;end;/判断用户帐号是否存在if usertable.CheckUser(usernameed.Text)=false thenbeginshowmessage(该用户名不存在！);exit;end;/判断原密码是否正确if usertable.GetUserPwd(usernameed.Text)pastpwd.Text thenbeginshowmessage(原密码不正确，删除失败！);exit;end;/赋值删除操作语句delsql:=delete from user_table where user_name=+usernameed.Text+;/执行删除操作usertable.UserDelete(delsql);showmessage(帐号删除成功！);usernameed.Text:=;userpwded.Text :=;end;end;procedure Tuserholdfrm.FormActivate(Sender: TObject);beginusertable:=Tusertable.create ;end;procedure Tuserholdfrm.FormClose(Sender: TObject; var Action: TCloseAction);beginusertable.Free;end;end.3.5.4数据库备份模块的功能图3.5.4-1 数据库备份界面功能及代码：功能：管理员可以随时手动进行数据库备份还原，备份还原过程中可以显示进度。该功能主要是操作员进行相应的数据库进行手动的备份操作，在用户需要更新到以前功能时，进行相应的数据恢复的功能。代码：implementationprocedure Tbackupfrm.Back_UpClick(Sender: TObject);beginif (edit1.Text=) then begin showmessage(请输入备份路径！); edit1.SetFocus ; exit; endelsescreen.Cursor :=crhourglass;show_lb.Visible :=true;show_lb.Update ;adocommand1.CommandText:=;adocommand1.CommandText:= backup database PERSONNEL_SYS to disk =:path with init ;adocommand1.Parameters.ParamByName(path).Value :=trim(edit1.Text);adocommand1.Execute ;show_lb.Visible :=false;show_lb.Update ;application.MessageBox( 备份完毕! ,提示,mb_ok); screen.Cursor :=crdefault;end;procedure Tbackupfrm.SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean);beginedit1.Text :=savedialog1.FileName ;end;procedure Tbackupfrm.path_btnClick(Sender: TObject);beginSaveDialog1.InitialDir :=extractfiledir(application.ExeName);savedialog1.Title :=保存文件; SaveDialog1.Execute;end;procedure Tbackupfrm.cancel_btnClick(Sender: TObject);beginbackupfrm.Close;end;3.5.5主窗口模块的功能 主窗口模块，是一个可视化的窗体，它包容了系统的所有分模块，设计时采用了相对简约的风格设计能够便于用户的操作简单化。图3.5.5-1 系统主窗口界面代码：implementationuses useradd, userhold, backup, Customer, materialinfo, warehouse1, WarehouseOutUnit1, WarehouseInUnit1, WarehouseLoanUnit1, insearch1, outsearch1,Vendor1,wareinfo, Unit1;procedure Tmainfrm.N30Click(Sender: TObject);beginapplication.Terminate ;end;procedure Tmainfrm.Timer1Timer(S