销售管理系统的开发与设计

1、销售管理系统的开发与设计摘要随着经济全球化进程的加快，现代企业的规模不断扩大，业务愈来愈复杂，依靠传统的手工操作进行销售管理的现代企业会由于效率的低下而举步维艰，所以管理信息化已经成为企业发展的必然之路。销售管理系统是典型的信息管理系统MIS，本系统主要是对商品的进销存管理和员工、客户的管理，包括添加、修改、删除、查询等操作。本系统采用了BorlandDelphi来设计开发主程序，并且使用了MicrosoftAccess来设计数据库，其两者的结合是实际应用中最为广泛的。本文先对销售系统的开发背景做了介绍，接着对MIS、ADO技术和本系统所用到的开发软件做了一一介绍。之后，详细地介绍了本系统的设

2、计思路、数据库的设计和各模块的功能。关键词：销售管理、管理信息、数据库、DelphiABSTRACTWiththeincreasinglyfastdevelopmentoftheglobaleconomy,thescaleoftheModernEnterpriseisextending,businessismoreandmorecomplicated,andtheModernEnterprisewhichmanagedbyhandcan"tdevelopbecauseoftheinefficientwork.SotheManagementInformationizeistheonly

3、wayoftheEnterprisedeveloping.SalesManagementSystemisatypicalManagementInformationSystem(MIS),thissystemismainlymanagetheinvoicingforgoods,staffmanagementandcustomermanagement,includingappend,modify,delete,researchandotheroperations.ThemainprogramofthissystemisdesignedbytheBorlandDelphi,andthedata-ba

4、seisdesignedbytheMicrosoftAccess.Thebothunionisthemostwidelyusinginthefact.Inthisthesis,IintroducethedevelopmentbackgroundoftheSalesManagementSystemfirst,aswellasIintroducetheMIS,ADOandthesoftwarewhichisusedfordevelopingthesystem.AtlastIintroducethedesignthought,thedatabasedesignandthefunctionofeach

5、module.KEYWORDS:SalesManagement,InformationManagement,Database,Delphi正文目录第一章引言3第一节背景3第二节信息系统的简介3第二章开发工具3第一节Delphi简介3第二节Access简介3第三节ADO的简介3第三章系统分析3第一节需求分析3第二节系统结构图3第三节系统流程图3一、业务流程图3二、数据流程图3第四章设计与实施3第一节数据库设计3一、E-R图设计3二、数据库关系表设计3第二节主界面的设计3第三节采购管理模块设计3第四节销售管理功能模块3第五节人员管理模块3第六节系统功能模块3第五章结束语3【参考文献】3致谢3第一章

6、引言第一节背景随着现代企业的不断发展，经济信息化是世界经济发展的必然趋势。信息是国家进行宏观调控，企业进行运作管理、控制生产、制定决策的重要战略资源，是国民经济各部门和整个社会生活领域中不可或缺的重要组成局部，是当代经济发展和社会发展的最新生产力，它正从总体上促进了世界经济和社会的发展。总而言之，谁能够充沛利用信息，谁就能在社会竞争及经济发展中获得竞争优势。信息系统的开发实际上是一项庞大的系统项目，即信息系统项目。当今社会，计算机技术突飞猛进，更有兴旺国家大力发展和应用信息产业，在其大力推动之下，全世界进入了信息时代。越来越多的企业已经认识到，提高企业的信息化水平，加强企业信息系统建设是保证企

7、业在市场竞争中立于不败之地的先决条件。现代企业所建立的信息系统不仅仅是为了单纯地减少人的工作量，而在那些操作繁琐的实际管理工作中，像工资计算那样，需要精确的计算能力、庞大的数据处理和大量的人力消耗来完成的工作并不多。一般情况下，由人工完成的数据处理工作并不会很繁琐，其做操量也不会很庞大，因此，信息系统的建设并非只是为了简单地代替人工劳动，在许多具体的岗位方面，信息系统并不能体现出明显的优势。信息系统的作用主要是从整体上表现出来的。凭借信息系统提供的资料与信息，人们就能够增加自己的信息量，从全新的角度，更好地认识和改造世界。就以农业时代和工业时代的社会生产力和生产工具而言，是不可比较的。由此可见

