毕业设计---VB仓库管理系统(2)

合集下载

医院药品库房管理系统-VB编程毕业设计

医院药品库房管理系统-VB编程毕业设计

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

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

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

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

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

【关键词】医院药品库房管理数据库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。

VB3124仓库管理系统2

VB3124仓库管理系统2

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

VB公司仓库管理系统

VB公司仓库管理系统

第一章公司介绍与系统的需求分析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应用程序不同于其他语言开发的单一性程序。

企业仓库管理系统-VB编程毕业设计

企业仓库管理系统-VB编程毕业设计

摘要 (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系统目标系统目标系统目标系统目标由于常规仓库的工作流程建立在手工操作之上而导致处理速度过慢,不能满足管理层和客户的要求,所以新系统开发的总目标是:适应市场经济的需要,提高企业的经济效益,加强仓库各阶段工作的科学管理,并未管理决策提供一定的支持。

VB+access库存管理系统的计算机毕业设计论文

VB+access库存管理系统的计算机毕业设计论文

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

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

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

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

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

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

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

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

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

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

进货管理模块该模块主要用于实现服装的进货数据录入,退货数据录入和进货查询分析. 销售管理模块该模块主要用于实现服装的进货数据录入,客户退货数据录入和销售信息查询.库存管理模块存管理模块主要用于实现库存调拨,库存服装数量上限报警和库存数据查询.库存管理模块存管理模块主要用于实现员工信息报表,往来单位报表,退货服装报表,员工销售报表,服装进货分析报表,销售价格分析报表.销售价格分析报表以及员工销售分析报表.系统维护模块系统维护用于实现系统用户设置,操作权限设置,密码修改,数据备份和数据库恢复.关键词:服装,入库,出库,VB,ACCESSAbstractThe paper mainly expounds the clothing management information system's design idea and Implementation.Using VB and ACCESSdevelopment tools completed clothing information system of production. On system designstructure,systemde signprocess made a comprehensive and detailed elaboration, based on database of needs analysis,planning a database of logic structure, andin the realization ofthelogic structuredesign,on the basisof thespecificcompleted the physicalstructure of database established.So asto realize the databasequeries,modify etc multiple functions. Onclothing management information system for ove rall analysis after, comprehensively analyzed the feasibility of this system.Andthesystem management moduleare summarized, accordingto the basicfile information management,purchase basic informationmanagement,sales information management, supplies,inventory information manageme nt, five parts design management this reporthas madethe detailedanalysis, the correspondingfunctional requirements, databasedesign, functio nmodule design, systemtest madespecifictreatise.For system usedin some related technology, database connectionmakes abriefanalysis. In the processof implementingthe system based onC/S second system structure,adopt object-oriented methods were system analysis and design, useADO, and ACCESS database technologysystem devel opment and implementation,has fullyfunctional, superior performance andsimpleoperationet c. Thisclothing purchase-sell-stock management mainly by the incomingmanagement,salesma nagement, inventorymanagement, financial stat ements design and system maintenance module.Spe cific planningasfollows: basic file modulemainly usedtoimplementthe system of basic data input and related basicdata for internal staff information,come-and-gounit ofinformation, the basic information about the clients. Incoming management module this modulemainly used to implement the clothing of incoming dataentry,return data entry andreplenishonr inquiressal esmanagement moduleis analyzed. The modulemainly used to implement the clothingof incomingdata entry, customer returndata entry and sales information query.Inventorymanagementmodul estorage management module mainly used to i mplement the inventory allocations, inventory cloth ingcap onthe numberalarming and inventory dataquery. Inventory managementmodulestorage management module mainly used to implement employeeinformation report, come-and-go unit statements,return clothing statements, employee sales reports,clothing restocked analysis report, sales pr iceanalysis report.Salesprice analysis report an dthestaff sales analysisreport. System maintenance module system maintenance used to implement thesystem user Settings, operating permission S ettings, password revision, the databackup and restor edatabase.Keywords: clothing, storage, delivery, VB, ACCESSﻬ目录摘要ﻩ错误!未定义书签。

毕业设计VB6.0标准物质库存管理系统设计

毕业设计VB6.0标准物质库存管理系统设计

二、开发工具
♦ Microsoft Access 2002 ♦ Microsoft Visual Basic 6.0 ♦ SQL 语言 ♦ Adobe Photoshop CS
三、系统的设计
3.1 划分功能模块
首先根据系统所要实现的功能,划分相应的模块。 首先根据系统所要实现的功能,划分相应的模块。
窗体, 属性为True。 (1)首先建立标准 )首先建立标准exe窗体,并设置 窗体 并设置MDIChild属性为 属性为 。 控件连接数据库, 控件与Adodc绑定。 绑定。 (2)利用 )利用Adodc控件连接数据库,DataGrid控件与 控件连接数据库 控件与 绑定 给出删除确认提示。 (3)删除数据时,通过交互函数 )删除数据时,通过交互函数MsgBox给出删除确认提示。 给出删除确认提示 语句设定查询条件, (4)通过 )通过SQL语句设定查询条件,满足用户的多条件查询需求。 语句设定查询条件 满足用户的多条件查询需求。
♦ 具有密码管理、数据库备份功能; 具有密码管理、数据库备份功能; ♦ 支持对主要控件的键盘操作,数据输入快捷; 支持对主要控件的键盘操作,数据输入快捷; ♦ 利用代码对输入信息加以校验,防止因人为失误而 利用代码对输入信息加以校验,
造成的数据输入错误; 造成的数据输入错误;
♦ 利用错误陷阱捕获错误,增加系统稳定性。 利用错误陷阱捕获错误,增加系统稳定性。
以出库记录登记窗体为例) 3.7 登记窗体的设计(以出库记录登记窗体为例)
利用Adodc和Data控件连接数据库,利用 和 控件连接数据库, 利用 控件连接数据库 利用DataGrid和MSFlexGrid 和 控件显示数据信息,利用选择语句校验输入信息,防止输入错误。 控件显示数据信息,利用选择语句校验输入信息,防止输入错误。 窗体加载时,文本框为不可用状态。 窗体加载时,文本框为不可用状态。

