商品销售管理系统

1、摘要摘要未来的竞争将是效率的竞争，计算机的合理应用无疑将会大大提高竞者的竞争力。本系统就是为了让更多的人合理的使用计算机，提高工作效率。本文论述的是一种便捷高效，适合小型企业和个体使用的商品销售管理系统。通过本文你可以了解到该系统从构想到诞生的全过程。 本系统可以让你通过对鼠标的点击和键盘便捷的实现日常业务，销售报表，基础信息的管理。除此之外你还可以实现对销售，库存，货款进行查询。本系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发。对于数据库要满足数据的完整性与安全性要求。由于本程序的使用者一般对计算机不太熟练，所以开发出来的系统尽可能的要操作简便

2、，操作错误时要给出相关提示信息。添加、修改和删除三者之间的联系是本系统的核心，每一个表的修改都将联动的影响其它的表，当完成添加或删除操作时系统会自动地完成商品进销存的修改。除此之外，本系统还具有查询功能，在系统中可以根据商品名称或编号进行查询。系统管理员可以设置自己的登陆通行证，实现多用户安全操作。本系统是用 VB6.0 编写的，虽然她不是目前最流行的语言，但她是以事件为驱动对象的，具有很强的实用性。另外，SQL SEVER 2000为该系统提供了有力的数据服务。由于水平有限加之时间只有短短数月，本文难免会有不足的地方，望各位专家，恩师，同窗以其他读者批评指正，在此深表感谢。 关键字：关键字：

3、商品销售管理系统，VB6.0, SQL SEVER 2000，ODBC, 模块，界面，报表.ABSTRACTThe completion in the future is the efficiency. It is doubtless that using the computer in the right way will improve your ability. The purpose of this system is to make more people use the computer in the right way and increase the efficiency.Th

4、e system we discussed in this issue is a convenient and effective system, which is designed for small company and personal use. From this issues you will know how the system was designed and how it was made.The using of keyboard and mouse will make you manage the business information,the check of sa

5、ling and basci information.Besides you can require the sale ,money ect. This system is a typical management information system (MIS), which includ building and mataining datebase and make progamme.As the datebaes ,it must be enough and safe.Since most of the custommers are not very good at using com

6、puter ,this programme must be as simple as possible and if there was mistake ,there should have the advice. Add ,change and delete is the key of the system .once you delete or change something ,other things which related to it will also be changed.requirement is another key of the system .according

7、to the name or ID of the commidity,you can get the right information timely .it is very convient. Besides you can add ,change and creat the password. This system is made by VB6.0.Though it is not most popular ,but it is driven by the object.And SQL SEVER 2000 supply a very good date service. Because

8、 of the limits of knowledge and time ,there would have some shortcomings inevitably. We are looking forward to any suggestions from our readers. Thank you。KEYKEY WORLDWORLD: the system of sale management; VB6.0 , SQL SEVER 2000 , ODBC , MODEL , FRAME , TABLE.目录目录摘要摘要.1 1关键字：.2ABSTRACTABSTRACT.3 3KEY

9、 WORLD.4第一章第一章 背景介绍背景介绍.7 7为何要选择该课题.71.2 系统开发目的.81.3 可行性研究.81.4 开发工具选取.11第二章第二章 高效的开发工具高效的开发工具.1212简介.122.2 ODBC.14.16系统配置.19第三章第三章 总体设计总体设计.2323系统功能分析.233.2 系统功能模块设计.233.3 系统流程图.24第四章第四章 系统应用程序设计系统应用程序设计.3030系统综述.30模块组成.30核心窗体简介.31销售报表模块的界面及其代码实现.39第五章第五章 放眼未来放眼未来.4444致谢致谢.4545参考文献参考文献.4646第一章第一章 背

10、景介绍背景介绍为何要选择该课题为何要选择该课题 技术的发展，科技的进步使计算的应用不仅仅再局限与大中型企业。计算机的普及已经成为一种势不可挡的趋势。为了提高自身的竞争力和工作效率，小型企业与个体商户开始寻求一种经济可行的计算机管理方法。商品销售管理系统在这种情况下应运而生，因时而起！ 该系统操作方便，便捷的实现了对客户信息，销售信息以及销售员信息及时，高效的处理。 该系统是 VB 与 SQL 的有效结合，通过这两种有效的工具，我们顺利实现了一个商品销售管理系统应有的功能。为小型企业和个人更好更快的做好销售工作贡献了自己的一点微薄之力。运行环境运行环境硬件环境硬件环境：CPU:PC586,133

