商业企业商品信息管理的毕业设计.doc

《商业企业商品信息管理的毕业设计.doc》由会员分享，可在线阅读，更多相关《商业企业商品信息管理的毕业设计.doc（56页珍藏版）》请在沃文网上搜索。

1、 计算机信息管理专业 商品信息管理系统毕业设计 摘 要 随着计算机技术的发展，硬件速度不断提高，软件功能日趋完善，计算机系统的应用已从军事和科学计算，逐步扩展到数据处理等各个领域，广泛地应用于科研部门、金融系统、企业、学校，进入了寻常百姓的家庭，不断地改变着人们的工作方式、学习方式和生活方式。目前，微机在企、事业管理及办公自动化中的应用更为广泛，例如，财务管理、人事档案管理、学籍管理、图书资料管理等等。事实上，在计算机的所有应用中，数据处理(或称信息管理)占有相当大的比重，业已渗透到社会的方方面面。 由于计算机的巨大的存储能力和高速的运算能力，人们把有用的信息抽象成数据存人计算机中，经过加工、

2、处理和积累，这些有用的数据便成为人类宝贵的财富。很显然，如何有效地描述和处理这些数据，如何管理和充分利用这些数据，是摆在人们面前迫切需要解决的问题。数据库技术就是在这种形势下应运而生并在应用当中不断发展，成为当代计算机科学中的一个新兴的、重要的、最为活跃的分支。 数据库技术从60年代中期产生到今天只有三十几年的历史，其发展速度之快，使用范围之广是其他技术远不能比的。短短的三十几年，数据库技术已从第一代的层次、网状数据库，第二代关系数据库系统，发展到第三代以面向对象模型为主要特征的数据库系统。数据库技术与网络技术、人工智能技术、面向对象程序设计技术等等相互渗透，相互结合，成为当前数据库技术发展的

3、主要特征。本系统结合实际的需求分析，采用功能强大的VF6.0做为开发工具开发出来的单机版商业企业商品管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成商品管理的全过程，包括商品进货、进货查询、商品入库、库存查询、商品销售、销售查询，以及方便的统计查询。经过实际使用证明，本文所设计的商品信息管理系统可以一般商业企业管理方面的需要。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。关键词：数据库、数据库管理系统、数据库系统。(data base 、data base management system、 data base system)目 录摘要1第一章 引言

4、41.1 数据管理技术的发展及研究意义41.1.1管理阶段51.1.2文件系统阶段61.1.3数据库系统阶段71.2本论文开发的目的及内容10第二章 研究现状及设计目标102.1 相近研究课题的特点及优缺点122.2本课题要达到的设计目标16第三章 课题来源及需求分析173.1 课题来源173.2 需求分析17 3.2.1 系统功能调查183.2.2 系统功能模块设计18第四章 系统结构和模块194.1 设计实现的策略19第五章 数据库的设计与实现225.1 数据库的设计225.2 数据库的实现235.3 系统功能模块24第六章 毕业设计小结54致谢55参考文献56第一章 引言1. 1数据管理

5、技术的发展及研究意义 数据管理指的是如何对数据进行分类、组织、储存、检索及维护。要注意，这里所说的数据，不仅是指数字，还包括文字、图形、图像、声音等等。凡是计算机中用来描述事物的记录，统称为数据。 随着计算机软硬件的发展，数据管理技术不断地完善，经历了如下三个阶段： (1)人工管理阶段； (2)文件系统阶段； (3)数据库系统阶段。 111 人工管理阶段 20世纪50年代中期以前，计算机主要用于科学计算。那时的计算机硬件方面，外存只有卡片、纸带及磁带，没有磁盘等直接存取的存储设备；软件方面，只有汇编语言，没有操作系统和高级语言，更没有管理数据的软件；数据处理的方式是批处理。这些决定了当时的数据

