vb+sql毕业论文(OA)

1、xxxxxxxxxxx学院服装进销存管理系统学 生 姓 名： 指 导 教 师： 系 别： 专 业： 年 级： 20 论文提交时间： 2007-5-31评 阅 人：_ 年 月 日：_摘要随着现代工业的发展，计算机信息管理系统越来越受到企业重视。为了适应新形势下企业服装进销存管理的需要,降低成本,提高经济效益,非常有必要制定合理的库存策略、从而有效的控制和降低企业高量库存,减少和消除库存报废的风险当今企业竞争范围的扩大，要求在企业的各个方面加强管理，并要求企业有更高的信息化集成，要求对企业的整体资源进行集成管理，而不仅仅对制造资源进行集成管理。 本文根据服装进销存管理系统的现状及未来的发展方向结合

2、有关的实践信息设计了服装进销存管理系统。本系统对服装进销存的全流程都有相关的模块，从而克服了原来的手工输入效率低、容易出错的缺点。 本文介绍了程序的开发过程，开发环境，以及程序的价值，本文从进出库，查询，打印，设置等多方面对程序做了分析，对企业的发展有一定的帮助，就我个人而言,通过该程序的编译让我对VB有更进一步的了解。本文还简单介绍了VB6.0软件的界面及操作方法。简单介绍了Visual Basic编程环境和Access数据库管理系统的功能特点， 表单的制作过程，程序的编写，添加，最后的编译过程。并且叙述了作者在软件开发过程中的心得体会。 关键字：服装进销存管理系统 数据库 ADO 公共模块

3、 Visual Basic6.0目录绪论1第一章、可行性分析31.开展该项目的原因32.该项目的基本目标33.设计目标34.定义45.可行性研究方法46.对现有系统的分析46.1现有系统的局限性46.2工作负荷和费用支出46.3与现有系统比较的优越性56.4采用建议系统可能带来的影响5第二章、需求分析61.企业的具体实际的需求62.商场进销存管理概述7第三章、结构设计10第四章、数据库设计111.建立Access 数据库112.连接数据123.建立数据库并提供所有数据：14第五章、建立公共模块15第六章、实现窗体的代码简析18第七章、总体设计241.程序描述242.用户界面:243.测试要点2

4、44.总体结构和模块外部设计245.运行模块的组合25第八章、维护设计25参考资料25绪论11  现状研究服装业作为中国的第三大产业，被称为“永不衰落的产业”，为我国国民经济建设发挥着重要的作用，是我国出口创汇的主要产业，其发展前景极为诱人。据国家权威机构最新统计数据，我国服装企业近3万家，仅年销售额3000万以上的占30%，有9000余家，比2004年底增加了320家，而1000万以上营业额的也近2/3。具规模以上服装企业服装产量达63.74亿件，其中梭织服装为30.10亿件，针织服装为33.46亿件。但是，纺织服装业的信息化与其他行业相比，一直比较滞后，起步较晚。据统计，服装企业

5、对财务软件和设计软件的应用相对来说比较普遍，没有预测、没有计划、没有采购管理或安排计划的系统。服装老板最为烦恼与无能为力的有以下两方面：第一、物料管理。服装行业的主要原料是面料、里衬、辅料等，涉及到布料的多要求以质地、颜色、批次等属性进行管理，而且在布料的同种颜色里又会有不同的色号、缸号，在进行原料的描述时须以颜色色号进行表达，这种巨量信息物料需要精细化管理，但*人力根本就无法管理，老板应该怎么办？第二、计划物控。服装企业的物料一般有几千种，再加上1020种颜色的属性，物料种类与管理的难度与复杂度就可想而知了。物控部既要准确地向采购下达采购计划，又要保障生产的正常进行，不能因为缺料或短料而影响

6、生产进度。在进行物料管理的过程中，需要考虑原料的一些基本特征及对生产的影响。在下达采购计划时，要考虑采购损耗率，一般采购损耗是凭经验判断，多采购保证生产。另外物料自身也有损耗，例如面料的缩水特性，每种面料有一个比例。在确定生产领料是须考虑生产损耗，根据物料特性，设定相对固定的损耗率。另外还要考虑单位换算、安全存量等内容。物料的配套、物料的计划、物料的分配对于月产几万套的服装企业来说，用人工方法简直是无法做到的。此时，老板应该怎么办？这个时候，服装这个传统产业，似乎在一夜之间突然想起来，必须从信息化寻求管理能力、寻求节约成本的空间、追求更大利润化。服装走过了从传统手工到现代的过程，必然在管理上有