11、HZ 以上；内存：16M 以上硬盘：1G 以上光驱：4 倍速以上软件平台软件平台：操作系统:windows98/2000/XP关系数据库管理系统：SQL SEVER 20001.21.2 系统开发目的系统开发目的 (1)大大提高中小企业以及个体商户的运作效率；(2)通过全面的信息采集和处理，辅助提高中小企业以及个体商户的商品销售管理及其效率； (3)使用本系统，可以迅速提升中小企业以及个体商户的管理水平，为降低经营成本， 提高效益，增强中小企业以及个体商户扩张力， 提供有效的技术保障。1.31.3 可行性研究可行性研究 在系统初步调查的基础上，明确了中小企业以及个体工商户存在的问题，建立了初步

12、的商品销售管理信息系统设想，并了解了中小企业以及个体工商户对将要开发的系统的功能要求，下面就开发本系统的技术、经济、可行性和系统的开发目标范围等因素进行分析研究。（1）系统的可行性研究 鉴于目前社会上电脑的日益普及化，无纸化作业已经成为一个趋势，中小企业以及个体工商户有关商品的进销存是核心内容。这部分的规范化、自动化管理迫在眉睫。本系统开发安全易用，使操作员能在很短的时间内就可以熟练的操作本系统。 （2）系统的目标 本系统的目标是：按照 MIS 的原理和方法，采用计算机和信息化技术等手段，支持商品信息管理的全过程，提高中小企业以及个体工商户对商品信息管理的工作的效率，及时准确的了解商品的进销存

13、情况。 （3）数据库需求分析 根据需求分析，系统共需要六张表，分别是：操作员信息表，商品信息表厂商信息表，库存信息表，进货信息表、和售货信息表。下面分析每张数据表要的详细信息“员工信息表”用来存放员工的基本信息。所需的字段有：员工号、姓性别、出生日期、文化程度、身份证号码、家庭地址和联系 等。其中员工作为该表的住索引。“商品信息表”用来记录超市里每种商品的信息，这是系统中主要的操作对大部分操作都需要涉及到该表中的信息。 “商品信息表”所需字段有：商品 id、商品名称、商品简称、价格、规格、产地、单价和库存数量等。其中每个商品都有惟一的编号商品 id，该字段为数据表的关键字段。 “库存信息”表是

14、用来存放超市里面每种商品的库存信息，该表所需字段有：商品 id 和库存数量等。 “进货信息表”用来存放每次的进货信息。 “进货信息表”与系统的多张数据表相关联，在表中需要的字段有：进货 id、商品 id、进价、数量、金额、员工 id 和进货日期。由于不同的进货记录可能有相同的员工 id 和商品 id，所以员工 id 和商品 id 的组合不能作为进货信息表的住索引，在进货信息表中需要设置一个进货 id 作为住索引。 “售货信息表”用来记录每次的售货信息，售货信息表中的字段有：售货 id、员工 id、商品 id、数量、金额和销售日期等。结论:本系统适用于各种中小企业以及个体工商户的销售管理，全面概

15、括了产品的进、销、存等各种处理，便于用户添加、删除、修改、查询。通过进货单、出货单的登记可实现产品的入库、出库。在入库查询和出库查询中可看到每一次入库、出库的详细信息。同时，每次的进货、出货也都会在库存中留下纪录，可在库存账中查询到。通过本系统的使用，可以真正的实现信息的合理化、现代化、信息化管理，充分的利用资源，节约管理开支，避免资源的浪费。首先要明确系统要实现什么功能，绘制出数据流图，根据数据流图中划分出的系统基本功能，进一步将它们具体化。一个完整的系统包含了很多模块，在保证每一个模块本身的正确性外，还要看它是否可以和其他模块正确的连接，从而保证整个系统的功能的实现。系统开发实际上是一个很

16、细致的事情，在设计上很多的细节问题是决定系统能否正常运行的关键，这就是所谓的“不怕做不到，就怕想不到！” 产品进销存管理系统如果能投入使用，将会给中小企业以及个体工商户的销售管理带来很大的方便。但是本管理系统仍然存在着一些不足。如本系统只能用于单个的企业以及个体工商户，还不能用于连网销售。还有，出货单这块，我原以为就是进货的反过程，其实不然，首先要在库存中查找是否由该产品，没有的话就给出提示，有的话再比较出货数量和库存数量的关系，若出货数量小于库存数量，修改库存数量即可，若出货数量等于库存数量，将库存中这一产品的记录删除，若出货数量大于库存数量，给出提示，并转到库存查询模块供用户查询。问题就出

