毕业设计（论文）DELPHI access商品进销存管理系统（附源程序）.doc

《毕业设计（论文）DELPHI access商品进销存管理系统（附源程序）.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）DELPHI access商品进销存管理系统（附源程序）.doc（42页珍藏版）》请在三一办公上搜索。

1、重庆大学高等教育自学考试毕业论文（设计）论文（设计）题目： 商品进销存管理系统 专业班级 2004级计算机应用 x助学单位 重庆大学计算机学院 x学生姓名 x准考证号 x指导教师 x完成时间 x源程序代码，联系153893706重庆大学高等教育自学考试办公室 制重庆大学高等教育自学考试摘 要随着计算机的普及，一些中小型企业逐渐开始使用计算机来实现自动化管理，从而实现高率的办公，来节约经营管理成本。进销存管理系统是中小型企业的一个典型应用。它可以实现采购、销售、成本核算、利润统计这些基本功能。本系统使用ACCESS作为后台数据库，DELPHI作为数据库系统开发工具，利用其提供的各种面向对象的开发

2、工具，在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，真到形成用户满意的商品进销存管理系统。目 录引言101管理信息系统现状102管理信息系统开发方法介绍203系统开发方法41 系统概述511课题名称512开发背景513软件的特点514开发工具515应用范围62 系统的可行性分析721系统初步调查722系统开发的必要性分析723系统开发的可行性分析83 系统需求分析1031需求分析10311系统功能需求10312 系统性能需求10313 系统环境需求分析10314 用户界面需求113.2系统功能模块的划分114 系统数据流程图1241销售盈利示意图1242商品进销

3、存管理系统的数据流图125 数据字典1351数据流条目1352数据项条目1353数据存储条目136 数据库设计1461简介1462系统ER图1463数据库逻辑结构设计167系统功能模块2171系统功能框图2172导航图228 详细设计2381 登录界面2382系统主界面：2783客户信息管理27831客户信息添加28832客户信息删除3184进货信息管理31841进货单添加329系统测试分析35参考文献36结束语37致 谢38引言商品进销存管理系统是典型的信息管理系统（Management Information System，简称MIS系统），其开发主要包括后台数据库的建立和维护以及前端应用

4、程序的开发两个方面。对于前者要求建立数据一致性和完整性强，数据安全性好的数据库。而对于后者则要求应用程序功能完备，易使用等特点。01管理信息系统现状管理信息系统（Management Information System）是一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体。1985年，管理信息系统创始人，明尼苏达大学卡尔森管理学院的著名教授戴维斯（Gordon.B.Davis）给出了一个具有代表性的定义：“管理信息系统是一个利用计算机硬件和软件，手工作业、分析、计划、控制和决策模型以及数据库的用户机器系统。它能提供信息支持企业或组织的运行、管理和决策功能。”随着

5、网络技术的出现，管理信息系统又有了新的发展，基于网络的管理信息系统不断出现，管理信息系统的概念模型也发生了相应的变化，许多学者对管理信息系统给出了新的定义。例如劳顿认为：“管理信息系统是一个基于计算机的信息系统，它通过收集、处理、存储和扩散信息，来支持组织的管理、决策、合作、控制、分析活动，并使之可视化。”因此，我们可以看出，管理系统系统具有几个基本含义：（1）管理信息系统不是一个单纯的软件系统，而是一个人机系统，由人和机器协同工作。管理信息系统在支持企业或组织的各项管理活动中，管理人员负责将基础数据及时地输入到计算机中，计算机则根据企业或组织中的各层管理人员的要求对基础数据进行加工处理，并将

6、所得到的信息输出。计算机不断地与最终用户进行着信息的交换，但在对数据的加工处理过程中又需要人的适当干预。（2）管理信息系统的管理过程就是对数据进行收集、存储、加工处理、传递，并产生信息的过程，因此数据是管理信息系统的灵魂。管理信息系统运用了数据库的技术，对基础数据进行统一规划、存储，供各层管理人员使用，从而实现了数据的一致和共享。（3）管理信息系统可以解决企业或组织所面临的问题。例如，管理信息系统可以处理企业产生经营活动的全过程，可以解决组织中数据处理效率问题，也可以解决财务管理决策过程等。管理信息系统应具有如下几个功能：（1）数据处理功能：数据处理是管理信息系统最基本的功能，它包括对各种类型