8、，信息化是企业赢得竞争优势的必由之路。第二节信息系统的简介一、信息系统的概念信息系统是管理工作至关重要的组成局部，是管理信息系统的处理对象。信息系统在结构上是一个有人、硬件、软件、和数据资源组成的人造系统，其目的是及时、正确地收集、加工、存储、传递和提供信息，实现组织中各项活动的管理、调节和控制。信息系统包括信息处理系统和信息传输系统两个方面。信息处理系统对数据进行处理，使它获得新的结构与形态或者产生新的数据。信息传输系统不改变信息本身的内容，作用是把信息从一处传到另一处。由于信息的作用只有在广泛交流中才能充沛发挥出来，因此，通信技术的进步极大地促进了信息系统的发展。二、信息系统的发展信息系统

9、的发展已经经历了电子数据处理系统EDPS、管理信息系统MIS和决策支持系统DDS三个阶段。DDS可以认为是MIS发展的新阶段，EDPS、MIS和DDS各自代表了信息系统发展过程中的某一阶段，至今它们各自不断地发展着，而且是相互交叉关系。管理信息系统发展的重要趋势是网络化。网络化是管理系统发展要求实现信息的有机集成的结果，也是计算机和通信技术发展的结果。第二章开发工具第一节Delphi简介Delphi是Borland公司推出的基于ObjectPascal语言的可视化集成开发工具。利用Delphi编程，可以快速、高效地开发基于Windows环境的各类程序，尤其在数据库和网络方面，Delphi更是十

10、分理想的软件开发平台。Delphi使用了MicrosoftWindows图形用户界面的许多先进特性和设计思路，采用了可重复利用的完整的面相对象程序语言Object-OrientedLanguage、当今世界上最快的编辑器、最为当先的数据库技术。Delphi2004是32位的应用开发环境，作为一种优秀的开发环境，它具有一系列新特性以满足应用程序开发过程中的各种需求。如改良的集成开发环境、强劲的项目管理功能、先进的调试技术、扩展的语言特性以及强大的数据库应用程序开发能力。一、Delphi2004的特点Delphi2004的特点主要体现在：集成开发环境IDE的改良；新的语言扩充；数据库的应用开发能力

11、的增强。1.集成开发环境IDE的改良Delphi2008的集成开发环境与以前各版本相比，有了不少改良，新的、节省时间的IDE特性有助于更快地将.NET解决计划推向市场。使用增强的IDE特性，更快地构建更好的软件，这些特性包括：用户自定义的桌面布置，功能丰盛、种类多、可扩展的调色板，增强的ObjectInspector对象检查器，增强功能的项目管理器和代码编辑器、改良的应用程序调试技术等等。2.新的语言扩充将ObjectPascal语言进行了扩充，增强了动态数组、办法重载、默认参数等，使应用程序的编程更加简单。3.数据库的应用开发能力增强Delphi从问世以来就以其强大的数据库开发功能而备受瞩目

12、。Delphi2004在数据库应用程序开发方面的能力增强主要表现在：增加的数据库组件；可访问远程和本地数据库及网络；对Access和Oracle的完全支持；可更好地支持Client/Server数据库应用程序开发；客户数据集的增强。二、Delphi的集成开发环境IDEDelphi是用来创立windows应用程序的一种快速应用开发工具，一种可视化编程环境。用户可以更加直观地使用图形化工具来创立Windows应用程序。它使用户从完全以代码的形式创立可视化应用程序的繁琐且复杂的工作中解脱出来，可以不用掌握太多的编程专业知识就能创立出图形化的高难度应用程序，这一切都得益于Delphi的集成开发环境。D