6、管理只能依赖人工来进行。 人工管理阶段的特点是： (1)数据不进行保存。当时的计算机主要用于科学计算，一个程序对应一组数据。 在计算某一问题时，把程序和对应的数据装入，计算完就退出没有将数据长期保存的必要。 (2)没有专门的数据管理软件。数据需要由应用程序自己管理，因此应用程序的设计者不仅要考虑数据的逻辑结构，还要考虑数据的物理结构，比如存储结构、存取方法、输入输出方式等等。一旦存储结构发生变化，应用程序也要做相应的修改，程序员的负担非常重，数据的独立性也很差。 (3)数据面向应用。一组数据对应一个程序。倘若多个程序使用相同的数据，必须各自定义，不能。所以数据之间存在大量的冗余。人工管理阶段的

7、特征如图11所示。程序1程序2程序3数据组1数据组2数据组3。 图11 人工管理阶段的特征 112 文件系统阶段 20世纪50年代末到60年代中期，随着科学技术的进步，计算机技术有了很大提高，计算机的应用范围也不断扩大，不仅用于科学计算，还大量用于管理。这时计算机硬件已经有了磁盘、磁鼓等直接存取的外存设备；软件则有了操作系统、高级语言，操作系统中的文件系统是专门用于数据管理的软件；处理方式不仅有批处理，还增加了联机实时处理。 文件系统阶段的特点如下： (1)数据可以长期保存在磁盘上。用户可以反复对文件进行查询、修改、插入和删除等操作。 (2)文件系统提供了数据与程序之间的存取方法。应用程序和数

8、据有了一定的独立性。数据物理结构的改变也不一定反映在程序上，大大减轻了程序员的负担。 (3)数据冗余量大。文件系统中，文件仍然是面向应用的，一个文件基本上对应于一个应用程序。即使多个程序使用了一部分相同的 数据，也必须建立各自的文件，不能对数据项进行 共享，因此数据冗余大，存储空间浪费。由于数据 存取方法可能有多个副本，对其中之一进行修改时还容易造成数据的不一致性。(4)文件之间缺乏联系，相互孤立，仍然不能反映现实世界各种事物之间错综复杂的联系。 程序1程序2程序3存取方法文件1文件2文件3 图12 文件系统阶段的特征文件系统阶段的特征如图12所示。113 数据库系统阶段 20世纪60年代末以

9、来，计算机的应用更为广泛，用于数据管理的规模也更为庞大，由此带来数据量的急剧膨胀。计算机磁盘技术有了很大发展，出现了大容量的磁盘。在处理方式上，联机实时处理的要求更多。这种种变化都促进了数据管理手段的进步，数据库技术应运而生。 数据库系统的特点如下： (1)数据的结构化。 在文件系统阶段，只考虑了同一文件记录内部数据项之间的联系，而不同文件的记录之间是没有联系的，也就是说，从整体上看数据是无结构的。如上一节所述，这样的文件是有局限性的，不能反映现实世界各种事物之间错综复杂的联系。在数据库系统中，实现了整体数据的结构化，把文件系统中简单的记录结构变成了记录和记录之间的联系所构成的结构化数据。在描

10、述数据的时候，不仅要描述数据本身，还要描述数据之间的联系。数据之间的联系通过存取路径来实现，把相关的数据有机地组织在一起。例如在学校的管理系统中，不同的部门有不同的要求，人事、医疗、教务等部门分别了解学生的人事情况、医疗保健情况、选课情况等等。传统的文件系统中，不同的应用要使用不同的文件。比较简单的文件形式是等长、同格式记录的集合。比如学生的人事记录文件，可以采用图13所示的记录格式。学号姓名性别出生年丹系别政治面貌籍贯家庭成员简历 图13 学生人事记录而学生的选课记录文件，则可以采用图14所示的记录格式。学号姓名性别出生年月系别课程号课程名成绩图14 学生选课记录 由图13和图14可见，首先

