电脑进销存管理系统毕业设计(论文).doc

《电脑进销存管理系统毕业设计(论文).doc》由会员分享，可在线阅读，更多相关《电脑进销存管理系统毕业设计(论文).doc（31页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 第一章 引言11 课题研究背景随着计算机数量和性能突飞猛进的发展，计算机应用的领域也越来越广，从最初主要应用于科学计算，到现在应用于工业控制、计算机辅助设计、信息管理、办公自动化、影视娱乐、电子商务各个方面，可以说计算机已经无处不在。根据指导老师、公司和客户的要求，本次毕业设计的题目是电脑进销存管理系统，要求利用Visual Basic完成管理平台设计，构造所用的类库；使用SQL Server数据库存储数据。现国内大多数公司存在的问题：信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服。要提升企业竞争力，企业内部信息化是不可缺少的一个步

2、骤。实施先进的办公室自动化系统，实现企业内部信息管理、共享及交流，才能让企业在竞争激烈的21世纪取得先机。随着我国市场经济的蓬勃发展和人们对商品需求的迅速增加，工业企业迅速壮大，企业的快速发展必然导致竞争的加剧，要想在激烈的市场竞争中谋求发展，客观上要求企业必须加强内部管理，提高运营效率。由于产品的流通量大、品种繁多、业务量大，单凭手工记账已经很难适应工作的需要。如何尽快建立和完美现代企业的信息化管理机制问题，已成为工业企业发展的关键所在。企业生产制造管理的关键在于如何规划和计划各种资源在时间、地点、产品之间的合理配备，如何按计划监督责任方对资源的使用情况，如何根据预测和历史情况为决策者提供更

3、有效地利用资源的分析数据。因此需要建立一个完整的、具有工业企业特点的进销存管理系统。该电脑进销存系统以企业管理的计划和控制职能为核心，提供了生产、销售、采购、库管、计划等实用而丰富的管理功能。本系统的主要功能是制定生产/采购计划、物料需求计算、材料供求分析，核心任务是：l 降低材料成本；l 降低库存成本；l 缩短生产/采购周期，如何获得更高的利润。企业进销存管理系统以企业管理的计划和控制职能为核心，提供了生产、销售、采购、库管计划等实用而丰富的管理功能，具有如下优点：l 具有高度的信息综合利用效能，可以对工业企业的经营活动进行分析、预测、决策，进而达到对工业企业经营活动过程的全程监督和控制的目

4、的；l 彻底改变了企业信息重复、混乱、无法共享的现状，使产、供、销、客、物、决策等各个部门可以资源共享、信息共享，从而实现了业务、决策一体化；l 物流、资金流、信息流统一化的良好经营管理模式。本系统是根据工业企业的生产过程，控制生产过程中的材料消耗、产品销售、成本等数据，具体管理范围包括材料采购、材料库存、生产计划、生产控制、物料需求、产品购进、产品销售、产品产出等。最初本着尽可能完成系统的各项功能的原则，将物料控制到只在需要的时候向需要的部门按需要的数量，提供所需要的物料，也就是说，它既要防止物料供应滞后于对他们的要求，也要防止物料过早地出产和进货，以免增加库存，造成物资和资金的积压，设计了

5、这套管理软件，但在设计的过程中发现许多实际问题非常复杂，软件很难控制，本着能自动化的尽量自动化，不容易实现自动化的则人为操作，由于能力有限和时间的限制，系统的设计难免会存在不足之处，敬请各位同学、老师不吝赐教。1 2 可行性报告可行性研究的目的就是，用最小的代价在尽可能短的时间内确定问题是否能够解决，但可行性研究的目的不是解决问题，而是确定问题是否值得去解。怎样达到这样的目的呢? 当然不能靠主观的猜想，应当进行客观分析。同时必须分析几种主要的可能解法的利弊，从而判断原定的系统目标和规模是否能实现，系统完成后所能带来的效益是否大到值得投资开发这个系统的程度。因此，可行性研究的实质是要进行一次大大

