关 键 词：

毕业设计论文

资源描述：

JSJ06-071@VB+ACC商场管理系统,毕业设计论文

内容简介：

1 前言 商场管理系统是一个商场不可缺少的部分 ,它的内容对于商场的决策者和管理者来说都至关重要 ,所以商场管理系统应该能够为用户提供充足的信息和快捷的销售，查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多缺点 ,如 :效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分 ,使用计算机对品质信息 进行管理 ,具有着手工管理所无法比拟的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高商场管理的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情 ,在下面的各章中我们将以开发一套商场管理系统为例 ,谈谈其开发过程和所涉及到的问题及解决方法。 nts 2 摘要 商场管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数 据安全性好的库。而对于后者则要求应用程序功能完备 ,易使用等特点。 经过分析 ,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后 ,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。 本系统主要完成对商场的管理，包括进货管理，销售管理，库存管理和员工管理四个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。 系 统的核心是 销售 、 库存查询 和 进货管理 三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成 销售 或 进货 操作时系统会自动地完成 相对应信息的修改。查询功能也是系统的核心之一，在系统中主要根据 商品编号和商品名称等进行查询，其目的都是为了方便用户使用 ，以求更快的查找到各个物料和产品品质的基本信息 。系统有完整的用户添加、删除和密码修改功能，系统采用 Microsoft Office 中的 Access 2000 来设计数据库，并使用当前优秀的开发工具 VB 6.0 ，它有着最为灵活的数据库结构，对数据库应用有着良好的支持。 论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。 关键字：控件 ,窗体 ,数据库， visual basic 语言，商场，商 品 nts 3 nts 4 目录 引言 .1 第一章 Visual basic 6.0 简介 . .2 1.1 Visual basic 6.0 简介 . . .2 1.2 ACCESS 数据库介绍 . 2 1.3 ADO 技术 . 3 1.4 SQL 语言 .4 第二章 需求分析 .5 2.1 系统分析 .5 第三章 系统设计 .7 3.1 数 据 库 设 计 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .7 3.2 系统功能介绍 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 9 3. 3 流程图和 E-R 图设计 .14 3.4 系统演示 . .16 第四章 系统测试 .39 结 束语 . .41 致谢 . .42 参考文献 . 43 前言 商场管理系统是一个商场不可缺少的部分 ,它的内容对于商场的决策者和管理者来说都至关重要 ,所以商场管 理系统应该能够为用户提供充足的信息和快捷的销售，查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多nts 5 缺点 ,如 :效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分 ,使用计算机对品质信息进行管理 ,具有着手工管理所无法比拟的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长 、成本低等。这些优点能够极大地提高商场管理的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情 ,在下面的各章中我们将以开发一套商场管理系统为例 ,谈谈其开发过程和所涉及到的问题及解决方法。 nts 6 摘要 商场管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备 ,易使用等特点。 经过分析 ,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后 ,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。 本系统主要完成对商场的管理，包括进货管理，销售管理，库存管理和员工管理四个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。 系统的核心是 销售 、 库存查询 和 进货管理 三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成 销售 或 进货 操作时系统会自动地完成 相对应信息的修改。查询功能也是系统的核心之一，在系统中主要根据 商品编号和商品名称等进行查询，其目的都是为了方便用户使用 ，以求更快的查找到各个物料和产品品质的基本信息 。系统有完整的用户添加、删除和密码修改功能，系统采用 Microsoft Office 中的 Access 2000 来设计数据库，并使用当前优秀的开发工具 VB 6.0 ，它有着最为灵活的数据库结构，对数据库应用有着良好的支持。 论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点 技术和解决方案。 关键字：控件 ,窗体 ,数据库， visual basic 语言，商场，商 品 nts 7 nts 8 目录 引言 .1 第二章 Visual basic 6.0 简介 . .2 1.1 Visual basic 6.0 简介 . . .2 1.2 ACCESS 数据库介绍 . 2 1.3 ADO 技术 . 3 1.4 SQL 语言 .4 第二章 需求分析 . .5 2.1 系统分析 .5 第三章 系统设计 .7 3.1 数 据 库 设 计 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 7 3.2 系统功能介绍 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .9 3. 3 流程图和 E-R 图设计 .14 3.4 系统演示 . .16 第四章 系统测试 .39 结束语 . .41 致谢 . .42 参考文献 . 43 引言 本软件使用 Microsoft Visual Basic 6.0 进行编写。数据库技术的产生与发展源于对于数据的组织和管理。数据库技术是数据管理的技术，它随着数据管理任务的需要而产生于 20 世纪 60 年代中期。 这是一门综合性技术，涉及操作系统，数据结构，算法设计和程序设计等知识。数据库技术的基本思想是对数据实行集中，统一，独立的管理，nts 9 用户可以最大限度的共享数据资源。 数据库系统实际上是一个应用系统，它是在计算机硬，软件系统支持下，由用户，数据库管理系统，存储在存储设备上的数据和数据库应用程序构成的数据处理系统。数据库系统是由数据，数据库管理系统，应用程序，用户组成。 数据库的特点： 1.实现数据共享 2.实现数据独立 3.减少了数据冗余度 4.避免了数据不一致性 5.加强了对数据的保护。 数据库应用系统（ DATABASE APPLICATION SYSTEMS DBAS） 1 管理信息系统 2 开放式信息服务系统 一个数据库应用系统通常是由数据库和应用程序两部分组成，它们是在数据库管理系统支持下设计和开发出来的。 nts 10 第一章 系统实现的理论基础 1.1 VISUAL BASIC 6.0 简介 Visual Basic 作为当今社会功能强大的可视化开发工具具有以下几大特点： （ 1）成功的简化了界面的设计过程。它在 Windows 平台上提供了图形用户界面（ GUI）的集成开发环境（ IDE）。在集成开发环境中，你可以选择想要显示的工具栏，将按钮添加 并移动到工具栏中，在不固定的或固定的工具栏中以及 SDI 或 MDI 界面中进行选择， Visual Basic 的 IDE 就像飞机的坐舱，完成你工作所需的所有量表和仪器都已经配备好了。采用简单易学的 Basic 语言，它既适用于没有任何编程经验的开发者学习，也适合于开发各种复杂的底层应用程序，使用 Basic 语言编写的应用程序简洁灵巧易于维护，可以说它是一种“天生结构化”的语言。 （ 2）提供了多种向导。利用这些向导，可以快速地完成一般性的任务，例如生成其控件不绑定到数据控件上的纯代码窗体，建立查询，添加工具，制作图表，以及发 布创建的应用程序等，这样可以大大加快应用程序的开发过程。 （ 3）具有强大的数据和字符串处理功能。 Visual Basic 还是一种易于扩充功能的开发系统。一方面，它可以使用第三方厂家提供的各种 Visual Basic 使用的控件；另一方面，开发者也可以使用其他编程语言编写自己所需的控件，因此它是一种可以不断扩充功能的开发系统。 （ 4）提供了 IntelliSense 技术。当你在 Visual Basic 的代码窗口敲进对象名称的时候， IntelliSense技术会自动向你显示一些相关的信息，例如对象的属性和方法 1.2 ACCESS 数据库介绍 Microsoft Access 是微软公司开发的第一个面向 Windows平台的桌面数据库管理系统，它充分利用了 Windows 平台的优越性，如图形界面和 Windows 的事件驱动机制等。 作为 Microsoft的 office套件产品之一 ,access已经卖出了近 700万份 ,成为世界上最流行的桌面数据库系统。 Access 与许多优秀的关系数据库一样，可以让你很容易地连接相关的信息而且还对其他的数据库系统有所补充。它能操作其它来源的资料，包nts 11 括许多流行的 PC 数据库程序（如 dBASE， Paradox， Microsoft FoxPro）和服务器、小型积极大型机上的许多 SQL 数据库。 Access 还完全支持 Microsoft 的 OLE 技术。 Access还提供 windows 操作系统的高级应用程序开发系统。 Access 与其它数据库开发系统之间相当显著的区别就是：您不用写一行代码，就可以在很短的时间里开发出一个功能强大而且相当专业的数据库应用程序，并且这一愉快的过程是完全可视的！如果您能给它加上简短的 VBA 代码，那么您的程序决不比专业程序员潜心开发的程序差。 1.3 ADO 技术 Active Data Objects(ADO)微软最新的数据库访问技术，它被设计用来同新的数据访问层 OLE DB Provider 一起协同工作，以提高通用数据访问 (Universal Data Access).OLE DB 是一个低层的数据访问接口，用它可以访问各种数据源，包括传统的关系型数据库，以及电子邮件系统及自定义的商业对象。 ADO 向我们提供了一个熟悉的，高层的对 OLE DB 的 Automation 的封装接口。对那些熟悉 RAO 的程序员来说，可以把 OLE DB 比作是 ODBC 驱动程序。如同 RAO 对象是 ODBC驱动程序接口一样，不 同的数据源要求它们自己的 OLE DB 提供者 (OLE DB Provider)。 ADO 最重要的三个对象 是 :Connection, Command, Recordset。 (1) Connection 对象 Connection 对象用于建立与数据库的连接 。 通过连接可从应用程序访问数据源 。 它保存诸如指针类型 ,连接字符串 ,查询超时 ,连接超时和缺省数据库这样的连接信息 。 (2) Command 对象 在建立 Connection 后 ,可以发出命令操作数据源 。 一般情况下 ,Command 对象可以在数据库中添加 ,删除或更新数据 ,或者在表中进行数据查询 。 Command 对象在定义查询参数或执行一个有输出参数的存储过程时非常有用 。 (3) Recordset 对象 Recordset 对象只代表一个记录集 ,这个记录集是一个连接的数据库中的表 ,或者是 Command 对象的执行结果返回的记录集 。 在 ADO 对象模型中 ,是在行中检查和修改数据的最主要的方法 ,所有对数据的操作几乎都是在 Recordset 对象中完成的 。Record 对象用于指定行 ,移动行 、 添加 、 更改 、 删除记录 。 nts 12 1.4 SQL 语言 SQL 语言是一种介于关系代数与关系 演算之间的结构化查询语言，其功能不仅仅是查询。 SQL 是一个通用的、功能极强的关系数据库语言。 SQL 语言之所以能够为用户和业界所接受，并成为国际标准，是因为它是一个综合的、功能极强同时有简单易学的语言。 SQL 语言集数据查询（ Data Query）、数据操纵（ Data Manipulation）、数据定义（ Data Definition）和数据控制（ Data Control）功能于一体，主要特点包括： （ 1） 综合统一 数据库系统的主要功能是通过数据库支持的数据语言来实现的。 SQL 语言集数据定义语言 DDL、数据操纵语 言 DML、数据控制语言 DCL 的功能于一体，语言风格统一，可以独立完成数据库生命周期中的全部活动，包括定义关系模式、建立数据库、插入数据、查询、更新、维护、数据库重构、数据库安全性控制等一系列操作要求，这就为数据库应用系统的开发提供了良好的环境。用户在数据库系统投入运行后，还可根据需要随时地逐步地修改模式，且并不影响数据库的运行，从而是系统具有良好的可扩展性。 （ 2）高度非过程化 非关系数据模型的数据操纵语言是面向过程的语言，用其完成某项请求，必须指定存取路径。而用 SQL 语言进行数据操作，只要提出“做什么”， 而无须指明“怎么做”，因此无须了解存取路径，存取路径的选择以及 SQL 语句的操作过程由系统自动完成。这不但大大减轻了用户负担，而且有利于提高数据独立性。 （ 3）面向集合的操作方式 非关系数据模型采用的是面向记录的操作方式，操作对象是一记录。例如查询所有平均成绩在 80 分以上的学生姓名，用户必须一条一条地把满足条件的学生记录找出来（通常要说明具体处理过程，即按照哪条路径，如何循环等）。而 SQL 语言采用集合操作方式，不仅操作对象、查找结果可以是元组的集合，而且一次插入、删除、更新操作的对象也可以是元组的集合。 （ 4）以同一种语法结构提出两种使用方式 SQL 语言既是自含试语言，又是嵌入式语言。作为自含式语言，它能够独立地用于联机交互的使用方式，用户可以在终端键盘上直接键入 SQL 命令对数据库进行操作；作为嵌入式语言， SQL 语言能够嵌入到高级语言（例如 C、 COBOL、 FORTRAN）程序中，供程序员设计程序时使用。而在两中不同的使用方式下， SQL 语言的语法结构基本上是一致的。 nts 13 第二章 需求分析 2.1 系统分析 作为一个商场管理系统，其功能是实现商场中商品的进货销售，库存等管理的系统化、规范化和自动化。本系统主要要完成的功能 有： （ 1）交易管理：包括进货登记、销货登记、退货登记等。其中进货登记中还包含进货商登记，如过是新的进货厂商，可以直接在此登记入库。进货和销售的主要交易都是在此进行。每次交易（包括进货、销货和退货）都需要对商品名称、生产厂商、商品型号、单价、数量、总金额、交易日期、经手业务员编号等各项记录。在交易过程中，程序的编写尽可能的方便员工进行交易，比如：进货登记时，如果商品编号相同，则自动添加该商品的其它属性；销货登记时，用户只要输入商品编号，该商品的其它属性即可自动出现。退货登记时，只要输入正确的销货编号，其销售 信息也将自动列出，尽量的方便了用户的操作，同时对于登陆的员工编号程序也自动的将其列在进货登记、销货登记中，已防止员工进行非正常的交易。 （ 2）进货统计：包括今日进货统计、本月进货统计、本季度进货统计、本季度进货统计、本年度进货统计等。其中每次进货统计都是按进货厂商和进货总金额统计显示的。使用一个表格显示所选时间段的全部进货数据，包括进货编号、商品名称等。再使用另一个表格显示分别从各个厂商进货的金额，还有一个文本框用于显示次时间段的进货总金额。 （ 3）销货统计：包括今日销售统计、本月销售统计、本季度销售统计、 本年度销售统计等，其中每次销售统计都是按生产厂商和销售总金额统计显示的。使用一个表格显示所选时间段的全部销售数据，包括销货编号、商品名称等。再使用另一个表格显示分别从各个厂商进货的金额，还有一个文本框用于显示次时间段的销售总金额。 （ 4）查看数据表：实现各种数据表的浏览，包括进货表，商品库存表、销售表、退货表、员工表、进货商表等。对于员工表管理员还可以对其进行删除或添加用户操作。 nts 14 (5) 系统管理： 包括更换用户、修改密码、退出系统等。更换用户的操作方便了用户的使用，同时更加方便了管理员对于系统数据的查询， 可以做到随时查看，以使管理员对帐目一目了然，同时方便了普通用户的交接班使用本系统。修改密码和退出系统都是对于系统管理的辅助功能，再这里就不详细说明了。 (6) 其它窗体： 包括主窗体、登陆窗体、系统初始化窗体。主窗体就是将各个模块的大意列在菜单中，然后通过每一个菜单将其它的窗体逐个对应的连到主窗体中。登陆窗体为本系统的启动窗体，其功能是让合法的用户使用本系统，已防止其它的非法人员使用该系统。并对登陆的用户做一下权限的区别：分为管理员和普通员工。系统初始化窗体的主要目的是：在本系统的试运行阶段成功后是管理员可 以直接把除了员工表以外的所有数据表的内容清零。登陆窗体中设计了一个权限，可以区分是员工登陆还是管理员登陆，如果是管理员则提示是否进行系统初始化，否则直接进入主窗体。 其功能模块图请查看附图。 nts 15 第 三 章 系统设计 3.1 数据库设计 上面提到的各种功能的实现都离不开数据库的支持，因此数据库设计作为本系统设计的一部分不可缺少。开发本系统中使用的数据库系统是 Windows Access 2000 。从上面的功能分析不难看出本系统需要建立以下几个数据表： buy 表 (进货表 )、 goods 表(现存商品表 )、 sell 表 (销售表 )、 retreat 表 (退货表 )、 employee 表 (员工表 )、manufacturer 表 (进货商表 )。由于数据量比较小，所以这些数据表都存在一个数据库下： sellsystem.mdb 下面对各个数据表的结构做一下简单介绍： 在系统的数据库设计中，进货表、销货表、商品库存表和退货表涉及了交易管理三个子菜单的绝大部分数据，是本系统数据库的核心，所以将对其部分表的设置列表显示。 Manufacturer 表（进货商表）中包括有厂商编号、厂商名称、联系人姓名、电话、厂商地址等字段，表略。 employee（员工表）中包括有员工编号、员工姓名、员工密码、员工电话、员工地址等字段，表略。 buy 表（进货表）中包括有进货编号、商品编号、商品名称、生产厂商、型号、数量、进货价、进货年、进货月、进货日、总金额、业务员编号等。设计该数据表的主要目的是方便管理员的查看，使系统的数据管理能够更加层次化。具体设置如表 3-1 所示。 表 3-1 buy 表 字段名 数据类型 说明 进货编号 文本 字段大小为 20 商品名称 文本 字段大小为 20 生产厂商 文本 字段大小为 20 型号 文本 字段大小为 20 数量 数字 长整型 nts 16 进货价 货币 货币 进货年 数字 整型 进货月 数字 整型 进货日 数字 整型 业务员编号 文本 字段大小为 20 总金额 货币 货币 goods 表（现存商品表）中包括有商品编号、生产厂商、商品名称、型号、进货价、销货价、数量、进货年、进货月、进货日、业务员编号、总金额等字段。具体设置如表3-2 所示。 表 3-2 goods 表 字段名 数据类型 说明 商品编号 文本 字段大小为 20 商品名称 文本 字段大小为 20 生产厂商 文本 字段大小为 20 型号 文本 字段大小为 20 数量 数字 长整型 进货价 货币 货币 销货价 货币 货币 sell 表 (销货表 )中包括有销货编号、商品编号、商品名称、生产厂商、型号、数量等字段，由于篇幅有限，其表略。 retreat 表（退货表）中包括有退货编号、销货编号、生产厂商、商品名称、型号、单价、数量、总金额、退货年、退货月、退货日、业务员编号等。具体设置如表3-3 所示。 nts 17 表 3-3 retreat 表 字段名 数据类型 说明 退货编号 文本 字段大小为 20 销货编号 文本 字段大小为 20 商品名称 文本 字段大小为 20 生产厂商 文本 字段大小为 20 型号 文本 字段大小为 20 单价 货币 货币 数量 数字 长整型 总金额 货币 货币 退货年 数字 整型 退货月 数字 整型 退货日 数字 整型 业务员编号 文本 字段大小为 20 3.2 系统功能介绍 （ 1）登陆窗体 该登陆窗 体对用户登陆做了一个简单的判断，如果是管理员登陆则可进入初始化界面，然后再进入主界面。 具体做法是：先在窗体级中定义一个记录集，用于打开 employee 表，打开后将该表中的字段：员工姓名，依次加到 combo1 中。全加入后关闭记录集，然后对 combo1 和 text1 中的内容做一下简单判断：如果 combo1 和text1 中的数据正好和 employee 表中的某个记录相同，则通过登陆窗体，否则提示用户用户名或密码有误。在通过登陆窗体中还要对用户名做一下判断：如果是管理员登陆，则进入系统初始化窗体，如果是普通用户登陆，则进入主界面。 （ 2） 初始化窗体 该初始化窗体为本系统的使用者提供了试运行服务，如果使用者试运行后决定正式使用，可以通过管理员登陆本窗体对系统进行初始化，即清空试运行阶段的所有销售数据。具体实现过程为：定义 5 个记录集，其每一个记录集控制一个nts 18 数据表的 打开与关闭操作，其记录集的取名与数据表相近： rs_sell, rs_buy, rs_goods, rs_retreat,rs_manufacturer.当管理员点击是标签时，先出现一个消息框，问管理员是否真的要进行初始化。如果是，则 5 个记录集依次连接到 5 个数据表上，然后对每个数据表的内容进行删除操作。具体删除方法为 :先对表的状态进行判断，如果某个数据表的内容为空，则直接关闭记录集，以免多步操作数据表出现错误；如果该数据表不为空，则依次删除该数据表的每一个记录，对于每一个数据表都要做此判断，并且每打开一个新的 数据表都要关闭上一个数据表，这样操作起来层次显得比较清晰，而且维护起来也比较方便。 （ 3）主窗体 主窗体的建立十分简单，只需将所要实现的功能编辑成菜单即可。 该窗体的运行过程为：用户首先进入登陆窗体，如果是管理员登陆，则先进入初始化窗体，经过判断是否需要初始化后，进入主窗体。其权限为：销货统计、进货统计、查看数据表和系统管理。其权限的设置使管理员能够方便的查看任何时间段内的所有信息，还可以对员工表进行管理。如果是普通用户登陆，则直接进入主窗体，其授予的权限只有交易管理和系统管理，也就是说员工只能负责对商品进行 如库登记、销货登记和退货登记，另外在一个员工对本系统使用的整个期间内，进货登记、销货登记和退货登记三个窗体中的显示的业务员编号都由系统自动给出的该员工的员工编号。 （ 4）进货登记窗体 本窗体用来实现商品进货功能，将进货信息添加到 buy 表，再将该信息选择性的加入 goods 表。如果是新的进货厂商，可以在此入库登记。其具体实现过程如下所述：先在窗体级变量中定义三个记录集： rs_buy， rs_goods，rs_manufacture 用来控制三个数据表： buy 表， goods 表， manufacturer 表。在用户点击添 加商品中的添加入库操作之前，程序先会检查是否有用户是否有个别属性为空，并做出提示。然后将商品添加到 buy 表中，再添加到 goods 表。在添加到 goods 表时，程序会先判断该商品编号是否已经存在，如果存在则直接将该添加信息的数量加到 goods表中相应的记录上。为此，进货编号、商品编号是 buy 表、 goods 表中不可重复的属性。为方便用户操作，程序特在商品编号的文本框： text2 的 Change 事件中做了一个判断，即如果该商品编号存在的话直接显示该商品的其他属性。另外，对于总金额文本框也是nts 19 由数量和进货价两个文本框的 Change 事件计算入内的。如果是新的进货商，可以将它的信息添加到进货商表。其过程和上面所说的添加到 buy 表基本相同，这里就不做介绍了。 （ 5） 销货登记窗体 本窗体主要功能是对商品进行销售，首先对员工输入的销货信息进行完整条件的判断，条件符合后进行销售。然后将销售信息存入 sell表，并对 goods表的数量做相应修改。 具体实现过程为：先在窗体集中定义两个记录集： rs_sell，rs_goods，用来控制两个数据表： sell 表和 goods 表。在销货窗体中，如果用户输入的商品编号已经存在，则该商品的其它属性将随 着 text2(即商品编号 )的 Change 事件出现在其对应的位置上。而销售日期和业务员编号已经是程序默认给出的系统时间和登陆员工的编号。在判断没有空缺属性后该商品将顺利添加如库，而且该商品在 goods表中的数量也将随之做相应的改变，使 goods 表和 sell 表的总和保持原来 goods 表中的数量值。 （ 6）退货窗体 本窗体的功能是实现商品退货功能，当人为判断某商品可以退货时即可将该商品退货。其数据库实现为：先将该信息加入 retreat 表，然后从 sell 表中减掉，最后对 goods 表的数量做一下调整即可。其具体实现过 程是：先在窗体集中定义三个记录集： rs_sell， rs_goods， rs_retreat 用来控制三个数据表： sell 表、 goods和 retreat 表。在退货窗体中，如果用户输入的销货编号存在，则关于该商品的销售信息将依次出现在相应的对话框中。退货成功后，该退货信息先添加到退货表，然后将其退货数量从相应的 sell 表中减掉，并添加到 goods 表中。 （ 7）进货统计菜单 进货统计菜单下有 4 个子菜单，分别是今日进货统计、本月进货统计、本季度进货统计、今年进货统计。由于他们的界面非常相似，本程序中使用了一个 SSTab 控件以选项卡的形式在一个窗体中实现以上 4 个子菜单。这样做使窗体显得更加美观。为 项目添加了必要的控件之后，开始进行界面设计。先在窗体上添加一个 SSTab 控件，单击鼠标右键在快捷菜单中选择 ” 属性 ” 命令。将其选项卡的数目定为 4 个，标题分别为：今日进货、本月进货、本季度进货、本年度进货。由于每个选项卡的界面都一样，现以 ”nts 20 今日进货 ” 选项卡为例，加入两个 datagrid 控件，两个 Adodc 控件，一个 Label 控件，一个 textbox 控件和 8 个 command 控件。其中两个 Adodc 的数据源连接都是才用的相对路径与 sellsystem 的 buy 表连接的，两个 Adodc 连接的 SQL 语句分别如下： select * from buy select 生产厂商 ,sum(总金额 ) as 各厂商进货总金额 from buy group by 生产厂商。 （ 8）销货统计窗体 销售统计菜单下有 4 个子菜单，分别是今日销货、本月销货、本季度销货、今年销货。由于它们的界面非常相似，本程序中使用一个 SSTab 控件以选项卡形式在一个窗体中实现 4 个子菜单。其界面设计和窗体说明与进货统计大同小异，也一样一个选项卡为例进行说明，现以 ” 今日销货 ” 为例：加入两 个 datagrid 控件，两个 Adodc 控件，一个 Label 控件，一个 textbox 控件和 8 个 command 控件。其中两个Adodc 的数据源连接都是采用的相对路径与 sell 表连接的，两个 Adodc 连接的 SQL 语句分别如下： select * from sell select 生产厂商 ,sum(总金额 ) as 各厂商销货总金额 from sell group by 生产厂商。 （ 9）查看进货表 其界面的设计比较简单，只是一个 datagrid 控件，一个 Adodc控件（已隐藏）和四个 Command 控件。本窗体的 主要设计在于其四个命令按纽在进货表为空时不可用。 （ 10）查看进货表 本窗体的主要设计目的是设置一个查询商品库存表的条件 。具体操作为：为查询现存商品表设立了一个简单的查询条件，一个是直接显示现存的全部商品表，一个是按条件对现存商品进行查询，用户可以根据自己需要按商品名称或生产厂商分别进行查找。该窗体的实现是要在窗体集的变量中设置一个记录集 rs_goods，用来控制 goods 表，然后将记录集在打开窗体时的 select 语句设为与本窗体的 text1和 text2 有关的 SQL 语句。然后让现存商品表显示出来。 （ 11）管理员工表 本窗体的制作目的在于方便对管理员用户的管理， 本节前面曾nts 21 经提过系统初始化的功能，但其初始化并不能对员工表进行操作，当管理员登陆本系统时，可以访问此窗体，对用户表进行维护。但不能对管理员进行删除操作，此操作已被本人屏蔽。 （ 12）更换用户功能 在一个商场可能会存在员工交接班的现象，为了方便用户交接班的操作顺利进行，在系统管理模块中做了一个更换用户子菜单，该子菜单便顺利的实现了此功能，而且它也方便了管理员的登陆管理。 （ 13）修改密码 为了方便用户使用，在本模块中还设置了一个修改密码窗体， 该窗体主要包括一个用户名输入、一个原密码输入和两个新密码输入。此窗体实现的功能是显而易见的，方便了用户的操作，增加了系统使用的安全性。具体做法是：先要求用户将四个必填项填写完整，然后对两个新密码进行相同判断，如果相同，则将记录集rs_employee 打开，对用户名和原密码进行核对，如果相同，就将老密码替换为新密码。 本节总结：对于本商场管理系统功能的实现，重点和难点有以下几处：交易管理模块：在本模块中，对于商品的进货、销货和退货操作时，都要注意其操作过程中商品数量及其它属性的变化，本人在制做此模块时，采用了 指导教师的提供给我的思想：进货登记时，将进货信息添加到进货表中。然后对商品库存表的编号进行判断，如果进货信息的商品编号存在，则将商品库存表中相应记录的商品数量做对应调整；如果商品编号不存在，则直接将进货信息添加到商品库存表中。销货登记时，先将商品的销货信息添加到销货表中，然后将商品库存表中响应的商品的数量做相对调整，保证商品数量的一致性。退货登记时将退货信息添加到退货表中，然后将退货数量从销售表中减掉，最后将退货数量加到商品库存表中。在本系统管理员登陆时，显示给管理员的第一个界面：系统初 始化也是本系统的又一 大功能特色，其实现过程中要严格控制每一个记录集对相应数据表的打开与关闭操作。 nts 22 3.3 程序流程图和 E-R 图设计 图 3-1 系统流程图 各模块的 E-R 图设计 ： 1 交易管理模块 ： 用于管理商品的进货，销售，退货登记的操作。实体 E-R 图如下： 图 3-2 交易管理模块 2 进货统计管理 ：主要用于对商品每日 ,每月，第季度，每年的进货情况进行统计管理，此功能只有以管理员的身份进入时才为可用状态。实体 E-R 图如下 ： 面界主 是 是 登录界面 是否管理员 否 是 进货登记 销售登记 退货登记 进货统计 销售统计 面界主 查看数据表 交易管理 退货登记 销售登记 进货登记 nts 23 图 3-3 进货统计管理模块 3 销售统计管理 ： 主要用于对商品每日 ,每月，第季度，每年的销售情况进行统计管理，此功能只有以管理员的身份进入时才为可用状态。实体 E-R 图如下： 图 3-4 销售统计管理模块 4 查看数据表 ： 主要能查看进货表，商品信息表，销售表，退货表等进行查看，以实现对商品信息的及时了解。实体 E-R 图如下： 图 3-5 查看数据表模块 进货统计管理 销售统计管理 本季度销售 本月销售 今年销售 今日销售 查看数据表 销售表 现存商品表 退货表 进货表 本季度进货 本月进货 今年进货 今日进货 管理员工表 进货商表 nts 24 3.4 系统演示 图 3-6 管理员登陆 窗体 进入系统初始化界面 图 3-7 系统初始化窗体 nts 25 图 3-8 管理员主界面 管理员权限：进货统计、销货统计、查看数据表、系统管理。 代码如下： Dim rs_sell As New ADODB.Recordset Dim rs_goods As New ADODB.Recordset Dim rs_buy As New ADODB.Recordset Dim rs_retreat As New ADODB.Recordset Dim rs_manufacturer As New ADODB.Recordset Dim rs_employee As New ADODB.Recordset Dim rs_fctotal As New ADODB.Recordset Dim rs_total As New ADODB.Recordset Dim strsell As String Dim strgoods As String Dim strbuy As String Dim strretreat As String nts 26 Dim strmanufacturer As String Dim stremployee As String Dim strfctotal As String Dim strtotal As String Dim inty As Integer Dim intm As Integer Dim intd As Integer Private Sub Form_Load() inty = Year(Date) intm = Month(Date) intd = Day(Date) Flash1.Movie = App.Path & 99.swf End Sub Private Sub Form_Resize() Flash1.Width = Me.Width Flash1.Height = Me.Height End Sub Private Sub mnabout_Click() frmAbout.Show End Sub Private Sub mnBuy_Click() frmAddgoods.Show End Sub Private Sub mnBuyMonth_Click() frmBuyall.Text2.Enabled = False frmBuyall.SSTab1.Tab = 1 nts 27 frmBuyall.SSTab1.TabEnabled(0) = False frmBuyall.SSTab1.TabEnabled(1) = True frmBuyall.SSTab1.TabEnabled(2) = False frmBuyall.SSTab1.TabEnabled(3) = False frmBuyall.Show strbuy = select * from buy where 进货年 = & inty & and 进货月 = & intm & rs_buy.Open strbuy, cnn, adOpenKeyset, adLockPessimistic frmBuyall.Adodc2.RecordSource = strbuy frmBuyall.Adodc2.Refresh frmBuyall.DataGrid2.ReBind If rs_buy.EOF = True Then frmBuyall.Adodc6.RecordSource = strbuy frmBuyall.Adodc6.Refresh frmBuyall.DataGrid6.ReBind MsgBox 您本月没有进货记录！ , vbOKOnly + vbInformation, 注意 frmBuyall.Command9.Enabled = False frmBuyall.Command10.Enabled = False frmBuyall.Command11.Enabled = False frmBuyall.Command12.Enabled = False frmBuyall.Command13.Enabled = False frmBuyall.Command14.Enabled = False frmBuyall.Command15.Enabled = False frmBuyall.Command16.Enabled = False rs_buy.Close Exit Sub End If nts 28 rs_buy.Close strfctotal = select 生产厂商 ,sum(总金额 ) as 各厂商进货总金额 fro