17、在最后一种情况。虽然现在还不能解决这些问题，我会在以后的学习中进一步完善。1.41.4 开发工具选取开发工具选取本系统以 VB6.0 为基本开发平台，以 SQL SERVER2000 为后台支持，界面简洁实用，操作方便。第二章 高效的开发工具Visual BASIC 的发展：1991 年 Microsoft 首次推出了可视化的 BASIC1C1992 年秋 Microsoft 推出 Visual BASIC 20，对 10 版本作了许多改进；1993 年 Microsoft 推出 Visual BASIC 30，增加了数据库访问功能和三维图形外观设计功能；1995 年推出了 Visual Ba

18、sic 40，适应了 32 位操作系统的要求，能开发 32 位应用程序。1997 年推出了基于 win95 的 Visual Basic 50，增加了对 Internet的支持和开发能力，分三个版本（学习版、专业版、企业版）1998 年推出了 Visual BASIC 6.0，进一步加强对数据库和 Internet的访问。Visual Basic 有三种版本，可以满足不同的开发需要。学习版：使编程人员轻松开发 Windows 和 Windows NT(r)的应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有 Learn VB Now CD 和包含全部联机文档的

19、Microsoft Developer Network CD。专业版：为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及 ActiveX 控件、Internet Information Server Application Designer、集成的 Visual Database Tools 和 DataEnvironment、Active Data Objects 和 Dynamic HTML Page Designer。专业版提供的文档有 Visual Studio Professional Features 手册和包含全部联机文档的 Microsoft Deve

20、loper Network CD。企业版：使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及 Back Office 工具，例如 SQL Server。1 1具有面向对象的可视化设计工具具有面向对象的可视化设计工具：VB 在设计应用程序界面时，可以通过键盘鼠标以及徒手画出来，不需要大量的代码再编译生成。2 2事件驱动编程事件驱动编程：在使用 VB 设计应用程序时，必须首先确定应用程序是通过哪个事件（如鼠标单击、键盘输入等）同用户进行交互的，这就是事件驱动编程。2.22.2 ODBCODBCODBC(Open Database Connectivity，开放数据

21、库互连)是微软公司开放服务结构(WOSA，Windows Open Services Architecture)中有关数据库的一个组成部分，它建立了一组规范，并提供了一组对数据库访问的标准 API（应用程序编程接口） 。这些 API 利用 SQL 来完成其大部分任务。ODBC 本身也提供了对 SQL 语言的支持，用户可以直接将 SQL 语句送给 ODBC。一个基于 ODBC 的应用程序对数据库的操作不依赖任何 DBMS，不直接与 DBMS 打交道，所有的数据库操作由对应的 DBMS 的ODBC 驱动程序完成。也就是说，不论是 FoxPro、Access , MYSQL还是 Oracle 数据库

22、，均可用 ODBC API 进行访问。由此可见，ODBC的最大优点是能以统一的方式处理所有的数据库。一个完整的 ODBC 由下列几个部件组成：应用程序(Application)。ODBC 管理器(Administrator)驱动程序管理器(Driver Manager) ODBC APIODBC 驱动程序。数据源各部分之间的关系如下图所表示：应用程序要访问一个数据库，首先必须用 ODBC 管理器注册一个数据源，管理器根据数据源提供的数据库位置、数据库类型及 ODBC 驱动程序等信息，建立起 ODBC 与具体数据库的联系。这样，只要应用程序将数据源名提供给ODBC，ODBC 就能建立起与相应数据

23、库的连接。ODBC 使用层次的方法来管理数据库，在数据库通信结构的每一层，对可能出现依赖数据库产品自身特性的地方，ODBC 都引入一个公共接口以解决潜在的不一致性，从而很好地解决了基于数据库系统应用程序的相对独立性，这也是ODBC 一经推出就获得巨大成功的重要原因之一。 SQLSQL SERVERSERVER 是由是由 MICROSOFTMICROSOFT 开发和推广的关系数据库管理系统（DBISDBIS） ，它最初是由 Mirosoft、Sybase 和 Ashton-Tate 三家公司共同开发的，并于 1988 年推出了第一个 OS/2 版本。SQL Server 近年来不断的更新版本，1