7、一个飞跃的要求，这就是服装业普及信息化的必然进程。12  选题意义随着社会的革新，人们的生活层次在不断的提高，对自身装束的要求也在不断的提高。追求时尚，追求个性的消费趋势对服装界的影响就是服装的款式越来越多；而身高的差距，又使得同一款服装有着众多不同的规格，再加上颜色的区别，要明确的描述一件衣服或一条裤子需要描述众多条件。我国服装企业目前面临着以下诸多问题：企业数量多，企业规模大小不一；生产装备参差不齐，多数设备已落伍；技术落后，设计和开发创新能力低；资金不足，资本运营情况不理想；名牌产品不多，市场占有率不高，出口服装多为他人作嫁衣裳，无国际知名品牌；企业管理水平整体不高。名牌企业为

8、了拓展市场，扩大占有率，纷纷从大城市、大市场扩展到中小城、镇、各批发市场。服装企业为了降低成本，提高管理效率来提高企业的效率和竞争力就需要有一个合理的管理体系。管理体系的实现需要一个软件系统的支持。目前网络上、市场上有不少的进销存软件系统，这些系统具有稳定性高、安全、易扩展、结构合理、界面友好、操作方便、实用而科学、性能价格比高等特点。万能的查询、统计和排序功能，直观的图形分析功能和快速的报表输出功能，将大量的、动态的数据和信息直观化，真正实现对物流、信息流、资金流的轻松管理。本系统对服装的进、销、存经过编程语言来实现，可以大幅度的减少企业在运作过程中由于人工的错误操作而产生的一些不必要的失误

9、。订单的生成和管理都会是一一对应，不会出现相应的订单缺少的现象。同时，本系统还具有运行简单，成本低廉，操作友好，主要功能齐全等等特点。适合国内一些对产品价格比较敏感，人力资源又不是很丰富，同时对功能的要求也可以适当降低的中小型服装企业。本文希望借此为服装业信息市场的产品结构多元化添砖加瓦，亦或能够抛砖引玉，为我国的服装行业信息化的事业引发一些新的思考和探索。 1. 3 系统的设计原理系统的设计原理是根据服装企业的采购，生产，销售，库存，决策等活动所设计的。通过对实际服装企业的数据表格的分析，合理的构建数据库；按照员工的不同权限，限制其在系统中的操作行为,在系统中严格的限制了员工的权限，超级用户

10、能进行所有的操作，销售人员只能操作销售的订单不能对采购进行操作，采购人员也只能处理采购事务；用加权平均算法来给出产品销售价格，产品的售价是按照采购价格乘以采购数量再加上报价表中的价格和库存量的乘积除以总的数量得到的；按照客户等级对不同客户实行不同的销售优惠政策，客户等级分为5个等级，每个等级的划分是根据客户的交易次数来划分的服装进销存管理系统是一个企事业单位不可缺少的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的，因此进销存管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统的人工方式管理进销存，这种管理方式存在着许多缺点，诸如效率低，保密性差等，而且时间一

11、长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学不断发展，其强大的功能已经被人们深刻认识，它已经进入了人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对产品库房信息进行管理，具有人工管理无法比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力，这些都能够极大地提高货品库存的管理效率。因此开发一个服装进销存管理系统是很有必要的，具有其特有的技术意义和管理意义。 一、可行性分析1. 开展该项目的原因现代企业都意识到，企业的竞争是综合实力的竞争，要求企业有更强的资金

12、实力，更快的市场响应速度。因此信息管理系统与理论仅停留在对制造部分的信息集成与理论研究上是远远不够的。与竞争有关的物流、信息及资金要从制造部分扩展到全面质量管理、企业的所有资源(分销资源、人力资源和服务资源等)及市场信息和资源，并且要求能够处理工作流。另一方面，企业规模不断扩大。这就要求企业各部门之间统一计划，协调生产步骤，汇总信息，调配集团内部资源。这些既要独立，又要统一的资源共享管理。第三，信息全球化趋势的发展要求企业之间加强信息交流和信息共享。企业之间既是竞争对手，又是合作伙伴，信息管理要求扩大到整个供应链的管理。服装进销存管理是一般工业、商业企业生产管理环节中重要的一环，加强服装进销存