7、数据的收集、加工处理、传递、存储等工作。（2）实测功能：通过对数据的加工处理，可以随时了解各部门的实际运行情况，如各生产车间今天生产的产品数量、销售部接受的订单等。（3）预测功能：通过运用一定的数学方法和预测模型，对过去的数据进行分析，就可能对未来可能发生的情况进行预测，为高级管理人员进行管理决策提供依据。（4）控制功能：通过信息的反馈可以对整个企业生产经营的各个部门、各个环节的运行情况进行监测、协调、控制，保证系统的正常运行。（5）辅助决策功能：通过对数据的加工处理，可以快速地获取对决策有影响的信息，从而为合理的配置企业的各项资源，做出最佳的决策提供科学的依据。目前，管理信息系统的应用已经非

8、常广泛，随着计算机技术、网络技术和通信技术的发展，管理信息系统的功能也日趋完善，并朝着智能化、网络化、集成化等方向发展。如办公自动化（OA）、电子商务（EC）、专家系统（ES）、计算机集成制造系统（CIMS）。02管理信息系统开发方法介绍目前，常用的管理信息系统的开发方法有生命周期法、原型法和面对对象的开发方法。下面仅对原型法和面对对象的开发方法进行简单的描述。(1)原型法：原型法（Prototyping Method）是20世纪80年代发展起来的，旨在改变生命周期法的缺点的一种系统开发方法。原型法的基本思想首先根据用户的要求，由用户和开发者共同确定系统的基本要求和主要功能，利用系统快速生成工

9、具，建立一个系统模型。再在此基础上与用户交流，将模型不断补充，修改完善，如此反复，最终直至用户和开发者都比较满意为止，就形成了一个相对稳定、较为理想的管理信息系统。原型法的开发过程采用原型法开发管理信息系统可以分为如下几个阶段：A、确定用户的基本需求。由用户提出对新系统的基本要求，如功能、基本界面形式、所需的数据、应用范围、运行环境等，开发者根据这些信息估算出开发该系统所需的费用，并建立简明的系统模型。B、开发初步的原型系统。系统开发人员根据用户的要求建立原型系统，但该系统只是一个初步的、不成熟的系统，从系统的工作效率上看也是不完善的。其主要目的是为了描述开发者所理解的用户的基本需求。C、修改

10、、评价原型系统。将建造好的原型系统交给用户，并投入试运行，用户将使用过程中发现的问题一一记录下来，并与开发人员进行交流。开发人员针对这些问题不断地对系统进行修改、扩充与完善，直至用户满意为止。D、形成最终的管理信息系统。对用户满意的原型系统进行进一步的开发，不断补充、完善，最终形成一个适用的管理信息系统。原型法的优缺点原型法的优点是开发周期短，费用较少，同时可以较有效地避免因开发者和用户的认识隔阂所产生的失败，其缺点是系统的开发缺乏统一的规划和开发标准，难以对系统的开发过程加以控制。原型法一般适用于开发规模不大、不太复杂或需求经常发生变化的系统。(2)面向对象的开发方法面向对象（Object

11、Oriented）的技术于20世纪80年兴起，随后广泛地应用于计算机技术的几乎所有领域。面向对象的技术中最重要的概念是对象。面向对象是基于问题对象的自底向上的一种系统开发方法。在开发过程中，分析和设计阶段独立于程序设计语言，信息系统模型设计好后，最终用具体的程序设计语言、数据库或硬件来实现。面向对象法最主要的特点是对象为基础，对象是分析问题和解决问题的核心。面对对象法的开发过程面对对象法的开发过程一般分为四个阶段：A、认识客观世界（如一个企业）中的对象以及行为，分别独立设计各个对象的实体。B、分析对象之间的联系和相互之间所传递的信息，由此构造客观世界（企业）所对应的信息管理系统的模型。C、由信

12、息管理系统的模型转换成计算机软件系统的模型。D、由计算机软件系统的模型再转化成一个现实系统。面向对象法的优缺点：面向对象法的优点是便于帮助分析者、设计者和用户清楚地表达抽象概念，互相进行交流；交流特定的软件工具模块，直接地完成了从对象的描述到软件体系结构之间的转换，避免了其它的方法在开发过程的客观世界描述和软件结构不一致性和复杂性问题，便于系统开发简单、统一，开发周期短，费用低。面向对象法的主要缺点与原型法一样，因此这种方法也不适用于开发大的、复杂的系统。本系统在开发过程中具体是采用了原型法和面向对象两种方法相结合的开发思路，力求在开发过程中尽量吸收这两种方法的长处，而克服它们的短处。03系统