24、996 年 Mirosoft 推出了 SQL Server 6.5 版本；1998 年，SQL Server 7.0 版本和拥护见面；SQL Server 2000 是大型数据库管理系统；它建立在成熟而强大的关系模型基础上，可以很好地支持客户机/服务器网络模式，能够满足各种类型的企事业单位对构件网络数据库的需求，并且在易用性、可扩展性、可靠性以及数据仓库等方面确立了世界领先的地位，是目前各级学校学习大型数据库管理系统的首选教材。1.SQL1.SQL ServerServer 20002000 常见的版本：常见的版本：企业版（Enterprise Edition）标准版（Standard Edi

25、tion）个人版 (Personal Edition)开发者版 (Developer Edition)2.SQL2.SQL ServerServer 系统数据库及简介系统数据库及简介1.SQL1.SQL ServerServer 20002000 有六个系统数据库：有六个系统数据库：Master 数据库是 SQL Server 系统最重要的数据库，它记录了SQL Server 系统的所有系统信息。这些系统信息包括所有的登录信息、系统设置信息、SQL Server 的初始化信息和其它系统数据库及用户数据库的相关信息。Model 数据库是所有用户数据库和 Tempdb 数据库的摸板数据库，它包含有

26、 Master 数据库所有的系统表的子集，这些系统数据库是每个用户定义数据库需要的。Msdb 数据库是代理服务器时局棵，为其警报、任务调度和记录操作员的操作提供存储空间。Tempdb 是一个临时数据库，它为所有的临时表、临时存储过程及其它临时操作提供存储空间。Pubs 和 Northwind 数据库是两个实例数据库，它们可以作为 SQL Server 的学习工具。 2.SQL2.SQL ServerServer 系统简介：系统简介：系统目录是由描述 SQL Server 系统的数据库、基表、视图和索引等对象的结构的系统表组成。SQL Server 经常访问系统目录，检索系统正常运行所需要的必要

27、信息。包括下面几个重要的系统表：SysobjectsSysobjects：SQL 2000 的主要系统表 Sysobjects 出现在每个数据库中，它对每个数据库对象含有一行记录。SyscolumnsSyscolumns 表：表：系统表 Syscolumns 出现在 master 数据库和每个用户自定义的数据库中，它对基表或者视图的没个列和存储过程中的每个参数含有一行记录。SysindexesSysindexes 表：表：系统表 Sysindexes 出现在 master 数据库和每个用户自定义的数据库中，它对每个索引和没有聚族索引的每个表含有一行记录，它还对包括文本/图象数据的每个表含有一行

28、记录。SysusersSysusers 表：表：系统表 Sysusers 出现在 master 数据库和每个用户自定义的数据库中，它对整个数据库中的每个 Windows XP 用户、Windows XP 用户组、SQL Server 用户或者 SQL Server 角色含有一行记录。SysdatabaseSysdatabase 表：表：系统表 Sysdatabase 对 SQL Server 系统上的每个系统数据库和用户自定义的数据库含有一行记录，它只出现在master 数据库中。1 1、运行环境设置、运行环境设置本实例是在 Windows 2000 下开发的，程序测试环境为Windows20

29、00 和 WindowsXP。用户在 Windows 98、Windows 2000 和Windows XP 下都可使用本实例。2 2、源程序使用方法、源程序使用方法如果用户要使用源程序，计算机除了满足上面要求的配置外，还需要完成如下工作。在系统上安装。如果后台数据库为 SQL Server 2000，请在系统上安装SQLServer2000。关于数据库方面的说明参见下一节。程序统一用户名及密码，用户名：mr，密码：mingrisoft。3 3、使用数据库、使用数据库1.将实例目录“database”文件夹下扩展名为“.MDF”和“.LDF”的两个文件拷贝到 SQL Server 2000 安

30、装路径下的“MSSQL”/“Data”目录下。2.打开 SQL Server 2000 中的“企业管理器” ，然后展开本地服务器，在“数据库”数据项上单击鼠标右键，在弹出的快捷菜单中选择“所有任务”/“附加数据库”菜单项，如图 1 所示。图 1 附加数据库3.将弹出“附加数据库”对话框，如图 2 所示。图 2 附加数据库对话框4.在该对话框中单击“”按钮选择所要附加数据库的.mdf 文件的路径，例：加采购管理系统的数据库可以选择 “C:sqlMSSQLDataData_cggl” ，如图 3 所示。单击【确定】按钮，即可完成数据库的附加操作。图 3 选择所要附加的数据库4 4、配置、配置 OD

