毕业设计---VB仓库管理系统（2）

【摘要】在我国,随着医药卫生体制改革的深入,医药连锁经营的推行以及日趋激烈的商业角逐,越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。

在医药行业中,医药经营企业的物流管理以及相应的财务处理、信息处理,长期以来一直采用手工操作,但随着产业结构调整、全新的市场竞争环境,企业管理和运营效率已经成为企业成败的关键所在,手工方式的弊端毕现无遗。

这就要求医药管理摆脱过去人手操作的烦琐。

充分满足了医药经营企业的各种需求,从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。

市场的需求和技术的支持,最终会导致越来越多的优秀医药管理软件的出现,并在竞争中得到不断的完善和优化。

【关键词】医院药品库房管理数据库Visual Basic【Abstract】In our country,with the medicine system reform going on and medicine chain business promoting and more and more business competition,more and more medicine chain corporations shall be aware of the importance of improving the level of enterprise's management and also want to speed up the procession of information management。

In medicine business, most of the medicine corporation has been using manual work to deal with the management of goods and finance and information processing. But,after the change of medicine business structure and a brand new market surrounding,the manual work is a big obstacle for medicine corporation and the key to medicinecorporation's success should be the management and efficiency. This demand medicine management to get away manual work and manage the medicine data intelligently and promote medicine's development。

前言本设计任务基于公司的实际要求，开发出的仓库信息管理系统，目的是为了提高公司自动化办公的水平、经过详细的调查分析初步制定了北京汽车工业供销总公司仓库信息管理系统。

该软件的功能是提高公司进出货物，仓库管理、销售管理计划管理等办公效率。

本报告首先介绍了系统的开发背景，意义，要求，接着详细的阐述了子系统的功能模块的划分和说明以及设计，并附有多幅效果图直观地再现了该软件的使用效能。

根据现在流行的软件开发手段我们选用了Microsoft Visual Basic 作为前台开发工具，Microsoft Access 作为后台数据库。

系统采用的是人机交互方式，界面友好，操作简洁方便，只需按文字提示就可以进行系统操作，完成数据录入，分析，统计等工作。

其自身强大的开发功能是我们的软件有很强实用性与智能性，适合当前这种快速原形法的构想。

使用起来方便快捷，界面友好功能完善。

但由于时间关系及本人的能力有限，报告中一定存在着许多不足之处，恳请老师和同学们多提宝贵意见。

摘要本文详尽阐述了一个完整的仓库管理信息系统，采用系统生命周期的结构化方法，完成软件开发的过程。

通过对仓库管理的实际调查，明确其完整的业务流程，以进行系统分析、系统设计、系统实施。

在分析仓库管理的具体情况后，采用Microsoft Access型数据库系统作为材料（即商品，下同）仓库管理系统的后台数据库。

由于Microsoft公司的Visual Basic 6.0工具面向对象可视化编程的特点，有利于系统的开发，所以决定用其作为主要开发工具。

系统具有数据录入、数据修改、记录查询、报表打印等功能。

较全面满足了材料仓库管理的各项工作。

该系统采用模块化原理编程，做到了模块规模适中，本身相对独立。

模块化使程序结构清晰，易于设计、易于理解，提高了系统的可靠性。

本文详细说明了一个仓库管理的业务流程，分析了其数据流程，明确了数据表之间的联系，详细说明了主要的程序逻辑。

并以图表的方式直观的说明，使程序易于理解。

第一章公司介绍与系统的需求分析1.1公司简介佳雪公司是一个专销电动机的公司，主要业务是进行电动机的进货与分销，作为一个销售的中介公司，其要求有入库与出库的主要数据库，可以简单的记录数据，并且可以进行多方面的查询，使得公司有较详细的数据统计与分析。

其主要业务如以下图所示：1.图1.1.12.查询功能1）按型号查询有两个结果：A生成入库量、出库量、节余量B生成两个数据来源表，包括出库来源与入库来源；2）按单位查询结果：生成型号、产品名称、时间（入/出库）、单价再生成出入库的两个基本情况表，包括供应商和顾客的基本情况，如型号、出/入库时间，单价，发票编号、结帐情况；3.本系统主要运用Visual Basic的内嵌数据库Access来记录数据；4.产品信息：序号（自动生成）、型号（文本）、入库时间（日期）、出库时间（日期）、数量（数字）、发票编号（文本）、单价（货币）、厂商名称（文本）、供应商名称（文本）、厂商与供应商的电话（数字）、结帐情况（是/否）[是为0，否为-1]1.2分析与描述一.根据1.1章节的具体要求，总结出以下的数据流程：图1.2.1 数据流程二.根据以上情况，按要求设计了几个相关的数据库 表：出库、入库查询：查询结余、出库查询、入库查询、型号出库查询、型号入库查询 ● 主要的出库表属性如以下表所示：表1.2.1● 由于入库表与出库想类似，所以在此不做详细介绍。

● 为了方便查询，因此在出库与入库的基础上增加了几个查询表，具体字段如下：1.查询结余：型号、产品名称、出库数量、入库数量2.出库查询：顾客名称、型号、出库时间、单价、出库数量OF SUM 、发票编号、结帐情况3.入库查询：供应商名称、型号、入库时间、单价、入库数量OF SUM、发票编号、结帐情况4.出库型号查询：型号、产品名称、顾客名称、单价、发票编号、结帐情况5.入库型号查询：型号、产品名称、供应商名称、单价、发票编号、结帐情况1.3数据库的主要特点数据库中的每一个表都必须符合下面几个特征：*表中的每一个单元的内容只有一个值*所有字段的名称都不相同*记录的前后次序和字段的左右次序可以变化，不受限制*数据库中的表的上下次序不受限制*表中不应有内容完全相同的记录*表中的每一个字段都必须有相同的数据类型使用Visual Basic开发应用程序的两个主要思想：*可视设计*事件驱动编程Visual Basic应用程序不同于其他语言开发的单一性程序。

摘要 (3)关键词:仓库管理,数据库技术,信息化管理,管理信息系统 (3)Summary (3)第一章绪论 (5)1.1选题背景 (5)1.2 课题来源 (5)1.3 开发工具的选择...................................... 错误!未定义书签。

第二章系统分析........................................... 错误!未定义书签。

2.1 系统初步调查........................................ 错误!未定义书签。

2.1.1仓库管理业务的调查.............................. 错误!未定义书签。

2.1.2 现行管理中出现的一些问题 ....................... 错误!未定义书签。

2.2 可行性分析........................................... 错误!未定义书签。

2.3 系统开发目标......................................... 错误!未定义书签。

2.4 新系统逻辑模型的提出................................. 错误!未定义书签。

第三章系统设计.. (7)3.1 总界面设计 (7)3.2 安全性设计 (8)3.3 系统功能结构设计 (8)3.3.1系统菜单的设计.................................. 错误!未定义书签。

3.3.2 日常操作子系统的设计 ........................... 错误!未定义书签。

3.3.3、记录管理功能子系统的设计 ...................... 错误!未定义书签。

3.3.4、信息管理子系统 ................................ 错误!未定义书签。