课程设计-基于VB的仓库管理系统设计模板

课程设计-基于VB的仓库管理系统设计模板

专业方向组设计仓库管理系统指导教师院(系、部)电子与信息工程学院专业班级计算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环境的支持下运行的,采用窗口式执行文件,操作实用、简易、方便、直观。

推荐-vb库存管理系统论文设计与实现 精品

推荐-vb库存管理系统论文设计与实现 精品

摘要本系统是作者根据企业日常库存管理的需要出发,使用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)....................................................................................... 错误!未定义书签。

仓库管理系统-源代码 -VB毕业设计

仓库管理系统-源代码 -VB毕业设计

材料入库模块源代码如下: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的仓库数据库管理系统开发_毕业设计

基于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 数据库系统发展概况数据库是六十年代末期开始发展起来的一门新技术,是管理信息资源的先进工具。

好用的VB--仓库管理系统

好用的VB--仓库管理系统

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

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

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

整个系统由基本信息、单据中心、查询统计、报表打印、维护设置、帮助等模块组成.本系统是在以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 。

VB仓库管理系统详细的毕业设计论文

VB仓库管理系统详细的毕业设计论文

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

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

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

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

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

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

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

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

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

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

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

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

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

本系统是在以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目录前言....................................... 错误!未定义书签。

仓库管理系统毕业设

仓库管理系统毕业设
仓库管理系统毕业设
论文题目
铁道物资自动化立体仓库的系统设计
学生姓名
伏欣
学号
200703843
专业
运算机科学与技术
指导教师
雷斌
职称
讲师
学历
开题报告(文献综述)内容:
一、开发背景
随着社会经济的迅速进展和科学技术的全面进步,运算机事业的飞速进展,以运算机与通信技术为基础的信息系统正处于蓬勃进展的时期。随着经济文化水平的显著提高,人们对生活质量及工作环境的要求也越来越高。如何通过运算机为我们完成更多的情况,进而达到办公自动化和优化日常工作的目的,也就成了一个大众化的课题。作为运算机应用的一部分,使用运算机对信息进行治理,具有与手工治理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、储备量大、保密性好、寿命长、成本低等。这些优点能够极大地提高仓库治理的效率,也是企业的科学化、正规化治理,与世界接轨的重要条件。
5.对设计好的程序进行调试,通过调试发觉存在的问题并解决,从而达到完善系统的目的。
6.最后,整理各时期的设计记录文档,写成论文稿。
(二)设计内容
图1大致是企业的组织结构图,其中和仓库治理系统由直截了当关系的有以下部门:
应用部门:
设备处,完成对企业中所有设备的治理,仓库能够有多个,如原材料仓库,半成品仓库,成品仓库等。
图1组织结构图
仓库治理的物资要紧是企业生产所需要的各种设备。进货后需要填写入库清单、运算机会自动进行信息记录。企业各个部门依照所需要的物资设备总额和部门生产活动需要提出物资申请,治理员依照需求信息和现存设备总额发放设备。设备使用完毕需要及时归还入库,填写入库单,运算机会自动记录信息。
因此,开发如此的治理软件成为了专门有必要的情况。此次毕业设计便是一个企事业仓库治理系统,以方便实现企事业物资设备治理的系统化,规范化和自动化,从而达到提高仓库治理效率的目的,进而是仓库治理人员能够在业务上方便的进行任务治理。
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