31、BCODBC下面以门诊计价收费管理系统为例，讲解配置 ODBC 的方法。1.单击“控制面板”/“ODBC 数据源” ，打开“ODBC 数据源管理器” 。2.单击“添加”按钮，打开“创建新数据源”窗口，在此选择“SQL Server” 。3.单击“完成”按钮，打开“建立新的数据源到 SQL Server”窗口，在“名称”文本框中输入“MZJJSFXT” （数据库名称） ；在“服务器”下拉列表框中输入想连接的 SQL Server 服务器。如果要连接的SQL Server 是安装在本地机上的，那么可以选择 local，local 表示连接到本地的服务器。如果要连接的 SQL Server 是安装在

32、其他的服务器上的，则选择所需的服务器名称。4.单击“下一步”按钮，打开“创建到 SQL Server 的新数据源”窗口，选定“使用用户输入登录 ID 和密码的 SQL Server 验证”选项，在“登录 ID”文本框中输入“sa” ；“密码”文本框为空。5.单击“下一步”按钮，在弹出的对话框中勾选“更改默认的数据库为”选项，在下拉列表中选择“MZJJSFXT”数据库，单击“下一步”按钮，再单击“完成”按钮，数据源便配置成功了。第三章 总体设计商品销售管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强

33、、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本系统主要完成对商品进销存的管理，包括添加、修改、删除，查询以用户管理等六个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。 系统的核心是添加、修改和删除三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成添加或删除操作时系统会自动地完成商品进销存的修改。查询功能也是系统的核心之一，在系统中主要根据商品名称和商品编号进行查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能，适合多用户操作管理。3.23.2 系统功能模块设计系统功能模块设计该系统主要有五大块：日常业务管理模块、查询

34、统计管理模块、销售报表管理模块、基础信息管理模块、系统设置管理模块。日常业务管理模块包括销售开单 销售退货 客户结款等资料的录入与查询。查询统计管理模块包括有销售查询、销售退货查询、应收款查询、库存商品查询等查询。销售报表管理模块包括有商品销售汇总表、客户销售汇总表、操作员销售汇总表等。基础信息管理模块包括有商品信息管理、操作员信息管理、客户信息管理等。5. 系统设置管理模块系统设置管理模块包括有操作员管理和系统初始化管理等。3.33.3 系统流程图系统流程图1.1.本系统数据流程图基本图形元素如下所示本系统数据流程图基本图形元素如下所示： 数据的开始与结束 决策 过程 数据程序流向2.2.程

35、序逻辑结构描述图例程序逻辑结构描述图例顺序结构：一个命令接一个地执行；选择结构：(或 IF-THEN-ELSE)当一个决定有多种不同执行结果时；循环结构：只要条件成立就一直执行.3.3. 程序流程图程序流程图1.1.登陆流程图登陆流程图 Y N Y N 设计说明:进入主界面后,提示输入用户名和密码,在输入之后按确定进入,验证用户名和密码,实现流程:1.检测数据库中有无管理员帐号,如果有,则等待用户输入用户名和密码,否则按程序本身自动执行插入命令,新建一个管理员用户,并等待用户输入. 2.验证用户名和密码是否正确。 3.当验证通过后,检测该登陆用户的管理权限,并设置变量传值给主窗体。2.2.主界

36、面操作图：主界面操作图：通过主界面可以进入如下图所表示的相应模块，然后在进入下一级子模块实现商品销售的全面管理。登陆主界面验证帐号验证密码进入主界面日常业务销售开单销售退货客户结款主界面日常业务查询统计基础信息管理销售报表退出系统退出系统系统设置销售报表客户销售报表商品销售报表操作员销售报表基础信息管理客户信息管理商品信息管理销售员信息管理查询统计销售查询销售退货查询库存商品查询应收货款查询系统信息设置操作员管理系统初始化第四章第四章 系统应用程序设计系统应用程序设计 该系统以 VB6.0 为基本开发平台，SQL SEVER 2000 为后台支持，界面清晰，操作简便。每一个操作员都有自己的通行