仓库出库入库管理系统毕业设计（五篇）第一篇：仓库出库入库管理系统毕业设计1概述1.1 摘要某供应部门管理多个仓库，仓库主要管理物资的入库、出库、库存和采购等事项。

建立一个数据库，实现其先进快速的功能。

1.2 1.2 1.2 1.2 可行性分析可行性分析可行性分析可行性分析1.2.1需求需求需求需求可行性可行性可行性可行性随着科学技术的发展，社会进步，计算机迅速的发展,仓库管理的方法也日新月异,以前全是由人管理的方法现存在很多的缺点：管理效率低，劳动强度大，信息处理速度低而且准确率也不够令人满意。

为了提高仓库管理效率，减轻劳动强度提高，信息处理速度和准确性。

我们为仓库管理员提供的一种更先进、科学的服务系统。

本系统让计算机对仓库进行自动管理，仓库管理员可以直接在计算机上实现仓库的信息管理，并能在一定程度上实现自动化。

1.2.2技术可行性技术可行性技术可行性技术可行性根据客户提出的系统功能、性能及实现系统的各项约束条件，根据新系统目标来衡量所需的技术是否具备，本系统是一个数据库管理和查询的系统，现有的技术以较为成熟，硬件、软件的性能要求、环境条件等各项条件良好，估计利用现有技术条件应完全可以达到该系统的功能目标。

同时考虑给予的开发期限也较为充裕，预计系统是可以在规定期限内完成开发。

1.2.3进度管理进度管理进度管理进度管理1.2.4经济可行性经济可行性经济可行性经济可行性估算新系统的成本效益分析，其中包括估计项目开发的成本，开发费用和今后的运行、维护费用，估计新系统将获得的效益，估算开发成本是否会高于项目预期的全部经费。

并且，分析系统开发是否会对其它产品或利润带来一定影响2.1系统目标系统目标系统目标系统目标由于常规仓库的工作流程建立在手工操作之上而导致处理速度过慢，不能满足管理层和客户的要求，所以新系统开发的总目标是：适应市场经济的需要，提高企业的经济效益，加强仓库各阶段工作的科学管理，并未管理决策提供一定的支持。

摘要本文重点论述了服装管理信息系统的设计思想及实现过程。

利用VＢ和ACCESS开发工具完成了服装信息系统的制作。

对系统设计的结构、系统设计的流程做了全面而详尽的阐述,依据数据库的需求分析，规划出了数据库的逻辑结构，且在实现逻辑结构设计的基础上,具体完成了数据库物理结构的创建。

从而实现对数据库的查询、修改等多个功能。

在对服装管理信息系统进行整体分析之后,全面地分析了本系统的可行性。

并对系统中管理模块进行了概述，针对其中基本档案信息管理、进货基本信息管理、销售信息管理，物资库存信息管理、报表设计管理这五部分做了详细的分析,对相应的功能需求、数据库的设计、功能模块设计、系统测试做了具体论述。

对于系统中用到的一些相关技术，数据库的连接做了简要的分析。

在本系统的实现过程中采用基于C/S二层体系结构，采用面向对象方法进行系统分析和设计，使用AＤO技术，以及ＡCCESS数据库技术进行系统的开发与实现，具有功能完备、性能优越、操作简单等优点。

本服装进销存管理主要由进货管理，销售管理、库存管理、报表设计和系统维护等模块组成。

具体规划如下:基本档案模块主要用于实现系统基本数据的录入、相关基础数据为:内部员工信息、往来单位信息、客户基本信息。

进货管理模块该模块主要用于实现服装的进货数据录入,退货数据录入和进货查询分析. 销售管理模块该模块主要用于实现服装的进货数据录入,客户退货数据录入和销售信息查询.库存管理模块存管理模块主要用于实现库存调拨,库存服装数量上限报警和库存数据查询.库存管理模块存管理模块主要用于实现员工信息报表,往来单位报表,退货服装报表,员工销售报表,服装进货分析报表,销售价格分析报表．销售价格分析报表以及员工销售分析报表.系统维护模块系统维护用于实现系统用户设置,操作权限设置，密码修改,数据备份和数据库恢复．关键词：服装,入库，出库，ＶB,ACCESSＡｂstractThe ｐapｅr ｍaｉｎly ｅｘｐoｕnds the ｃlothｉng ｍａｎａgeｍent ｉnformaｔion ｓysｔem's design idｅa ａnd Imｐｌementａtｉon．Ｕsiｎg VB and ACCＥSＳdeｖelopmeｎt ｔools cｏmpleted ｃlotｈing infｏｒmaｔｉon syｓtｅm of productioｎ. On systｅm desigｎsｔｒｕctｕrｅ，ｓysｔeｍde ｓigｎｐroｃess made a coｍprehｅnsｉve ａnd detailｅd ｅｌaboratiｏｎ, based on ｄatabaｓe of neｅds analｙsis，pｌanning a dataｂaｓe of logic ｓｔrucｔuｒｅ, anｄin the reaｌｉｚatｉon oｆｔhｅlogic stｒuｃtuｒｅdesｉｇn，on ｔhe ｂasiｓof thｅspeｃｉfiｃcomplｅｔｅd the ｐhysiｃａｌｓｔrucｔure of databaｓe eｓtablished．So aｓto realize tｈe dataｂasｅqueries，ｍodify ｅtc multipｌe funcｔｉonｓ. Oｎcloｔhing managｅment inｆoｒmatｉｏn system fｏr ove ｒall analysis ａｆtｅr, cｏmprehｅnｓiveｌy ａnalyzed the feasｉbility of ｔhis systeｍ．Aｎｄthｅsｙsｔｅm manａgeｍent modｕｌｅａre ｓummarｉzｅd, accoｒdinｇto ｔｈe bａsiｃfiｌe ｉnformation managemｅnt，purchａｓe bａsic iｎformaｔioｎmaｎagemｅnt，sales inｆorｍａｔion maｎageｍeｎt, ｓupplｉｅs，iｎventory iｎfｏrmatiｏn ｍaｎageme ｎt, ｆiｖe parts ｄｅｓign mａnagｅmｅnt this reporｔhas madｅｔhe ｄｅtaileｄaｎａlysis, the ｃｏrresponｄｉｎｇfunctional ｒequiｒｅmentｓ, datａbaｓｅｄesiｇn, fｕnｃtio ｎmodｕle deｓigｎ, sysｔeｍtest ｍａｄｅsｐｅcifiｃtｒeatiｓe．For ｓystem ｕｓｅｄin some relaｔed tecｈnｏlogy, ｄatａbase cｏnnecｔioｎmakes ａbｒieｆａnａlysis. In tｈe pｒoｃesｓｏf implｅmenｔinｇthe system basｅd ｏｎC／S secoｎd sｙｓtem ｓtruｃｔurｅ，adｏｐt objecｔ-oｒｉenｔed mｅｔhods were ｓystem analysis aｎd deｓign, usｅAＤO, and ＡCCESS database technoｌoｇｙｓｙsｔｅm devel ｏpｍｅnt aｎd ｉmｐｌemenｔaｔion，ｈａs fｕｌlｙfunctｉonal, sｕｐeｒior perfｏrmance anｄsimplｅoperatｉoｎｅt ｃ. Tｈiｓclothiｎg purchａｓｅ－ｓｅｌｌ-ｓｔock ｍａnagement mainly by the incominｇmaｎagement，saleｓｍa ｎagｅｍent, ｉnｖｅntorｙmaｎａgｅｍent, fｉnancｉal ｓtａt ｅｍｅｎts ｄｅsign and sｙstｅm mａintenaｎce module．Spe ｃific plａnｎiｎｇａｓｆollｏｗs: ｂasｉc fiｌe ｍodulｅmａiｎly uｓｅｄtｏimｐｌemenｔtｈe syｓtem ｏf ｂasic data inｐｕt and rｅlａｔed basiｃdaｔa fｏr inteｒnal ｓtaff informaｔｉon，ｃomｅ-ａnd-gｏunit oｆinｆoｒｍation, the bａsic iｎformation ａbｏut the clｉｅｎtｓ. Incｏmiｎg manageｍｅｎt ｍoｄｕle this moｄulｅmａinｌy used to impｌeｍent tｈe cloｔhing ｏf ｉｎcｏmiｎg dａtａentrｙ，ｒeｔuｒn ｄata entry anｄreplｅnｉsｈoｎr iｎquireｓsal ｅｓmanａgemｅnt modulｅis ａnalyzed. The mｏdulｅｍainly used to implemeｎt the cloｔhiｎｇof ｉncominｇｄata entry, cuｓtｏｍｅr ｒeturｎdaｔa eｎtry and sａles infoｒmatｉon query．Invｅntｏrｙmaｎaｇeｍｅnｔmodul ｅstoｒaｇe mａｎａｇemｅｎt module ｍainly ｕsed ｔo i ｍｐleｍeｎt ｔhe ｉｎｖeｎtory allocations, inventory clｏth ｉnｇcap ｏｎthe ｎumbｅｒａlarming and invｅｎtory datａｑｕｅry. Inveｎtｏry managemeｎｔｍodulｅsｔｏrage ｍanagement modｕle maｉnly uｓed ｔo implement ｅmployｅｅｉnformation rｅpｏrt, cｏme-aｎd－go ｕnit staｔements，return cｌothing ｓtaｔemenｔs, ｅmｐｌoyee sales rｅports，ｃloｔhing restocked ａnaｌysis rｅpｏｒt, sａles pr ｉcｅａnalysｉs reporｔ．Ｓaleｓprｉce ａnalｙｓis repｏrt an ｄｔhｅstａff ｓales anaｌysiｓrｅport. Systｅm maiｎtenance moduｌe system maiｎtenaｎｃe used to ｉmplｅｍｅnt ｔｈｅsystem uｓer Setｔiｎｇs, operatiｎg perｍission S ｅtｔings, paｓｓwoｒd reｖision, the datａbackup ａnd reｓtor ｅdatabase.Kｅyworｄs: cｌothｉng, ｓtoｒage, dｅｌivｅry, VB, AＣＣＥSSﻬ目录摘要ﻩ错误!未定义书签。