13、管理，不但有算得出、看得到的效益，还可以大大提高管理队伍的素质，加强职工的增产节约意识、爱护财产意识和学习科技的意识，使科学管理形成共识，并可以减少物资设备各个环节上的矛盾。服装进销存管理系统，需要对进销存基本信息管理、仓库调配信息等进行完整的监控。仓库入库首先要登记物资的基本信息，包括物资的种类、名称、型号、单位、单价等；然后登记物资入库信息，包括物资基本信息、入库地点、入库人、经办人、数量等；根据物资的入库、出库过程的综合，得到各种物资的余额信息，方便进行后续工作。因此服装进销存管理系统需要纪录物资流通的全过程。2. 该项目的基本目标本管理信息系统是针对企业的实际需求开发设计的，在企业中采

14、集了许多实际资料。利用计算机运算速度快、存储信息容量大、处理逻辑问题强、功能强大的优势，从企业管理特别是查询与决策信息的管理需求出发，针对性强，功能齐备，旨在通过帮助该企业管理实现信息化，以提高企业管理的效率。提高对软件开发的能力，学习可视化编程的技巧，完善工作设计的思想。 3.设计目标本系统所使用的开发语言是Visual Basic6.0(简称VB6.0)。该语言不仅具有一般数据库语言的特点，而且有可视化的特点，本系统具有很强的针对性和实用性，还具有如下的特点：1.友好的操作接口菜单方式与直观方式，操作简单，接口美好，功能完备，完全采用人机对话方式。交互性强。2.操作的简易性简单易操作，多用

15、鼠标操作，自动填充数据信息，减少原始输入错误，将键盘录入量减至最少。3.完善的查询功能系统提供了关于服装进销存管理的方方面面的查询。例如：你可以按物资名称、规格型号、等一些情况查询，也可以查询入库出库时间等等。4.定义服装进销存管理系统分成系统维护、基本资料、采购管理、销售管理、库存管理、统计报表和预测分析几大块。主要介绍的是服装进销存管理系统的设计与实现中的销售管理和客户关系管理。销售管理大致分为销售订单的生成、销售订单的审核、销售出库单审核、销售退货单的生成、销售退货单的审核和客户关系管理。在销售管理的实现的过程中，订单的生成和管理都是按照企业实际情况来实现的。订单生成和审核的每一个步骤都

16、会有容错功能和权限功能。订单中产品的数量必须为整型，价格有小数，对这些格式都有严格的控制。销售管理不是所有的身份都能进行操作的，只有超级用户，销售人员和经理等身份才能进行销售管理。5可行性研究方法通过调查分析开发服装进销存管理系统所具备的能力及实现的方法，确定总体结构，并利用可视化开发工具和数据库所具有的能力，以较为简洁和容易理解的方法，是其成为一个实用的应用软件。从编程的角度来说，先在有了一定的Visual Basic的基础上，通过进一步实现Active X Document的开发。6对现有系统的分析6.1现有系统的局限性目前存在很多服装进销存管理系统，但是很多都是针对收费和管理而言的，而且

17、服装进销存管理系统对于服装管理模块的涉及很少或者根本没有。如果仍然采用传统的人工管理方法则既浪费人力、物力和财力，又容易导致各种错误信息的发生，从而造成不可估量的损失。基本上没有管理系统涉及到，所以开发这样一套系统是很有必要的。6.2工作负荷和费用支出在当前的情况下，采用传统的人工管理方法则既浪费人力、物力和财力。存在的弊端：一. 大量的纸制材料和一定的空间用来存放。二. 在进行每年一度的借阅过程中，对于服装的管理过于繁琐。三. 对于服装信息的查询工作量太大。四. 对于库存管理过程中的工作量太大。五. 在管理过程中产生的资料和数据很难备份。系统流程图（如下图所示）系统设置管理基础资料管理服装进

18、销存管理系统实用工具（计算器/计事本）营业计算管理关于系统6.3与现有系统比较的优越性充分利用计算机的功能实现对经手人管理、库存管理、出入库管理等的自动化控制，实现一个智能化、系统化、信息化的库存管理系统，将会使库存管理工作量大大减轻。方便地应用于现代化库存管理，成为库存管理人员的得力肋手。6.4采用建议系统可能带来的影响 因为该系统需要网络支持，因此我们计划采用稳定的操作系统，考虑到windows的普及性，所以我们计划采用XP/2000系列。 因为该系统涉及到大量的数据，所以计划采用稳定和效率高的数据库。拟采用Microsoft Access数据库。考虑到与操作系统的兼容性，因此考虑采用微软