13、开发方法本系统在开发过程中具体是采用了原型法和面向对象两种方法相结合的开发思路，力求在开发过程中尽量吸收这两种方法的长处，而克服它们的短处。以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。1 系统概述随着计算机的普及，一些中小型企业逐渐开始使用计算机来实现自动化管理，实现高率的办公，来节约成本。商品进销存管理系统是中小型企业的一个典型应用。它可以实现采购、销售、成本核算、利润统计这些基本功能。11课题名称商品进销存管理系统1

14、2开发背景随着我国社会经济的不断发展进步，各种销售行业出现一种欣欣向荣的景象。这样势必使得销售行业的竞争越来越激烈。怎样才能在激烈的竞争中提高公司运行效率，保持竞争优势？伴随着计算机技术在各行各业日益广泛和深入的应用，采用计算机进行管理销售也越来越多，市面上的各种进销存软件也不少，但对于不同的行业，这些进销存是否能为企业带来更多优势呢？是不是对每个企业都适用呢？其实有很多的进销存软件都过于臃肿，并不一定适合该企业的运行，因此很多企业就会自己开发一些适用的进销存管理系统，以适合自己的运用管理运用。本系统软件就是针对商品销售管理的一套适用的、精简的进销存软件。13软件的特点该软件是一个小型的、单机

15、版的商品进销存管理系统，适合于一些小型的未采用连锁方式的销售企业。具体表现在：1）该软件界面简洁、清爽，没有一些复杂的配置操作。2）该软件主要采用导航方式，几乎所有的销售操作都可以在该导航界面中完成。3）该软件操作简单，是面向一些非计算机专业操作人员的，不需要对操作人员进行复杂的培训工作。4）该软件小巧，所占用的磁盘空间及内存空间都比较小，对于计算机的硬件配置要求较低。只需要一台计算机就可以完成操作了，不需要专门的服务器、客户端。5）该软件是一款绿色软件，不需要安装，只需要拷贝就可以使用了。14开发工具由于本系统是一个小型的单机版的商品进销存管理系统。所以采用：WINDOWS操作系统平台；AC

16、CESS作为后台数据库软件；DELPHI7作为前台应用程序开发工具。没有采用SQL 2000作为后台数据库软件，而是采用ACCESS数据库，主要由于：1）SQL过于庞大，不适合小型数据库；2）SQL操作较为复杂，不易掌握；3）SQL对计算机性能要求较高，对硬、软件配置要求较高，一般SQL需要专门SQL服务器，而且操作系统一般需要用WINDOWS 2000 SERVER。4）ACCESS在一般的计算机都适用了，因为一般的计算机都完全安装了MICROSOFT OFFICE办公系列软件，而该系列软件就自带了ACCESS软件。所以不需要另外单独安装。15应用范围适用行业：所有商品销售行业，特别是资金较

17、少，又需要自动化销售管理的小型单位或门面；硬件环境：只要一台一般的PC机：CPU奔腾133MHz以上，内存32MB以上，硬盘1GB以上；软件环境：WINDOWS操作系统平台。安装有MICROSOFT OFFICE系列软件，特别是ACCESS数据库软件。2 系统的可行性分析可行性分析的目的就是用最小的代价在尽可能短的时间内确定该软件项目是否能够开发，是否值得去开发。可行性分析包括可能性分析和必要性两部分。21系统初步调查系统的初步调查是系统设计规划阶段的第一项活动，也是整个系统开发的第一项活动，主要目标就是了解组织机构、工作现状。正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以

18、下几个方面。（1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。（2）提出新系统的人员并不都是系统研究人员，有些人对于所需能实现的功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。（3）进销存的现行系统可能是手工系统，也可能是使用了计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的

19、质量。 通过对整个进销存系统目前主要管理业务的了解，主要工作是由管理员负责完成的。首先，管理人员手工录入目前所有产品或配件信息，并负责对其进行管理和维护；建立详尽的客户信息，并对进出货进行登记，便于随时查询销售状况，以及利润状况。总之，必须对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。22系统开发的必要性分析随着销售数据规模的日益庞大，商品的数目也在呈显指数级的增长。这样就造成了：（1）产品或配件库存量大，工作人员为产品进出库登记时的工作负荷重，效果低。（2）进出货过程中，时常会出现错误，增加了业