6、压缩简化了的系统分析和设计的过程，也不是在较高层次上以较抽象的方式进行的系统分析和设计的过程。首先需要进一步分析和澄清问题定义。在问题定义阶段初步确定的规模和目标，如果是正确的就进一步加以肯定，如果有错误就应该及时改正，如果对目标系统有任何约束和限制，也必须把他们清楚的一一列举出来。在澄清了问题定义之后，应该导出系统的逻辑模型。然后从系统逻辑模型出发，探索若干种可供选择的主要方法(即系统实现方案)。对每种解法都应该仔细研究它的可行性，一般来说，至少应该从下述几方面研究每种解法的可行性：121 经济可行性以往数据的录入，需要手工录入，若要进行计算、统计，有时还需对一些以往的数据进行修改或删除，这

7、个就不是一个或几个人力可干的，何况这些数据量很大，带来的麻烦问题也就相应的增加了， 若不采用现代的工具说白了若不使用一个可行的软件的话,这样的浪费人力、物力、财力，显然是不经济的，另一方面其正确性都不能保证，所以从本软件可带来的经济效益来看也是可行的。它节省了不少的人力、物力，从很大程度上提高了公司的工作效率，方便了对大批量数据信息的处理,在软件试运行期内便可取得一定的效益，这个也是对本软件的可行性的肯定。通过对本系统的开发所消耗的人力和物力和由于本系统成功所为药品销售管理所带来简捷和方便，可以看的出本系统所带来的经济效益一定会远远的大于它的开发成本，因为本系统所需要的开发软件在实验室中是具备

8、的，而开发本系统所需的硬件即计算机的类型，对实验室也来说也是很客观的，是能够满足需求的。所以开发该系统是完全可行的122 硬件可行性需要一台WIN95/98操作系统（最好是更高的操作系统）586以上微机，并且安装有SQL Server 2000、Visula Basic 6.0运行软件，电源连线便可实现本管理系统。根据实际情况而言，完全能够实现这要求。123 技术可行性本系统所建和使用的数据库完全合理，符合本系统的技术要求。本系统所使用的数据库表直观，所设计的窗体既简单明了，又包含了所有的功能菜单及一系列的命令按钮，只要根据所提供的主菜单或命令按钮的提示，便可进入到每个主、子控制模块，进行一系

9、列的操作而实现相应的功能。 VISUAL BASIC 6.0是用以实现这个系统的最好的编程语言之一，因为VISUAL BASIC 是微软推出的一种可视化开发工具，能较好地编写WINDOWS应用程序，特别是在数据库编程方面具有很强大的功能，且易于实现，在VISUAL BASIC 环境下可创建读取和修改如ACCESS、SQL SERVER、ORACLE、FOXPRO和DBASE等数据库，且生成的应用程序可脱离VISUAL BASIC 环境运行即具有良好的移植性和通用性，还有可扩充性。所以我选择了VB做为开发工具，我们可看到其适用性强，便于查询的优点。124 操作可行性本软件具体界面简单，操作方便。

10、本软件力求自动化，所以大部份的工作您都可交给计算机自己完成，比如查询时，只要您输入什么关键信息，再用鼠标点击一下便可做到您想实现的事情。第二章 系统总体设计21 系统功能分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。本例中的工业企业进销存系统（后面简称为系统）需要完成功能主要有：l 基本信息的管理，有产品设置、产品类别设置、供应商设置、客户设置、业务员类别设置、业务员设置、仓库设置等。l 进货信息的管理，包括订货单的管理、入库单的管理以及进货信息的查询等。l 生产信息的管理，包括配料单的管理、生产计划单信息的管理、产品组装单信息的

11、管理以及相关信息的查询等。l 销售信息管理，包括销售单的管理以及销售信息的查询等。l 库存信息的管理，包括转仓单的管理、产品盘点和转仓信息的查询等。l 财务信息管理，包括应收信息的管理、应付信息的管理等。22 系统功能模块对上述各项功能功能进行集中、分块，按照结构化程序设计的要求，得到如下图所示的系统功能模块图：电脑进销存管理系统财务信息管理库存信息管理销售信息管理进货信息管理生产信息管理基本信息设置系统管理入库单的录入和修改进货信息查询生产信息查询产品组装单管理生产计划信息管理配料单信息管理应收信息录入和修改应付信息录入和修改订货单的录入和修改销售信息查询销售单的录入和修改转仓单的录入和修改