11、，每个学生的情况不同，其家庭成员、简历、选课的数据量有多有少，如果用等长记录格式存储学生数据，只能按数据量最大的学生记录来安排存 储，这样会造成极大的浪费，如果用变长记录来存储，又不便于数据管理；其次，无论是人事记录文件还是选课记录文件，每个文件记录的数据项都包括了学号、姓名、性别和出生年月等，这造成了大量的重复存储。在数据库系统中，我们从整体的角度来组织数据，综合考虑各种应用，有效 地解决了上述问题。数据组织方式如图15所示。学号姓名性异出生年月人事记录选课记录系别籍贯政治面貌 学号课程号成绩 简历记录 家庭成员记录 课程记录姓名关系职务日期事件课程号课程名 图15 结构化的学生记录 (2)

12、数据共享性好。 由图15设计的数据结构可见，人事部门可以据此了解学生的人事情况，教务部门也可以据此了解学生的选课情况，这些数据可以供多个部门使用，实现了数据的共享。各个部门的数据基本上没有重复的存储，数据的冗余量较小。 (3)数据独立性好。 数据库系统有三层结构：用户(局部)数据的逻辑结构、整体数据的逻辑结构和数据的物理结构。在这三层结构之间数据库系统提供了两层映象功能。首先是用户数据逻辑结构和整体数据逻辑结构之间的映象，这一映象保证了数据的逻辑独立性：当数据库整体逻辑结构发生变化时，通过修改这层映象可使局部的逻辑结构不受影响，因此不必修改应用程序。另外一层映象是整体数据逻辑结构和数据物理结构

13、之间的映象，它保证数据的物理独立性：当数据的存储结构发生变化时，通过修改这层映象可使数据的逻辑结构不受影响，因此应用程序同样不必修改 (4)数据存取粒度小。 文件系统中，数据存取的最小单位是记录；而在数据库系统中，数据存取的粒度可以小到记录中的一个数据项。甲此数据库中数据存取的方式非常灵活，便于对数据的管理。 (5)数据库管理系统（DBMS）data base management system)对数据进行统一的管理和控制。 DBMS不仅要有最基本的数据管理功能，还要有如下的控制功能： 数据的完整性 保证数据的正确性，要求数据在一定的取值范围内或相互之间满足一定的关系。比如规定考试的成绩在。分

14、到100分之间，血型只能是A型、B型、AB型、O型中的一种等等。 数据的安全性 让每个用户只能按指定的权限访问数据，防止不合法地使用数据，造成数据的丢失。比如学生对于课程的成绩只能进行查询，不能修改。 并发控制 对多用户的并发操作加以协调和控制，防止多个进程同时存取、修改数据库中的数据时发生冲突、造成错误。比如在学生选课系统中，某门课只剩下最后一个名额，但有两个学生在两台选课终端上同时发出了选这门课的请求，必须采取某种措施，确保两名学生能同时拥有这最后的一个名额。 数据库的恢复 当数据库系统出现硬件软件的故障或者遇上误操作时，DBMS应该有能力把数据库恢复到最近某个时刻的正确状态上来。 (6)

15、为用户提供了友好的接口。 用户可以使用交互式的命令语言，将SQL(Structured Query Language，结构化查询语言)语言，对数据库进行操作；也可以把普通的高级语言(如C+语言等)和SQI，语言结合起来，从而把对数据库的访问和对数据的处理有机地结合在一起。总而言之，用户可以很方便地对数据进行管理。数据库系统阶段的特征如图16所示。DBMS数据库应用1应用2应用31、2 本论文开发的目的及内容本系统结合实际的需求分析，采用功能强大的VF6.0做为开发工具开发出来的单机版商业企业商品管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成商品管理的全过程，包括商

16、品进货、进货查询、商品入库、库存查询、商品销售、销售查询，以及方便的统计查询。经过实际使用证明，本文所设计的商品信息管理系统可以一般商业企业管理方面的需要。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。第二章 研究现状及设计目标2、1 相近研究课题的特点及优缺点现在，市场上可以选购的应用开发产品很多，流行的也有数十种。在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。 随着软件技术和数据库技术的迅速发展，数据库管理系统也日益成熟，尤其是图形界面技术、网络技术、