20、务成本。（3）对进出货数据进行查询时，需要手工翻阅大量的票具，大大降低了查询效率，而且查询的结果不尽如人意。（4）经常需要了解库存还有多少，哪些商品需要马上进货，而哪些商品还有许多积压，这些采用手工登记、统计，工作量非常之大，而且不可能经常统计库存，只有半年或一年进行一次全面盘存才能有清楚的了解。（5）有些常期性的客户经常很长一段时间才结一次账，这时如果不能清楚地给客户一个详细的清单，造成经常出错，容易失去一些常期性的客户。以上缺点直接和间接地降低了的工作效率，最终影响了商品进出库的管理。说明该系统的开发是非常有必要的。23系统开发的可行性分析可行性分析是在用户的要求和系统调研的基础上进行的，

21、对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。可行性分析阶段的主要工作包括以下几个方面：管理可行性分析：管理可行性分析主要是分析进销存现行的管理体制和领导是否具有现代化的管理意识和管理水平。技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。经济可行性分

22、析经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。有了建立商品进销存管理系统的初步设想，接下来，将从系统的管理可行性，技术可行性以及经济可行性等方面进行可行性研究，从而完成可行性研究报告。对本系统可得出如下结论：(1)管理可行性目前，管理人员的记录、查询和统计数据的工作繁重，手工登记、管理的确弊端太大，经常容易出错，影响工作效率，所以积极支持开发新系统。(2)技术可行性硬件方面只需要一台PC机，此外无需更多硬件。软硬件技术完全能达到开发新系统的条件。该系统为小型、单机版的管理系统，又是采用的ACCESS数据库，涉及

23、的技术要求较低，易于实现开发者具有实际开发经验，曾开发过多个数据库应用系统，完全有能力开发本系统。(3)经济可行性目前计算机价格较低，并且本系统的软硬件配置要求都很低，无须投入太多的资金用于购置硬件设备。由于本系统技术要求较低，开发该系统的软件成本较低，只要少量支付软件开发和维护费用，以及人员培训费用。系统投入运行后，会极大提高商品销售的数据管理效率。所以，整体的成本投入较低，也适合小型单位的经济实力，非常容易被接收。综上所述, 整个商品进销存管理系统的开发是切实可行的。3 系统需求分析需求分析是指开发人员要准确理解用户的要求，进行细致的调查分析，将用户非形式的需求陈述转化为完整的需求定义，再

24、由需求定义转换到相应的形式功能规约（需求规格说明）的过程。31需求分析需求分析就是为了满足用户需要，回答系统必须“做什么”的问题。这是需要双方确定对问题的综合需求，包括功能需求、性能需求、环境需求、用户界面需求，可靠性需求、安全性需求等等。311系统功能需求通过调查分析，在商品进销存管理系统中，需要首先对管理员信息、商品信息、供应商信息进行输入，才能用于前台的商品销售及查询等。系统要实现以下功能：l 商品信息的输入，包括商品编号、商品名称、商品进价、库存量等。l 供应商信息的输入，包括供应商编号、供应商名称、负责人、联系电话、供应商地址等。l 商品、供应商信息的查询。l 商品销售汇总的统计。l

25、 形成报表，包括商品销售报表、商品入库报表、供应商信息报表。l 员工信息的管理。312 系统性能需求进销存管理系统，属于单机版系统。因此系统性能要求比较低，数据库采用的ACCESS数据库，应用环境是WINDOWS操作系统平台下。所以整体性能指标都不是很高。313 系统环境需求分析结合所要开发系统的特点，我的系统将采用DELPHI7来作为数据库管理系统开发工具，而后台数据库将采用ACCESS 2000。硬件环境： 处理器：Inter Pentiun 133MHz以上内存：32MB以上硬盘空间：1GB以上光驱：CD-ROM 48X显卡：没有特殊要求软件环境： 操作系统：Windows98/Me/2

26、000/XP应用软件：ACCESS 97以上输出设备：为一般的打印机。314 用户界面需求用户要求能够比较方便地进行操作，最好有一个提示或导航。因此在设计时，根据商品进销存实际操作的流程，设计了一个导航界面，用户只需要可以利用该导航界面来完成平时的进销存工作。3.2系统功能模块的划分商品进销存管理系统是一个用于公司销售商品的应用程序，它维护着一个数据库，存储着用户信息、商品信息、交易信息等。DELPHI程序负责对数据库进行输入和输出的维护，主要功能包括销售管理、用户信息管理和查询、成本利润的计算等功能。根据用户的需求，商品进销存管理系统实现对用户的管理、销售商品的管理、交易信息管理等功能。而该