毕业设计---VB仓库管理系统(2)目录摘要 (i)ABSTRACT ................................................................................................. ........ i i 第一章绪论 (1)1.1 选题背景 (1)1.2 设计目标 (1)第二章相关理论基础 (2)2.1 Visual Basic 6 (2)2.1.1 Visual Basic 6的功能特点 (2)2.1.2 Visual Basic 6中的基本概念 (3)2.2 Access2000数据库 (4)2.2.1 Access的总体结构 (4)2.2.2 VB6和Access的连接 (5)第三章需求分析 (7)3.1 需求分析 (7)3.1.1 系统数据流程图 (7)3.1.2 功能需求及设计思想 (7)第四章系统设计 (11)4.1 系统功能设计 (11)4.1.1 系统功能模块图 (11)4.1.2 系统各模块说明 (11)4.2 数据库设计 (12)4.2.1 创建数据库 (12)4.2.2 数据表结构 (12)4.2.3 数据库中各表的关系 (16)第五章仓库管理原型系统实现 (17)5.1 数据库实现 (17)5.1.1 连接数据库 (17)5.1.2 建立数据表 (18)5.2仓库管理系统主要界面及使用说明 (19)5.2.1 系统登录界面 (19)5.2.2 系统主界面 (20)5.2.4 仓库管理模块 (22)5.2.5 物料管理模块 (26)5.2.6 报表查询模块 (30)5.4 系统测试 (32)5.4.1 菜单测试 (32)5.4.2各功能模块测试 (32)5.4.3 数据跟踪测试 (32)第六章小结与展望 (33)6.1 成绩及不足 (33)6.1.1 成绩 (33)6.1.2 不足 (33)6.2 展望 (34)致谢 (36)参考文献 (37)摘要库存管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据一致性和完整性强.数据安全性好的库。

而对于后者则要求应用程序功能完备,易操作易使用等特点。

经过分析如此情况,我决定使用微软公司的Visual Basic 6为开发工具,利用其提供的各种面向对象的开发工具,尤其是ADO,是能方便而简洁操纵数据库的智能化对象,短期内就可以开发出用户满意的可行系统。

主题词:仓库管理;数据库;VB6;ADOABSTRACTWarehouse manage system is a typical MIS. It mostlyincludes the foundation and maintenance of the database and the development of the client application program. For the former we must establish a better database, which has well data consistency and data security. For the latter we must make the program has self-contained function and easy to be use.By analyzing the situation, we use the VB6 of the Microsoft Company as client tool. VB6 is very easy to be use and it has many useful tools, especially ADO object, which can easily conveniently manipulate the database. We use it can develop a satisfactory system in short timeKey Words:Warehouse management;Database;Visual Basic 6;ADO第一章绪论1.1 选题背景随着计算机技术的发展,计算机管理已越来越多地运用到了各个领域。

在现代企业的各个环节已离不开计算机了。

各种各样的管理软件也应运而生。

企业的库存物资管理往往是很复杂、很繁琐的。

由于所掌握的物料种类众多,订货、管理、发放的渠道各有差异,各个企业之间的管理体制不尽相同,各类统计报表繁多,因此仓库管理必须编制一套仓库管理信息系统,实现计算机化操作,而且必须根据企业的具体情况制定相应的方案。

一般仓库管理系统,总是根据所掌握的物资类别,相应分成几个部门来进行物料的计划,订货,核销托收,验收入库,根据企业各个部门的需求来发送物资设备,并随时按期进行库存盘点,作台帐,根据企业管理的需要按月、季度、年度进行统计分析,产生相应报表。

根据我公司的实际情况分析,一般的仓库管理系统并不能满足公司的需求,而且每套系统的成本也过高。

因此有必要开发一套特定的仓库管理系统来提高公司的工作效率,减少因人为因素而导致的物料损失。

通过对这些情况的仔细调查,我开发了下面的仓库管理系统。

1.2 设计目标仓库管理系统可主要实现下列目标:操作简单方便、界面简洁美观。

能完成仓库的各种日常操作。

能很好的预防各自人为因素产生的错误操作能够为用户提供多种条件的查询操作,为物料管理提供准确及时的数据?可实现盘点报表及盘点后的物料调整具有很好的安全性,以保证数据的正确性可追溯数据的历史信息,为系统完善提供依据第二章相关理论基础本系统主要采用VB6 + Access2000相结合的技术来进行开发,用户界面的设计是用VB6来进行的,后台数据库使用Access2000。

与数据库的连接则使用ADO 的相关功能来完成的。

在系统需涉及的一些相关技术概述如下。