17、多媒体技术的出现及其技术水平的不断提高，使数据库管理系统的应用更加广泛。Visual FoxPro 60系统作为20世纪90年代的高级数据库管理系统软件，具有性能完善的编程语言。它在20世纪80年代流行的xBASE系统软件的基础上提供了诸多新的功能特性，性能有所完善，技术有所超前，极大地改变了计算机用户的环境，方便了用户的操作。另外，Visual FoxPro 60安装容易，系统运行环境要求不高，便于入门和学习，易于被用户接受，因此成为微型机上中小数据库系统的首选开发工具。1 用户界面良好Visual FoxPro 60系统提供了一个由菜单驱动、辅以对话窗口的简洁友好、功能全面的用户界面。用户

18、可以通过输入命令或使用菜单实现对VisualFoxPro 60的各种功能的操作，完成数据管理的任务。各种操作大多在不同类型的系统窗口中进行，而且有些窗口之间可以相互切换，大大方便了操作。与其他Windows下运行的字处理程序一样，Visual FoxPro 60系统提供了字符块的复制、剪切、粘贴、字符串查找和替换等功能，为程序和编辑文本提供了方便、灵活的手段。2 面向对象程序设计功能Visual FoxPro 60系统命令和语言功能很强，具有数百条命令和标准函数，不仅支持过去传统的过程编程技术，而且还支持面向对象可视化编程技术。通过Visual FoxPro的对象和事件模型，用户可以充分利用面

19、向对象的程序设计功能，包括类、继承性、封装性、多态性，并给每一个类以属性、事件和方法的定义，进行系统开发。用户可以将自定义类保存在类库中并在应用程序中使用，减少程序重新开发及程序编辑、编译过程，加快应用程序的开发速度。 3 快速创建应用程序 ，VisualFoxPro系统提供的项目管理器、向导、生成器、工具栏和设计器等都是数据库软件开发的有效的管理和帮助手段，极大地提高了程序设计的自动化程度，缩短了程序的设计、编辑和运行时间。向导是Visual FoxPro特色之一，利用系统提供的向导，不需要编写程序即可创建良好的应用程序界面完成对数据库的操作或者完成一些复杂的操作，极大地方便了用户。系统提供

20、的生成器可以简化创建和修改用户界面程序的设计、复杂的数据操作等过程， 提高了软件开发的效率。生成器往往由一系列选项卡组成，允许用户访问并设置所选对象的属性，将产生的界面直接转换成程序代码，使用户从逐条编写程序、反复调试程序的工作中 解放出来。系统提供的各种设计器提供了一个友好的图形界面，帮助创建并定制数据表结构、数据库结构、设计表单、设计报表格式和应用程序组件等。4 数据库的操作功能完善经过几个版本的升级，Visual FoxPro 60比传统的xBASE数据库有了质的飞跃。在数据管理方面，系统提供的结构化查询语言SQL(Structured Query Language)语言，可以非常有效、

21、迅速、准确地从庞大的、有数以百万条记录的表格中检索数据，。具备了大型数据库的特征(如视图、关键字、关系、触发器、存储过程等)。5 多个用户可以一起开发程序VisualFoxPro系统提供允许同时访问数据组件的能力，使多个用户能够一起开发应用程序。使用项目管理器的源代码管理程序，可以跟踪或保护源代码的修改。使用数据库菜单中的刷新选项，可以跟踪或保护表和视图的定义。6 可以与其他应用程序交互操作Visual FoxPro可以使用来自其他应用程序的对象，与其他程序之间导入导出数据，还可以与其他Microsoft应用程序实现数据共享。7 可以升级早期版本Visual FoxPro系统提供对早期版本下的