12、转仓信息查询商品盘点用户管理用户密码管理商品设置商品类别设置供应商设置业务员类别设置业务员设置仓库设置图1 系统功能模块图23 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致性。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：l 数据库需要分析。l 数据库逻辑结构设计。231 数据库需求分析 在需求分析阶段我们将分析系统具体要求我们做些什么，而常用的分析方法是结构化分析法。“结构化分析”(简

13、称SA方法)法是一个简单实用、使用很广的方法。SA方法采用了介于形式语言和自然语言之间的描述方式。一般情况下分析一个复杂的系统采用两种基本手段“分解”和“抽象”。SA方法采用“分解”的方式来理解一个复杂的系统，“分解”需要有描述的手段，数据流图就是作为描述“分解”的手段而引进的。数据流图描绘系统的逻辑模型，图中没有任何具体的物理元素，只是描绘信息在系统中流动和处理的情况。即数据流图只需考虑系统必须完成的基本逻辑功能，完全不需考虑如何具体地实现这些功能。数据流图一般包括如下四个基本成分：数据流、处理、实体、源点和终点。数据流由一组固定成分的数据组成，一般用箭头表示。处理是对数据进行的操作，一般用

14、棱形（或椭圆形）表示。实体是暂时存贮的数据，一般用矩形表示。用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。仔细分析调查有关系统需求的基础上，将得到如下图所示的本系统所处理的数据流程图：进货信息设置生产信息设置进货信息设置基本信息管理配料单信息管理库存信息管理销售信息设置财务信息管理销售信息管理生产信息管理基本信息录入库存统计基本信息录入财务计算组装、生产基本信息录入基本信息录入企业基本信息图2 系统数据流程图针对企业业务的需求，通过对企业管理工作

15、过程的内容各数据流程分析，设计如下面所示的数据项和数据结构：l 产品类别信息，包括的数据项有：类别编号、类别名称等。l 产品信息，包括的数据项有：产品编号、产品名称、计量单位、类别、入库价格、分销价格、零售价格、生产厂家、更新日期、备注信息等。l 客户信息，包括的数据项有：客户编号、客户名称、地址、邮政编码、电话号码、公司方页、电子邮件地址、税号、银行账户、开户银行、联系人、备注信息等。l 供应商信息，包括的数据项有：供应商编号、供应商名称、地址、邮政编号、电话号码、公司主页、电子邮件地址、税号、银行账户、开户银行、联系人、备注信息等。l 业务员类别信息，包括的数据项有：类别编号、类别名称等。

16、l 业务员信息，包括的数据项有：业务员编号、业务员姓名、类别、电话号码、家庭住址、身份证号码、备注信息等。l 仓库信息，包括的数据项有：仓库编号、仓库名称。l 进货订单信息，包括的数据项有：订货日期、编号、业务员、供应商编号、产品编号、数量、单价、折扣比例、总金额、备注信息等。l 入库单信息，包括的数据项有：入库日期、编号、业务员、供应商编号、产品编号、数量、单价、折扣比例、总金额、是否即时付款、是否记账、预付比例、备注信息等。l 配料单信息，包括的数据项有：配料单编号、设置日期、产品编号、产品名称、产品计量单位、配料编号、配料名称、配料计量单位、配料数量、配料单价、配料总金额、业务员编号、备

17、注信息等。l 生产计划信息，包括的数据项有：计划编号、计划制定人、计划制定时间、产品编号、产品名称、计量单位、生产数量、单价、总金额、计划起始时间、计划结束时间、备注信息等。l 销售出货单信息，包括的数据项有：销售日期、编号、业务员、客户编号、产品编号、数量、单价、折扣比例、总金额、是否即时付款、是否记账、预付比例、备注信息等。l 库存信息，包括的数据项有：更新日期、编号、仓库编号、产品编号、数量、单价、总金额、备注信息等。l 转仓信息，包括的数据项有：转仓日期、编号、业务员、转出仓库编号、转入仓库编号、产品编号、数量、总金额、备注信息等。232 数据库逻辑结构设计 现在需要将上面的数据库概念