专业方向组设计仓库管理系统指导教师院（系、部）电子与信息工程学院专业班级计算07-2学号姓名电子与信息工程学院计算机科学系目录1.问题定义 (1)1.1.项目背景 (1)1.2.项目目标及范围 (1)1.2.1.项目计划 (1)1.2.2.专题计划要点 (2)2.可行性研究 (2)2.1.技术可行性 (2)2.2.市场可行性 (2)2.3.经济可行性 (3)2.3.1.成本分析 (3)2.3.2.运行费用分析 (4)2.3.3.效益分析 (4)3.需求分析 (4)3.1.系统功能需求分析 (4)3.2.系统数据需求分析 (5)3.3.系统数据需求分析 (5)3.4.系统数据流图 (6)3.4.1.数据流图符号说明 (6)3.4.2.系统数据流图 (7)3.5.数据字典 (8)4.总体设计 (9)4.1.总体设计任务 (9)4.2.总体设计原理 (9)4.2.1.模块化 (9)4.2.2.模块独立 (9)5.软件结构设计 (10)5.1.1.软件结构层次图 (10)5.1.2.模块设计 (10)5.2.数据库设计 (11)5.2.1.数据库逻辑设计 (11)5.2.2.数据库物理设计 (13)5.3.系统安全设计 (14)5.3.1.出错处理设计 (14)5.3.2.安全设计 (14)5.3.3.维护设计 (14)6.系统详细设计 (14)6.1.界面设计 (14)6.2.实体-关系图设计（E-R图） (15)6.3.系统流程图设计 (16)6.4.程序设计 (16)7.编码 (17)7.1.程序设计语言选择 (17)8.测试 (17)8.1.黑盒测试 (17)8.1.1.登录模块 (17)8.1.2.密码修改模块 (17)8.1.3.入库模块 (18)8.1.4.出库模块 (21)8.1.5.汇总模块 (24)9.用户手册 (25)9.1.软件概述 (25)9.2.软件使用 (26)专业方向组设计1.问题定义本系统设计是在windows环境的支持下运行的，采用窗口式执行文件，操作实用、简易、方便、直观。

摘要本系统是作者根据企业日常库存管理的需要出发，使用VB6.0开发成功的小型仓库管理系统。

该系统可以方便地实现商品的入库操作和出库操作、以及报表打印等功能。

这些功能的实现对公司的库存管理从以往的手工管理过渡到计算机的信息化管理，从而大大提高了工作效率。

本论文从引言开始以本系统开发为主线阐述计算机处理数据是时代发展的需要，也是大事所趋，并且计算机科技的发展，是计算机进入中小型企业成为可能，功能完善的大小型系统开始进入中小企业并为之服务。

简单快捷的操作，更为减轻职员压力提供了有效缓解。

仓库管理系统就是这样一类系统，论文按照系统开发的步骤：系统分析、系统设计、系统实施、系统调试与测试、系统运行五个大方面来展示系统的开发过程及系统功能的实现。

在系统分析中先后用数据流图、系统的功能结构图分析了系统所需的各种数据。

在系统的设计中，详细的展现了系统的各个功能模块。

所需的数据库表及表字段。

菜单的设计等。

在系统的实现中，给出了实现表单中相应的功能控件的事件及代码。

以及菜单实现的方法和本系统的主要功能运行界面图。

其中第六章对用户来说是比较重要的，因为这一章附录了系统的详细使用说明关键词：库存管理数据库信息管理目录目录 (2)第一章引言 (4)第二章系统分析 (7)2.1可行性分析 (7)2.1.1运行可行性 (7)2.1.2经济可行性 (7)2.1.3技术可行性 (8)2．2需求分析 (8)2.3系统数据分析与描述 (11)2.4系统总统设计 (13)第三章系统设计 (15)3.1数据库设计 (15)3.1.1数据库概念结构设计 (15)3.1.2数据库逻辑设计 (17)3.1.2数据库物理设计 (18)3.2系统模块设计 (21)3.3界面设计： (22)3.3.1系统登录界面 (22)3.3.2系统主界面 (23)3.3.3入库统计界面 (23)3.4报表设计 (24)第四章系统实施 (26)4.1系统登录模块的实施： (26)4.2主界面各个功能实现 (27)第五章系统调试与测试 (32)系统调试与测试 (32)5.1 VB系统连接数据库的调试 (32)5.2系统存储、调用数据库数据的可靠性 (32)5.3系统查询功能检验 (33)第六章系统运行 (34)6.1系统运行环境 (34)6.2系统使用说明书 (34)结束语 (37)....................................................................................... 错误!未定义书签。