27、系统的具体功能模块大致有以下几个：1） 基本信息模块基本信息模块包括用户信息管理、商品信息管理、商品信息类别、客户信息管理等。由以下几个子模块组成：l 用户信息管理：对系统用户的管理：添加、删除、更新等；l 商品信息管理：对商品进行分类管理：添加、更新、删除商品信息；l 客户信息管理：对客户的账单（比如充值）进行管理。2） 业务信息模块主要包括进货信息管理和销售信息管理。l 进货信息管理：销售管理系统中对物品入库货物的信息管理，入库货物的进货账单打印等。l 销售信息管理：销售信息的录入，销售信息的删除、修改查询等。l 成本利润管理：成本的核算和毛利分析等。4 系统数据流程图数据流图，简称DFD

28、，是结构化分析方法（SA方法）中用于表示系统逻辑模型的一种工具，它以图形的方式描绘数据在系统中流动和处理的过程，由于它只反映系统必须完成的逻辑功能，所以它是一种功能模型。41销售盈利示意图客户购物成功需要经历两个过程：首先用户购进货物商品，将购进货物商品信息录入系统，然后销售商品，也就是销售商品录入，最后系统进行获利计算。如下图：用户进货（进货录入）销售商品（销售录入）盈利（差额）销售盈利示意图42商品进销存管理系统的数据流图5 数据字典数据字典（Data Dictionary，简称DD）就是用来定义数据流图中的各个成分的具体含义的，它以一种准确的、无二义性的说明方式为系统的分析、设计及维护提

29、供了有关元素的一致的定义和详细的描述。它和数据流图共同构成了系统的逻辑模型，是需求规格说明书的主要组成部分。这里由于篇幅有限，只列出其中一部分51数据流条目数据流条目是给出DFD中数据流的各组成数据项。1） 数据流名称：进货单别 名：无简 述：用户从供货商进货时录入的单据去 向：存入进货单表中数据流量：1记录/每次进货的每种商品组 成：录单日期+进货单号+供货商名称+经手人+商品简码+商品编码+商品名称+类别+规格+型号+单位+参考单价+数量+备注52数据项条目数据项条目是不可再分解的数据单位。1） 数据项名称：商品编码别 名：XPBH，G-NO简 述：本单位的所有商品的编码类 型：字符串长

30、度：10取值范围及含义：第一位：进口/国产、 第2-4位：类别 第5-7位：规格、 第8-10位：品名编号53数据存储条目数据存储条目是对数据存储的定义。1） 数据存储名称：商品资料别 名：spzl简 述：存放商品的相关信息组 成：商品编码+商品名称+拼音简码+类别+规格+型号+单位+产地+库存上限+库存下限+备注组织方式：索引文件，以商品编码为关键字6 数据库设计61简介目前从小型的单项事务处理到大型的管理信息系统都采用数据库技术来保持数据的完整性和一致性，因此在应用系统的设计中，数据库搭建得是否合理变得日趋重要。具体地说，数据库设计是指针对一个给定的应用环境，构造最优的数据库模式，建立数据

31、库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求。数据库设计是数据库在应用领域的主要研究课题。数据库设计一般包括如下几个步骤：(1) 需求分析：需求分析阶段主要目的是要获得数据库设计所必需的数据信息。这一阶段应与系统用户相互交流，了解他们对数据的要求及已有的业务流程，并把这些信息用数据流图和数据字典等图表或文字的形式记录下来，最终得到数据字典描述的数据需求(和数据流图描述的处理需求)。 (2) 概念分析：这一阶段要对需求分析中收集的用户需求进行综合、归纳与抽象，可以用E-R图表示，确定实体、属性及它们之间的联系，将各个用户的局部视图合并成一个总的全局视图，形成一个独立于具体DBM

32、S的概念模型。一般来说，概念设计的目的是描述数据库的信息内容。(3) 逻辑设计：逻辑设计主要把概念结构设计阶段设计好的基本E-R图转换为与选用DBMS产品所支持的数据模型相符合的逻辑结构。它包括数据项、记录及记录间的联系、安全性和一致性约束等等。导出的逻辑结构是否与概念模式一致，从功能和性能上是否满足用户的要求，要进行模式评价。如果达不到用户要求，还要反复、修正或重新设计。62系统ER图商品实体ER图：商品商品编码库存上限库存下限商品名称供应商实体ER图：供应商供应商编码电子邮件传真供应商名称客户实体ER图：客户客户编码电子邮件传真客户名称进货、销售的ER图：供应商编码供应商电子邮件传真供应商