18、结构转化为SQL Server 2000数据库系统所支持的实际数据，也就是数据库的逻辑结构。根据数据库的需求分析和概念结构设计，设计了名称为my_factory的数据库。数据库由下面多个表格组成，各个表格的设计结果如下面表格所示。每个表格表示在数据库中的一个表。 表1： Dm_wzlb 产品类别表列名数据类型可否为空说明lbcodecharNot Null产品父类编号lbcharNull产品父类名称bzcharNull备注信息 表2： Dm_wz 产品信息表列名数据类型可否为空说明dmcharNot Null产品编号mccharNull产品名称jldwcharNull计量单位lbdmcharN

19、ull产品类别编号rkjnumericNull入库价格fxjnumericNull分销价格lsjnumericNull零售价格cjcharNull生产厂家yxrqdatetimeNull更新日期bzcharNull备注信息 表3： Dm_kh 客户信息表列名数据类型可否为空说明dmcharNot Null会员编号mccharNull会员名称addrcharNull地址yzbmcharNull邮政编码telcharNull联系电话itladdcharNull公司主页ywmancharNull联系人emailcharNull联系人电子邮件地址sui_nocharNull税号bank_nocharN

20、ull银行帐号bankcharNull开户银行lbcodecharNull会员类别编号total_jenumericNull累计消费金额bzcharNull备注信息表4 ：Dm_gf 供应商信息表列名数据类型可否为空说明dmcharNot Null供应商编号mccharNull供应商名称addrcharNull地址yzbmcharNull邮政编码telcharNull联系电话itladdcharNull公司主页emailcharNull联系人电子邮件地址sui_nocharNull税号bank_nocharNull银行帐号bankcharNull开户银行ywmancharNull联系人bzch

21、arNull备注信息 表5： Dm_ywylb 业务员类别表列名数据类型可否为空说明lbcodecharNot Null类别编号lbcharNull类别名称bzcharNull备注信息 表6： Dm_ywy 业务员表列名数据类型可否为空说明dmcharNot Null业务员编号mccharNull业务员姓名lbcharNull类别telcharNull联系电话addrcharNull家庭住址sfzcharNull身份证号码lbcodecharNull类别编号bzcharNull备注信息表7： Dm_ck 仓库表列名数据类型可否为空说明dmcharNot Null仓库编号mccharNull仓库

22、名称bzcharNull备注信息表8 Dh 进货定单表列名数据类型可否为空说明in_datedatetimeNot Null订货日期ywmancharNull业务员dh_nocharNull订货单编号gfdmcharNull供应商编号wzdmcharNull产品编号slnumericNull数量in_danjnumericNull订货单价iI_zknumericNull折扣i_zkenumericNull总金额bzcharNull备注信息表9：Inh 入库单表列名数据类型可否为空说明in_datedatetimeNot Null入库日期ywmancharNull业务员inh_nocharNul

23、l入库单编号gfdmcharNull供应商编码ckdmcharNull仓库编码WzdmcharNull产品编号slnumericNull数量in_danjnumericNull单价i_zknumericNull折扣i_zkenumericNull总金额jsfkcharNull是否及时付款jzcharNull是否记帐yfnumericNull预付比例bzcharNull备注信息bz1charNull入库方式（采购、生产等）表10：xsdh 销售订单表列名数据类型可否为空说明out_datedatetimeNot Null销售订货日期ywmancharNull业务员xsdh_nocharNull销

24、售订货但编号khdmcharNull客户编号wzdmcharNull商品编号slnumericNull数量out_danjnumericNull销售订货单价o_zknumericNull折扣o_zkenumericNull总金额bzcharNull备注信息表11：outh 销售单表列名数据类型可否为空说明out_datedatetimeNot Null销售日期ywmancharNull业务员outh_nocharNull销售单编号khdmcharNull客户编号ckdmcharNull仓库编号wzdmcharNull产品编号slnumericNull数量out_danjnumericNull单

25、价o_zknumericNull折扣o_zkenumericNull总金额jsfkcharNull是否及时付款jzcharNull是否记帐yfnumericNull预付比例bzcharNull备注信息bz1charNull出库方式（销售、组装等）表12：kucun 库存表列名数据类型可否为空说明update_datedatetimeNot Null更新日期kucun_nocharNull库存编号ckdmcharNull仓库编号wzdmcharNull产品编号slnumericNull数量total_jenumericNull总金额表13：zc 转仓单表列名数据类型可否为空说明zc_nochar