2.1 Visual Basic 6Visual意为“可视化的”,指的是一种开发图形用户界面的方法,所以Visual Basic是基于Basic的可视化的程序设计语言。

在Visual Basic中,一方面继承了Basic所具有的程序设计语言简单易用的特点,另一方面在其编程系统中采用了面向对象、事件驱动的编程机制,用一种巧妙的方法把Windows的编程复杂性封装起来,提供了一种所见即所得的可视化程序设计方法。

VB6是指Visual Basic 6.0的版本。

2.1.1 Visual Basic 6的功能特点A)具有面向对象的可视化设计工具:在VB中,应用面向对象的程序设计方法(OOP),把程序和数据封装起来视为一个对象,每个对象都是可视的。

程序员在设计时只需用现有工具根据界面设计要求,直接在屏幕上“画”出窗口、菜单、按钮、滚动条等不同类型的对象,并为每个对象设置属性。

程序员的编程工作仅限于编写相关对象要完成的功能程序,因而程序设计的效率可大大提高。

B)事件驱动的编程机制:事件驱动是非常适合图形用户界面的编程方式。

在图形用户界面的应用程序中,是由用户的动作即事件掌握着程序运行的流向,每个事件都能驱动一段程序的运行。

程序员只要编写响应用户动作的代码,而各个动作之间不一定有联系。

C)提供了易学易用的应用程序集成开发环境:在VB集成开发环境中,用户可设计界面、编写代码、调试程序,直至把应用程序编译成可执行文件在Windows中运行,使用户在友好的开发环境中工作。

D)结构化的程序设计语言:VB6具有丰富的数据类型和结构化程序结构,作为一种程序设计语言,它还有如下一些特点:强大的数值和字符串处理功能;丰富的图形指令,可方便地绘制各种图形;提供静态和动态数组,有利于简化内存的管理;过程可递归调用,使程序更为简练;支持随机文件和顺序文件的访问;理。

E)支持多种数据库系统的访问:利用数据控件可访问的数据库系统有:Microsoft Access、SQL server、DBASE、Microsoft FoxPro 和Oracle等,也可以访问Microsoft Excel、Lotus1-2-3等多种电子表格。

F)支持动态数据交换(DDE)、动态链接库(DLL)和对象的链接与嵌入(OLE)技术。

G)完备的HELP联机帮助功能:与Windows环境下的软件一样,在VB中,利用帮助菜单和F1功能键,用户可以随时方便地得到所需要的帮助信息。

VB帮助窗口中显示了有关的示例代码,通过复制、粘贴操作可获取大量的示例代码,为用户的学习和使用提供了极大的方便。

VB程序设计的概念就是面向对象的概念,对象就是数据(DATA)和代码(CODE)互相结合的综合体。

Windows上面的每一个图标,包括窗口本身都是对象,如果没有任何事情发生,对象处于停顿状态。

当存在外来事件时,程序段执行,它的执行是由外来事件决定的。

因此是“事件”驱动的。

编写VB程序较为简单,首先将各个对象放在空白窗体上,然后将程序代码分别添加给对象或图标,将它们组合起来就可以随意运行了。

在VB中,窗体实际上是一个对象,VB的窗体含有许多内嵌特性,这使得用户界面部分的建立像是从一个目录中挑选一个个合适的控件,而不是从零开始一步一步地建立控件。

这种开发者能亲眼看到的程序设计过程就是“可视化程序设计”(Visual Programming)。

2.1.2 Visual Basic 6中的基本概念对象:面向对象编程(OOP)的提法大家一定也很耳熟,虽然Visual Basic并不是完全的面向对象编程,但也利用了对象编程技术。

对象简单地说就是大家经常看到的各种窗口、按钮、文本框甚至打印机等。

属性:如同电视有黑白、彩色之分一样,作为对象的Windows中的窗口也是有大有小,文本框的位置不可能完全一样,菜单要显示出不同的功能,这些都是由对象的属性决定的。

不同对象的属性可能不同。

属性一般决定了对象的位置、大小、显示等情况。

方法:就是对象能够做的事,如打印机对象就有打印(Print)方法、窗口对象支持隐藏(Hide)方法、很多对象支持移动(Move)方法等。

会触发按钮的“按”(Click)事件。

控件:控件就是Visual Basic提供的编程用的模块,与对象有直接的联系,如同积木的木块,使用这样的控件,就可以像拼图或堆积木一样“搭”、“拼”你的程序界面。

Visual Basic中使用控件,简化了Windows中的窗口、按钮等对象的编程设计。

每个控件都有各自的属性、事件及方法。

只需修改这些特征你就可以随心所欲地编程了。

最重要的是,你可以利用成千上万的各种扩充的控件来快速构造几乎能满足你任何要求的程序。

相关文档
最新文档