37、证，只能对自己的信息进行高效操作，安全可靠。 该系统主要包括五大模块：日常业务，查询统计，销售报表，基础信息管理，系统设置。 ：销售开单，退货，结款三个字模块。通过它们可以轻松实现日常业务的管理。：销售查询，退货查询，货款查询以及库存查询四个模块。通过这四个子模块可以实现各种基本信息的查询。 ：客户报表，销售报表，销售员报表三个子模块。通过这三个子模块可以便捷的查询相关报表的具体信息。：商品，销售员，客户信息三个子模块。通过这三个模块可以实现对基础信息的管理。 ：做作员管理，系统初始化。通过这两个模块可以实现管理员之间的透明操作，互不干扰。 1.1.系统登录界面及其代码实现：系统登录界面及其代

38、码实现： 双击系统图标，出现登陆界面，然后输入相应的通行证，方可进入系统如下图所示： 实现代码实现代码Dim Tim As Integer 定义一个整型变量Dim rs1 As New ADODB.Recordset 定义一个数据集对象Dim myval As String 定义一个单精度浮点型变量Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus text2 获得焦点End SubPrivate Sub Form_Ac

39、tivate()End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Cmd1.Visible = True End IfEnd SubPrivate Sub Cmd1_Click() rs1.Open select * from 操作员信息表 where 操作员名称= & DataCombo1.BoundText & , Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount

40、0 Then If DataCombo1.Text = Then MsgBox (请选择操作员！), vbOKOnly Exit Sub End If 验证操作员及密码 Dim MESSAGE As String Textime.Text = Tim If Text2.Text = rs1.Fields(密码) Then Load frm_main Unload Me Else If Tim = 3 Then MESSAGE = MsgBox(密码输入错误,请向系统管理员查询!, 0, ) If MESSAGE = vbOK Then End End If If Text2.Text rs1.

41、Fields(密码) Then MsgBox (密码错误,请重新输入密码!) Tim = Tim + 1 End If End If Else MsgBox 初次登录本系统，请在进入系统后，立即设置操作员及其密码，以确保系统的安全！, , 提示窗口 Load frm_main Unload Me End IfEnd SubPrivate Sub cmd2_Click() EndEnd Sub2 主界面及其代码实现：主界面及其代码实现：在主界面上可以通过相应下拉菜单进入日常业务，查询统计，销售报表，系统设置的相关操作，除此之外还可以通过下方的快捷方式直接进入相关操作。代码实现：Private S

42、ub Form_Load() 在标题栏上显示软件名称及版本 Dim i As Integer 定义整型变量 For i = 0 To 1 Next iEnd SubPublic Sub updateStatusBar(ByVal PanelNum As Integer, ByVal StringVal As String, ByVal Bitmap As Boolean) If Not Bitmap Then St1.Panels(panelnume).Text = StringVal Else End If End SubPrivate Sub Form_MouseMove(Button A

43、s Integer, Shift As Integer, X As Single, Y As Single) St1.Panels(1).Text = updateStatusBar(1, frm_main.jcxxgl.Caption, True)End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Case Is = xs 调入销售窗口 xskd_Click Case Is = xsth 调入销售退货窗口 xsth_Click Case Is = xscx 调入销售查询窗口 xscx_Clic

44、k Case Is = xsbb 调入客户销售汇总窗口 khxshzb_Click Case Is = xssk 调入销售收款窗口 xssk_Click Case Is = kh 调入客户信息管理窗口 khxxgl_Click Case Is = xsy 调入销售员信息管理窗口 xsyxxgl_Click Case Is = help 调入帮助窗口 myhelp_Click End SelectEnd SubPrivate Sub Timer1_Timer() 设置时间 St1.Panels(1).Text = Format(Date, long date) & & TimeE

45、nd SubPrivate Sub xskd_Click() 调入销售窗口 Load main_rcyw_xs frm_main.Enabled = FalseEnd SubPrivate Sub xssk_Click() 调入销售收款窗口 Load main_rcyw_xssk frm_main.Enabled = FalseEnd SubPrivate Sub xsth_Click() 调入销售退货窗口 Load main_rcyw_xsth frm_main.Enabled = FalseEnd SubPrivate Sub xscx_Click() 调入销售查询窗口 Load main