26、Not Null转仓编号zc_datedatetimeNull转仓日期ywmancharNull业务员o_ckdmcharNull转出仓库编号i_ckdmcharNull转入仓库编号wzdmcharNull产品编号slnumericNull数量total_jenumericNull总金额bzcharNull备注信息表14：mate 配料单表列名数据类型可否为空说明m_nocharNot Null配料单编号m_datedatetimeNull设置日期wzdm1charNull产品编号wzmc1charNull产品名称jldw1charNull计量单位wzdm2charNull配料产品编号wzmc

27、2charNull配料产品名称jldw2charNull配料计量单位sl2numericNull配料数量in_djnumericNull配料价格jinenumericNull配料总金额ywdmcharNull业务员编号bzcharNull备注信息表15：plang 生产计划表列名数据类型可否为空说明pl_nocharNot Null生产计划编号pl_mancharNull业务员编号pl_datedatetimeNull制定日期dmcharNull产品编号mccharNull产品名称jldwcharNull计量单位pl_slnumericNull生产数量djnumericNull生产价格jine

28、numericNull总金额cp_datedatetimeNull计划开始日期st_datedatetimeNull计划结束日期bzcharNull备注信息表16： user_info 系统用户表列名数据类型可否为空说明user_IDCharNot null用户名称user_PWDCharNull用户密码user_DEScharNull用户描述第三章 系统详细设计详细设计阶段的根本目的是确定应该怎样具体的实现所要求的系统，也时就是说，经过这个阶段的设计工作，应该取得对目标系统的精确描绘，从而在编码阶段可以把这个描述直接翻译成用某种程序设计语言书写的程序。详细设计阶段的任务是具体的编写程序，要设

29、计出程序的“蓝图”，以后程序员将根据这个蓝图写出实际的程序代码。除了应该保证程序的可靠性之外，将来编写的程序可读性好，容易理解，容易测试和容易修改，维护是详细设计阶段最重要的目标。因此，详细设计的结果基本上决定了最终的程序代码的质量。考虑程序代码的质量时必须注意，程序的“读者”有两个，那就是计算机和人。在软件的生命周期使用中，设计测试方案，诊断程序的错误，修改和改进程序等都必须首先读懂程序。实际上对长期使用的软件而言，人读程序的时间可能比写程序的时间还要长的多，更主要的是看它是否容易阅读和理解。详细设计的目标不仅仅是逻辑上正确的实现每个模块的功能，更重要的是设计出的处理过程应该尽可能简明易懂。

30、结构程序设计技术是实现旧目标的关键技术，因此是详细设计的逻辑基础。 详细设计阶段的关键任务是确定怎样具体地实现所要求的目标系统，也就是要设计出程序的“蓝图”。除了应该保证程序的可靠性之外。使将来编写出的程序可读性好，容易理解，容易测试和容易修改、维护是详细设计阶段最重要的目的。 理论研究和大量实践都表明采用自顶向下逐步求精的策略和单入口单出口的控制结构设计程序是完全可行的，而且有一系列重大优点，因此，结构程序设计技术是实现上述目标的基本保证，是进行详细设计的逻辑基础。 面向数据结构的设计方法是进行详细设计的形式化的方法。 根据详细设计的介绍，下面就介绍一下本系统的主要窗体的详细设计。31 系统

31、主窗体的创建有关数据库结构的所有后台工作已经完成。现在将通过系统中各个功能模块的实践，使用Visual Basic来编写数据库系统的客户端程序。311 创建系统的主窗体 这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按钮，产生一个窗体。 在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。选中状态栏控件，单击鼠标右键，选中Property菜单，然后设置属性。312 创建主窗体的菜单 在主窗体中，单击鼠标右键，选择弹出式菜单中的Menu Editor，创建如下图所示的菜单结构。 31

32、3 创建公用模块 在Visual Basic中可以用公用模块来存放整个工程项目公用的函数、过程和全局变量等。这样可以极大地提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Module.bas 由于系统中各个功能模块都将使用数据库中的各种数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset执行SQL语句，并返回记录集对象声明一个连接 Dim cn