13、elphi2004的集成开发环境IDE使用一组窗口、菜单和应用程序来设计可视化界面，将代码以事件的形式与界面的每一元素建立联系，并可以对整个应用程序进行调试。Delphi2004的开发环境由主窗口、代码编辑器、窗体设计器、对象察看器和项目管理器组成。Delphi2004可以自定义开发环境，使用停靠方式或非停靠方式。三、Delphi的可视化编程面向对象程序设计Object-OrientedProgramming，简写为OOP立意于创立软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。它通过给程序参加扩展语句，把函数"封装"进Windows编

14、程所必须的"对象"中，使得复杂的工作条理清晰，编写容易。一些早期的具有OPP性能的程序语言如C+、Pascal、Smalltalk等，虽然具有面向对象的特征，但是不能轻松地画出可视化对象，与用户交互能力较差，仍然要编写大量的代码。Delphi使用"可视化"的编程办法，程序员不必自己建立对象，利用Delphi所提供的可视控件，只要在提供的程序框架中参加完成功能的代码，如选择命令、移动鼠标等，而不必考虑按精确次序执行的每个步骤。在这种机制下，不必编写一个大型的程序，而是建立一个由假设干个小程序组成的应用程序，这些微小程序可以由用户启动的事件来触发。这样就可以

15、快速创立强大的应用程序，无需波及不必要的细节。简单的说，"可视化编程"就是使用Delphi的ObjectPascal语言，利用它所提供的可视化控件来创立"对象"，这是一种编程办法的新概念。四、Delphi的发展历程Delphi1几乎与windows95同时发行，仍然属于16位的开发环境，它创立的应用程序可以运行在Windows3.1、windows95和windowsNT下，直到Delphi的下一个版本。Delphi2的主要新特征是对32位编程的支持，其创立的应用程序不再运行在windows3.1下。此外，Delphi2还增加了如数据模块等多种高效的数据

16、重用功能。Delphi3大大稳固了Delphi作为windows应用程序开发工具的地位，它改良了集成开发环境IDE和"代码洞察"、对组件库进行了很多增强、还完全支持ActiveX控件及其创立。Delphi4那么提供了ObjectPascal语言功能的扩展，使之更像C+。另外，还改良了"项目管理器"、"模块资源管理器"的功能。1999年推出的Delphi5不尽继承了低版本Delphi的诸多优点，克服了Delphi4中存在的缺陷，而且增加了许多新的功能，对开发环境也做了改良和完善。2008年6月推出的Delphi6在Delphi5的根底上

17、主要增加了kylix，用于开发Linux环境应用程序。2008年8月推出的delphi7又在delphi6的根底上特别增强了Web应用程序的开发能力，以适于Internet网络开发的需要。2008年1月推出了Delphi8fortheMicrosoft.NETFramework，delphi8是运行于Microsoft.NET框架下的开发工具，它是Delphi向.NET框架的移植，编译产生纯粹的.NET可执行代码。第二节Access简介Access数据库软件是MicrosoftOffice集成应用程序包的重要组成组件。简单地说，Access数据库软件是一个数据库管理系统，它为用户提供了一个数据

18、库管理工具集和应用程序的开发环境，Access包括的根本组件有：一个表格生成器，一个窗体设计器，一个查询管理器和一个报表书写器。数据库系统的对象包括表、查询、窗体、报表、页、宏和模块MicrosoftAccess数据软件与数据库其他程序一样，被称为数据库管理系统DBMS。它是一种关系数据库管理系统RDBMS，像Access这样的数据库软件，允许构造应用程序归档和存储数据，并使其能很容易地用于多种方式进行筛选、分类和查询数据。同时，用户可以通过显示在屏幕上的窗体来查看Access的数据，也能在打印的报表中查看它们。Access数据库软件为用户提供了许多向导Wizard，即特殊设计的对话框。它询问