材料入库模块源代码如下:Private Sub Co米米and1_Click()If Text1.Text <> "" And Text2.Text <> "" And DTPicker1.Value <> "" And Text4.Text <> "" And Text5.Text <> "" And DataCo米bo1.Text <> "" And Text7.Text <> "" ThenAdodc1.RefreshAdodc2.RecordSource = "select * fro米库存材料清单where 材料号='" & Text1.Text & "'" Adodc2.RefreshIf Adodc2.Recordset.BOF Then米sg$ = "确定要添加该记录吗？"ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, "添加记录")If ans = vbOK ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = CStr(DTPicker1.V alue)Adodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = Text5.TextAdodc1.Recordset.Fields(5) = DataCo米bo1.TextAdodc1.Recordset.Fields(6) = Text7.TextAdodc1.Recordset.Fields(7) = Text8.TextAdodc1.Recordset.Update米sgBox ("保存成功！！*_*")End IfElse 米sgBox "材料号不能重复,该材料号已存在！！", 48, "警告"End IfElse 米sgBox "资料输入不全,请重新输入！！", 64, "提示"End IfText1.SetFocusText1.Text = ""Text2.Text = ""Text4.Text = ""Text5.Text = ""DataCo米bo1.Text = ""Text7.Text = ""Text8.Text = ""End SubPrivate Sub Co米米and2_Click()Text1.Text = ""Text2.Text = ""Text4.Text = ""Text5.Text = ""DataCo米bo1.Text = ""Text7.Text = ""Text8.Text = ""End SubPrivate Sub Co米米and3_Click()Unload 米eEnd SubPrivate Sub For米_Load()Di米ado As String, 米path As String米path = App.pathIf Right(米path, 1) <> "\" Then 米path = 米path + "\"ado = "Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;" ado = ado + "Data Source=" + 米path + "database.米db"Adodc1.ConnectionString = adoAdodc1.RecordSource = "库存材料清单"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc3.ConnectionString = adoAdodc3.RecordSource = "gysxx"Adodc3.RefreshEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.米oveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text Then米sgBox "该材料号已经存在,请重新输入！！", 48, "提示"Text1.Text = ""End IfAdodc1.Recordset.米oveNextWendEnd IfEnd SubPrivate Sub Text7_GotFocus()If Not Adodc3.Recordset.BOF ThenAdodc3.Recordset.米oveFirstWhile Not Adodc3.Recordset.EOFIf Adodc3.Recordset.Fields(0) = DataCo米bo1.Text ThenText7.Text = Adodc3.Recordset.Fields(1)End IfAdodc3.Recordset.米oveNextWendEnd IfEnd Sub库存管理模块源代码如下:Di米sql As StringPrivate Sub Co米米and1_Click()If DataCo米bo1.Text = "" And DataCo米bo2.Text = "" And DataCo米bo3.Text = "" Then米sgBox "请在组合框中输入你要查询的内容！！", 64, "提示"ElseIf DataCo米bo1.Text = "" And DataCo米bo2.Text = "" And DataCo米bo3.Text <> "" Then sql = "select * fro米库存材料清单where 供应商号= '" & DataCo米bo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text = "" And DataCo米bo2.Text <> "" And DataCo米bo3.Text = "" Then sql = "select * fro米库存材料清单where 进货日期='" & DataCo米bo2.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text = "" And DataCo米bo2.Text <> "" And DataCo米bo3.Text <> "" Then sql = "select * fro米库存材料清单where 进货日期='" & DataCo米bo2.Text & "' and 供应商号='" & DataCo米bo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text <> "" And DataCo米bo2.Text = "" And DataCo米bo3.Text = "" Then sql = "select * fro米库存材料清单where 材料号='" & DataCo米bo1.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text <> "" And DataCo米bo2.Text = "" And DataCo米bo3.Text <> "" Then sql = "select * fro米库存材料清单where 材料号='" & DataCo米bo1.Text & "' and 供应商号='" & DataCo米bo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text <> "" And DataCo米bo2.Text <> "" And DataCo米bo3.Text = "" Then sql = "select * fro米库存材料清单where 材料号='" & DataCo米bo1.Text & "' and 进货日期='" & DataCo米bo2.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text <> "" And DataCo米bo2.Text <> "" And DataCo米bo3.Text <> "" Thensql = "select * fro米库存材料清单where 材料号='" & DataCo米bo1.Text & "' and 进货日期='" & DataCo米bo2.Text & "' and 供应商号='" & DataCo米bo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshEnd IfIf Adodc1.Recordset.BOF Then米sgBox "对不起,该库存不存在！！", 64, "提示"End IfEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub Co米米and3_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCo米米and3.Caption = "锁定"米sgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCo米米and3.Caption = "修改"米sgBox "您进入锁定状态！"End IfEnd SubPrivate Sub Co米米and4_Click()米sg$ = "确定要删除该库存材料记录吗？"ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.米oveNextEnd IfEnd SubPrivate Sub For米_Load()Di米ado As String, 米path As String米path = App.pathIf Right(米path, 1) <> "\" Then 米path = 米path + "\"ado = "Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + 米path + "database.米db"Adodc1.ConnectionString = adoAdodc1.RecordSource = "库存材料清单"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "库存材料清单"Adodc2.RefreshIf er_type <> 1 ThenCo米米and3.Enabled = FalseCo米米and4.Enabled = FalseEnd IfEnd Sub美容项目定义模块源代码如下:Private Sub Co米米and1_Click()If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" ThenAdodc2.RecordSource = "select * fro米美容项目定义表where 美容项目编号='" & Text1.Text & "'"Adodc2.RefreshIf Adodc2.Recordset.BOF ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.UpdateElse米sgBox "该美容项目编号已存在！！", 48, "警告"End IfElse米sgBox "资料输入不全,请重新输入！！", 64, "提示"End IfText1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd SubPrivate Sub Co米米and2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Co米米and3_Click()Unload 米eEnd SubPrivate Sub Co米米and4_Click()米sg$ = "确定要删除该美容项目吗？"ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, "删除记录") If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.米oveNextEnd IfEnd SubPrivate Sub Co米米and5_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCo米米and5.Caption = "锁定"米sgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCo米米and5.Caption = "修改"米sgBox "您进入锁定状态！"End IfEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.米oveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text Then米sgBox "该美容项目编号已经存在,请重新输入！！", 48, "提示"Text1.Text = ""End IfAdodc1.Recordset.米oveNextWendEnd IfEnd SubPrivate Sub For米_Load()Di米ado As String, 米path As String米path = App.pathIf Right(米path, 1) <> "\" Then 米path = 米path + "\"ado = "Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + 米path + "database.米db"Adodc1.ConnectionString = adoAdodc1.RecordSource = "美容项目定义表"Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub美容项目查询模块源代码如下:Private Sub Co米米and1_Click()If DataCo米bo1.Text = "" Then米sgBox ("输入不能为空！！")ElseAdodc2.RecordSource = "select * fro米美容项目定义表where 美容项目名称='" & DataCo 米bo1.Text & "'"Adodc2.RefreshDataGrid1.Colu米ns(0).Width = 1200DataGrid1.Colu米ns(1).Width = 1200DataGrid1.Colu米ns(2).Width = 1200End IfEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub For米_Load()Di米ado As String, 米path As String米path = App.pathIf Right(米path, 1) <> "\" Then 米path = 米path + "\"ado = "Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + 米path + "database.米db"Adodc1.ConnectionString = adoAdodc1.RecordSource = "美容项目定义表"Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub来车登记模块源代码如下:Di米sql As StringPrivate Sub Co米米and1_Click()If DTPicker1.Value <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" And DataCo米bo1.Text <> "" Then米sg$ = "确定要添加该登记吗？"ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, "添加登记")If ans = vbOK ThenAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = DataCo米bo1.TextAdodc1.Recordset.Fields(5) = Text5.TextAdodc1.Recordset.Update米sgBox ("成功登记！！~-~")ElseExit SubEnd IfDi米sql As Stringsql = "select * fro米车辆基本信息表where 车牌号码='" & Text2.Text & "'"Adodc3.RecordSource = sqlAdodc3.RefreshIf Adodc3.Recordset.BOF ThenAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(0) = Text2.TextAdodc2.Recordset.Fields(1) = Text3.TextAdodc2.Recordset.Fields(2) = Text4.TextAdodc2.Recordset.Fields(3) = Text5.TextAdodc2.Recordset.UpdateEnd IfElse米sgBox "资料输入不全,请重新输入！！", 64, "提示"End IfDTPicker1.SetFocusText2.Text = ""Text3.Text = ""Text4.Text = ""DataCo米bo1.Text = ""Text5.Text = ""End SubPrivate Sub Co米米and2_Click()Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""DataCo米bo1.Text = ""End SubPrivate Sub Co米米and3_Click()Unload 米eEnd SubPrivate Sub For米_Load()Di米ado As String, 米path As String米path = App.pathIf Right(米path, 1) <> "\" Then 米path = 米path + "\"ado = "Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;" ado = ado + "Data Source=" + 米path + "database.米db"Adodc1.ConnectionString = adoAdodc1.RecordSource = "来车登记表"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "车辆基本信息表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc4.ConnectionString = adoAdodc4.RecordSource = "b米xx"Adodc4.RefreshEnd Sub车辆基本信息管理模块源代码如下:Private Sub Co米米and1_Click()查询车辆基本信息.ShowEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub Co米米and3_Click()米sg$ = "确定要删除该项信息吗？"ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.米oveNextEnd IfEnd SubPrivate Sub Co米米and4_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCo米米and4.Caption = "锁定"米sgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCo米米and4.Caption = "修改"米sgBox "您进入锁定状态！"End IfEnd SubPrivate Sub For米_Load()Di米ado As String, 米path As String米path = App.pathIf Right(米path, 1) <> "\" Then 米path = 米path + "\"ado = "Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + 米path + "database.米db"Adodc1.ConnectionString = adoAdodc1.RecordSource = "车辆基本信息表"Adodc1.RefreshIf er_type <> 1 ThenCo米米and3.Enabled = FalseCo米米and4.Enabled = FalseEnd IfEnd Sub车辆美容信息管理模块源代码如下:Private Sub Co米米and1_Click()Di米su米1, x, z As CurrencyDi米y, n1, l, l1 As Longsu米1 = 0n1 = 0l1 = 0If CStr(DTPicker1.Value) <> "" And Text2.Text <> "" And Text3.Text <> "" And DataCo米bo1.Text <> "" And DataCo米bo5.Text <> "" And DataCo米bo6.Text <> "" Then'修改库存材料清单Di米q, q1 As Longq1 = 0If Not Adodc5.Recordset.BOF ThenAdodc5.RefreshAdodc5.Recordset.米oveFirstWhile Not Adodc5.Recordset.EOFIf Adodc5.Recordset.Fields(0) = DataCo米bo5.Text And Adodc5.Recordset.Fields(1) = DataCo米bo6.Text Thenq1 = 1If Adodc5.Recordset.Fields(4) < CLng(Text3.Text) Then米sgBox "这种材料的库存数量不够！！", 48, "警告"DataCo米bo5.Text = ""DataCo米bo6.Text = ""Text2.Text = ""Text3.Text = ""Exit SubElseq = Adodc5.Recordset.Fields(4)Adodc5.Recordset.Fields(4) = q - CLng(Text3.Text)Adodc5.Recordset.UpdateEnd IfEnd IfAdodc5.Recordset.米oveNextWendIf q1 = 0 Then米sgBox "库存中没有这种材料！！", 48, "警告"End If'修改库存材料清单完毕End IfIf q1 = 1 ThenAdodc6.RefreshIf Not Adodc6.Recordset.BOF ThenAdodc6.Recordset.米oveFirstWhile Not Adodc6.Recordset.EOF '查找一下车辆用料信息表中是否存在这种材料If Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCo米bo1.Text And Adodc6.Recordset.Fields(2) = DataCo米bo5.Text And Adodc6.Recordset.Fields(3) = DataCo米bo6.Text And Adodc6.Recordset.Fields(4) = Text2.Text Thenl = Adodc6.Recordset.Fields(5)l1 = 1Adodc6.Recordset.Fields(5) = l + CLng(Text3.Text) '如果存在,只修改数量Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.米oveNextWendEnd IfIf l1 = 0 Then '如果不存在,则在车辆用料信息表中添加新记录Adodc6.Recordset.AddNewAdodc6.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc6.Recordset.Fields(1) = DataCo米bo1.TextAdodc6.Recordset.Fields(2) = DataCo米bo5.TextAdodc6.Recordset.Fields(3) = DataCo米bo6.TextAdodc6.Recordset.Fields(4) = Text2.TextAdodc6.Recordset.Fields(5) = Text3.TextAdodc6.Recordset.UpdateAdodc6.RefreshEnd IfIf Not Adodc9.Recordset.BOF ThenAdodc9.Refresh '在车辆消费信息表中添加该车辆的材料费Adodc9.Recordset.米oveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCo米bo1.Text Thenn1 = 1 '如果车辆消费信息表中存在当天该车的记录时Adodc6.Refresh '在车辆用料信息表中,计算该车的材料费Adodc6.Recordset.米oveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCo米bo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysu米1 = su米1 + zEnd IfAdodc6.Recordset.米oveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCo米bo1.TextAdodc9.Recordset.Fields(3) = su米1Adodc9.Recordset.Fields(4) = su米1 + Adodc9.Recordset.Fields(2)Adodc9.Recordset.UpdateEnd IfAdodc9.Recordset.米oveNextWendEnd IfIf n1 = 0 Then '车辆消费信息表中无该车辆记录时Adodc9.Recordset.AddNew '向车辆消费信息表中添加材料费记录Adodc6.Refresh '车辆用料信息表Adodc6.Recordset.米oveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCo米bo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysu米1 = su米1 + zEnd IfAdodc6.Recordset.米oveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCo米bo1.TextAdodc9.Recordset.Fields(3) = su米1Adodc9.Recordset.Fields(4) = su米1Adodc9.Recordset.Update '保存记录End IfEnd IfElse米sgBox "资料输入不全,请重新输入！！", 64, "提示"End IfDataCo米bo5.Text = ""DataCo米bo6.Text = ""Text2.Text = ""Text3.Text = ""DataCo米bo5.SetFocusEnd SubPrivate Sub Co米米and2_Click()DataCo米bo1.Text = ""DataCo米bo2.Text = ""DataCo米bo3.Text = ""DataCo米bo4.Text = ""Unload 米eEnd SubPrivate Sub Co米米and3_Click()修改美容项目.ShowEnd SubPrivate Sub Co米米and4_Click()Di米su米, x, z As CurrencyDi米y, n As Longsu米= 0 n = 0If DTPicker1.Value <> "" And DataCo米bo1.Text <> "" And DataCo米bo2.Text <> "" And DataCo米bo3.Text <> "" And DataCo米bo4.Text <> "" ThenAdodc4.Refresh '车辆美容信息登记表Adodc4.Recordset.AddNewAdodc4.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc4.Recordset.Fields(1) = DataCo米bo1.TextAdodc4.Recordset.Fields(2) = DataCo米bo4.TextAdodc4.Recordset.Fields(3) = DataCo米bo2.TextAdodc4.Recordset.Fields(4) = DataCo米bo3.TextAdodc4.Recordset.UpdateAdodc9.RefreshIf Not Adodc9.Recordset.BOF Then '判断一下表是否为空表Adodc9.RefreshAdodc9.Recordset.米oveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCo米bo1.Text Thenn = 1Adodc4.RefreshAdodc4.Recordset.米oveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCo米bo1.Text Thensu米= su米+ Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.米oveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCo米bo1.TextAdodc9.Recordset.Fields(2) = su米Adodc9.Recordset.Fields(4) = su米+ Adodc9.Recordset.Fields(3)Adodc9.Recordset.Update '保存End IfAdodc9.Recordset.米oveNextWendEnd IfIf n = 0 ThenAdodc9.Recordset.AddNew '向车辆消费信息表中添加美容项目消费Adodc4.RefreshAdodc4.Recordset.米oveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCo米bo1.Text Thensu米= su米+ Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.米oveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCo米bo1.TextAdodc9.Recordset.Fields(2) = su米Adodc9.Recordset.Fields(4) = su米Adodc9.Recordset.Update '保存End IfElse 米sgBox "资料输入不全,请重新输入！！", 64, "提示"End IfDataCo米bo2.Text = ""DataCo米bo3.Text = ""DataGrid1.Colu米ns(0).Width = 1500DataGrid1.Colu米ns(1).Width = 1500DataCo米bo2.SetFocusEnd SubPrivate Sub Co米米and5_Click()修改用料.ShowEnd SubPrivate Sub Co米米and6_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCo米米and6.Caption = "锁定"米sgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCo米米and6.Caption = "修改"米sgBox "您进入锁定状态！"End IfEnd SubPrivate Sub DataCo米bo2_GotFocus()Adodc7.RecordSource = "select 美容项目,价格fro米车辆美容信息登记表where 日期='" & CStr(DTPicker1.Value) & "' and 车牌号码='" & DataCo米bo1.Text & "'"Adodc7.RefreshEnd SubPrivate Sub DataCo米bo5_GotFocus()Adodc8.RecordSource = "select 材料号,材料名称,单价,数量fro米车辆用料信息表where 日期='" & CStr(DTPicker1.Value) & "' and 车牌号码='" & DataCo米bo1.Text & "'"Adodc8.RefreshDataGrid2.Colu米ns(0).Width = 1000DataGrid2.Colu米ns(1).Width = 1000DataGrid2.Colu米ns(2).Width = 1000DataGrid2.Colu米ns(3).Width = 1000End SubPrivate Sub DataCo米bo3_GotFocus()'查询美容项目定义表,美容价格随着美容项目的选择而变If Not Adodc2.Recordset.BOF ThenAdodc2.Recordset.米oveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(1) = DataCo米bo2.Text ThenDataCo米bo3.Text = Adodc2.Recordset.Fields(2)End IfAdodc2.Recordset.米oveNextWendEnd IfEnd SubPrivate Sub DataCo米bo6_GotFocus()If Not Adodc5.Recordset.BOF Then '根据填入的材料号,材料名称会自动出现Adodc5.Recordset.米oveFirstWhile Not Adodc5.Recordset.EOFIf Adodc5.Recordset.Fields(0) = DataCo米bo5.Text ThenDataCo米bo6.Text = Adodc5.Recordset.Fields(1)End IfAdodc5.Recordset.米oveNextWendEnd IfEnd SubPrivate Sub For米_Load()Di米ado As String, 米path As String米path = App.pathIf Right(米path, 1) <> "\" Then 米path = 米path + "\"ado = "Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + 米path + "database.米db"Adodc1.ConnectionString = adoAdodc1.RecordSource = "车辆基本信息表"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "美容项目定义表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = "b米xx"Adodc3.RefreshAdodc4.ConnectionString = adoAdodc4.RecordSource = "车辆美容信息登记表"Adodc4.RefreshAdodc5.ConnectionString = adoAdodc5.RecordSource = "库存材料清单"Adodc5.RefreshAdodc6.ConnectionString = adoAdodc6.RecordSource = "车辆用料信息表"Adodc6.RefreshAdodc9.ConnectionString = adoAdodc9.RecordSource = "车辆消费信息表"Adodc9.RefreshIf er_type <> 1 ThenCo米米and3.Enabled = FalseCo米米and5.Enabled = FalseEnd IfEnd Sub修改美容项目模块源代码如下:Private Sub Co米米and1_Click()Di米l, x, y As Longl = 0Adodc2.Refresh '在美容项目登记表中删除项目Adodc2.Recordset.米oveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(0) = Text1.Text And Adodc2.Recordset.Fields(1) = DataCo米bo1.Text And Adodc2.Recordset.Fields(2) = DataCo米bo2.Text And Adodc2.Recordset.Fields(3) = DataCo米bo3.Text And Adodc2.Recordset.Fields(4) = DataCo米bo4.Text Thenl = 1y = Adodc2.Recordset.Fields(4)米sg$ = "确定要删除该美容项目吗？"ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc2.Recordset.DeleteAdodc2.Recordset.米oveNextAdodc2.Recordset.UpdateAdodc2.RefreshEnd IfDataGrid1.Colu米ns(0).Width = 1200DataGrid1.Colu米ns(1).Width = 1200DataGrid1.Colu米ns(2).Width = 1200DataGrid1.Colu米ns(3).Width = 1200DataGrid1.Colu米ns(4).Width = 1200End IfAdodc2.Recordset.米oveNextWendIf l = 0 Then '要删除的项目不存在时米sgBox ("数据库中没有您要删除的项目！！")End IfAdodc6.Refresh '修改车辆消费信息表中的人工费合计和总金额Adodc6.Recordset.米oveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = Text1.Text And Adodc6.Recordset.Fields(1) = DataCo米bo1.Text Thenx = Adodc6.Recordset.Fields(2)Adodc6.Recordset.Fields(2) = x - yAdodc6.Recordset.Fields(4) = Adodc6.Recordset.Fields(2) + Adodc6.Recordset.Fields(3)Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.米oveNextWendDataCo米bo2.Text = ""DataCo米bo3.Text = ""DataCo米bo4.Text = ""DataCo米bo2.SetFocusEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub Co米米and3_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCo米米and3.Caption = "锁定"米sgBox "您巳进入修改状态！"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCo米米and3.Caption = "修改"米sgBox "您进入锁定状态！"End IfEnd SubPrivate Sub DataCo米bo2_GotFocus()Adodc1.RecordSource = "select * fro米车辆美容信息登记表where 日期='" & Text1.Text & "' and 车牌号码='" & DataCo米bo1.Text & "'"Adodc1.RefreshEnd SubPrivate Sub For米_Load()Di米ado As String, 米path As String米path = App.pathIf Right(米path, 1) <> "\" Then 米path = 米path + "\"ado = "Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + 米path + "database.米db"Adodc1.ConnectionString = adoAdodc2.ConnectionString = adoAdodc2.RecordSource = "车辆美容信息登记表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = "车辆基本信息表"Adodc3.RefreshAdodc5.ConnectionString = adoAdodc5.RecordSource = "美容项目定义表"Adodc5.RefreshAdodc6.ConnectionString = adoAdodc6.RecordSource = "车辆消费信息表"Adodc6.Refresh'Text1.SetFocusEnd Sub修改用料模块源代码如下:Private Sub Co米米and1_Click()Di米l, x, y, z, 米, l1 As Longl = 0l1 = 0Adodc3.Refresh '在车辆用料信息表中删除信息If Not Adodc3.Recordset.BOF ThenAdodc3.Recordset.米oveFirstWhile Not Adodc3.Recordset.EOFIf Adodc3.Recordset.Fields(0) = Text1.Text And Adodc3.Recordset.Fields(1) = DataCo米bo1.Text And Adodc3.Recordset.Fields(2) = DataCo米bo2.Text And Adodc3.Recordset.Fields(3) = DataCo米bo3.Text And Adodc3.Recordset.Fields(4) = Text2.Text Thenl = 1z = Adodc3.Recordset.Fields(5)米= z - CLng(Text3.Text)If 米> 0 Then米sg$ = "确定要修改该用料信息吗？"ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, "修改记录")If ans = vbOK Thenl1 = 1Adodc3.Recordset.Fields(5) = 米Adodc3.Recordset.UpdateAdodc3.Refreshy = Adodc3.Recordset.Fields(4) * CLng(Text3.Text)End IfElseIf 米= 0 Then米sg$ = "确定要删除该用料信息吗？"ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK Thenl1 = 1y = Adodc3.Recordset.Fields(4) * CLng(Text3.Text)Adodc3.Recordset.DeleteAdodc3.Recordset.米oveNextAdodc3.RefreshEnd IfElseIf 米< 0 Then米sgBox ("您要删除的数量大于该车实际用量！！")End IfDataGrid1.Colu米ns(0).Width = 1200DataGrid1.Colu米ns(1).Width = 1200DataGrid1.Colu米ns(2).Width = 1200DataGrid1.Colu米ns(3).Width = 1200DataGrid1.Colu米ns(4).Width = 1200DataGrid1.Colu米ns(5).Width = 1200If l1 = 1 ThenAdodc4.Refresh '修改车辆消费信息表中的材料费合计和总金额If Not Adodc4.Recordset.BOF ThenAdodc4.Recordset.米oveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = Text1.Text And Adodc4.Recordset.Fields(1) = DataCo米bo1.Text Thenx = Adodc4.Recordset.Fields(3)Adodc4.Recordset.Fields(3) = x - yAdodc4.Recordset.Fields(4) = Adodc4.Recordset.Fields(2) + Adodc4.Recordset.Fields(3)Adodc4.Recordset.UpdateEnd IfAdodc4.Recordset.米oveNextWendEnd IfAdodc2.Refresh '修改库存材料清单If Not Adodc2.Recordset.BOF ThenAdodc2.Recordset.米oveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(0) = DataCo米bo2.Text And Adodc2.Recordset.Fields(1) = DataCo米bo3.Text ThenAdodc2.Recordset.Fields(4) = Adodc2.Recordset.Fields(4) + CLng(Text3.Text)Adodc2.Recordset.UpdateEnd IfAdodc2.Recordset.米oveNextWendEnd If '修改库存材料清单完毕End IfDataCo米bo2.Text = ""DataCo米bo3.Text = ""Text2.Text = ""。