22、应用程序的兼容。在Visual FoxPro环境下，用户可以直接运行FoxProFoxBASE+程序，编辑已有的FoxProFoxBASE+程序。作为数据库系统的开发，VF6.0是一个非常理想选择。VF6.0因简单易学、功能强大、编译速度快而从众多的软件开发工具中脱颖而出。它提供了灵活的可视化设计工具，将可视化界面与面向对象技术完善、紧密地结合起来，并封装了Windows编程的复杂性。程序的规模小到简单的个人数据库应用，大到复杂的企业的多层次分布式系统，都可以使用VF6.0进行开发，其友好的集成开发界面，可视化的双向开发模式，良好的数据库应用支持高效的程序开发和程序运行，备受广大程序开发人员的

23、好评。尤其是VF6.0对数据库应用的强大支持，大大提高了数据库应用软件开发的效率，缩短了开发周期，深受广大数据库应用程序设计人员的喜爱。VF6.0为数据库应用开发人员提供了丰富的数据库开发组件，使数据库应用开发功能更强大，控制更灵活，编译后的程序运行速度更快。2、2 本课题要达到的设计目标第一章 引言部分论述了本课题的研究意义及本论文的目的、内容。第二章 研究现状及设计目标、相近研究课题的特点及优缺点分析、现行研究存在的问题及解决办法、本课题要达到的设计目标。第三章 课题来源及现状分析，研究设计中要解决的问题、具体实现中采用的关键技术及现状分析。第四章 系统结构与模型、设计实现的策略和算法描述

24、、编程模型及数据结构。第五章 系统实现技术、分模块详述系统各部分的实现方法、程序流程。第六章 结束语致谢、参考文献第三章 课题来源及需求分析3、1 课题来源随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业商品管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成商品管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；而商品管理是一项琐碎、复杂而又十分细致的工作，核算的工作量很大，一般不允许出错，如果实行手工操作，每月须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行管理，不仅能够保证商品核算准确无误、快速

25、输出，而且还可以利用计算机对有关商品的各种信息进行统计，同时计算机具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高商品管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。3、2需求分析利用计算机数据库技术改造商业企业的商品信息管理是现代商业企业面临的一项重要任务，其主要目标在于利用计算机的快速、准确处理大量数据的特点，实现商业生产管理的自动化，及时处理各种信息，确定企业的经营决策，提高员工的工作效率和企业的经济效益。3、2、1系统功能调查商业企业在进行商品经营活动中，所涉及的与商品信息管理有关的处理任务

26、包括商品进货处理、商品库存管理、商品销售管理、商品统计等几个方面。 (1) 销售管理：实现商品销售活动中所销售商品数据的输入、查询操作。 (2) 库存管理：主要完成所采购商品的入库和库存商品信息的查询。 （3) 进货管理：供各类人员录入和查询所采购商品的到货日期、供应商等信息。 (4) 商品统计：可随时对销售商品、库存商品和所定购商品等信息的统计操作。3、2、2系统功能模块设计根据上述的系统功能分析，商品信息管理系统应包括如图43所示的几个功能模块。系统欢迎界面系统功能界面 销售管理库存管理进货管理商品统计退出系统销售商品销售查询商品入库库存查询进货定单进货杏洵销售统计库存统计第四章 系统结构

27、及模型4、1 设计实现的策略概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相互间的关系，这种数据模型是与DBMS无关的、面向现实世界的、易如理解的数据模型，其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分方便。概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据模式，一般情况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。概念设计中自顶向下的实体分析方法，即常用的实体联系模

28、型（简称E-R模型），对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。E-R模型是建立概念性数据模型的有力工具。通过对企业商品管理内容和过程的分析，本系统应设计的实体和属性如下：销售（包括商品编号、商品名称、商品型号、销售日期、销售数量、单价、总价、顾客姓名、联系电话、销售人员）库存（商品编号、商品名称、商品型号、入库时间、库存数量、单价、管理人员）进货（商品编号、商品名称、商品型号、定单编号、供货单位、联系电话、到货日期、进货数量、单价、总价、经办人）销售销售人员商品编号联系电话顾客姓名单价总价销售数量商品名称销售日期商品型号库存商品编号管理人员商