19、用户有关内容、样式和格式的问题，引导用户进行构造一个数据库所需的工作。Access数据软件具有将近100种向导，它们能用于设计数据库、应用程序、表格、查询、窗体、报表、图形、控制和属性等。用户通过DDE动态数据交换和OLE对象连接和嵌入的功能，就可以建立动态的数据库窗体和表报，并在Windows的所有应用程序中共享这些信息。这些对象包括声音、图片甚至是动画。用户可以嵌入OLE对象或文字处理软件生成文档，或链接到Excel的电子表格的一定范围的单元中。通过用户表格中记录这些对象的连接，就可以建立动态数据库窗体和报表，并在Windows的应用程序中共享这些信息。Access功能强大，界面友好，操作

20、简单，但同时也具有下列一个的缺点：Access是小型数据库，既然是小型就有他基本的局限性，当数据库过大，一般数据库达到50M左右时性能会急剧下降。当网站访问频繁，达到100人左右或者记录数到达10万条左右时，也会影响其性能。第三节ADO的简介ADO指ActiveX数据对象(ActiveXDataObjects)，是微软公司开发的一个访问数据库中数据的编程接口。它提供了编程语言和统一数据访问方式OLEDB的一个中间层。其具有易于使用，可以访问多种数据源，访问数据源效率高，方便的WEB应用，技术编程接口丰盛等特点。ADO包含了一些顶层的对象，其中包括连接到数据库的连接、记录集数据库记录的一个汇合、

21、命令一个SQL命令、记录数据的一个汇合、流数据的顺序汇合、错误数据库访问中产生的意外、字段一个数据库字段、参数一个SQL参数和属性保留对象的信息。ADO组件的使用需要利用支持COM的高级语言，示例ASP中的VBScript或者VisualBasic，甚至Delphi也支持使用ADO来访问数据库。第三章系统分析第一节需求分析本销售管理系统的设计是为了那些小型企业、店铺、个人开发的进销存管理和人员管理的工具软件。能够让那些小型企业管理者分明地了解到自己商品的销售情况，对货物的销售和库存了如指掌。并且能让管理者集中整理与自己发生合作关系的客户的资料，为企业日后的发展提供便利。系统的管理人员登录系统后

22、可以对整个系统进行管理，对每次的进出货都可以记录，修改和删除，免去纸笔记账的为难。第二节系统结构图登录界面是进入本系统的第一步，需要管理员账号方可登录。进入主界面后，可根据目录一次进入个功能模块。本销售管理系统主要有4个功能模块：采购管理、销售管理、人员管理和系统管理。采购管理主要有采购进货管理和采购退货管理，对在采购过程的进货和退货信息进行添加、修改、查询和删除。销售管理模块主要有销售进货管理和销售退货管理，其功能是对销售过程中对出货和退货信息的添加、修改、查询和删除。人员管理模块包括客户资料管理，供货商管理和管理员管理。客户、供货商资料管理用于记录客户、供货商的详细资料、联系方式和与之联系

23、的业务员。管理员管理用于管理本系统的操作员账号和密码。系统管理包括库存查询和计算器，库存查询能让你时刻了解每件商品的库存情况，计算器是windows自带的，方便各项运算。本系统的主要结构如图3-1：图3-1商品销售管理系统主要结构第三节系统流程图一、业务流程图采购员收到供货商的货物清单，检验合格，这入库，检验不合格，那么退还给供货商。销售员收到顾客的订货单，检验合格，这通知仓库，检验不合格，那么退还给客户。客户对货物不称心，发送退货单给退货员，退货远检验退货单，发送合格的退货单给仓库，将不合格的退货单送还给客户。业务流程图如图3-1所示：图3-2业务流程图二、数据流程图主要的外部项有两个：供货

24、商和客户，系统从客户那里接到订单，合格的订单将记录在货物出库表中，并想仓库提货，不合格的订货单那么返还给客户。系统从供货商那里接到货物清单，清单合格，那么记录在入库报表中，并将货物入库，如果不合格，那么将货物返还给供货商。合格的货物清单和货物订单都将进行统计，生成库存报表，以便查看货物库存。数据流程图如图3-2：图3-2数据流程图第四章设计与实施第一节数据库设计一、E-R图设计商品的E-R图，如图4-1：图4-1商品E-R图顾客E-R图，如图4-2：如图4-2顾客E-R图供货商E-R图，如图4-3图4-3供货商E-R图销售管理系统E-R图，如图4-4：图4-4销售管理系统E-R图二、数据库关系