19、公司的产品，基于稳定性的考虑，拟采用Visual Basic作为开发环境。.二、需求分析在进行一个项目的设计之前，先要进行必要的需求分析。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，企业资源计划就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以及其他更多的东西。如果一个企业资源计划系统系统真正想要最大限度地提高其生产能力，它必须能够非常融洽地和其他关键性的商务领域进行交流。主要功能包括：采购管理；销售管理；库存管理；报表管理；财务应收应付、费用

20、收入与支出，日常行政办公开支、银行现金帐等功能。根据您的业务需要可使系统支持一键自动审核功能设定(例如销售、审核、生成应收款、收款单据)单据自动生成，一步到位，节省录入时间；条码枪扫描录入产品、支持预收款、预付款功能；销售收款允许去零头，支持客户连锁店管理，可针对不同客户自定义销售单价，可为特定客户或者所有客户设定商品促销单价管理，并可设定促销时段来控制促销时间，时间一到自动提醒；可根据公司的业务模式与你的操作习惯自定义软件的操作界面和栏目名称。同一商品支持多种计量单位（例如：12箱6大包5条）和保质期限。丰富的报表管理功能：例如销售明细汇总、进货明细汇总，可按商品类别，客户类型，业务员业绩，

21、销售成本分析，销售排行，库存成本等等多达几十种报表供您查询使用。可分别按不同客户制定销售订单模板，快速从销售订单导入要销售的商品，节省录入时间。完善的系统权限控制功能，如只允许查看销售价，进货价，促销价，批发价，会员价，成本价，不允许更改销售价，不允许查看进货价等公司商业机密信息。所有单据均有录入、删除、修改、审核、反审核等每一级的权限控制，可控制到每一个操作员的权限。所有打印出来的采购订货单、采购入库单、采购退货单、销售订货单、销售发货单、销售退货单；其它入库单、其它出库单、库存调拨单均可自定义需要打印的项目并可设定字体大小等风格，大大方便用户个性化单据定制需求，您根据需要自定义这些单据，也

22、可为您量身定制单据导入到系统中。商品进销存管理是商场后台管理的核心，也是整个商业自动化管理最基本、最重要的应用，它直接影响了商业企业的经济效益。本文在总结前人经验的基础上对商业自动化管理的现状进行分析，并详细阐述了商品的进销存管理及其物流模型，通过需求调查、系统分析、系统设计，开发了一个商场的商品进销存管理系统。系统主要包括进货、销货、库存这三个功能模块，其中重点讨论了库存管理子系统的分析，实现了查询、统计和打印报表等功能。本系统除可以提高商场运作效率，杜绝人为因素给商场带来的损失，还可以使管理者实时了解商品的销售情况，及早调整销售策略，以保证商场能够长期稳定发展并在市场上取得自己的竞争优势。

23、另外，本系统可记录销售员的工作业绩，供人事管理者参考。这对于进销存管理系统的分析与设计是非常具有理论性和实践性意义的。1企业的具体实际的需求随着生产力水平的大大提高，产业结构发生了根本性的变化，经济机制的转变使商业企业面临更多的问题。采用商业自动化系统，可以解决或减轻这些问题，主要体现在以下几点：1、 企业环境的要求由于市场变化快，影响企业发展的内外因素较多，使企业进行经营管理、制定有效的经营决策方案变得越来越困难。采用商业自动化后，领导可以快速地根据经过计算机分析处理的大量数据结果掌握市场动态，来调整企业的经营策略，而这一点在采用商业自动化系统前，由于数据量太大，不可能及时获得信息，很难做出

24、科学的判断。2、 人员管理的要求商业企业人员较多，人员活动频繁，难以进行有效的劳动业绩考核，不利于体现多劳多得的方针，难以调动职工的劳动积极性。采用商业自动化系统，在前台POS机上采集的销售信息中包含有每笔交易的经手者等相应的人事数据，由此商业自动化系统可以方便地解决职工的业绩考核问题，从而合理地分配职工工资和奖金。3、 市场环境的要求由于市场竞争日益激烈，顾客选择的余地越来越大，消费观念大为改变，使商品的生命周期呈缩短趋势，引起商品的更换率高，消费者对商品的质与量有并重的要求且对商场服务有质的要求。企业面临着提高服务软件和硬件质量、提高竞争力的问题。4、 企业管理的要求商业企业中业务量大，数

