毕业设计（论文）-企业合同管理系统.doc

企业销售合同管理系统（VB）企业合同管理系统摘 要：随着企业间竞争的日益加强，企业对管理系统的要求也越来越高，企业销售合同管理系统基于商业运作，依据逻辑统筹运算思维，将销售业务的合同、销售发货、结款以及历史数据紧密衔接在一起。又运用了先进的计算处理方式，使该系统具有了功能非常强大的数据处理和综合查询统计功能。本系统还具有良好的灵活性、开放性。用户可以方便地管理各项目，改变现在管理内容。关键字：EPR、销售、销售系统、报表、数据库、基本信息、权限Abstract: With the competitive between enterprises more and more strengthen, enterprisesrequest on manage is also more and more.Manage System On Purchase And Sale is based on running of commerce,it is a logic and a whole operation thought,it not only joins the bargain 、 consignment、the sum of money and the history data together inseparable,but put advanced manner of disposal into use as well,make the system had very strong function on data processing 、querying and counting. Manage System On Purchase And Sale has a lot of choiceness characteristics.For example, agile and exoteric.Users can manage all the kinds of items or change the current contents of manage.Keywords: EPR、distribution、distribution system、report forms、database、basic information、purview第一章 引言1.1课题背景目前，大量的中小企业中，存在这样的现象：分散的、不连贯的客户信息使企业管理者或企业相关人员无法看到客户的全部资料及相关资料，信息的分散使得产生的结果也无法保持一致和完整性，造成中小企业在销售管理上存如下问题： 无法统计客户信息（对客户分类极为混乱）？无法准确全面掌握各业务进展状态？ 对销售人员工作过程掌握不够？无法准确快速考核销售人员业绩？ 业务人员对产品没有一定认识？销售及市场流程不清析，流程变动较大？对市场信息、竞争的资讯掌握程度较不完善？无结构统一销售及市场情况报表？基本销售及市场费用统计较不完备？ 销售人员辞职时失单现象严重？等等加之，现在客户的期望值越来越高，客户需要更好的服务(产品及个性化服务)。企业的竞争已逐渐从产品的竞争转变为服务的竞争，因此中小企业要发展就必须需要进一步优化业务流程以提高企业竞争能力。因此，加强销售管理是企业发展的必然，通过计算机来大量完成本来由工作人员手工完成的工作，真正达到合理和充分利用现有资源，减轻工作压力。1.2课题目的本课题开发的目的在于使自己更好得了解市场上的信息，扩大知识面，增加对VB与ACCESS的了解以及对它们在使用方面知识的学习和掌握。再者，就是使本课题能实现对商品销售信息和数据的管理功能，便于工作人员操作，优化企业管理能力，增强企业效率，加大竞争力。1.3课题的意义中小企业销售管理系统通过对客户关系、销售行动、销售过程等环节进行记录、管理与分析，使销售管理从经验走向科学、从个人主导走向企业主导，针对中小企业销售管理中存在的诸多问题，从中小企业的销售管理的主要需求出发，充分“以客户为中心”，为中小企业建立弹性化和灵活性的业务流程。企业及个人可以完全按照企业的需要，制定适合企业特点的业务流程，同时加强了中小企业销售过程中协同作业的能力，并实现了中小企业销售管理过程中的移动办公管理，帮助中小企业建立以客户为主导的业务模式。企业重在管理，党的十六大提出了以信息化带动工业化的发展战略，在企业竞争激烈的今天，如何保持企业拥有良好的竞争能力是个非常重要的问题。中国信息化进程正在提速，企业的发展更是与之分不开。各种对信息的管理软件也不断被使用，对之的要求也越来越高。本课题的开发对于企业来说有着非常大的意义。我认为突出的作用表现在两个方面，一方面，随着企业规模扩大，在销售方面出现了各式各样的问题，各种信息和数据增多，并且日趋复杂，以软件的形式管理即方便了工作人员的管理，又减少了工作量，而且清楚规范，一目了然。另一方面，所谓时间就是金钱，为了增加效益，时间能节省得越多越好，而通过管理软件的运用，企业可以节省不少不必要浪费的时间，更为高效得完成销售方面的工作，也可以有更多的时间处理更多的别的事务。由此可见，销售管理系统在企业的管理过程中起着巨大的作用。1.4本课题的开发现状和国内外发展趋势在经济发展，企业竞争激烈的今天，如何保持企业拥有良好的竞争能力是个非常重要的问题。企业重在管理，党的十六大提出了以信息化带动工业化的发展战略，中国信息化进程正在提速，企业的发展更是与之分不开。各种对信息的管理软件也不断被使用，对之的要求也越来越高。管理软件在国内的发展热度之高有目共睹，尤其在近几年，已经从单纯的会计电算化产品演变为企业资源计划系统（ERP）、客户关系管理系统（CRM）及供应链管理系统（SCM）等相关管理软件产品。良好的增长态势为市场描绘出诱人的前景，但从整体情况来看，尤其是从应用方市场来看，国内的管理软件市场依然处于培育和启动阶段，离成熟的应用环境还有较长的距离。调查显示，46.5%的制造企业对ERP软件非常看重，认为ERP对制造企业在生产以及销售、库存管理方面比较有效，因此计划投资的软件以ERP为主。141 ERP应用现状及原因:随着“信息化带动工业化”的浪潮席卷全国，实施ERP系统成了众多企业“信息化”所追求的目标。国内外ERP厂商纷纷推出了面向中国制造企业的理念和应用解决方案，然而事实证明，取得很好应用效果的方案非常少。深入探究这一现象背后隐藏的事实，我们发现，中国企业用户IT应用层次十分复杂，既有单机商务办公应用，又有局域网应用，更有复杂的个性化应用和电子商务。就企业规模而言，远远不能和国外制造业企业相比，同时国内企业在管理水平上与国外企业也存在较大差距。ERP不仅是一个软件系统，更是一项庞大的系统工程，其中软件的成份最多占30%，管理的成份至少占70%，因此国内企业在管理水平上的参差不齐，严重制约了ERP的成功应用。以上这些都导致了市场上没有完全适合制造企业的通用型ERP产品和解决方案。另外，由于厂商对用户在使用过程中缺乏应有的培训和帮助，使得企业用户对ERP产品的使用产生恐惧和陌生感。厂商缺乏与企业用户直接交流、沟通的渠道，使厂商对用户应用需求缺乏深入了解，造成产品与用户之间的壁垒。IT厂商对用户在应用过程中的体验缺乏关怀式服务和全方位支持，也延缓了信息技术在制造型企业的普及、应用。ERP是西方市场经济的产物，而我国在二十世纪九十年代以前还处于计划经济时期，市场机制并不健全，因此ERP在提升企业效率和管理水平方面的优势难以充分发挥，ERP整合企业资源的功效也就无法实现。然而令人欣慰的是，调查显示，ERP经过炒作式的概念普及阶段，目前已经回归到理性的实际投入阶段。企业对ERP的了解逐渐增多，决策越来越审慎，随着我国社会主义市场经济的深化，尤其是加入WTO后，国内企业正呼唤着ERP的应用。142 ERP的发展：技术新了 范围广了IT技术在管理软件应用上是与时俱进的。技术的不断进步的确给用户带来很多方便。软件界面越来越友好、易用性越来越强、技术核心离最终用户越来越远。ERP软件也是如此，特别是基于Internet技术的应用开发使应用软件如虎添翼，管理的广度得到了空前的扩展：原来只关心部门应用的，现在可以扩展到整个企业；原来只是面向企业内部应用的，可以扩展到整个供应链。应用范围从内部管理向供应链、客户关系延伸，软件系统的功能向专业化方向深化的T型发展趋势越来越明显。ERP产品的发展和应用范围的扩展早被人们意识到，它已经不是原来意义上的ERP了，所以，所谓“扩展的ERP”的名称开始流行起来。国际权威组织GartnerGroup把这类“新产品”称为ERP，用来解决整个业务社区(BusinessCommunity)的管理问题，即整个供应链的相互协同合作。ERP定义的是一种新的商业战略，它主要由一组行业专业化的应用组成，通过建立和优化企业内部和企业之间流程、协作运营和财务运作流程，从而将客户和股东价值优化。概念多了 难度大了也许受软件技术发展和ERP应用范围不断扩展的鼓舞，国内ERP厂商也试图在概念引导、产品开发上先人一步。没等ERP市场真正开始红火起来，2003年初，一股“逆流”已经出现：以“超越ERP”为主题的造势风潮开始兴起，一批新概念风起云涌地在国内厂商中推行开来，打破了国外软件机构和厂商在新概念方面一统天下的局面。深层次分析这一轮的新概念推广运动，不难发现，这只不过是又一场市场推广活动的比拼而已，手法也类似于当初的财务软件的巡展和1998年“迎接ERP时代的到来”的活动。与成功的市场推广相比，产品是否成熟，功能是否过关已经成为了国内ERP厂商的一个致命软肋，也是软件公司老板们每天思考的重要课题之一。Internet技术平台的大量应用，把国内外厂商的产品升级拉到了一个差不多的起跑线上，但真正的差距并不是在于采用何种开发工具，而是经验和知识的积累。在这一方面，国内软件厂商与在成熟的市场经济条件下发展起来的全球化公司差距尤为明显。于是，各家公司老总们频频出访不仅是为了市场国际化的需要，更是学习别人的成功经验的必不可少的过程。总之，本系统是针对企业中的某个部门的，随着企业的要求不断提高，此类的管理系统软件会不断地发展，它的功能将向满足整个企业的要求发展，特别是基于Internet技术的应用开发使应用软件如虎添翼，管理的广度得到了空前的扩展：原来只关心部门应用的，现在可发扩展到整个企业；原来只是面向企业内部应用的，可以扩展到整个供应链。应用范围从内部管理向供应链、客户关系延伸，软件系统的功能向专业化方向深化的T型发展趋势越来越明显。一如上面所提到的ERP软件，在手技术、范围、上都将有所发展与改进。同时来自于改善企业自身管理现状和提升管理水平的需求，人们将会改变以前因为对ERP的不了解而不敢使用的现状，而选择ERP。有需求才会有机会，因此，本课题有着很大的开发空间和意义。第二章 相关知识与技术简介企业销售合同管理系统在设计时要充分考虑到其实用性，考虑到系统可以给企业的管理带来大大的简便，可以解决困扰中小企业的一系列问题，提高效率、降低成本。基于对实际情况的分析，我选择了比较熟悉的VB及小型的数据库ACCESS来编写。在构思了课题的基本界面和模块以后，经过对参考书上相关软件的原代码的分析，再加上自己的修改进行了各模块的编写，后来又针对一些具体的需求加以修改形成了现在的系统。由于自己的知识掌握得不够，所以销售系统还是做得比较简单，也存在着一些问题。 2.1软件2.1.1VB简介Visual Basic简称VB，是微软公司推出的一种可视化编程工具，是当今世界上应用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，Vsiual Basic都是最快速、最简便的。它开发速度快捷，具有语法简单易学的开发环境，是一款优秀的编程工具。Vsiual Basic提供可视化的开发环境，使用者可以像搭积木一样构建出程序的界面，面且Vsiual Basic提供了丰富的控件组，省去了自己编写代码实现这些效果的麻烦，这样就可以把更多的精力放在程序功能的实现上。Vsiual Basic可以开发各类应用软件，从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过Internet的遍及全球的分布式应用程序，都可以在Vsiual Basic提供的工具中各取所需。Vsiual Basic有如下特性：（1） 数据访问特性允许对包括Microsoft SQL Server和其他企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。（2） 有了ActiveX技术就可使用其他应用程序提供的功能，例如Microsoft Word处理器、Microsoft Excel电子数据表及其他Windows应用程序。甚至可直接使用VBP和VBE创建的应用程序和对象。（3） Internet功能强大，使得用户很容易在应用程序内通过internet和intranet访问文档和应用程序，或者创建internet服务器应用程序。（4） 已完成的应用程序是使用Vsiual Basic虚拟机的真正.exe文件，可以自由发布。2.1.2 ACCESS简介Access是Office办公套件中一个极为重要的组成部分。刚开始时微软公司是将Access单独作为一个产品进行销售的，后来微软发现如果将Access捆绑在OFFICE中一起发售，将带来更加可观的利润，于是第一次将Access捆绑到OFFICE97中，成为OFFICE套件中的一个重要成员。现在它已经成为Office办公套件中不可缺少的部件了。自从1992年开始销售以来，Access 已经卖出了超过6000万份，现在它已经成为世界上最流行的桌面数据库管理系统。后来微软公司通过大量地改进，将Access的新版本功能变得更加强大。不管是处理公司的客户订单数据；管理自己的个人通讯录；还是大量科研数据的记录和处理，人们都可以利用它来解决大量数据的管理工作。数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。 Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。表(Table) 表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Query)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。 窗体(Form)窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。 报表(Report)报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro)宏相当于DOS中的批处理，用来自动执行一系列操作。Access列出了一些常用的操作供用户选择，使用起来十分方便。 模块(Module)模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用Visual Basic编程。 本系统考虑到数据库的大小，采用了ACCESS来编写，但是如果再大型一点的话，就需要采用SQL啊等一些大型的数据库来编写以使数据库达到比较高的运行速度。第三章 课题简介企业间的竞争在现代经济日益发展的情况下一天比一天激烈，而对企业各方面的管理关系着一个企业的成败。在企业商业运作的过程中，销售管理的难度随着客户的增加而加大，如：对销售过程中的产品的订货销售、发货、结款等的管理比较复杂，不合理的管理方法既费时又费力，因此需要一套全面系统的方法来减轻人员的工作量，提高工作效率。而对于与客户的合同、销售、基本信息等的管理在企业的发展中有着举足轻重的地位，企业销售合同管理系统是专门基于商业运作的，是针对企业在购销管理方面的问题进行设计的。企业销售合同管理系统基于商业运作，依据逻辑统筹运算思维，将销售业务的合同、销售发货、结款以及历史数据紧密衔接在一起。又运用了先进的计算处理方式，使该系统具有了功能非常强大的数据处理和综合查询统计功能。本系统还具有良好的灵活性、开放性。用户可以方便地管理各种项目，改变现在管理内容。3.1系统功能简介1） 合同包括与客户的合同管理，可以进行增加、修改、删除保存等操作。此项目中包含有两个界面，一个为录入模式，另一个为表格界面模式，用来查看。 2）日常业务：包括销售中购买与退货的基本操作。在购买或者是退货完成以后，系统将数据保存在销售单或销售退单中以便查询。用户可以在销售单中输入所需的商品，系统将自动显示库存中的有关商品信息以便用户挑选自已所需商品，在挑选商品时可以利用键盘上的上下左右和PAGEDOWN及PAGEUP来翻看商品信息。选定了商品以后，可以输入所需的数量，系统也将自动统计金额显示在金额一栏里。保存里可以保存用户输入的所有数据。3）查询统计：包括产品销售发货数据及退货数据的管理。不仅可以完成数据的管理工作，同时还能检索数据、维护更新数据。各项统计结果都可以显示在屏幕上。在查询时，用户可以输入条件来进行相应的查询。4）基础信息管理：本系统的基本信息包括产品信息、客户信息及价格管理等基本项内容。这些基本信息是构成本系统的基础数据，日后在对业务数据进行操作处理时都要用到这些数据。基本信息管理的功能就是对这些基础数据的整理录入、维护更新，并且可按条件筛选检索。5）系统设置在本模块中，系统实现了对历史数据的管理。首先，操作员可以根据需要修改自己的密码和名称。再次，长期使用该系统，各种信息的数据逐渐增多，为了查询和应用的方便，系统可定期将当前数据进行清理，清理的项目有库存基本数据、客户基本本信息销售、销售退单等，该操作建议每年进行一次，一般在年底进行。本系统的历史数据包括历史合同数据（历史销售发货数据）、历史退单数据等。如果用户需要，可以在业务前进行初始建账，清除历史数据，如库存数据、客户数据、销售单、销售退单等。此外，在本模块中还可以对系统的数据进行备份。6）报表包括销售发货、销售退货的所表，以表格的形式出现，可以打印。7）退出 退出系统。该系统集输入、维护、查询、统计和各种处理为一体，各种操作可以通过菜单进行，操作快捷、方便，性能高效、强大；使用易懂、易会，信息导入导出方便共享，灵活专业的报表设计、形象增强的数据处理，用户均可根据需要自行使用。3.2系统的特点本系统为销售管理系统,实现中主要的特点如下： 1在进入本系统时，有一个封面，停留数秒之后自动消失进入登陆界面。2系统可以录入及编辑与客户的合同，并且可以对所签定的合同进行管理。3在销售单中输入数据时,即可以通过系统输入也可以通过手工输入,如输入所要交易的商品,则有关此商品有关的信息将显示在一个清单里，在保存时实现了批量录入和批量保存，同时对所销售的商品的各项如数量、单价、金额等可以进行即时统计。4在查看商品信息时可以用键盘操作。5如果客户要退货，则可通过销售退单的形式对所退商品进行管理。6系统有对历史数据进行管理和备份的功能。第四章 课题的结构实现简介4.1系统结构图合同管理销售查询统计系统设置报表日常业务基础信息管理销售单销售退单销售查询销售退货查询客户信息管理库存信息管理价格管理初始建账密码设置数据备份发货报表退货报表合同合同录入合同报表库存报表42系统流程图已销商品信息库存信息库存查询价格管理销售作业客户销售信息销售查询客户退货退货信息价格信息商品信息商品信息商品信息已销商品信息退货信息退货查询退货信息合同管理合同信息 第五章 课题功能的代码实现5.1数据库由于本系统是一个销售管理的系统，基于实际情况，采用的是比较小型的Microsoft 公司的Access数据库，适合销售中的数据处理，这样应用提高了数据库处理的速度。本系统的数据库名为xsgl.mdb。现在介绍一下xsgl.mdb中的数据表格：(1) 库存表kc，用于保存库存的商品信息，结构如表1： （表1：kc表）字段名数据类型字段大小商品名称text255简称text255批号text100产地text255规格text255包装text255单位text255进价doubledouble库存doubledouble库存金额doubledouble(2)客户基础信息表kh，用于保存客户的基本信息，结构如表2： （表2：kh表）字段名数据类型字段大小客户编号Text10客户全称Text100简称Text20地址Text100所属地区Text50邮政编码Text50电话Text30传真Text20联系人Text30联系人电话Text30开户银行Text100银行账号Text50纳税人登记Text50预付金额Text20实际金额Text20尚余欠款Text20网址邮箱Text20日期Date/time (3)销售表xsd，用于保存已销售的商品的信息，结构如表3： （表3：xsd表）字段名数据类型字段大小商品名称Text100批号Text20产地Text40规格Text50包装Text50单位Text10数量doubledouble单价currency金额currency备注Text100客户Text50日期Date/time经手人Text10票号Text30(4)销售退单表xstd，保存销售退货的商品信息，结构如表4： （表4：xstd表）字段名数据类型字段大小商品名称Text100批号Text20产地Text40规格Text50包装Text50单位Text10数量doubledouble单价currency金额currency备注Text100客户Text50日期Date/time经手人Text10票号Text30（5）密码表ma，用于保存管理员的登录名及密码，在设计过程中已经设定，管理员可以能过系统设置模块来修改登录名及密码。结构如表5： （表5：ma表）字段名操作员密码数据类型TextText字段大小106（6）合同表ht，用于保存与客户的合同数据。 (表6：ht表)字段名数据类型字段大小合同号text50责任人text50购货单位text50交货日期Date/time8结算方式text50签定日期Date/time8交货地点text50结算日期Date/time852关键技术5.2.1自动识别数据库 Data1.DatabaseName = App.Path & xsgl.mdb5.2.2数据的录入由于商品的种类比较多，业务量较大，所以单凭手工录入很难适应工作的需要，因此，本系统在销售过程中提供批量录入、快速结账的录入方式，以解决商品销售中的难题。基本信息表中数据的翻阅以及增加、删除等操作的实现：（1） 数据信息的翻阅 Public Sub viewdata() 定义显示数据的函数 For i = 0 To 16 If Data1.Recordset.Fields(i) Then kh(i).Text = Data1.Recordset.Fields(i) Else kh(i).Text = Next iEnd Sub Private Sub CmdMD_Click(Index As Integer) Select Case Index Case Is = 0 移到第一条记录 If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Case Is = 1 移到上一条记录 If Data1.Recordset.RecordCount 0 Then If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst End If Case Is = 2 移到下一条记录 If Data1.Recordset.RecordCount 0 Then If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End If Case Is = 3 移到最后一条记录 If Data1.Recordset.RecordCount 0 Then If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End If End Select Call viewdata 调用函数End Sub（2） 数据信息的增加、删除、修改等的实现Private Sub ComAdd_Click() 允许用户添加新记录 For i = 0 To 16 kh(i).Text = kh(i).Enabled = True Next i ComSaveM.Visible = True: ComSaveA.Visible = False: ComSaveM.Enabled = True: ComEsc.Enabled = True For i = 0 To 3 CmdMD(i).Enabled = False Next i ComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = False SSTab1.Tab = 0: kh(0).SetFocusEnd SubPrivate Sub ComModify_Click() 允许用户修改记录 If Data1.Recordset.RecordCount 0 Then Data1.Recordset.Edit For i = 0 To 16 kh(i).Enabled = True Next i ComSaveA.Visible = True: ComSaveA.Enabled = True: ComSaveM.Visible = False: ComEsc.Enabled = True For i = 0 To 3 CmdMD(i).Enabled = False Next i ComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = False Else MsgBox (没有要修改的数据!) End IfEnd SubPrivate Sub ComSaveA_Click() 保存修改记录 Dim A As String A = MsgBox(您确实要修改这条数据吗?, vbYesNo) If A = vbYes Then Data1.Recordset.Edit For i = 0 To 16 If kh(i).Text Then Data1.Recordset.Fields(i) = kh(i).Text kh(i).Enabled = False Next i ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True For i = 0 To 3 CmdMD(i).Enabled = True Next i ComModify.Enabled = True: ComDelete.Enabled = True: Data1.Recordset.Update End IfEnd SubPrivate Sub ComSaveM_Click() 保存新增记录 Dim mydb As Database Dim myrs1 As Recordset If kh(0).Text And kh(1).Text Then Set mydb1 = Workspaces(0).OpenDatabase(App.Path & yyjxc.mdb) Set myrs1 = mydb1.OpenRecordset(kh, dbOpenTable) myrs1.AddNew For i = 0 To 16 If kh(i).Text Then myrs1.Fields(i) = kh(i).Text Next i myrs1.Update: myrs1.Close: mydb1.Close: Data1.Refresh For i = 0 To 3 CmdMD(i).Enabled = True Next i ComModify.Enabled = True: ComDelete.Enabled = True ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True Else End IfEnd SubPrivate Sub ComDelete_Click() 删除客户信息 If Data1.Recordset.RecordCount 0 Then A = MsgBox(您确实要删除这条数据吗?, vbYesNo) If A = vbYes Then Data1.Recordset.Delete Data1.Refresh For i = 0 To 3 CmdMD(i).Enabled = True Next i ComModify.Enabled = True: ComDelete.Enabled = True ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True For i = 0 To 16 kh(i).Text = Next i End If Else MsgBox (没有要删除的数据!) End IfEnd SubPrivate Sub ComEsc_Click() 取消操作 If Data1.Recordset.RecordCount 0 Then For i = 0 To 16 kh(i).Enabled = False If Data1.Recordset.Fields(i) Then kh(i).Text = Data1.Recordset.Fields(i) Next i For i = 0 To 3 CmdMD(i).Enabled = True Next i ComModify.Enabled = True: ComDelete.Enabled = True: ComSaveA.Enabled = False ComSaveM.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True End IfEnd Sub5.2.3主要的控件 text、label、Commandbuttom、sstab、toolbar、frame、data、MSFlexGrid、checkbox、progressbar5.2.4在MSFlexGrid中灵活地输入数据 MSFlexGrid是一种Active控件，该控件提供了表格式界面，处理数据相当灵活，具有只读数据绑定、对表格数据进行显示和操作、数据分组排序、Data控件赋值、文本自动换行等功能。惟一缺憾的MSFlexGrid控件不允许动态输入数据，但这里我们可以利用MSFlexGrid控件的文本自动换行功能和MSFlexGrid控件的一些属性、方法，结合Text控件实现向MSFlexGrid控件中输入数据。MSFlexGrid.Rows 设置MSFlexGrid的行数MSFlexGrid.Cols 设置MSFlexGrid的列数MSFlexGrid.colwidth(i) 设置MSFlexGrid的第I列列宽MSFlexGrid.fixedrows 设置MSFlexGrid的固定行数MSFlexGrid.fixedcols 设置MSFlexGrid的固定列数MSFlexGrid.textmatrix(i,j) 设置MSFlexGrid第i行第是j列的单元格MSFlexGrid.colpos(MSFlexGrid.col) 光标所在单元格 在MSFlexGrid中显示数据时，为了美观，我用数组的形式定义表的列宽和表头信息：s = Array(300, 1500, 990, 1200, 1200, 1200, 750, 750, 900, 1200, 700)y = Array(xh, 商品名称, 批号, 厂家, 规格, 包装, 单位, 数量, 单价, 金额, 备注) For i = 0 To 10 mf1.ColWidth(i) = s(i): mf1.TextMatrix(0, i) = y(i) Next i mf1.FixedRows = 1: mf1.FixedCols = 1 定义mf1表的固定行数、固定列数 For i = 1 To 101 mf1.TextMatrix(i, 0) = i Next I5.2.5保存表格中的数据运用循环语句，将表格中的数据一条一条地保存。这里注意，在不知道循环内需要执行多少次语句时，可以用Do循环。但是在知道要执行多少次时，则最好使用ForNext循环。与Do循环不同，For循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或减少。本程序中数据的保存是先设定了一个值（次数），然后用ForNext循环语句来实现。下面是以商品销售的保存销售数据的一段代码：Set mydb1 = Workspaces(0).OpenDatabase(App.Path & xsgl.mdb) 自动识别数据库路径Set rs1 = mydb1.OpenRecordset(xsd, dbOpenTable) 查询库存商品信息 Data1.RecordSource = SELECT * FROM KC Data1.Refresh For i = 1 To 101 If mf1.TextMatrix(i, 1) And mf1.TextMatrix(i, 7) Then 添加新记录到xsd表中 rs1.AddNew If mf1.TextMatrix(i, 1) Then rs1.Fields(商品名称) = mf1.TextMatrix(i, 1) If mf1.TextMatrix(i, 2) Then rs1.Fields(批号) = mf1.TextMatrix(i, 2) If mf1.TextMatrix(i, 3) Then rs1.Fields(产地) = mf1.TextMatrix(i, 3) If mf1.TextMatrix(i, 4) Then rs1.Fields(规格) = mf1.TextMatrix(i, 4) If mf1.TextMatrix(i, 5) Then rs1.Fields(包装) = mf1.TextMatrix(i, 5) If mf1.TextMatrix(i, 6) Then rs1.Fields(单位) = mf1.TextMatrix(i, 6) If mf1.TextMatrix(i, 7) Then rs1.Fields(数量) = mf1.TextMatrix(i, 7) If mf1.TextMatrix(i, 8) Then rs1.Fields(单价) = mf1.TextMatrix(i, 8) If mf1.TextMatrix(i, 9) Then rs1.Fields(金额) = mf1.TextMatrix(i, 9) If mf1.TextMatrix(i, 10) Then rs1.Fields(备注) = mf1.TextMatrix(i, 10) If kh.Text Then rs1.Fields(客户) = kh.Text If jsr.Text Then rs1.Fields(经手人) = jsr.Text If rq.Text Then rs1.Fields(日期) = rq.Text If PH.Text Then rs1.Fields(票号) = PH.Text rs1.Update 查找库存商品信息 Data1.Recordset.FindFirst 商品名称 like + Chr(34) + mf1.TextMatrix(i, 1) + Chr(34) + and 批号 like + Chr(34) + mf1.TextMatrix(i, 2) + Chr(34) + and 产地 like + Chr(34) + mf1.TextMatrix(i, 3) + Chr(34) + and 规格 like + Chr(34) + mf1.TextMatrix(i, 4) + Chr(34) + I