25、表设计数据库设计师系统开发环节的一个重要组成局部，一个完善的数据是保证系统效率运行的根底，本系统的数据库波及到下列几个表格。表3-1为管理员信息表admin，储存操作员的个人资料、账号和密码。表3-1管理员信息表字段名类型字段大小关键字备注ad_id文本10是操作员账号ad_name文本10操作员ad_sex文本2操作员性别ad_pass文本10操作员密码ad_ps文本50操作员备注表3-2为商品信息表Goods，储存商品的资料。表3-2商品信息表Goods字段名类型字段大小关键字备注G_ID文本8是商品编号G_NAME文本20商品名称G_TYPE文本10商品类型G_putin整型10累计进货

26、G_putout整型10累计出货G_total整型10当前库存G_ps文本50备注表3-3为采购进货表(putin)，储存商品的采购进货情况。表3-3采购进货表(putin)字段名类型字段大小关键字备注I_id文本8是采购进货编号I_gid文本8商品编号I_name文本20商品名称I_type文本10商品类型I_man文本10进货人I_date日期/时间8进货日期I_amount整型10进货数量I_price货币10进货单价I_sup文本20供货商I_total货币10合计I_ps文本50备注表3-4为采购退货表(putin_back)，储存商品的采购退货情况。表3-4采购退货表(putin_

27、back)字段名类型长度关键字备注Ib_id文本8是采购退货编号Ib_gid文本8商品编号Ib_name文本10商品名称Ib_type文本10商品类型Ib_man文本10退货人Ib_date日期/时间8退货日期Ib_amount整型10退货数量I_sup文本10供货商Ib_price货币10退货单价Ib_total货币10合计Ib_ps文本50备注表3-5为商品库存表kucun，储存商品的库存资料。表3-5商品信息表kucun字段名类型长度关键字备注Id文本8商品编号putin整型10累计入库putout整型10累计出库total整型10当前库存表3-6为销售出货表(sell)，储存商品的销售

28、出货情况。表3-6销售出货表(sell)字段名类型长度关键字备注S_id文本8是销售出货编号s_gid文本8商品编号s_name文本20商品名称s_type文本10商品类型s_man文本10出货人s_date日期/时间8出货日期s_amount整型10出货数量s_price货币10出货单价s_total货币10合计s_cust文本10客户S_arre货币10欠款金额S_ps文本50备注表3-7为销售退货表(sell)，储存商品的销售退货情况。表3-7销售退货表(sell_back)字段名类型长度关键字备注Sb_id文本8是销售退货编号sb_gid文本8商品编号sb_name文本20商品名称sb

29、_type文本10商品型号sb_man文本10退货人sb_date日期/时间8退货日期sb_amount整型10退货数量sb_price货币10退货单价sb_total货币10退货合计sb_cust文本10客户sb_ps文本50备注表3-8为客户资料表(coustomer)，储存客户资料及与该客户联系的业务员。表3-8客户资料表(coustomer)字段名类型长度关键字备注C_id文本8是客户IDC_man文本10联系人C_sex文本2联系人性别C_comp文本20公司名C_tel文本12联系 C_phone文本11手机C_mail文本20电子邮件C_fax文本12传真C_adr文本20 C_

30、post文本6邮编C_www文本20网址C_ywy文本10业务员C_ps文本50备注表3-9为供货商资料表(supplier)，储存供货商资料及与该供货商联系的业务员。表3-9供货商资料表(supplier)字段名类型长度关键字备注su_id文本8是供货商IDsu_man文本10联系人su_sex文本2联系人性别su_comp文本20公司名su_tel文本12联系 su_phone文本11手机su_mail文本20电子邮件su_fax文本12传真su_adr文本20 su_post文本6邮编su_www文本20网址su_ywy文本10业务员su_ps文本50备注第二节主界面的设计用户登录界面，