29、品型号入库时间库存数量商品名称单价商品型号商品名称商品编号定单编号经办人供货单位进货总价联系电话单价进货数量到货日期第五章 数据库的设计与实现 5、 1数据库的设计商业企业进行商品信息处理过程中，往往涉及到商品销售信息、商品库存信息和商品进货信息等3个方面的信息管理，因此“商品信息DBC”数据库可设计成包含这3方面信息的数据表，3个数据表的结构见表19、表20和表21。表19 销售信息表(xsDBF)宇段名宇段类型宽度说明商品编号字符6普通索引商品名称字符 10 商品型号 字符 15 销售日期 日期8 销售数量数值 4 单价 数值4， 0 总价数值8， 0 顾客姓名字符8 联系电话字符 8 销

30、售人员字符8 表20 库存信息表(kcDBF) 宇段名字段类型宽度说明商品编号字符6主索引商品名称字符10商品型号字符15入库时间日期8库存数量数值4单价数值4， 0管理人员字符8表21 进货信息表(扣DBF)宇段名字段类型宽度说明商品编号字符6普通索引商品名称字符10商品型号字符15定单编号字符4主索引供货单位字符20联系电话数值8到货日期数值8进货数量字符4， 0单价数值4， 0总价数值6， 0经办人字符85、2数据库的实现 (1)建立商品信息管理项目 完整的商品信息管理数据库应用程序一般要包含多个相关的文件。利用Visual FoxPro进行应用系统开发时，首先创建一个项目，然后在项目管

31、理器中对应用程序所需文件进行集中管理。创建商品信息管理项目的步骤如下： 在Visual FoxPro系统窗口中，执行文件新建命令，建立一个新的项目并保存，例如，D：商品信息管理商品信息管理PJX。接着系统将在项目管理器窗口中打开该项目文件。 (2)创建项目的数据库 1 打开“商品信息管理”项目后，在项目管理器中选择数据库，单击右侧的 按扭，建立数据库文件商品信息DBC，如图44所示。2 在“商品信息DBC数据库的设计器窗口中，建立如表19、表20、表21所示的数据库表，如图45所示。 图44 “商品信息管理”项目 图45 “商品信息”数据库 在建立新数据表的过程中，建立相应的索引，并建立表之间

32、的关系，在各个表中输入示例数据记录。 5、3、系统功能模块设计 1系统欢迎界面设计在“商品信息管理”项目管理器窗口中，单击文档选项卡，选择表单l，单击 按钮，打开表单设计器窗口，设计出如图46所示的表单，并保存为D：商品信息管理欢迎界面SCX。 商品信息管理系统启动时显示一个欢迎界面，若按下键盘上的任意一键，则出现系统功能界面。 其中，表单Form1和1abell对象属性按表22所示依次在属性窗口中设置。 表22 系统欢迎界面对象部分属性设置对象属性属性值说明FormlCaption欢迎使用商品信息管理系统AutoCenteT真表单居中DesktopTLabellCaption欢迎使用商品信息

33、管理系统FontSize20FontName华文行楷ForeColor128,0,0 BackStyle0-透明 打开表单对象事件代码编辑窗口，编写Forml的KeyPress事件代码。 *Forml的KeyPress事件代码* ThisformRelease Release nTime DO D：商品信息管理系统功能界面SCX 2设计系统功能界面在“商品信息管理”项目管理器窗口中，单击文档选项卡，选择表单l，单击按钮，打开表单设计器窗口，设计出如图47所示的表单，并保存为D：商品信息管理系统功能界面SCX。系统功能界面表单对象的属性设置见表23。表23 系统功能界面对象的属性设置对象属性属性