摘要由于在实习中每天都要接触仓库管理系统，所以决定以“仓库管理系统的设计与实现”为题。

利用VB与Access来完成我的毕业实践综合报告。

随着科学技术的不断提高，计算机科学不断发展，其强大的功能已经被人们深刻认识，它已经进入了人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分，使用计算机对产品仓库信息进行管理，具有着人工管理无法比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力，这些都能够极大地提高货品仓库的管理效率，也是企业仓库管理科学化、正规化，与世界接轨的重要条件。

因此，开发一个仓库管理系统是很有必要的，具有其特有的技术意义和管理意义。

关键字:仓库管理，数据库access，信息管理，VB目录第1章系统概述 (3)1.1开发工具介绍 (2)1.2仓库管理系统的需求分析 (3)1.3仓库管理系统的研究和背景意义 (3)1.4系统配置要求 (4)第2章系统总体设计 (4)2.1功能结构图 (5)2.2模块功能简介 (5)第3章详细设计 (6)3.1用户登陆功能 (7)3.2 库存管理模块 (8)3.2.1入库管理 (8)3.2.2出库管理 (8)3.2.3借出管理 (8)3.2.4调库管理 (8)3.2.5退库管理 (8)3.2.6归还管理 (9)3.2.7盘点管理 (9)3.3基本档案模块 (9)3.3.1操作员档案管理 (9)3.3.2供应商档案管理 (9)3.3.3仓库类别管理 (9)3.3.4货物类别管理 (9)3.4系统功能模块 (9)3.4.1库存初始化设置子模块 (9)3.4.2数据库备份和恢复子模块 (9)3.4.3系统日志子模块 (9)3.5 数据库设计 (9)第4章设计与实现 (12)4.1用户登陆 (12)4.2库存管理界面 (12)4.3基本档案管理 (13)4.4系统功能 (13)第5章结论 (15)致谢 (16)参考文献 (17)第1章系统概述1.1开发工具介绍Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。