46、_cxtj_xscx frm_main.Enabled = FalseEnd SubPrivate Sub xsthcx_Click() 调入销售退货查询窗口 Load main_cxtj_xsthcx frm_main.Enabled = FalseEnd SubPrivate Sub skcx_Click() 调入应收款查询窗口 Load main_cxtj_skcx frm_main.Enabled = FalseEnd SubPrivate Sub kccx_Click() 调入库存商品查询窗口 Load main_cxtj_kccx frm_main.Enabled = FalseE

47、nd SubPrivate Sub khxshzb_Click() 调入客户销售汇总表 Load main_xsbb_khxshzb frm_main.Enabled = FalseEnd SubPrivate Sub khxsmxb_Click() 调入客户销售明细表 Load main_xsbb_khxsmxb frm_main.Enabled = FalseEnd SubPrivate Sub spxshzb_Click() 调入商品销售汇总表 Load main_xsbb_spxshzb frm_main.Enabled = FalseEnd SubPrivate Sub spxsmx

48、b_Click() 调入商品销售明细表 Load main_xsbb_spxsmxb frm_main.Enabled = FalseEnd SubPrivate Sub ywyxshzb_Click() 调入业务员销售汇总表 Load main_xsbb_xsyxshzb frm_main.Enabled = FalseEnd SubPrivate Sub ywyxsmxb_Click() 调入业务员销售明细表 Load main_xsbb_ywyxsmxb frm_main.Enabled = FalseEnd SubPrivate Sub spxxgl_Click() 调入商品信息管理窗

49、口 Load main_jbxx_spll frm_main.Enabled = FalseEnd SubPrivate Sub xsyxxgl_Click() 调入销售员信息管理窗口 Load main_jbxx_xsrycx frm_main.Enabled = FalseEnd SubPrivate Sub khxxgl_Click() 调入客户信息管理窗口 Load main_jbxx_kh frm_main.Enabled = FalseEnd SubPrivate Sub czysz_Click() 调入操作员及密码管理窗口 Load main_xtsz_czysz frm_mai

50、n.Enabled = FalseEnd SubPrivate Sub qxsz_Click() 调入权限设置 Load main_xtsz_qxsz frm_main.Enabled = FalseEnd SubPrivate Sub xtcsh_Click() 调入初始化窗口 Load main_xtsz_xtcsh frm_main.Enabled = FalseEnd SubPrivate Sub myhelp_Click() 调入帮助窗口 Load frmTip frm_main.Enabled = FalseEnd SubPrivate Sub about_Click() 调入关于

51、窗口 Load frmAbout frm_main.Enabled = FalseEnd SubPrivate Sub exit_Click() EndEnd SubPrivate Sub 退出_Click() EndEnd Sub 这三个子模块在设计上有一个共同点，那就是通过界面上方的两个下拉菜单可以选择需要查询信息的日期区间内相关报表的情况。在客户销售报表里面可是看到相关日期内销售报表的汇总；在商品销售汇总里面可以看到商品销售汇总表；在员销售汇总表里面管理者可以轻松查阅销售员的工作情况，有利于业绩的进一步提高和相关数据分析。代码实现：Private Sub Form_Load() DTP1

52、.Value = Date - 30: DTP2.Value = Date 设置日期 Command1_ClickEnd SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True 设置主窗体有效End SubPrivate Sub Command1_Click() 统计汇总客户销售商品信息 Adodc1.RecordSource = select 客户全称,count(*)as 销售品种,sum(数量)as 销售数量,sum(金额)as 销售金额,销售员,操作员 from 销售信息表 where 日期 betwe

53、en + Str(DTP1.Value) + and + Str(DTP2.Value) + group by 客户全称,销售员,操作员 Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click() Call CmdEnd(Me)End Sub代码实现：Private Sub Form_Load() DTP1.Value = Date - 30: DTP2.Value = Date 设置日期 Command1_Click Me.Caption = Me.Caption & 操作员： & frm_main

54、.St1.Panels(3).TextEnd SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True 设置主窗体有效End SubPrivate Sub Command1_Click() 统计汇总客户销售商品信息 Adodc1.RecordSource = select 商品名称,count(*)as 销售品种,sum(数量)as 销售数量,sum(金额)as 销售金额,客户全称,销售员,操作员 from 销售信息表 where 日期 between + Str(DTP1.Value) + and + Str(DTP2.Value) + group by 商品名称,客户全称,销售员,操作员 Set DataGrid1.DataSource = Adodc1End Su