25、据量、信息量多而复杂。采用商业自动化系统来处理这些问题是十分自然的。企业管理人员在资金、库存、销售核算方面可以大大减轻劳动强度，提高工作效率，因而有更多的时间处理更高层次上的问题，这样可以使得商业企业的经营管理水平提高一个层次。通过商业自动化系统可以使经营管理者准确掌握商品销售趋势，及时地、科学地制订出各种销售策略，使企业加快交易处理，减少各种投入，降低成本，实现销售分析，库存管理控制，完善商品核算等，这样，可以使得企业提高竞争力。2商场进销存管理概述现代商业企业的自动化系统通常是指销售管理系统（POS）和后台管理信息系统（MIS）组成的系统。销售管理系统接受后台管理所设定的各种基本信息，并将

26、详细的销售资料传送给后台管理系统进行分析汇总。后台管理为前台管理系统提供必要的商品、收银员等基本资料，并收集前台收银管理系统提供的各种详细的销售数据和记录日志，作为查询、分析、统计和决策的信息依据。因此，后台管理系统功能齐全、内容丰富、工作量大，也是开发过程的难点和重点。作为一个商业企业的后台，其管理是和商业企业的业务经营管理分不开的。商业企业的经营过程可以简单地概括为进、销、存，因此可以说商品的进销存管理是商业企业后台管理的核心，也是整个商业自动化管理系统的核心部分。货物管理：2.1进货管理简介商品进货是指商场采购商品的商业活动，是整个商场经营过程的起点。商品的进货管理主要涉及到以下内容：(

27、1) 新商品登录对于采购进商场的商品若从未登录过，必须对它的基本资料如编码、名称、规格、型号、单价、税率、供应商情况、分类码、进货价格、核定销售价等进行必要的登录，以便将有关信息传送给POS机。在新商品的登录过程中有需要可对新商品的分类、商品的供应商等信息进行必要的设置。(2) 进货信息登录对采购商品按照有关规定经确认后正式作为进货信息登录入电脑。基本的进货信息应包括进货单编号、进货日期、进货人、验收人、供应商编号、所采购的商品代码、批次、单位、数量、进货单价、进货税额、折扣情况、生产日期、保质期等。在实际应用中，要特别注意商品在采购时进货单位和商品基本资料单位间的一致。(3) 退货处理商品因

28、质量或代销滞销等原因必须将商品退还给供应商，即商品退货。商品退货可以和商品的进货相同处理，以负数量形式表示商品的退货，并增补备注栏目填写退货原因。商品退货和商品进货一样，也将涉及到商品的库存数量、商品的库存金额、商品供应商的进货额、退货额和应付款项、进货人员的采购业绩等一系列数据的变化。(4) 商品采购服装采购是商业企业根据自身的资金运作情况，根据商品的销售业绩和消费需求，结合商品库存确定相应的商品需求计划，并向商品供应商提出购买需求。商品的采购结构、品种和数量的计算可以基于一定的原则进行定量化，一般可以根据商品销售的ABC分类法确定商品的采购结构，根据商品的销售毛利率确定商品的品种，根据资金

29、数量和预计销售情况确定商品的采购数量。2.2订货点和订货量的确定明确订货点和订货量是保证合理库存量的主要方法。商品采购应有明确的订货点和订货量，并采用动态盘点方法，对发生收发动态的物品随时进行盘点，当库存量等于或低于规定的订购点时就提出订购，每次购进固定数量的物品，通过优化可以提高商场的资金利用率，缓解了商场运营费用过高的压力。业务经理和仓库管理员都应有一份订货点、订货量明细表，并以该表作为订货的依据。现拟采用定量库存控制法来确定库存。定量库存控制法也称订购点法，是以固定订购点和订购批量为基础的一种库存量控制方法。业务流程图（如下图所示）3重要意义现代企业都意识到，企业的竞争是综合实力的竞争，