基于VB的仓库数据库管理系统开发摘要仓库作为一种信息资源的集散地，用户和货物资料繁多，包含很多的信息数据的管理。

高效率、科学化地管理仓库成为提高生产经营效率的有效途径。

采用计算机管理信息系统能有效地避免仓库管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效地查询和修改仓库信息情况，并给企业管理带来了明显的经济效益和社会效益，成为当今仓库管理科学化和现代化的重要标志。

数据库是六十年代末期开始发展起来的一门新技术，是管理信息资源的先进工具。

仓库数据库管理系统便是这样一种信息管理系统。

它能对仓库所涉及的数据进行提取和综合。

仓库数据库管理系统不仅反映数据本身，而且反映数据之间的联系，也是事物之间的联系的反映。

该系统以SQLSever作为后台数据库，Visual basic 6.0为前台开发工具,做到对仓库数据的查询，更新和安全保密。

关键词：数据库，仓库管理系统，Visual basicThe development of garage data base management system based on VBGarage,as a kind of message resource’s distributing centre,it has a number of custorm an goods infermations.Those infermations contains many date managements.Garage-manage high-efficiently and sciencely is a useful way to improve production efficiency.Garage-management is puter information manage system can avoid this random effectually , speed up the information processing and scan and renew the garage information accuratlly and on time.It also brings obviously economic benefits an social benefits for the enterprise who use computer information manage system. Computer information manage system has been the important major of garage management’s scientific and modernized.Data base is a kind of new technology which was beginning developing in the end of 1970’s.It’s a kind of advanced instrument of information management.So garage date base management system is such a kind of new technology.It has the function of drawing and multiping the data which was touched upon by garage. garage date base management system no only reflectioning the data itself,but olso reflectioning the reletionsheep of data.And it can reflection the reletionsheep of object too.This system use SQLSever as it’s background data base and the Visual basic 6.0 is used as the frountground develop tool.It will have the function of inqurying,renewing and protecting the garage data.Key words:Data base;Garage management system; Visual basic目录第1章绪论 (1)1.1 数据库系统发展概况 (1)1.2 数据库系统简介 (1)1.2.1 数据、数据库 (1)1.2.2 数据库管理系统 (2)1.2.3 数据库系统 (2)第2章. 仓库设备数据库方案设计 (4)2.1 数据模型的确定 (4)2.2运行环境和开发工具 (4)2.3 基本组成 (5)第3章仓库设备数据库开发设计 (7)3.1 设计方法和步骤 (7)3.2 需求分析 (7)3.3 功能模块设计 (8)3.4 创建数据库 (10)3.4.1创建设备数据库 (10)3.4.2创建用户信息数据库 (11)3.5创建应用工程文件 (12)3.6用户管理模块设计 (12)3.6.1用户登录 (12)3.6.2修改密码 (15)3.6.3添加用户 (16)3.6.4删除用户 (19)3.7信息管理模块设计 (20)3.7.1创建仓库管理系统主窗体（mainform.frm） (20)3.7.2创建查询信息窗体（formchaxun.frm） (21)3.7.3创建添加信息窗体（formtianjia.frm） (22)3.7.4创建修改信息窗体（formxiugai.frm） (26)3.7.5创建删除信息窗体（formshanchu.frm） (27)3.7.6创建报表窗体 (32)3.8 创建应用文件包 (32)第4章.仓库设备数据库管理系统使用说明 (33)4.1 系统 (33)4.2 信息查询 (33)4.3 信息管理 (33)结论 (34)致谢 (35)参考文献 (36)第1章绪论1.1 数据库系统发展概况数据库是六十年代末期开始发展起来的一门新技术，是管理信息资源的先进工具。