33、n As ADODB.Connection 声明一个数据集对象Dim rst As ADODB.Recordset Dim sTokens() As String 异常处理 On Error GoTo ExecuteSQL_Error 用Split函数产生一个包含各个了串的数组 sTokens = Split(SQL)创建一个连接 Set cnn = New ADODB.Connection打开一个连接 cnn.Open ConnectString If InStr(INSERT,DELETE,UPDATE,EXECUTE, _ UCase$(sTokens(0) Then 执行查询语句 cn

34、n.Execute (SQL) MsgString = sTokens(0) & _ query successful Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic rst.MoveLast get RecordCount返回记录集对象 Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set

35、cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误: & _ Err.Description Resume ExecuteSQL_ExitEnd Function在ExecuteSQL函数中使用了Connect String函数，这个函数用来连接数据库。这里需要特别注意的是，在为数据库创建文件DSN时，名称应该和Connect String中的参数一致。Connect String中的用户名和密码参数必须和安装的SQL Server的参数一致。在录入有关信息时，需要回车来时入下一个文本框，这样对软件用户非常方便。所有功能

36、模块都需要这个函数，所以将它放在公用模块中，代码如下：Public Sub EnterToTab(Keyasc As Integer) 判断是否为回车键 If Keyasc = 13 Then 转换成Tab键 SendKeys TAB End IfEnd Sub Keyasc用来保存当前按键，SendKeys函数用来指定的按键。一旦按下回车键，将返回Tab键，下一个控件自动获得输入焦点。 添加全局变量，用来记录各个功能模块的读写状态，代码如下：Public gintWZSmode As Integer 产品设置全局变量Public gintGFSmode As Integer 供应商设置全局变

37、量Public gintKHSmode As Integer 客户设置全局变量Public gintYWYLBSmode As Integer 业务员类别设置全局变量Public gintYWYSmode As Integer 业务员设置全局变量Public gintCKSmode As Integer 仓库设置全局变量Public gintWZLBSmode As Integer 产品类别设置全局变量Public gintDHmode As Integer 进货订单全局变量Public gintINHmode As Integer 入库单全局变量Public gintXSDHmode As

38、Integer 销售订货全局变量Public gintOUTHmode As Integer 销售单全局变量Public gintZCmode As Integer 产品转仓全局变量Public gintGETmode As Integer 应收全局变量Public gintOFFERmode As Integer 应付全局变量Public gintPLLISTmode As Integer 配料单列表全局变量Public gintPLmode As Integer 配料单全局变量Public gintPLANGLISTmode As Integer 生产计划列表全局变量Public gint

39、PLANGmode As Integer 生产计划全局变量Public username As String 用户名全局变量这些全局变量用来记录是添加状态还是修改状态，赋值1为添加，赋值2为修改。由于系统启动后，需要对用户进行判断。如果登录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此将代码放在公用模块中。32 基本信息设置模块的创建 基本信息设置模块主要实现如下功能：l 添加和修改产品信息l 添加和修改产品类别信息l 添加和修改客户信息l 添加和修改供应商信息l 添加和修改业务员信息l 添加和修改业务员类别信息l 添加和修改仓库信息321 产品设置窗体

40、的创建 窗体布局如下图所示：这个窗体用来显示产品设置信息，并且可以对各条记录进行操作。在载入窗体时，程序将自动载入所有记录，代码如下：Private Sub menuWZSetup_Click() frmWZSetup.txtsql = select * from dm_wz frmWZSetup.Show 0End Sub 窗体的Show方法后面加上0和1，可以得到不同的窗体显示方式。参数0时，显示的窗体为无模式形式，窗体切换时不需要进行其他操作；参数为1时，显示的窗体为有模式，窗体切换时必须进行相关操作。 载入窗体时将自动显示各条记录，代码如下： Private Sub Form_Load

41、() ShowTitle ShowDataEnd Sub函数ShowTitle用来显示表头，代码如下：显示Grid表头Private Sub ShowTitle() Dim i As Integer With msgList 设置列数目 .Cols = 11 .TextMatrix(0, 1) = 产品编号 .TextMatrix(0, 2) = 产品名称 .TextMatrix(0, 3) = 单位 .TextMatrix(0, 4) = 类别 .TextMatrix(0, 5) = 入库价格 .TextMatrix(0, 6) = 分销价格 .TextMatrix(0, 7) = 零售价格 .TextMatrix(0, 8) = 生产厂家 .TextMatrix(0, 9) = 设置日期 .TextMatrix(0, 10) = 备注信息 固定表头 .FixedRows = 1