30、要求企业有更强的资金实力，更快的市场响应速度。因此信息管理系统与理论仅停留在对制造部分的信息集成与理论研究上是远远不够的。与竞争有关的物流、信息及资金要从制造部分扩展到全面质量管理、企业的所有资源(分销资源、人力资源和服务资源等)及市场信息和资源，并且要求能够处理工作流。另一方面，企业规模不断扩大。这就要求企业各部门之间统一计划，协调生产步骤，汇总信息，调配集团内部资源。这些既要独立，又要统一的资源共享管理。第三，信息全球化趋势的发展要求企业之间加强信息交流和信息共享。企业之间既是竞争对手，又是合作伙伴，信息管理要求扩大到整个供应链的管理。服装库房管理是一般工业、商业企业生产管理环节中重要的一

31、环，加强服装库房管理，不但有算得出、看得到的效益，还可以大大提高管理队伍的素质，加强职工的增产节约意识、爱护财产意识和学习科技的意识，使科学管理形成共识，并可以减少物资设备各个环节上的矛盾。服装进销存管理系统，需要对仓库基本信息管理、仓库调配信息等进行完整的监控。仓库入库首先要登记物资的基本信息，包括物资的种类、名称、型号、单位、单价等；然后登记物资入库信息，包括物资基本信息、入库地点、入库人、经办人、数量等；根据物资的入库、出库过程的综合，得到各种物资的余额信息，方便进行后续工作。因此服装进销存管理系统 需要纪录物资流通的全过程。营销系统流程图（如下图所示）三、结构设计根据上面的需求分析，设

32、计好数据库系统，然后开发应用程序可以考虑的窗体的系统，每一个窗体实现不同的功能，可以设计下面的几个模块。 服装资料管理模块:用来实现服装的进货单、货物增加、删除和修改等操作。 营业计算管理模块:用来实现营业统计的查询输出。 实用工具使用管理模块:用来实现快速计算、记事。 关于模块:用来实现与本人的联系和版权信息。 系统管理模块:用来实现用户/密码的增加、删除和修改等操作。系统管理员系统设置服装资料管理营业计算管理实用工具使用管理员密码添加、删除、修改等添加、删除、修改等查询、浏览服装进销存数据库关于作者3.1总体结构和模块外部设计模块是软件结构的基础，软件结构的好坏完全由模块的属性体现出来，把

33、软件模块化的目的是为了降低软件复杂性，使软件设计，测试，调试，维护等工作变得简易，但随着模块数目的增加，通过接口连接这些模块的工作量也随之增加。因此我们必须设计出合适的模块数目使得所要消耗的人力和物力最小。3.2功能分配1浏览功能 :简单浏览所有记录（每项记录只列出编号、姓名、服装款式、单位、收费金额）；2.查询功能 : 每项记录编号、姓名、服装款式、直系单位、收费金额3.修改功能 :允许修改所有的域，录取号，缴费单位和个人不能为空；4.添加功能 ：增加一个新的记录；5.删除功能 ：删除一个记录，且提供确认机制；6.输出功能 ：允许数据的导出和备份四、数据库设计这里的数据库采用Access，用

34、ADO作为连接数据对象。1、建立Access 数据库启动Access，建立一个空的数据库smassage.mdb。图1 建立数据库smassage.mdb 图2 建立库存表系统管理表，如图3所示。2、连接数据在Visual Basic环境下，选择“工程”“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图所示。图4引用ADO连接数据库在程序设计的公共模块中，先定义ADO连接对象。语句如下:Public conn As New ADODB.Connection ' 标记连接对象然后在子程

35、序中，用如下的语句即可打开数据库:Public Sub Main()On Error GoTo 10 Set cn = New ADODB.Connectioncn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "config.dll;" & _ "Persist Security Info=False;" & _ "Mode=ReadWr

36、ite|Share Deny None;" & _ "Jet OLEDB:Database Password=aa" cn.CommandTimeout = 30 cn.CursorLocation = adUseClient cn.Open Call Chushihua frmlogin.Show 1 Exit Sub MsgBox Err.DescriptionEnd Sub请用MICROSOFT jet 4.0 OLE DB Provider引擎连接ACCESS数据库,方法如下: 新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数

37、据库编程必须的控件。 然后在提供者选项中ACCESS数据库选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在数据线程式中编写数据集可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。 SQL查询语言主要结构为： Select 查询字段 from 表名 Where 查询条件语句 排序语句或分组语句 查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。 SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName&quo