摘要仓库管理系统是为了实现企业产品管理的系统化、规范化和自动化,从而提高企业管理效率而设计的。

它完全取代了原来一直用人工管理的工作方式,避免了由于管理人员的工作疏忽以及管理质量问题所造成的各种错误，为及时、准确、高效的完成仓库管理提供了强有力的工具和管理手段。

仓库管理系统是一个中小型数据库管理系统,它界面美观、操作简单、安全性高，基本满足了仓库管理的要求。

整个系统由基本信息、单据中心、查询统计、报表打印、维护设置、帮助等模块组成.本系统是在以ACCESS2000作为后台数据库，以Visual Basic为编程语言来开发的。

仓库管理系统在运行阶段，效果好，数据准确性高，提高了工作效率，同时也实现了仓库管理计算机化。

关键字：仓库，管理系统，数据库AbstractThe administrative system of the warehouse is designed for realizing the systematization ，standardization and automization of enterprise's products management and improving efficiency of enterprises management。

It completely replaces the working way of artificial management originally ，prevents from various kinds of mistakes because of administrative staff neglect and the quality problem of management and offeres powerful tool and management way to complet storehouse management for prompt ，accurate ，high—efficient 。

前言随着企业管理信息化的发展，网络及计算机的引入使管理跃上了一个新的发展平台。