34、值说明FormlCaptiOn商品信息管理表单居中AutoCenterT真Label1CaptiOn商品信息管理系统FontSiZe20FontName华文行楷Commandl CaptiOn进入Command2CaptiOn退出OptiongrouplOption1CaptiOn商品销售OptiongrouplOption2CaptiOn销售查询OptiongrouplOption3CaptiOn商品入库OptiongrouplOption4CaptiOn库存查询OptiongrouplOption5CaptiOn商品进货OptiongrouplOption6CaptiOn进货查询Optio

35、ngrouplOption7CaptiOn销售统计OptiongrouplOption8CaptiOn库存统计 Command1(进入)按钮的Click事件代码如下： DO CASE CASE Thisform.Optiongroup1.Option1.Value=1 DO FORM 商品销售.SCX CASE Thisform.Optiongroup1.Option2.Value=1 DO FORM 销售查询.SCX CASE Thisform.Optiongroup1.Option3.Value=1 DO FORM 商品入库.SCX CASE Thisform.Optiongroup1.O

36、ption4.Value=1 DO FORM 库存查询.SCX CASE Thisform.Optiongroup1.Option5.Value=1 DO FORM 商品进货.SCX CASE Thisform.Optiongroup1.Option6.Value=1 DO FORM 进货查询.SCX CASE Thisform.Optiongroup1.Option7.Value=1 DO FORM 销售统计.SCX CASE Thisform.Optiongroup1.Option8.Value=1 *DO FORM 库存统计.SCXENDCASE Command1(退出)按钮的Click

37、事件代码如下： Thisform.ReleaseQUIT 3设计“商品销售”表单 在“商品信息管理”项目管理器窗口中，单击文档选项卡，选择表单l，单击 按钮，打开表单设计器窗口，向表单的数据环境中添加“xs”和“kc”两个表，设计出如图48所示的表单，并保存为D：商品信息管理商品销售SCX。 其中，表单Forml对象相关属性的设置见表24。对象属性属性值说明FormlCapption商品销售AutoCentert-真首次显示表单居LabellCaption商品销售FOntSize18CommandlCaption确认Command2Caption重置Command3Caption退出GIidl

38、RecordSourcetype1-别名RecordSourceKC指定表格数据源ReadOnlyT Forml对象的Init事件代码如下： Thisform.Text4.Value=DTOC(Date() &取系统日期作为销售日期Textl的LostFocus事件代码如下： *自动填充商品名称和型号* SELECT KC LOCATE FOR商品编号= =ALLTRIM(ThisformTextlValue) IF FOUND() ThisformText2Value=商品名称 ThisformText3Value=商品型号 ENDIFText7的GetFOCUS事件代码如下： *自动计算出

39、总价* ThisformText7Value=Val(ThisformText5Value)*VAL(ThisformText6Valu e)Commandl(确认)按钮的Click事件代码如下： *添加销售记录并修改库存* IF EMPTY(Thisform.Text1.Value) OR EMPTY(Thisform.Text2.Value); OR EMPTY(Thisform.Text3.Value) OR EMPTY(Thisform.Text4.Value); OR EMPTY(Thisform.Text5.Value) OR EMPTY(Thisform.Text6.Value)

40、; OR EMPTY(Thisform.Text7.Value) OR EMPTY(Thisform.Text8.Value); OR EMPTY(Thisform.Text9.Value) OR EMPTY(Thisform.Text10.Value) Messagebox(销售数据不全整,48,提示信息) Thisform.Text1.SetfocusELSE SELECT KC LOCATE FOR KC.商品编号=ALLTRIM(Thisform.Text1.Value) IF FOUND() IF KC.库存数量VAl(Thisform.Text5.Value) MESSAGEBOX(库存数量不组,48,警告) ELSE SELECT XS APPEND BLANK REPLACE 商品编号 WITH Thisform.Text1.Value REPLACE 商品名称 WITH Thisform.Text2.Value REPLACE 商品型号 WITH Thisform.Text3.Value REPLACE 销售日期 WITH CTOD(Thisform.Text4.Value) REPLACE 销售数量 WITH VAL(Thisform.Te