38、t;作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后可以在本窗体内任意调用该数据集，实现其它操作。3建立数据库并提供所有数据：部分数据库表：（） 货品信息表字段名称字段类型字段宽度小数位索引否货品编码C8主索引货品名称C15货品类别C8货品单位C8货品品牌C15生产日期D8登记日期D8货品数量C5入库价N4备注M20（） 销售信息表字段名称字段类型字段宽度小数位索引否姓名C6编号N3性别C2类别N6电话号码N11登记日期D8销售数量4(3) 销售信息表字段名称字段类型字段宽度小数位索引否货品编号C2销售编号C3

39、货品类别C8货品名称C20出库日期D8单价C8销售价G6货品数量N6(4) 系统管理表字段名称字段类型字段宽度小数位索引否用户名C6密码C16权限C8本系统采用了ACCESS数据库+sql语句+VB6.0，数据库采用MD5加密。五、建立公共模块建立公共模块可以提高代码的效率，同时使得修改和维护代码都很方便。创建公共模块的步骤如下:(1) 在菜单中选择“工程”“添加模块”命令，则出现模块对话框，如图所示。(2) 选择模块图标后，单击“打开”按钮，则模块已经添加到项目中了。默认情况下名为Module1。 模块对话框(3) 在模块中定义整个项目的公共模块Modulel(Modulel.bas),代码

40、如下：Public caozuoyuan As StringPublic ifmana As BooleanPublic mingzi As StringOption ExplicitPublic cn As ADODB.ConnectionPublic Const HUOPIN_TABLE_STR = "hNo,hLeibie,hName,hGuige,hDanwei,hPinpai,hNum,hRukujia,hBak"Public Const HUOPIN_TABLE_STR1 = "hNo,hLeibie,hName,hGuige,hDanwei,hPin

41、pai,hNum,hRukujia,hBak,jiecun"Public Const XIAOLU_TABLE_STR = "shijian,hNo,hName,hNum,hDanwei,hRukujia,hXiaojia,lirun,zonglirun"Public ChahuoStr(8, 1) As String '供查询用的货品字段和对应的字段Public Const JINLU_TABLE_STR = "jshijian,jNo,jren,jRukujia,jNum,jBak"Public Const sqlZiduan =

42、"ID as HID,hLeibie as 货品类别,hNo as 货品编号,hName as 货品名称 ,hGuige as 货品规格,hDanwei as 货品单位,hPinpai as 货品品牌,hNum as 货品数量,hRukujia as 入库价格,hBak as 备注"Public Const sqlZiduan1 = "XID as ID,xshijian as 时间,xNo as 货品编号,xName as 货品名称 ,xleibie as 货品类别,xNum as 销售数量,xDanwei as 货品单位,xRukujia as 货品进价,xX

43、iaojia as 实际销价,xlirun as 所得利润"Public Const sqlziduan2 = "ID as KID,hNo as 货品编号,hNum as 货品数量,hRukujia as 进货价,jiecun as 结存金额"Public Const sqlziduan3 = "ID as KID,kNo as 货品编号,kNum as 货品数量,kJiecun as 结存金额"Public Const sqlziduan4 = "JID as JID,jshijian as 进货时间,jNo as 进货编号,jr

44、en as 进货人,jRukujia as 进货价,jNum as 进货数量,jBak as 进货备注"'Public ChaSijiStr(10, 1) As StringPublic Sub Main()On Error GoTo 10 Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "config.dll;&

45、quot; & _ "Persist Security Info=False;" & _ "Mode=ReadWrite|Share Deny None;" & _ "Jet OLEDB:Database Password=aa" cn.CommandTimeout = 30 cn.CursorLocation = adUseClient cn.open Call Chushihua frmlogin.Show 1 Exit Sub MsgBox Err.DescriptionEnd Sub（4）MD5数据加密

46、模块由于代码太多， 不进行详细说明。此模块是根据网上下载，应用的。MD5是一种不可逆的加密算法， 什么是不可逆呢？就是加了密后，就不能解了。 明白了md5后，即然它只能加密，不能解密，我们通常用它做什么呢？我们主要用它加密一些敏感数据，如用户的密码，把密码加密成md5后存入数据库。这样即使用户得到了数据库，也不知道用户的密码是什么。 也就是用户在登录的时候，是怎么判断用户输入的密码是不是和数据库中的密码(md5加密后的)一致的呢？我们是在用户登录的时候，把用户输入的密码再加密成md5,然后用这个加密后的md5密文和数据库中存的用户的md5密文来进行比较，如果两个密文一样，说明用户输对了密码，否