企业的各项管理都将向信息化方向扩展，仓库的管理对于企业来说尤为重要，也正是基于这个原因我把毕业设计的方向定在了企业的仓库管理上。

仓库管理系统是一个企业不可缺少的部分,它的内容对于企业的决策者和管理者来说都至关重要,所以仓库管理系统应该能够为用户提供充足的信息和快捷的查询手段。

但一直以来人们使用传统人工的方式管理产品，这种管理方式存在着许多缺点,如:效率低、保密性差等。

另外，由于时间一长，将产生大量的文件和数据，这对于查找、更新和维护产品都带来了不少的困难。

作为计算机应用的一部分,使用计算机对仓库信息进行管理，有着手工管理所无法比拟的优点。

例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高仓库管理的效率。

由于时间紧迫，加之水平有限，设计中的缺点和不足之处在所难免，敬请导师批评指正，不胜感激。

摘要仓库管理系统是为了实现企业产品管理的系统化、规范化和自动化，从而提高企业管理效率而设计的。

它完全取代了原来一直用人工管理的工作方式，避免了由于管理人员的工作疏忽以及管理质量问题所造成的各种错误，为及时、准确、高效的完成仓库管理提供了强有力的工具和管理手段。

仓库管理系统是一个中小型数据库管理系统，它界面美观、操作简单、安全性高，基本满足了仓库管理的要求。

整个系统由基本信息、单据中心、查询统计、报表打印、维护设置、帮助等模块组成。

本系统是在以ACCESS2000作为后台数据库，以Visual Basic为编程语言来开发的。

仓库管理系统在运行阶段，效果好，数据准确性高，提高了工作效率，同时也实现了仓库管理计算机化。

关键字：仓库，管理系统，数据库AbstractThe administrative system of the warehouse is designed for realizing the systematization , standardization and automization of enterprise's products management and improving efficiency of enterprises management. It completely replaces the working way of artificial management originally , prevents from various kinds of mistakes because of administrative staff neglect and the quality problem of management and offeres powerful tool and management way to complet storehouse management for prompt , accurate , high-efficient . The administrative system of the warehouse is a medium and small-scale database management system,it has not only beautiful interface, but also the high security and the simply operation , and meet the demand for storehouse management basically. Whole system is made up by basic information, document in the center, inquire statistics , report form type ,set up to maintain and module of helping etc.The Warehouse administrative system is designed with regarding ACCESS2000 as the backstage database and regarding Visual Basic as programming language . The administrative system is effectual, the high data accuracy during the course of operating , improves working efficiency and realizes computerization for storehouse management at the same time .Key word: The Warehouse , Administrative System, The Database目录前言....................................... 错误！未定义书签。