基于网络环境的企业进销存管理系统.doc

基于网络环境的企业进销存管理系统【摘要】在市场经济中，销售是企业运作的重要环节。为了便好地推动销售，不少企业建立分公司或代理制，通过分公司或代理把产品推向最终用户。这些分公司或代理商大部分分布在不同的地理位置，跨空间、跨时间的频繁业务信息交流是这些企业业务活动的主要特点。在这种形势下，传统的依靠管理人员人工工作传递信息和数据的管理方式就无法满足企业日益增长的业务需求了。 本系统即为一个基本的进销存管理系统，就是利用信息化手段把先进的企业管理方法引入企业的实践，为企业的管理改革提供切实易行的途径。系统对企业中常见的采购、库存、销售等商业活动以及相关的供应商和客户等基本信息进行管理。本系统采用目前流行的visual basic进行开发，后台数据库使用功能更强大操作便捷的sql server。【关键字】销售，进销存，visual basicsaling and accounting management systemabstract:saling is an important part of enterprise management in market economy. in order to promote sale,many of them set up sub-company or agent system.they promote produce to customers through those sub-companies or agents.most of them lie in different places.the frequent communication of information beyond space and time is the major feature.in this case,the traditional management conveying information and data by management personnels cant satisfy the need of increasing business.the system is basic in saling and accounting management.it introduces advanced management by utilizing information method.it offers practical access to the reform of enterprises management.this system manage business activities,such as buying,storing and saling,and the basic information of suppliers and customers.it use visual basic which is very popular currently to develop.backgroud database makes use of sql server,having strong function and converient operation. key words:saling and accounting,visual basic 目 录目录1第一章 概述.2第二章 管理信息系统概述22.1 mis的概念及解释 .3 2.2 mis的结构、特征 42.3 mis的相关学科42.4 mis的划分42.5 mis的综合结构42.6 mis的开发5第三章 系统调研及可行性分析.53.1系统调研 53.2可行性分析概述63.3技术可行性分析6第四章 系统分析7 4.1系统需求分析.7 4.2数据流程图与数据字典7第五章 系统功能的设计.8 5.1 mis平台的确定.8 5.2数据库产品选型原则.8 5.3模块设计8第六章 数据库的设计11 6.1数据库结构清单11 6.2各数据表的关系15第七章 系统的实现15 7.1创建登录窗口18 7.2创建系统主窗口23 7.3创建菜单栏24 7.4创建采购单25 7.5创建销售单32 7.6创建库存盘点窗口39 7.7创建产品管理窗口41 7.8创建采购查询窗口44 7.9创建销售查询窗口47 7.10创建供应商管理窗口.49 7.11创建客户管理窗口.54 7.12创建密码设置窗口60 7.13创建关于窗口 63第八章 系统测试.63 8.1系统软件测试.63 8.2测试总结.64 8.3系统实施与维护.65第九章 结论.65 致谢67 参考文献67第一章 概 述1、本课题的研究意义进销存管理系统，就是利用信息化手段把先进的企业管理方法引入企业的实践，为企业的管理改革提供切实易行的途径。更重要的是，进销存管理系统可以及时通过信息技术把企业数据快速转化为企业信息，进而为相关管理者提供决策依据。我们的目标就是在于开发一个功能实用、操作方便，简单明了，具有普适性的进销存管理系统。2、本论文的目的、内容及作者主要贡献(1)目的：进销存管理系统主要是充分发挥信息技术的优势，通过集中式的信息数据库，将企业的进、销、存等经营业务有机地结合起来，达到数据共享、降低成本、提高效率、改进服务的目的，进而提供企业的生产效率和管理水平。(2)内容：在这个进销存管理系统中，主要包含了以下几个功能：（1）采购入库单的自动生成；（2）出库单的自动生成；（3）根据采购信息和销售信息对库存定期进行盘点；（4）历史采购和销售记录的查询；（5）产品信息、客户信息和供应商信息的维护。通过发上几个功能的实现，基本能够满足一般企业的进销存管理需要，为企业的管理现代化和运营信息化提供缋有力的支持。 (3)作者的主要贡献：本人针对进销存管理所需，独立完成了此课题的研究与开发，包括调研、分析、设计、编码、测试、文档编写等内容。 第二章 管理信息系统概述管理信息系统（management information systems 简称mis）在现代社会已深入到各行各业，由于计算机技术的迅速发展和普及，mis 事实上已成为计算机mis。目前，由于开发高质量 mis 的能力大大落后计算机硬件日新月异的进展，加上社会对mis 发展和完善需求的增加以及对mis开发过程中出现的错误认识和行为而导致mis开发的失败,这些情况已严重妨碍了计算机技术的进步。因此对mis 有关的内容进行深入研究，提高工作效率，提高mis开发成功率已变得十分重要。我国企业mis建设随着国民经济信息化的进展，进入了一个新的阶段。一些中大型企业搞mis已有五到十年的经验，不少新建企业正打算高起点地建立高水平的mis。实际上，企业的信息系统集成化建设，也是国民经济信息化的有机组成部分。国际上，信息设备不断降价，信息技术更加成熟，一大批企业在搞信息系统集成或重建；研究开发机构适应这种需要投入了很大力量，致力于解决信息系统集成的策略、方法和工具等问题；一些大的信息服务公司纷纷成立或加快发展，正在由设备供应商变为信息技术和企业信息系统建设整体方案的咨询服务者。这些都是我们可以借鉴、引进和运用的。实现两个根本转变为企业mis建设带来了新的压力、新的动力和真正的机会。站在新一轮起飞点上的企业，要想用好新的机遇和新的环境条件搞好mis建设，就要求业务领导和信息负责人、管理人员和开发人员进一步提高信息化的认识，转变传统的信息系统建设的思维，总结经验与学习先进理论相结合，发挥自身主动性与运用技术市场相结合，明确提出企业信息化的概念和任务，搞好高层的构思和总体规划，并把它作为九五企业发展规划的重要组成部分，组织有计划、有步骤的开发实现。2.1 mis的概念及解释mis 是一个不断发展的新型学科，mis的定义随着计算机技术和通讯技术的进步也在不断更新，在现阶段普遍认为mis 是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。2.1.1 mis的对象就是信息信息是经过加工的数据，信息是对决策者有价值的数据。信息的主要特征是来源分散，数量庞大。信息来源于生产第一线，来源于社会环境，来源于市场，来源于行政管理等部门。信息具有时间性。信息的加工方式有多种形式。企业从信息管理的角度可划分为物流和信息流。生产过程是一个物流的投入产出过程，且是不可逆的过程。管理过程是信息流的过程，且具有信息反馈的特征。 2.1.2 系统的组成系统是由相互联系、相互作用的若干要素按一定的法则组成并具有一定功能的整体。系统有两个以上要素，各要素和整体之间，整体和环境之间存在一定的有机联系。系统由输入、处理、输出、反馈、控制五个基本要素组成。信息系统是输入的数据，经过处理，输出的是信息的系统。2.1.3 管理信息的要素管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用五个方面组成。任何地方只要有管理就必然有信息，如果形成系统就形成mis。计算机设备使mis更有效，尤其是现代社会，mis已和计算机设备不可分离，因此一般来说mis就是计算机mis。mis包括计算机、网络通讯设备等硬件成份，包括操作系统、应用软件包等软件成份。并随着计算机技术和通讯技术的迅速发展还会出现更多的内容。计算机设备并不是mis的必要条件。2.2 mis的结构、特征2.2.1 mis的结构 mis由信源、信宿、信息处理、信息用户和信息管理者五个组成部分。 2.2.2 mis的特性完善的mis具有以下四个标准：确定的信息需求、信息的可采集与可加工、可以通过程序为管理人员提供信息、可以对信息进行管理。具有统一规划的数据库是mis成熟的重要标志，它象征着mis是软件工程的产物。通过mis实现信息增值，用数学模型统计分析数据，实现辅助决策。mis是发展变化的，mis有生命周期。mis的开发必须具有一定的科学管理工作基础。只有在合理的管理体制、完善的规章制度、稳定的生产秩序、科学的管理方法和准确的原始数据的基础上，才能进行mis的开发。因此，为适应mis的开发需求，企业管理工作必须逐步完善以下工作： 管理工作的程序化，各部门都有相应的作业流程。 管理业务的标准化，各部门都有相应的作业规范。 报表文件的统一化，固定的内容、周期、格式。 数据资料的完善化和代码化。 2.3 mis的相关学科 mis是一个交叉性综合性学科，组成部分有：计算机学科（网络通讯、数据库、计算机语言等）、数学（统计学、运筹学、线性规划等）、管理学、仿真等多学科。随着科学技术的高速发展，mis涉及的范围还要扩大。2.4 mis的划分2.4.1 基于组织职能进行划分 mis 按组织职能可以划分为办公系统、决策系统、生产系统和信息系统。 2.4.2 基于信息处理层次进行划分 mis基于信息处理层次进行划分为面向数量的执行系统、面向价值的核算系统、报告监控系统，分析信息系统、规划决策系统，自底向上形成信息金字塔。2.4.3 基于历史发展进行划分 第一代mis 是由手工操作，使用工具是文件柜、笔记本等。第二代mis 增加了机械辅助办公设备，如打字机、收款机、自动记账机等。第三代mis 使用计算机、电传、电话、打印机等电子设备。 2.4.4 基于规模进行划分 随着电信技术和计算机技术的飞速发展，现代mis 从地域上划分已逐渐由局域范围走向广域范围。 2.5 mis的综合结构 mis可以划分为横向综合结构和纵向综合结构，横向综合结构指同一管理层次各种职能部门的综合，如劳资、人事部门。纵向综合结构指具有某种职能的各管理层的业务组织在一起，如上下级的对口部门。2.6 mis的开发2.6.1 mis的开发原则 创新原则，体现先进性。计算机技术的发展十分迅速，要及时了解新技术，使用新技术，使目标系统较原系统有质的飞跃。整体原则，体现完整性。企业管理可以理解为一个合理的闭环系统。目标系统应当是这个闭环系统的完善。企业完整的实现计算机管理不一定必须在企业的各个方面同时实现，但必须完整的设计系统的各个方面。不断发展原则，体现超前性。为了提高使用率，有效的发挥mis的作用，应当注意技术的发展和环境的变化。mis在开发过程中应注重不断发展和超前意识。经济原则，体现实用性。大而全和高精尖并不是成功mis的衡量标准。事实上许多失败的mis正是由于盲目追求高新技术而忽视了其实用性。盲目追求完善的mis而忽视了本单位的技术水平、管理水平和人员素质。 2.6.2 mis的开发方式mis的开发方式有自行开发、委托开发、联合开发、购买现成软件包进行二次开发几种形式。一般来说根据企业的技术力量、资源及外部环境而定。 第三章 系统调研及可行性分析3.1 系统调研正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面。（1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。（2）提出新系统的人员并不都是系统研究人员，有些人对于的功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。（3）企业的现行系统可能是手工系统，也可能是使用和计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。总之，有必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。3.2 可行性分析概述可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。(1)可行性分析阶段的主要工作包括以下几个方面：新系统目标可行性分析：分析新系统的目标是否符合企业的现状和发展的需要。社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。管理可行性分析：管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。3.3 技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。（1）技术支持：首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。（2）硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。（3）软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：操作系统的选择；编译系统的选择；数据库管理系统的选择；高级编程语言的选择；汉字处理系统的选择；应用软件包的选择。本系统在开发前，与相关部门的领导和企事业有关人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。第四章 系统分析4.1 系统需求分析系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”提供依据，基关键性主要体现在“理解需求”和“表达需求”两方面。通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：（1）功能需求。确定新系统应做什么，这是最主要的需求。（2）性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。（3）环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。（4）未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改了。进销存管理系统充分发挥信息技术的优势，通过集中式的信息数据库，将企业的进、销、存等经营业务有机地结合起来，达到数据共享、降低成本、提高效率、改进服务的目的，进而提供企业的生产效率和管理水平。4.2 数据流程图与数据字典数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，担却无法表达各个处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。数据字典的任务就是对数据流程图中的出现的所有被命名的图形元素在数据字典中作为一个条目加以定义，便得每一个图形元素的名字都有一个确切的解释。数字是对数据流程图的补充说明，它的编制和维护是一项非常繁重的工作，一旦建立起来，从系统分析直至系统运行都用到它。第五章 系统功能的设计系统功能的设计是数据库管理系统开发中的重要一环。系统功能设计首先进行需求分析，根据用户的系统开发要求，初步调查，明确问题，解决目标系统做什么问题，最后确定出目标系统的功能模块。5.1 mis平台的确定一个mis应有一个调试可集成的系统开发平台。20世纪90年代以来，mis平台已经发展成为把操作系统与其外部接口融为一体的集成平台。其软件系统可以包括操作系统、图形用户系统、网络通信、数据库管理系统和程序设计语言等。硬件平台可以把cpu与存储管理单元、协处理器、网卡等集成为一体，从而形成支持mis应用开发与运行临近的一体化开发环境。mis平台确定应考虑用户投资，技术支持等诸多因素，就将硬件与软件平台统筹考虑。我们知道mis平台主要有三种。主机模式、文件服务器模式和客户/服务器模式。5.2 数据库产品选型原则数据库是mis中的重要支持技术，在mis开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言是sql server2000， sql server 2000 是microsoft 公司推出的sql server 数据库管理系统的最新版本该版本继承了sql server 7.0 版本的优点同时又比它增加了许多更先进的功能具有使用方便可伸缩性好与相关软件集成程度高等优点可跨越从运行microsoft windows 98 的膝上型电脑到运行microsoft windows 2000 的大型多处理器的服务器等多种平台使用5.3 模块设计根据需求分析，设计的进销存管理系统的模块组织结构如下图1所示。 进销存管理系统日常业务库存管理统计查询基础信息系统设置退出系统采购单销售单库存盘点产品管理采购查询库存查询销售查询供应商管理客户管理密码设置关于系统图1 进销存管理系统模块组织结构图下面对各模块的设计功能进行说明。l 采购单：日常业务中需要频繁使用的功能，主要是对每笔采购入库业务进行记录，自动生成对应的采购凭证。采购单中的商品名称、供应商和经手人字段分别对应product数据表、supplier数据表和users数据表中的相关字段，所以这里需要检验用户输入的合法性。为了管理的方便的规范。每笔采购单对应唯一采购单票号。l 销售单：日常业务中需要频繁使用的功能，主要是对每笔销售出库业务进行记录，自动生成对应的销售凭证。销售单中的商品名称、客户和经手人字段分别对应product数据表、customer数据表和users数据表中的相关字段，所以这里需要检测用户输入的合法性。为了管理的方便和规范，每笔销售单对应一个唯一销售单票号。l 库存盘点：库存管理中的重要业务活动，主要是根据采购记录和销售记录对库存商品盘点，更新每种商品的库存量，为制定采购计划提供依据。计算库存时需要检索每一种商品的采购记录，汇总得到此种商品总共的采购数量，然后检索这种商品的销售记录，汇总得到此种商品总的销售数量，最后用总采购数量和总销售数量相减即可。l 产品管理：库存管理中的辅助业务，主要是当有产品或者商品的属性数据改变时，需要在这里进行更新。l 库存查询：统计查询功能中的一个模块，提供了对库存商品按照多种字段模糊查询的功能。l 采购查询：统计查询功能中的一个模块，提供了对采购记录的多种字段的复合式查询功能。l 销售查询：统计查询功能中的一个模块，提供了对销售记录的多种字段的复合式查询功能。l 供应商管理：基础信息维护中的一个模块，主要用于对供应商信息进行查询和维护。为了方便对多个供应商的管理和比较，本系统中将此功能用tab页的形式实现，既方便对单个供应商信息的查看和编辑，又利于对供应商总体的评价和比较。l 客户管理：基础信息维护中的一个模块，主要用于对企业客户信息的查询和维护。为了方便对多个客户的管理和比较，本系统中也将此功能用tab页的形式实现，既方便对单个供应商信息的查看和编辑，又利于对供应商总体的评价和比较。l 密码设置：系统设置中的一个模块，主要用于为系统中现有的用户提供密码更改功能。l 关于系统：系统设置中的一人模块，主要说明本系统的版本版权等信息。为了用户使用本系统的方便，该模块中还提供了计算机系统信息的显示功能。l 退出系统：用于退出本系统。为了防止用户的误操作，退出系统之前需要用户确认退出的操作。整个系统运行的流程图大致如图2所示。工作人员工作人员供应商采购单位工作人员工作人员销售单位客户查询结果图2 系统流程图第六章 数据库的设计 考虑到系统的通用性和操作的便捷性，这里选用信息系统开发中广泛使用的microsoft sql server2000作为后台数据库。6.1数据表结构清单 在这个系统中，设计了一个名称为purchaseandsale的数据库。根据系统功能的需要，在其中总共设计了6个数据表，分别如下：l product表 用于存储产品的基本信息以及相应的库存信息；l supplier表 用于存储供应商的基本信息；l customer表 用于存储客户的基本信息；l users表 用于存储系统用户的基本信息；l purchase表 用于存储采购记录的基本信息；l sale表 用于存储销售记录的基本信息。1、product数据表结构 product数据表主要用于存储企业的产品或原材料信息，比如物品的名称、产地、规格、单位等。另外，根据销售记录和采购记录计算得出的每种商品的库存数量也存放在product数据表的库存字段中。表1 product数据表结构字段名数据类型长度是否允许为空说 明商品名称nvarchar255否主键，唯一标识产品记录产地nvarchar40是规格nvarchar50是包装nvarchar50是单位nchar19是库存int4是产品的库存量，系统计算得出，默认为0 2、supplier数据表结构 supplier数据表主要用于存储企业的供应商信息，比如供应商的编号、供应商的名称、供应商的地址、联系方式、开户银行和银行帐号等。 supplier数据表的结构如表2所示。表2 supplier数据表结构字段名数据类型长度是否允许为空说 明供应商简称nvarchar10否主键，唯一标识供应商记录供应商全称nvarchar100是供应商单位全称地址nvarchar100是邮政编码nchar6是电话numeric9是传真int9是联系人nvarchar30是联系人电话numeric9是开户银行nvarchar100是银行帐号numeric13是企业网址nvarchar50是3、customer数据表结构 customer数据表主要用于存储企业的客户信息，比如客户的编号、客户的名称、客户的地址、联系方式、开户银行和银行帐号等。 表3 customer数据表结构字段名数据类型长度是否允许为空说 明客户简称nvarchar10否主键，唯一标识客户记录客户全称nvarchar100是客户单位全称地址nvarchar100是邮政编码nchar6是电话numeric9是传真int9是联系人nvarchar30是联系人电话numeric9是开户银行nvarchar100是银行帐号numeric13是企业网址nvarchar50是4、users数据表结构 users数据表主要用于存储本系统的用户信息，包括用户的名称和系统登录密码。 users数据表结构如表4所示。表4 user数据表结构字段名数据类型长度是否允许为空说明用户nvarchar10否主键，唯一标识系统用户密码nvarchar10是用户密码，可以为空5、purchase数据表结构 purchase数据表主要用于存储企业的采购信息，比如采购商品的名称、价格、供应商编号、采购数量、采购日期、经手人等。 purchase数据表结构如表5所示。 表5 purchase数据表结构字段名数据类型长度是否允许为空说明商品名称nvarchar255否外键，对应product表中商品名称数量int4否每笔采购记录必须有采购数量进价money8否每笔采购记录必须有采购进价金额money6是由数量和进价计算得出备注nvarchar9是供应商nvarchar9否外键，对应supplier表中供应商简称日期smalldatetime30否每笔采购记录必须有采购时间，默认为当天经手人nvarchar9否外键，对应user表中操作员票号nvarchar100否每笔采购记录必须有唯一的票号，系统自动生成6、sale数据表结构 sale数据表主要用于存储企业的销售信息，比如销售商品的名称、价格、客户编号、销售数量、销售日期、经手人等。 表6 sale数据表结构字段名数据类型长度是否允许为空说明商品名称nvarchar255否外键，对应product表中商品名称数量int4否每笔采购记录必须有采购数量单价money8否每笔采购记录必须有采购进价金额money8是由数量和进价计算得出备注nvarchar220是客户nvarchar10否外键，对应customer表中客户简称日期smalldatetime4否每笔采购记录必须有采购时间，默认为当天经手人nvarchar9否外键，对应user表中操作员票号nvarchar50否每笔采购记录必须有唯一的票号，系统自动生成6.2各数据表的关系实际进销存业务中的一些数据是在多个业务活动中共享的，比如采购单中的商品必须在product数据表中有相关记录，所以在本系统中也对上述的6个数据表设置了对应的关系。具体关系主要体现在以下几个方面：l 采购单、销售单中的经手人必须是企业中的合法员工，本系统中要求经手人必须是在users数据表中有相应的记录；l 采购单、销售单中的产品必须在product数据表中有相应的记录。如果采购一种新商品，必须先在supplier数据表中增加这家供应商的信息；l 销售单中的客户必须customer数据表中有相应有记录。如果销售中发展了新的客户，必须先在customer数据表中增加这家客户的信息。这些关系可以在sql server中用关系图工具设计和查看。第七章 系统的实现 本系统采用系统开发中常用的多文档，搭配菜单栏、工具栏、状态栏等界面工具实现系统分析和系统设计中提出的功能。在这个窗口中，单击不同的菜单或者工具栏中的按钮，可以打开不同的窗口以完成各种对应的功能。 在具体的实现各个功能模块之前，需要在visual basic6.0中创建一个工程，以管理系统开发中的不同资源。创建工程的步骤如下： （1）打开visual basic6.0开发环境，在菜单栏中依次选择“文件”“创建工程”菜单，出现如图3所示的“新建工程”对话框。图3 “新建工程”对话框 （2）在列表中选择“标准exe”图标以指定新建应用程序的类型为标准的windows应用程序，然后单击“确定”按钮，打开如图4所示的系统初始界面。图4系统初始界面 （3）在图4菜单栏中依次选择“工程”“工程1属性”菜单，出现如图5所示的“工程1-工程属性”对话框。图5 “工程-工程1属性”对话框 （4）在“工程名称”文本框中将工程的名称设置为“进销存管理系统”，然后单击“确定”按钮。 （5）单击工具栏上的保存按钮，保存该工程。 这样，就成功创建了进销存管理系统工程。下面将逐个介绍系统中各个窗口的设计和功能的实现。7.1创建登录窗口在进入应用程序主界面之前，一般需要登录操作，以便确认用户的身份，从而保证企业的数据的安全性。在本系统的登录中，需求用户从系统已经创建的用户中选择一个用户名，然后输入相应的密码。程序在数据库的users数据表中进行查询，如果用户的密码正确，就可以使用该系统；如果用户的密码错误，将提示用户重新输入密码。登录窗口frmlogin的设计方法如下：（1）将创建工程时系统自动创建的form1作为frmlogin窗口。设置form1窗口的名称属性为“frmlogin”，caption属性为“请登录！”，并将其作为窗口的标题，borderstyle属性设置为“fixed dialog”，icon属性为system.ico，startupposition属性设置为“屏幕中心”。（2）在窗口中按照表7放置控件并设置相应的属性。表7 frmlogin窗口中控件及其属性列表控件种类控件名称属性属性值说明labellabusernamecaption用户名设置标签显示字段font黑体，常规，小四设置标签字体labellabpwdcaption密码：设置标器显示字段font黑体，常规，小四设置标签字体comboboxcmbusernamestyledropdown combo设置组合框样式textboxtxtpwdtext“”设置默认为空commandbuttoncmdokcaption“确定”设置命令按钮标题commandbuttoncmdcancelcaption“取消”设置命令按钮标题imageimgsysdaraformat图片设置图片格式imageimgsyspicture合适的图片文件指定显示的图片stretchtrue图片可以拉伸（3）调整各个控件的位置和大小，最终状态如下图6所示。图6 frmmain窗口设计效果图（4）因为要在窗口的代码中使用ado中的一些对象进行数据库的操作，所以必须先引用相应的库。在菜单栏中依次选择“工程”“引用”菜单，出现如图7所示的“引用”对话框。图7 “引用”对话框（5）在“可用的引用”列表中选择“microsoft activex data objects2.0 library”项，然后单击“确定”按钮即可。这样就可以在程序代码中使用ado中的对象了。（6）当系统运行打开 frmlogin窗口的时候，需要从数据库的users数据表中查找当前系统中所有的用户，然后将它们添加到cmbusername组合框中。双击frmlogin窗口，进入代码编辑器。在其中输入如下代码：dim conn as new adodb.connectiondim rs as new adodb.recordsetdim connstring as stringdim num as integer 这样，当程序开始运行，加载frmlogin窗口的时候，就会从purchc数据库的users数据表中检索所有记录的用户字段，然后将它们逐条添加到期cmbusername组合框的子项中。最后将组合框的第一个子项设置为默认选项。（7）当用户单击“确定”按钮时，程序需要从cmbusername组合框中取得用户选择的用户名，然后根据用户名对purchfrmlogin数据库的users数据表进行检索，如果检索的密码和用户输入的密码一致，则卸载登录窗口，然后打开主窗口；如果用户输入错误，则提示用户密码错误，需要重新输入，然后将焦点转移到cmbusername组合框。但是如果检测到用户已经连续3次输入密码都错误，就需要提示用户无权登录本系统，并退出系统。在界面设计窗口中双击cmbok控件，进入“确定”按钮的单击事件处理代码中，输入如下代码：private sub cmdok_click() if trim(cmbusername.text) = then 首先要求用户名不能为空 msgbox 用户名不能为空！, vbokonly + vbexclamation, 警告！ cmbusername.setfocus 将焦点转移到用户名组合框中 exit sub end if connstring = provider=sqloledb.1;password=ecc;persist security info=true;user id=sa; _ & initial catalog=purchaseandsale;server=(local) if conn.state 1 then 如果数据库没有打开则打开数据库 conn.open (connstring) end if set rs = conn.execute(select * from users where 用户= & trim(cmbusername.text) & ) 在users数据表中检索用户字段值为用户输入的用户名的记录，将结果存放在rs记录集中 if rs.eof then 如果记录为空则说明不存在此条记录，也说明用户名错误 msgbox 没有该用户！ & vbcrlf & 请重新输入！, vbokonly + vbexclamation, 提示 cmbusername.setfocus exit sub else 存在此用户名，检查密码 rs.movefirst if rs.fields(密码).value = trim(txtpwd.text) then 密码正确 unload frmlogin 卸载登录窗口 load frmmain 加载主窗口 frmmain.show 显示主窗口 else 密码错误 if num 2 then 输入错误次数不足三次 num = num + 1 错误次数加1 msgbox 口令不对，请重输！ & vbcrlf & 您还有 & str(3 - num) & 次机会！, _ vbokonly + vbexclamation, 提示 提示错误 txtpwd.setfocus exit sub else 输入错误打