47、则就说明用户输入的是错误的密码。通过MD5加密后，可以更有效的保护我们的数据的安全。六、实现窗体的代码简析在主窗体添加完菜单之后，就要为各个子菜单创建事件处理程序。如图：在本项目中，子菜单事件都是Click事件，这里先给出主窗体部分的代码省略。2、各子窗体的代码在各个子窗体建立好后，就可以根据各个子窗体的功能给它们添加相应代码了。(1) 登录子窗体代码本窗体用来填写图书登记的信息，用ADO来连接数据库，是本窗体的重点。采用MDI的子程序，所以运行后，它出现在主程序的界面下。 如图：代码如下：Dim rs As New ADODB.RecordsetDim sql As StringPrivat

48、e Sub cmbcaozuoyuan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtpassword.SetFocus End IfEnd SubPrivate Sub cmdclose_Click() '退出登陆 If MsgBox("退出登陆系统,您确定吗?", 36, "信息提示") = vbNo Then Exit Sub Else End End IfEnd SubPrivate Sub Form_Activate() '窗体激活事件 sql = "se

49、lect caozuoyuan from admin" rs.open sql, cn, adOpenDynamic, adLockOptimistic If rs.EOF = False Then rs.MoveLast If rs.BOF = False Then rs.MoveFirst For i = 0 To rs.RecordCount - 1 cmbcaozuoyuan.AddItem rs!caozuoyuan rs.MoveNext Next i If cmbcaozuoyuan.ListCount > 0 Then cmbcaozuoyuan.ListInd

50、ex = 0 rs.Close cmbcaozuoyuan.SetFocusEnd SubPrivate Sub cmdlogin_Click()Dim username As StringDim userpass As StringDim username1 As StringDim userpass1 As StringDim sql1 As StringDim rs As New ADODB.Recordsetusername = cmbcaozuoyuan.List(cmbcaozuoyuan.ListIndex)userpass = MD5(Trim(txtpassword.Text

51、)sql = "select * from admin where caozuoyuan='" & username & "'"sql1 = "select * from admin where mima='" & userpass & "'"rs.open sql, cnifmana = rs!isguanlimingzi = rs!caozuoyuanusername1 = rs!caozuoyuanuserpass1 = rs!mimars.Cl

52、ose'确认操作员和密码 If username = username1 And userpass = userpass1 Then MsgBox "系统登陆成功!", 48, "信息提示" '系统登录成功 Unload Me frmmain.Show Else MsgBox "密码或管理权限有错误,请重新输入!", 48, "信息提示" txtpassword.SetFocus txtpassword.Text = "" Exit SubEnd IfExit SubEnd Su

53、b以上是登录窗体代码，本窗体是由FrmMain主窗体支配的，而且本窗体内的用户名和密码是由MD5加密的，登录是相当安全的，至于用户名是自动显示出来的，由于是本系统适用中小型企业单位，所以普通职员无需使用密码，直接关闭登录窗口，可以直接进入本系统，但是只能做查询功能，系统会默认为普通操作员，要想添加、修改或做其它操作，只有系统管理员可以实现，本系统节省很多时间，而且更方便非管理员的查询。其它窗体代码就不加以说明和详细列出，其中按钮控件要求先填写基本信息，然后与数据库信息比较。(2) 进货单子窗体代码由于服装经营涉及多个环节，而且种类繁多，大小不等，款式新颖，大多需要单件管理，因此操作量巨大，在经营过程中容易出错。服装属于常用物品,数量大，如果管理跟不上，一旦造成商品丢失，将给企业和经营者造成巨大损失。而计算机管理可以大幅度提高日常管理效率，每一款服装从入库开始就由计算机自动赋予唯一编号，跟随该服装做完出货和销售全过程。进货单，不仅提高工作效率，也大大减少出错的可能，为经营决策提供了切实可靠的依据。(3)管理货品类别窗体 (4)数据管理窗体（备份/恢复） 对数据的备份和恢复，保证数据的安全 对货品类别的添加和查询在上述代码中，可以看看注册表（系统管理表），首先比较两个表中的数据是否一致，然后用rs_chan