铁岭香河商贸有限公司成功案例.doc

销售管理系统 毕业（设计）论文论文题目铁岭香河商贸有限公司成功案例姓 名 专业班级 指导老师 完成时间i摘要摘要 随着科学技术的进步，计算机行业的迅速发展，大大提高人们的工作效率。计算机信息处理系统的引进已彻底改变了许多公司的经营管理 。甚至附近的一个小店主也可能正在用计算机来控制销售、记账以及其他活动。在一些大公司里，电子信息处理系统监测全部工作设备的操作与运行。销售管理系统是企业管理机制中的重要组成部分，通过对铁岭香河商贸有限公司销售管理系统的销售管理机制进行调查研究，开发了铁岭香河商贸有公司销售管理系统。本系统中解决了企业管理事务中的进货、销售、退货等情况的问题以及相关统计工作。本系统中包含七个功能模块：系统登录、交易管理、进货统计、销售铳计、业绩查看、报表查看和帮助。关键词：销售管理 交易管理 数据库管理系统 ODBC销售管理系统目录摘要i关键词：i1 涉及技术简介11.1数据库管理系统简介11.2 开发工具Visual Basic 6.011.3 Microsoft Access简介32系统需求分析52.1需求分析的目的52.2 需求分析52.2.1问题定义及可行性研究52.2.2销售管理系统具体任务要求和运行过程62.3 技术方面可行性分析62.3.1 软件分析62.3.2 硬件分析72.3.3 人员分析72.4 经济方面可行性分析73系统的总体设计83.1 系统架构83.2 系统设计93.3 数据库设计94系统的详细设计154.1系统模块设计及程序流程图164.2 应用程序设计185功能界面设计205.1 应用程序主界面的实现205.2 交易管理的实现255.2.1进货登记的实现255.2.2 销售登记的实现275.2.3 退货登记的实现285.3进货统计的实现305.4销售统计的实现325.5查询员工销售额的实现335.5.1查询员工销售额345.5.2显示员工销售额345.6查看数据表的实现355.7 系统登录的实现35结束语36参考文献371 涉及技术简介1.1 数据库管理系统简介数据管理指的是如何对数据进行分类、组织、存储、检索及维护。要注意，这里所说的数据，不仅是指数字，还包括文字、图形、图像、声音等。凡是计算机中用来描述事物的记灵，统称为数据。数据库技术是计算机应用领域中非常重要的技术，随着计算机应用的不断深入，数据库的重要性日益被人们所认识，它已成为信息管理、办公自动、计算机辅助设计等方面的重要手段。对一个特定的数据库来说，它是集中、统一地保存、管理着某一个单位或某一领域内所有有用信息的系统，这个系统根据数据间的自然联系结构而成，数据较少冗余，且具有较高的数据独立性，能为多种应用服务。因此可以看出，数据库系统是管理数据且为不同应用服务的工具。它所管理的数据是大量的有关某一方面的信息，需要较长时间的保存；它所提供的数据应该是正确的、可靠的、高效率的。数据库管理系统简称DBMS（database management system）是专门用于建立和管理数据库的一套软件，介于应用程序和操作系统之间。DBMS不仅具有最基本的数据管理功能，还能保证数据的完整性、安全性，提供多用户的并发控制，当数据库出现故障时对系统进行恢复。1.2 开发工具Visual Basic 6.0Visual Basic 是面向对象程序设计的有利工具，它不仅秉承了BASIC的特点，而且为人们揭开了开发Windows应用程序的神秘面纱，有了它您就能成为Windows环境下的编程高手。何谓Visual Basic？其中，“Visual”中文意义为“可视化”，它提供了一种创建图形用户接口（GUI）的方法。利用这种方法，用户不必书写复杂的描述接口元素外观和位置的程序代码，而只需将系统提供的对象放在屏幕上的适当位置，并通过属性窗口进行适当的设置，即可设计一个优秀的程序界面。“Basic”指的是BASIC（Beginners A11-Purpose Symbolit Instruction Code）语方，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic在原有BASIC编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic不仅是Visual Basic 编程系统和VBA都使用这一语言。Visual Basic Scripting Edition(VBScript)是广泛使用的脚本语言，它是Visual Basic 语言的子集。这样，在学习Visual Basic 中得到的经验可应用到所有这些领域中。此外，用户除了可以使用单独的Visual Basic程序设计环境进行程序设计外。Visual Basic程序设计系统还被包括在Excel 、Access等众多的Windows应用软件中，以供用户进行二次开发。此外，目前使用较多的VBScript 脚本语言实际上是Visual Basic 语言的子集。因此，无论从哪方面讲，学习Visual Basic都是一件非常合算的投资。Visual Basic语言的特点无论用户是编制一个小的实用程序，还是开发一个大型的专业系统，甚至是开发一个跨越Internet的分布式应用系统，Visual Basic都为用户提供了合适的工具。(1) 利用Visual Basic的数据访问特性，用户可创建数据库、前端应用程序、适合于大多数流行数据库格式的服务品组间。(2) 利用ActiveX技术允许用户使用其它的应用程序提供的功能，如Microsoft Word、Microsoft Excel，甚至可直接使用由Visual Basic专业版和企业版创建的应用程序和对象。(3) Visual Basic的Internet 功能允许用户通过程序方便的通过Internet或Intranet 访问文档和应用程序，甚至创建Internet 服务器程序。(4) 用户最终创建的程序是一个真正的可执行文件，该文件可自由发布。(5) 数据访问特性允许对包括Microsoft Access和其它企业数据库在内的大部分数据格式建立数据库和前端应用程序，以及可调整的服务器端部件。分数据格式建立数据库和前端应用程序，以及可调整的服务器端部件。Visual Basicmh 由于功能强大、简单易用而有着广泛的用户，尤其是在数据库、多媒体、商用系统的用户界面以及一般应用程序的设计等方面，Visual Basic更是有其他开发环境所不能取代的优越之处。升级到6.0之后，其功能和性能都得到了增强，汉化后的Visual Basic6.0中文版，由于有全新的中文界面，更是方便了用户的使用。1.3 Microsoft Access简介Access是一种关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库一切具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。Access数据库使用与Windows完全统一的风格，采用面向对象的方式对数据库进行管理与操作，大大简化了用户的开发与维护工作。Access提供了七个构建数据库系统的对象，使数据库应用系统的开发变得快捷、方便，即便是开发复杂的数据应用系统，也只需编写少量的程序代码。Access数据库由表，查询、窗体，报表等对象组成。在Access数据库中，表是基本的对象，数据库在的所有数据都要储存在表中。所以说，表就是我们用以存储数据的仓库。表的结构与日常工作中使用的表格，如学生成绩单，物料清单和材料销售单一样，是由列（字段）和行（记录）组成。在Access的各对象中，表是核心，是所有数据库操作的目标和前提，所有的其他对象只有与它相结合，才有实际意义。数据管理包括两项基本的任务，首先是将数据组织起来并存储在数据库表中，这就是我们在前面介绍的数据库表的查询或检索，这是数据管理中极其重要的功能。用户将数据放入数据库的目的就在于日后能快速查找出需要的数据。数据库系统本身的查询功能优劣决定着一个数据库系统的性能与成败。一个好的数据库系统应该能够根据用户的要求，快速准确地将各种符合条件的数据和信息检索出来。一个好的数据库系统不但要有高质量的数据管理功能和高效率的数据查询能力，而且还需要有一个用户友好的操作界面。在应用系统的开发中，用户操作界面的设计十分重要，程序员往往要花费大量的时间和精力，编写大段代码来设计一个友好的用户操作界面。在Access中，用户操作界面的设计都是通过窗体对象来实现的，它负责管理窗体的制作，实现数据显示及操作控制。Access的窗体设计，几乎使用Windows中的所有控件，如按钮，文本框，列表框，组合框，复选框等，这就使得所设计的界面完全符合Windows的风格。3销售管理系统2 系统需求分析2.1 需求分析的目的尽早地对软件项目的可行性做出细致而谨慎的评估，以避免在项目开发过程中浪费大量的人力、物力、财力。2.2 需求分析2.2.1 问题定义及可行性研究在讨论具体的需求分析之前，我想先对两个问题给予简单的说明。这两个问题虽然简单，但却是软件开发周期中不可缺少的两个阶段。(1) 问题定义问题定义阶段必须回答的关键问题是“要解决的问题是什么？”。显然，这个问题解决整个软件开发周期中起着指导性作用。软件开发应该有这样一条鲜明的线索贯穿始终，否则我们的所有工作都是盲目的。现在我们应该明确问题定义阶段的主要任务：我们要建立一个销售管理系统，以解决企业销售事务的基本情况，来摆脱传统的手工记账，实现管理自动化，从而提高工作效率。同时该系统应不可避免的涉及到库存商品基本信息、供应商信息、客户信息的维护和处理及进货统计、销售统计等统计及查询处理。(2) 可行性研究这个阶段要解决的关键问题是“对上一阶段所确定的问题有无行得通的解决办法”。从而导出系统的逻辑模型，然后从系统逻辑模块出发探索若干种可供选择的系统实现方案。由于实际条件的制约，对可行性研究我们不再多说，但我们必须明确，现在我们所讨论的问题从各方面来说都行得通。在明确 了这两个简单问题之后，我们的问题应该步入正题了。需求分析阶段是软件定义时期的是后一个阶段，这一阶段的中心任务是准确的回答“系统必须做什么？”这个问题。其结束的标准是通过需求分析应该得出有数据流程图、ER图、数据字典等描绘的精确的系统逻辑模型。下面我们就紧紧围绕需求分析阶段的中心任务和目标展开计论。2.2.2 销售管理系统具体任务要求和运行过程系统的功能要求即用户对目标系统数据处理功能所提出的要求，主要考虑以下销售管理需求：(1) 进货时入库登记，以便日后查看和统计进货情况。(2) 销售时把相应数量的商品从现存商品库中减去，并记录于另外的一个销售库中，以便日后查看和统计销售信息。(3) 是销售就难免会有顾客退货情况发生，因此还需建立一个相应的退货管理，把退回来的货加入现存商品库，再从销售库中减去，进行退货登记。(4) 还要能够随时查看各种信息表，如员工信息、进货信息、销售信息、退货信息等。(5) 除了以上一些基本的需求外，实际上公司用来进行决策和管理分析的数据才是用得最多的数据。因此还需要有一些相应的关于以上基本信息的统计信息。如希望看各个时间段（如今日、本月、本和度、本年度等）的进货或销售情况，以便对一个的动作进行一个准确的预测和正确的决断。(6) 为了调动员工的积极性，员工的薪水应该和他的销售业绩挂钩，因此还需要能够查询各员工的销售业绩，以便对他的业绩进行考核和评比。2.3 技术方面可行性分析2.3.1 软件分析(1) 由于Windows2000操作系统是有人机变互的友好界面，很容易掌握及操作，程序界面相对较容易实现等特点，加之目前基于Windows2000操作系统的软件开发工具也很多，易于学习、开发及应用。(2) 同时由于销售管理业务事务种类繁多，结合铁岭香河商贸有限公司的实际情况，销售业务量及管理人员的素质等因素，Windows2000操作系统易学易用，而且可以满足需求，故决定采用Windows2000平台开发。(3) 采用Microsoft Access 型数据库系统作为销售管理系统的后台数据库，Access数据库使用与Windows2000完全统一的风格，采用面向对象的方式对数据库进行管理与操作，大大简化了用户的开发与维护工作，另外小型数据库的灵活性、安全性、易用性为数据库编程提供了良好的条件。(4) 由于Microsoft公司的Visual Basic 6.0具有面向对象可视化编程的特点，是创建Windows98应用程序最简便、最快捷的开发工具之一，是集先进性、实用性于一体的现代化软件开发工具，故采用Visual Basic6.0为开发工具。2.3.2 硬件分析硬件：中央处理器（CPU）：586以上的处理器软驱：40GB内存：256M显示器：17彩显打印机：Epson LQ-1600K打印机2.3.3 人员分析此系统操作简单，使用人员无需具有专业的计算机操作基础，因此对铁岭香河商贸有限公司现有工作人员来说应用此系统是不成问题的。2.4 经济方面可行性分析本系统开发经费并不是很多。对于规模不很大，经费有限的单位在经济上是可以接受的，并且本系统实施后可以显著提高效率，很快就可以体现经济效益。投入：除软件开发成本，一台中等电脑，现价4000元左右，完全可以良好的运行系统，完成硬件平台的要求，而且经济实用。253 系统的总体设计总体设计阶段的基本目的是用比较抽象概括的方确定系统如何完成参定的任务，也就是说，应该确定系统的物理配置方案，并且进而确定组成系统的每个程序的结构。因此，总体设计阶段由两个小阶段组成。首先需要进行系统设计，从数据流图出发设想完成系统功能的若干种合理的物理方案，最后选择一个最佳方案。然后进行软件结构设计，确定软件由那些模块组成以及这些模块之间的动态调用关系。3.1 系统架构本系统开发时使用的系统只是普通的PC机，操作系统为Windows2000 版本。数据库的建立使用的是office XP中的Microsoft Access 。数据访问方法为使用ADO（Active数据对象 Active Data Objects）通过ODBC的方法同数据库接口。使用这种方式访问数据，可以使用任何一种ODBC数据源，即不止适合于SQL Server Oracle、Access等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。此系统总体的功能是实现铁岭香河商贸有限公司销售管理的系统化、规范化和自动化。系统总体框图如下：3.2系统设计销售管理系统不简单的是一个软件，它覆盖了企业销售管理的职能，是企业管理事务中关键环节。是一个将销售管理思想以及当今最新计算机技术完美统一起来，实现科学化、自动化管理的集成应用系统。在功能方面，系统面向企业各个层次用户的需求，即企业领导和管理人员以及保障系统运行的系统管理员。为企业销售管理提供全面、及时、准确的信息和可靠的依据。在通用性设计方面，以标准化为基础，通过信息流程和管理过程的合理模型化、管理对象的模型化，使得系统具有一定的通用性和规范性。在系统开放性方面，按照软件工程开发规范实现系统的开放性，既便于扩充又便于升级，以适应今后企业管理发展及销售体系改革的需求。在系统和数据的安全性方面，系统采用数据库级用户权限和应用程序级运行权限的双重控制机构，提供了统一的基于角色的用户管理手段，通过数据库系统的数据安全机制，具有完善的系统和数据安全的保障体系。在操作性方面，采用图形用户界面技术，使系统能够以多得图形窗口和丰富便利的操作界面，通过鼠标或键盘的操作，为用户提供最简洁的使用方法。3.3 数据库设计上面提到的各种功能的实现都离不开数据库的支持，因此数据库设计作为本系统设计的一部分不可缺少。数据库设计在整个程序设计过程中占据非常重要的地位，也是整个程序设计的基础。把数据库从整个程序中分离出来，单独进行，有很大的好处，即使程序设计分工明确，也方便程序员在详细设计师不必考虑数据库的结构，只需知道数据名及表名和表中的字段名就能进行编码设计，体现面向对象设计的思想。其实在需求分析阶段，我们的很大一部分讨论始终都没离开用户所要求的数据。如果把前面的讨论看成是数据库的逻辑设计，下面的问题将是数据库的具体物理实现。我们使用的数据库系统是Windows Access 2000。从上面的功能分析看出本系统需要建立以下几个数据表：员工表（employee）表、现存货表（goods）表、已售商品表（sell表）及废品表（bad goods）表和使用用户表（user db表）。(1) employee表（员工表）中包括有员工编号、员工姓名、员工电话、员工地址等手段，具体设置如表3-1所示。employee表字段名数据类型说明员工编号长整型自动编号，主键员工姓名文本字段大小为10员工电话文本字段大小为20员工地址文本字段大小为100(2) goods表（现存货表）中包拓有商品编号、生产厂商、商品名、型号、单价、数量、总金额、进货年、进货月、进货日、业务员编号、计量单位等字段。具体设置如表3-2所示。goods 表字段名数据类型说明进货编号长整型自动编号，主键生产厂商文本字段大小为50商品名文本字段大小为20型号文本字段大小为20单价货币无数量数字长整型总金额数字长整型进货年数字整型进货月数字整型进货日数字整型业务员编号数字长整型计量单位文本字段大小为50(3) sell表（已售商品表）中包括有商品编号、客户名称、生产厂商、商品名、型号、单价、数量、总金额、销售年、销售月、销售日、业务员编号、计量单位等字段。具体设置如表3-3所示。sell表字段名数据类型说明销售编号长整型自动编号，主键客户名称文本字段大小为20生产厂商文本字段大小为50商品名文本字段大小为20型号文本字段大小为20单价货币无数量数字长整型总金额数字长整型销售年数字整型销售月数字整型销售日数字整型业务员编号数字长整型计量单位文本字段大小为50(4) retreat表（退货表）中包括有商品编号、客户名称、生产厂商、商品名、型号、单价、数量、总金额、退货年、退货月、退货日、业务员编号、计量单位等字段。具体设置如表3-4所示。retreat表字段名数据类型说明退货编号长整型自动编号，主键客户名称文本字段大小为20生产厂商文本字段大小为50商品名文本字段大小为20型号文本字段大小为20单价货币无数量数字长整型总金额数字长整型退货年数字整型退货月数字整型退货日数字整型业务员编号数字长整型计量单位文本字段大小为50(5) manufacturer表（进货厂商表）中包括有厂商编号、厂商名称、法人代表、电话、厂商地址等字段。具体设置如表3-5年示。manufacturer表字段名数据类型说明厂商编号长整型自动编号，主健厂商名称文本字段大小为20联系代表文本字段大小为20电话文本字段大小为20厂商地址文本字段大小为100(6) Customer表（客户表）中包括有客户名称、客户地址、联系人、联系电话等字段。具体设置如表3-6所示。Customer表字段名数据类型说明客户名称文本字段大小为50客户地址文本字段大小为100联系人文本字段大小为50联系电话文本字段大小为50(7) user db表（用户表）中包括用户编号、用户名、密码、用户权限等字段。具体设置如表3-7年示。user db表字段名数据类型说明用户编号长整型自动编号，主健用户名称文本字段大小为10密码文本字段大小为10用户权限文本字段大小为50H、bad goods表（废品表）中包括商品编号、退货客户、生产厂家、商品名、型号、单价、数量、总金额、退货年、退货月、退货日、业务员编号、计量单位等字段。具体设置如表3-8所示。bad goods表字段名数据类型说明退货编号长整型自动编号，主键退货客户文本字段大小为50生产厂家文本字段大小为50商品名文本字段大小为20型号文本字段大小为20单价货币无数量数字长整型总金额数字长整型进货年数字整型进货月数字整型进货日数字整型业务员编号数字长整型计量单位文本字段大小为50由于各数据表之间有一定的关系，例如，sell表中的业务员编号应属于employee表中的员工编号，因此还需要建立各个数据表之间的关系。最后各表关系及主要实体联系模型（ER图）如图3-2、3-3、3-4年示。图3-2 数据库各数据表间关系以上分别是图3-3 “进货登记E/R”图 和图3-4 “销售登记E/R”图4系统的详细设计4.1系统模块设计及程序流程图此系统的采用划分独立模块，自顶向下逐步求精的方法设计。这里仅列举两个典型程序流程图。退货登记过程比较复杂，退货登记模块的程序流程图如下图4-1所示：图4-1 退货登记模块流程图登录模块的流程图如下图4-2所示：图 4-2 登陆模块流程图4.2 应用程序设计本系统总体的功能是实现销售管理的系统化、规模化和自动化，具体包括如下功能模块：(1) 系统登录：包括用户登录、修改密码、添加新用户、退出系统等。(2) 交易管理：包括进货登记、销售登记、退货登记等。其中进货登记中还包含进货厂商的登记，如果是新地进货厂商，可以在此登记入库。销售登记中还包括进货客户的登记，如果是新的客户，可以在此登记入库。进货和销售的主要交易都是在此进行。(3) 进货统计：包括今日进货统计、本月进货统计、本季度进货统计、本年度进货统计等。其中每次进行进货统计都是按进货厂商和进货金额顺序排列的。使用一个表格显示所选时间段的全部进货数据，包括进货编号、商品名、生产厂商、产品型号、单价、数量、总金额、进货日期、业务员编号等。再使用另一表格显示分别从各个厂商进货的金额，还有一个文本框用于显示此时间段的总进货金额。(4) 销售统计：包括今日销售统计、本月销售统计、本季度销售统计、本年度销售统计等。其中每次销售统计都是按照产品厂商和销售金额顺序排序的，用户可以一目了然的看出各种型号产品的销售额。使用一个表格显示所选时间段的的全部销售数据，包括销售编号、商品名、生产厂商、产品型号、单价、数量、总金额、销售日期、业务员编号等；再使用另一表格分别显示各个厂商产品的销售金额，还有一个文本框用于显示此时间段的总销售金额。(5) 业绩查看：实现各员工销售情况的查看，可以一次性显示所有员工的销售情况，也可以根据员工编号查看单个员工的销售情况。(6) 查看数据表：实现各种数据表的浏览，包括进货表、销售表、退货表、员工表、进货商、客户表。浏览时此表数据的所有信息项全部显示。如果是员工信息或进货商信息有变化，还可以对员工表和进货商表可以进行修改数据，其他的表则不能进行修改，防止有人制造假数据。销售管理系统5 功能界面设计5.1应用程序主界面的实现系统主界面是程序运行的起始点，负责整个程序的开启和关闭。系统主界面的最终效果图如图5-1所示。图5-1 程序预览运行程序后首先出现登录界面，您需要在用户名称的下拉列表中选择您所使用的用户名，然后键入密码，点击登录按钮或直接按回车键，就根据您的权限进入铁岭香河商贸有限公司销售管理系统。如果你所输入的密码与所选择的用户名不符，就会显示错误信息，提示重新输入。输入成功后，会根据你的权限对你的操作进行了如指掌制，在此系统中设有3种权限，在系统测试中在进行详细介绍。本系统的主界面是一个多文档（MDI）窗体，使用MDI窗体可以使程序条理清晰，井然有序，因为MDI窗体是父窗体，它负责整个程序的启动和关闭，其他的窗体都是它的子窗体。一个应用程序只能有一个MDI窗体，但可以拥有多个子窗体。单击“工程”“添加MDI窗体”菜单，在弹出的对话框中单击“打开”按钮则为当前项目添加了一个MDI窗体。添加好MDI窗体后，按照表51所示设置其各个属性。MDI窗体属性窗体属性取值NameWindows StateCaption铁岭香河商贸有限公司销售管理系统Startup Position2-CenterScreenWindows State2-Maximized(1) 添加菜单使用菜单编辑器为本主窗体添加如图5-2所示的多级菜单。图 5-2 菜单设计其中进货统计菜单下有今日进货量、本月进货量、本季度进货量、今年进货量4个子菜单：销售统计菜单下有今日销售量、本月销售量、本季度销售量、今年销售量4个子菜单：业绩查看菜单无子菜单：查看数据表菜单下有现存货表、各级菜单的Caption和Name属性如表5-2所示。菜单属性设置CaptionName登录系统Noggin登录Mnemonic修改密码Mnchpwd添加新用户Add user退出Minxes交易管理Mntrade进货登记Mnbuylog销售登记Mnselllog退货登记Mnretreat进货统计Minibus今日进货量Minibus本月进货量Mnthmbuy本季度进货量Mnthsbuy今年进货量Mnthybuy销售统计Mnsellst今日销售Mntsell本月销售Mnthmsell本季度销售Mnthssell今天销售Mnthysell业绩查看Mngrade查看数据表Mntable现存货表Mngoodstable已售商品表Mnselltable退回表Mnretable员工表Mnem进货商表Mnfc客户表Mncus帮助Help(2) 系统与数据库的连接ODBC（开放式的数据库连接，Opera Database Connectivity）是一种公认的关系数据源的接口界面。它提供统一的接口界面，ODBC对任何数据源都未作优化。本程序中使用ADO通过ODBC的方法同数据库接口，ADO通过其内部的属性和方法提供统一的数据访问接口。打开“控制面板”进入“管理工具”双击“数据源（ODBC）”图标，进入如图5-3所示的数据源管理器。数据源管理器单击“添加”按钮，进入创建新数据源窗体，选择其中的Microsoft Access Driver（*.mdb）如图5-4所示。创建数据源单击“完成”按钮，进入如图5-5所示的ODBC Microsoft Access安装窗口，在“数据源名”中输入此数据源名称，单击下面的“选择”按钮，选择所要创建数据源的数据库名。可以单击“高级按钮”，进入设置高级选项窗口，设置使用此数据源的帐号和密码。图5-5 ODBC Microsoft Access至此，设置ODBC数据源完毕，下面就可以通过ADO连接使用数据库了。(3) 添加公共模块入引用由于程序中对数据库连接串是整个程序共用的，所有窗体都是用它连接数据源，而且还有一些跨窗体的变量，所以应该使用公共模块来存放这些全避变量。单击“工程”“添加模块”菜单，打开一个公共模块，在其中添加如下代码：Option ExplicitPublic Conn as New ADODB.Connection由于要使用ADO连接数据源，因此在添加代码之前应添加上“Microsoft Active Data Objects 2.0 Library”项。(4) 添加代码主窗体中主要是负责打开和关闭对数据库的连接，其他的代码则主要是实现单击某个菜单选项即弹出相应窗体的语句，添加以下代码以打开数据库连接：Private Sub MDIForm_Load ()Dim strong AS StringStrong=”Provider=MSDASQL .1; Persist Security Info=False; Data Source=Sell System”Conn. Open strCnnEnd Sub上面的strCnn被赋予的值是ADO的连接串属性，其中Provider是数据源的提供者，中间一部分表示使用此数据源不用账号和密码，最后的Data Source 部分是前面建立的ODBC数据源的名称。再添加以下代码，使得关闭程序的同时关闭对数据库的连接；Private Sub MDIForm_unload (Cancel as Integer)End Sub5.2 交易管理的实现交易管理模块下有进货登记、销售登记、退货登记3个子模块。521进货登记的实现重要控件及其属性 进货登记应用界面中重要控件的属性如表5-3年示。进货登记窗体重要控件属设置控件属性属性值FrameNameFrmaddgoodsCaption添加商品FrameNameFaradicCaption添加厂商TextboxNameTxtgoodsnoText编号自动添加EnabledFalseCommandNameComradeCaption添加入库CommandNameCmdResetCaption清空重填CommandNameCmdAddfcCaption添加入库CommandNameCmdResetfccaption清空重填(1) 具体实现方法首先在MDIfrmMain 主窗体代码中添加如下代码，以使单击“进货登记”子菜单后进入本窗体：Private Sub mnbuy log_dlick()FrmAddGoods.ShowEnd Sub(2) 考虑“添加商品”框中的相应代码。由于上下两个框都要使用ADODB.Recordset变量，因此先加入以下代码定义5个窗体范围的ADODB.Recordser变量在代码窗体的上端：Dim rs_supply As New ADODB.RecordsetDim rs_name As New ADODB.RecordsetDim rs_addfc As New ADODB.RecordsetDim rs_add As New ADODB.RecordsetDim rs_addfcname As New ADODB.Recordset首先需要检测是否所有待填字段都已填写相应信息，不允许有空，如果为空则弹出“请填写*！”窗口提示用户。检测完用户输入信息后，再使用上面定义的RecordSet对象变量打开goods表，这样才能添加记录到库中。代码如下：Private Sub cmdadd_click()Dim sq1 As StringSq1=“select * from goods”rs_add.Open sq1, conn, adOpenKeyset, adLockPessimisticEnd Sub上面用的是RecordSet对象的Open方法打开游标。其中最后两个参数是游标类型和对打开的数据集的锁定类型。打开数据表之后，需要使用Recordset的AddNew方法和Update方法，把用户输入的数据添加到goods表中。最后弹出提示窗口，提示用户操作成功，并且需要关闭游标。“清空重填”按钮的操作是为了使前一次填写的信息清空，使各待添字段还原成程序初始状态。添加进货商框的创建与添加商品类似，在此不再赘述。具体代码详见代码册的frmaddgoods部分。5.2.2 销售登记的实现重要控件及其属性销售登记应用界面中重要控件的属性如表5-4所示。销售登记窗体重要控件属性设置控件属性属性值TextboxNameTxtGoodsNotext编号自动添加EnabledFalseCommandNameCmdsellCaption销售CommandNameCmdResetCaption清空重填CommandNameCommand1caption添加新客户具体实施方法首先在MDIfrmMain主窗体代码中添加如下代码，以使单击“销售登记”子菜单后进入本销售登记窗体：Private Sub mnsell_Click ()frmSell.ShowEnd Sub在添加销售登记窗体的代码时也需要加入以下代码定义四个窗体范围的ADODB.Recordset变量在代码窗体的上端：Dim rs_custom As New ADODB.RecordsetDim rs_supply As New ADODB.RecordsetDim rs_add As New ADODB.RecordsetDim rs_check As New ADODB.Recordset同样在销售登记窗体中要检查所有待填字段是否都已输入信息，不允许有空，如果有空则弹出一个提示窗口提示用户。检测完用户输入信息后，还需要检测现存货表中是否有此型号商品，如果有，数量是否够，如果此型号无货或者数量不够，则弹出提示窗口提示用户。检测完能否销售以后，再打开 Sell表的游标，进行销售操作，把相应商品及数量添加入Sell表中。相京戏商品添加入Sell表之后，再把相应数量的此型号商品从goods表中减去，最后，需要关闭所有打开的游标，弹出一个提示窗口，提示用户操作成功。具体代码详见代码册之frmsell部分。5.2.3 退货登记的实现(1) 重要控件及其属性退货登记应用界面中重要控件及其属性如表5-5所示。退货登记窗体重要控件属性设置控件属性属性值TextboxNameTxtGoodsNoText编号自动添加EnabledFalseCommandNameCmdRetreatCaption退货CommandNameCmdResetCaption清空重填Option1ButtonNameOptionlCaption好的，入库存商品库Option1ButtonNameOption2Caption坏的，入废商品库(2) 具体实现方法首先在MDIdfrmMain主窗体代码中添加如下代码，以使单击“退货登记”子菜单后进入本退货登记窗体：Private Sub mnselllog_Click () FrmRetreat.ShowEnd Sub退货操作需要进行以下4个操作：检测是否确实已销售，从销售表中减去，加入退货表，返回加入现存货表或废商品库表。检测和从销售表中减去都是对销售表的操作，因此可以用同一个游标。所以需要加入以下代码定义6个窗体范围的ADODB.Recordset变量在代码窗体的上端：Dim rs_custom As New ADODB.RecordsetDim rs_supply As New ADODB.RecordsetDim rs_back As New ADODB.RecordsetDim rs_check As New ADODB.RecordsetDim rosebay As New ADODB.RecordsetDim rs_buybad As New ADODB.Recordset同相在退货登记窗体中要检查所有待填字段是否都已输入信息，不允许有空，如果为空则弹出一个提示窗口提示用户。所有退货信息都已输入后，再检测是否确实已销售此产品，即从Sell表中检测是否含有此记录，以防止没有销售却来退货，如果不适合退货条件则弹出提示窗口，从销售表中减去后加入现存货表中，且弹出一个提示窗口提示用户操作成功，具体代码详见代码册之frmRetreat部分。5.3 进货统计的实现进货统计模块下有4个子模块，分别是今日进货量、本月进货量、本季度进货量、今年进货量。由于它们的应用界面非常相似，本系统中使用一个Stab控件以选项卡形式在一个应用界面中实现以上4个子模块。进货统计应用界面中最重要的一个控件是一个Stab控件，其属性设置如表5-6和表5-7所示。Stab控件属性设置属性属性值NameStabbedTab count4tabsperRow4Stab控件属性设置Current tabTab Caption0今日进货量1本月进货量2本季度进货量3今年进货量由于每个选项卡的界面都一样，现以“今日进货量”选项卡为便，此选项卡中需加入2个Data Grid控件，2个Adodc控件，1个Label和1个Textbox。控件的属性设置如表5-8所示。今日进货量重要控件属性设置控件属性属性值data gridNameDatdGridlAllowAddNewFalseAllow DeleteFalseAllow UpdateFalseData SourceAdodclData gridNameDataGrid2AllowAddNewFalseAllow DeleteFalseAllow UpdateFalseData SourceAdodc2adodcNameAdodc1VisibleFalseAdodcNameAdodc2VisibleFalseTextboxNameText1LabelNameLabel1caption总金额其中2个Adodc的数据源连接属性进行如下设置：在属性窗口中选中Adodc1的Connecting String属性，单击右边的设置图标，进入属性而窗体，选择第三项“Use Connection String”项，单击“Build”按钮，进入数据链接属性窗体的提供者选项卡，从中选择“Microsoft OLE DB Provider for ODBC Drivers”项，单击“下一步”按钮。进入连接选项卡。在“指定数据源”中选中“使用数据源名称”项，并从下拉菜单中找到前面建立的ODBC数据源“jlgpsellsystem”,如果用户设有用户名和密码，在下面相应地方输入它们。然后，单击“测试连接”按钮测试一下数据源的连接情况，最后单击“确定”按钮，即完成了Adodc控件“Connecting String”属性的设置。设置Adodc控件的“Record Source”属性。单击“Record Source”属性右边的设置图标，进入属性页窗体。从“命令类型”下拉菜单中选择“8-adCmdUnknow”,在下面的“命令文本（SQL）”中添加使用的需要操作SQL语句，如本例中Adodcl用于显示现存货表，故相应的SQL语句应为“select * from goods”。最后单击“确定”按钮。Adodc2用来按生产厂商显示进货总金额，故在Adodc2的“RecordSource”属性中的“命令文本（SQL）”中输入下面的SQL语句：select生产厂商，sum（总金额）as各厂商进货总金额from goods group by 生产厂商。到此，今日进货量选项卡的控件属性设置完成，其他3个选项卡的控件安排和属性设置与今日进货量选项卡级为相似，不再赘述。具体源程序代码详见代码册之frmbuyst部分。5.4 销售统计的实现销售统计模块下含有4个子模块，分别是今日销售量、本月销售量、本季度销售量、今年销售量。由于它们的界面非常相似，本系统中