33、名称供应商品MN商品编码商品名称数量库存上限销售MN客户客户编码电子邮件传真客户名称63数据库逻辑结构设计由于概念设计的结果是ER图，DBMS一般采用关系型，因此数据库的逻辑设计过程就是把ER图转化为关系模式的过程。由于关系模型固有的优点，逻辑设计可以充分运用关系数据库规范化理论，使设计过程形式化地进行。设计结果是一组关系模式的定义。该系统的数据库中的表：1）员工资料表：2） 销售核对表：3） 商品资料表：4） 库存表：5）销售单6）供应商资料7）进货单8）进货付款9）进货填货单10）计量单位11）客户退货单12）客户资料13）商品分类14）销售付款7系统功能模块商品进销存管理系统采用自顶向下

34、，逐步向下细化和模块化的结构化设计方法，而且该系统不光可以按功能模块划分，还有一个导航图，可以利用导航图来完成进销存相关的操作。71系统功能框图商品进销存管理系统客户资料员工资料供应商资料商品资料进 货进货退货进货查询销售客户退货销售查询库存查询统计基 本 资 料进 货 操 作销 售 操 作库 存报 表 打 印基本资料打印进货单打印销售单打印系 统 设 置系统初始化添加用户退 出 系 统72导航图8 详细设计本系统由基本资料、进货操作、销售操作、库存、报表打印、系统设置、退出系统七个功能模块组成。由于整个详细设计过程比较复杂，程序代码繁杂，故而只对主要的过程及代码加以说明。81 登录界面登录界

35、面要求先输入用户名和密码，用户名为“管理员”，密码为“www”，当然用户名和密码可以通过进入系统后在“系统设置”“添加用户”中更改。具体代码如下：procedure TLogin_Form.GetUsers;var reg:TRegistry; VNames:TStrings; Infor:TInfor; i:integer;begin reg:=TRegistry.Create; VNames:=TStringList.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; Reg.OpenKey(SoftwareFLyLogin,True); Reg.GetVal

36、ueNames(VNames); if VNames.Count=3 then self.ModalResult:=mrCancel; end;end;procedure TLogin_Form.FormCreate(Sender: TObject);beginGetUsers;UserName_Combox.ItemIndex:=0; end;procedure TLogin_Form.Password_EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);beginif key=vk_return then BitB

37、tn1Click(nil); end;procedure TLogin_Form.UserName_ComboxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);beginif key=vk_return then Password_edit.SetFocus ; end;procedure TLogin_Form.FormActivate(Sender: TObject);beginpassword_edit.SetFocus ;end;procedure TLogin_Form.SpeedButton1Click(Sen

38、der: TObject);begin if Password_Edit.Text=TInfor(UserName_Combox.Items.ObjectsUserName_Combox.ItemIndex).Password then self.ModalResult:=mrok else begin messagebox(self.handle,密码错误,MB_ICONSTOP+MB_OK); inc(LogCount); if LogCount=3 then self.ModalResult:=mrCancel; end;end;procedure TLogin_Form.SpeedBu

39、tton2Click(Sender: TObject);beginif application.MessageBox(确实要退出吗?,退出,4)=6 thenapplication.Terminate;end;procedure TLogin_Form.BitBtn2Click(Sender: TObject);beginif application.MessageBox(确实要退出吗?,退出,4)=6 thenapplication.Terminate;end;procedure TLogin_Form.SetText(Str:string);begin Label3.Caption :=

40、Str;end;end.82系统主界面：在该系统中，可以通过菜单来完成所有操作，也可以通过导航窗口来实现相关操作。通过导航界面，可以很清晰都了解整个系统的操作流程，该系统操作方便、简洁。83客户信息管理该子功能模块主要是完成客户信息的添加、查询、修改和删除等功能。如图：831客户信息添加在客户信息管理中，通过填写客户信息后，单击“添加”按钮，就会在数据库中添加一条新的记录。通过CheckExistCount函数来完成，并可判断是否已有该客户信息。具体代码如下： try if trim(Edit1.Text) = then begin showmessage(客户编码为空，请填写); Edit1.SetFocus; Exit; end; if trim(Edit2.Text) = then begin showmessage(客户名称为空，请填写); Edit2.SetFocus; Exit; end; if FrmMain.CheckExistCount(客户编码, Edit1.Text, khzl) = 1 then begi