31、在登陆之前，各个功能菜单都处于无效状态，必须登录后才能使用各个功能。其中的主要代码有：procedureTmain.Button1Click(Sender:TObject);beginwithmain.Panel1dobeginadotable1.Active:=true;ifedit1.text=''thenshowmessage('请输入用户名')elseifedit2.Text=''thenshowmessage('请输入密码')elsebeginifnotadotable1.Locate('ad_id',e

32、dit1.Text,)thenbeginshowmessage('没有这个用户，登陆失败');pass:=false;endelseifadotable1.FieldValues'ad_pass'=edit2.Textthenbeginshowmessage('登陆成功');panel1.Visible:=false;pass:=true;N1.Enabled:=true;N4.Enabled:=true;N7.Enabled:=true;N10.Enabled:=true;endelsebeginshowmessage('密码错误，退出

33、系统！');application.Terminate;end;end;end;end;系统的登录界面如图4-1：图4-1用户登录界面登录后的主界面比拟干净，各大功能模块的目录菜单呈现可使用状态。当翻开一个子功能模块翻开时，那么该功能菜单变为失效状态，以免重复翻开。关闭该功能窗口后功能菜单回到可用状态。登录后的主界面如图4-2：图4-2主界面主界面的采购模菜单如图4-3：图4-3主界面采购管理模块登录后的销售模块菜单面如图4-4：图4-4主界面销售管理模块登录后的主界面人员管理系统菜单如图4-5：图4-5主界面人员管理模块登录后的主界面系统管理菜单如图4-6：图4-6主界面系统管理模块

34、第三节采购管理模块设计采购进货：对采购进货记录进行管理，可以新增，修改，删除销售记录。本软件支持条形码扫描功能，入库单编号的商品编号均可扫描输入。在输入进货单价和进货数量后，系统会自动计算本次进货的合计价格，以方便用户记录。供货商下拉框中可选择供货商公司。在添加了进货记录后，系统会自动向库存表添加该条入库记录，以便库存统计。采购查询：对采购进货记录进行查询。可以按进货编号，商品编号，商品大类，商品名称，进货人，供货商和进货日期进行查询。1、添加功能的局部代码：procedureTpi_Form.Button1Click(Sender:TObject);varsfrq:string;b:inte

35、ger;a,c:currency;beginsfrq:=datetostr(YSZsfrq_DTP.DateTime);ifedit1.Text=''thenshowmessage('请输入商品编号')elseifedit2.Text=''thenshowmessage('请输入商品名称')elseifedit3.Text=''thenshowmessage('请输入商品型号')elseifedit4.Text=''thenshowmessage('请输入进货单价')

36、elseifedit5.Text=''thenshowmessage('请输入进货数量')elseifDBLookupComboBox1.Text=''thenshowmessage('请输入供货商')elseifedit7.Text=''thenshowmessage('请输入进货人')elseifedit10.Text=''thenshowmessage('请输入采购编号')elsebegina:=strtocurr(edit4.Text);b:=strtoint

37、(edit5.text);c:=a*b;edit6.text:=currtostr(c);ifmessagedlg('的确要增加该条信息？',mtInformation,mbOK,mbCancel,0)=mrokthenbeginadotable1.Edit;adotable1.Append;adoquery2.Active:=true;adoquery2.Edit;adoquery2.Append;adoquery2.FieldByName('g_id').AsString:=edit1.text;adoquery2.FieldByName('g_na

38、me').AsString:=edit2.Text;adoquery2.FieldByName('g_type').AsString:=edit3.Text;adoquery2.FieldByName('g_putin').AsString:=edit5.Text;adoquery2.FieldByName('g_putout').AsString:='0'adoquery2.post;adoquery2.append;adotable1.FieldByName('i_gid').AsString:=edi

39、t1.text;adotable1.FieldByName('i_name').AsString:=edit2.Text;adotable1.FieldByName('i_type').AsString:=edit3.Text;adotable1.FieldByName('i_price').AsString:=edit4.Text;adotable1.FieldByName('i_amount').AsString:=edit5.Text;adotable1.FieldByName('i_man').AsStri

40、ng:=edit7.Text;adotable1.FieldByName('i_sup').AsString:=DBLookupComboBox1.Text;adotable1.FieldByName('i_id').AsString:=edit10.Text;adotable1.FieldByName('i_ps').AsString:=Memo.Text;adotable1.FieldByName('i_total').AsString:=edit6.Text;adotable1.FieldByName('i_date

41、').AsString:=sfrq;adotable1.post;showmessage('添加成功');adotable1.append;edit1.Text:=''edit2.Text:=''edit3.Text:=''edit4.Text:=''edit5.Text:=''edit6.Text:=''edit7.Text:=''Memo.Text:=''edit10.Text:=''endelsebeginshowmess

42、age('添加失败');adotable1.Append;end;end;end;2、修改功能的局部代码：procedureTpi_Form.Button3Click(Sender:TObject);varsfrq:string;b:integer;a,c:currency;beginifmessagedlg('的确要修改商品入库信息？',mtInformation,mbOK,mbCancel,0)=mrokthenbeginsfrq:=datetostr(YSZsfrq_DTP.DateTime);adotable1.Edit;ifedit10.Text

43、9;' thenadotable1.Fields0.AsString:=edit10.Text;if edit1.Text''thenadotable1.Fields【1】.AsString:=edit1.Text;ifedit2.Text'' thenadotable1.Fields【2】.AsString:=edit2.Text;if edit3.Text''thenadotable1.Fields【3】.AsString:=edit3.Text;ifedit7.Text'' thenadotable1.Fields【

44、4】.AsString:=edit7.Text;if sfrq''thenadotable1.Fields【5】.AsString:=sfrq;ifedit5.Text'' thenbeginb:=strtoint(edit5.text);adotable1.Fields【6】.AsString:=edit5.Text;endelseb:=strtoint(adotable1.Fields【6】.AsString);if edit4.Text''thenbegina:=strtocurr(edit4.Text);adotable1.Fields【

45、7】.AsString:=edit4.Text;endelsea:=strtoint(adotable1.Fields【7】.AsString);ifDBLookupComboBox1.Text'' thenadotable1.Fields8.AsString:=DBLookupComboBox1.Text;beginc:=a*b; edit6.text:=currtostr(c);adotable1.Fields9.AsString:=edit6.Text;end;if Memo.Text''thenadotable1.Fields10.AsString:=M

46、emo.Text;adotable1.post;showmessage('信息修改成功');edit1.Text:=''edit2.Text:=''edit3.Text:=''edit4.Text:=''edit5.Text:=''edit6.Text:=''edit7.Text:=''Memo.Text:=''edit10.Text:=''endelseshowmessage('信息没有修改');end;3、查询功能的

47、局部代码：ifradiobutton1.Checkedthenbeginpi_form.adoquery1.Active:=true;pi_form.adoquery1.Edit;pi_form.adoquery1.Close;pi_form.adoquery1.SQL.Clear;pi_form.adoquery1.SQL.Text:='select*fromputinwherei_id='''+edit10.Text+''''pi_form.adoquery1.Open;ifpi_form.adoquery1.RecordCo

48、unt=0thenbeginshowmessage('道歉，无法找到你所要查找的信息');edit10.Text:=''endelsebeginshowmessage('恭喜你，查找成功');edit10.Text:=''end;end;4、删除功能的代码：procedureTpi_Form.Button2Click(Sender:TObject);beginifmessagedlg('的确要删除该条信息？',mtInformation,mbOK,mbCancel,0)=mrokthenbeginadotable1

49、.delete;end;end;采购进货管理的界面如图4-7：图4-7采购进货管理功能采购进货管理的界面-查询功能如图4-8：图4-8采购进货查询功能采购退货：对退货记录进行管理，可以新增，修改，删除销售记录。当用户选择了商品编号后，系统自动从进货表中调出该商品的进货记录，包括商品名称，大类，价格，供货商信息。在添加了退货记录后，系统会自动向库存表添加该条出库记录，以便库存统计。下拉框代码：procedureTpib_Form.DBLookupComboBox1CloseUp(Sender:TObject);beginadotable2.Locate('i_gid',dbLoo

50、kupComboBox1.Text,);edit2.Text:=adotable2.Fields【2】.AsString;edit3.Text:=adotable2.Fields【3】.AsString;edit5.Text:=adotable2.Fields【6】.AsString;edit4.Text:=adotable2.Fields【7】.AsString;edit8.Text:=adotable2.Fields8.AsString;edit6.Text:=adotable2.Fields9.AsString;memo.Text:=adotable2.Fields10.AsString

51、;end;采购退货管理的界面如图4-9：图4-9采购退货管理功能退货查询：对退货记录进行查询，可以按退货编号，商品大类，商品编号，商品名称，退货人，供货商，和退货日期查询。采购退货查询的界面如图4-10：图4-10采购退货查询功能第四节销售管理功能模块销售出货：对销售出货记录进行管理，可以新增，修改，删除销售记录。在添加了销售记录后，系统会自动向库存表添加该条出库记录，以便库存统计算。销售出货的界面如图4-11：图4-11销售出货管理功能销售查询：对销售出货记录进行查询，可以按时间查询，也可以按商品查询，也可以按指定的人查询。销售出货查询功能界面如图4-12：图4-12销售出货查询功能销售退货

52、：对销售退货记录进行管理，可以新增，修改，删除销售退货记录。当用户选择了商品编号后，系统自动从销售出货表中调出该商品的出货记录，包括商品名称，大类，价格，客户信息。在添加了销售退货记录后，系统会自动向库存表添加该条入库记录，以便库存统计。销售退后功能界面如图4-13：图4-13销售退货管理功能销售查询：对销售退货记录进行查询，可以按时间查询，也可以按商品查询，也可以按指定的人查询。销售退货查询功能界面如图4-14：图4-14销售退货查询功能第五节人员管理模块客户资料：对客户资料进行管理，可以新增，修改，删除客户资料。客户资料管理界面如图4-15：图4-15客户资料管理功能客户查询：对客户资料记

53、录查询，可以按编号，联系人，公司名和业务员进行查询。客户资料管理查询功能如图4-16：图4-16客户资料查询功能供货商资料：对供货商资料进行管理，可以新增，修改，删除供货商资料。供货商资料管理功能如图4-17：图4-17供给商管理功能供货商查询：对供货商资料记录查询，可以按编号，联系人，公司名和业务员进行查询。供货商资料管理查询功能如图4-18：图4-18供给商查询功能管理员账号管理：可以对使用该软件的用户进行管理，可以添加，删除和修改管理员账号资料。输入管理员账号后，点击账号查询，可以查询到该账号的详细资料其中查询功能的主要代码：procedureTForm7.Button4Click(Se

54、nder:TObject);beginadotable1.Active:=true;ifedit1.Text=''thenshowmessage('请输入帐号')elseifnotadotable1.Locate('ad_id',edit1.Text,)thenbeginshowmessage('没有该进货编号，请重新输入');edit1.Text:=''endelsebeginadotable1.Locate('ad_id',edit1.Text,);edit1.Text:=adotable1.F

55、ields0.AsString;edit2.Text:=adotable1.Fields【1】.AsString;edit3.Text:=adotable1.Fields【2】.AsString;edit4.Text:=adotable1.Fields【3】.AsString;memo.Text:=adotable1.Fields【4】.AsString;end;end;管理员资料管理功能如图4-19：图4-19管理员管理功能第六节系统功能模块库存查看：可以查看商品的各条入库，出库记录，也可根据商品编码，商品大类，商品名称进行查询。库存统计用能可以统计商品的累积进库，累积出库和当前的库存量。库存统计功