汽车零部件查询系统设计
汽车配件管理系统的设计与实现
汽车配件管理系统的设计与实现随着汽车行业的发展，汽车配件的管理也成为一个重要的问题。
为了更好地管理汽车配件，提高汽车维修效率，降低客户维修成本，许多汽车厂商和维修店都开始使用汽车配件管理系统。
本文将介绍汽车配件管理系统的设计与实现。
一、系统需求分析汽车配件管理系统的主要功能是管理汽车配件的进货、销售、库存等信息，并且需要具有查询和统计功能。
因此，在系统设计之前，我们需要先进行系统需求分析。
1. 登录模块汽车配件管理系统需要有一个登录模块，用于区分不同用户的权限。
用户需要输入正确的用户名和密码才能登录到系统中进行操作。
为了保护用户的账户安全，系统还需要实现密码加密功能。
2. 进销存模块进销存模块是汽车配件管理系统的核心模块，用于管理进货、销售和库存等信息。
用户可以在该模块中添加、修改和删除配件信息，并进行分类管理。
此外，系统还需要实现配件的进货和销售管理功能，并实现库存管理。
3. 统计模块统计模块用于展示系统内配件进货、销售和库存等信息的统计数据。
根据用户需求，系统需要实现可定制的统计模块，用户可以根据自己需要选择统计的时间段、配件种类和统计方式等。
4. 报表模块报表模块用于生成进货、销售和库存等报表，用户可以根据自己需求导出报表。
在报表模块中，还需要实现报表图表的可视化展示。
二、系统设计与实现在完成系统需求分析之后，我们开始进行系统设计与实现。
本文将以 Java 语言为例，使用 Spring Boot 和 MySQL 数据库进行开发。
1. 后端设计与实现后端需要实现与前端之间的数据交互、处理和存储等功能。
我们使用 Spring Boot 框架进行开发，包括：（1）用户登录验证模块用户登录验证模块需要将用户输入的用户名和密码与数据库中的用户信息进行比对，如果输入正确则登录成功。
（2）配件信息管理模块配件信息管理模块需要实现添加、修改和删除配件信息的功能，并且需要进行分类管理，并实现配件的进货和销售管理。
驷惠汽车配件管理系统方案书
采用关系型数据库管理系统，如MySQL或 Oracle，确保数据存储的稳定性和可靠性。
数据表设计
根据系统需求，设计了包括配件信息、库存记录、 销售记录等在内的多个数据表，满足业务数据处理 的需求。
索引优化
针对常用查询字段，合理设置索引，提高数 据查询效率。
界面设计
用户友好
界面设计简洁明了，操作流程直观，便于用户快速上 手。
代码优化
对代码进行优化，提高系统性能和可维护性。
05
部署与维护
系统部署方案
硬件需求分析
软件环境配置
根据系统的功能和性能要求，评估所需的 服务器、存储设备、网络设备等硬件资源 。
安装和配置操作系统、数据库管理系统、 中间件等软件环境，确保系统稳定运行。
系统集成与测试
用户培训与技术支持
集成各个模块，进行系统测试，确保各模 块之间的数据交互和业务流程顺畅。
操作系统
Windows Server 2016 或更高版本
编程语言
Java 8 或更高版本
前端框架
Bootstrap 4, jQuery
关键技术实现
权限管理
使用 Spring Security 进行权限控 制，实现角色和权限的精细化管理。
数据持久层
使用 Hibernate 进行 ORM 映射， 实现数据持久化。
03
系统设计
总体架构设计
分层架构
系统采用典型的分层架构，包括数据访问层、业务逻辑层和用户 界面层，便于维护和扩展。
模块化设计
各功能模块间低耦合、高内聚，使得系统更加灵活，便于功能的 增加、删除和修改。
安全性考虑
在总体架构设计中，充分考虑了数据加密、用户权限控制等安全 措施，确保系统数据的安全。
汽车配件管理系统-VB编程毕业设计
摘要目前汽车配件销售企业大多数在其连锁店的管理还是手工进行，随着汽车配件行业的迅速发展，手工管理的种种弊端暴露无疑，给销售企业的发展带来了不必要的麻烦。
为了规范企业内部管理，提高企业业务管理水平，更好的为客户服务，应采用计算机来管理汽车配件的进销存业务。
本文首先对VB，SQL SERVER 2000这两种开发工具的原理和应用进行了简单的介绍，然后针对具体项目展开研究，进行需求分析，模块划分与设计，最后对整个系统进行了详细的分析和设计，在设计与实现过程中，结合源代码具体的描述出整个项目的开发过程。
汽车配件管理系统的目的是为企业提供一个计算机化的管理平台，实践企业内部科学有效的管理，促进企业管理信息化，规范化，将能使管理人员从繁琐的杂务工作中解脱出来，真正从事管理工作。
关键字：汽车配件管理系统；进销存系统；信息技术。
AbstractAt present, the automobile fitting sale enterprises mostly artificially manage their chain stores, but along with the automobile fittings' rapid development, all sorts of malpractices of manual management will expose without doubt, then bringing very many problems to enterprise's development. In order to realize the business management scientific style and standardization, making the customers satisfied, the enterprise must use the computer management system to manage the automobile fittings' purchase、selling and storage.This article first carries on a simple introduction on the principle and the application of VB and SQL SERVER 2000 which are two kinds of development kits, then aims at the detail research in view of the specific project, carrying on the demand analysis、the module division and design, finally the detailed analysis and design of the system. In the process of analyze and implementation, the author describes the whole project with source code.The goal of this system is providing a management platform which computerizes for the enterprise, making interior management scientific and effective, promoting business management's information style and standardization will be able to realize the administrator to be engaged in the supervisory work truly, extricating from the tedious odd job.Keywords：The automobile fittings' selling management system, purchase、sell and stock management, Information technology.目录第一章绪论 (1)§1.1问题背景 (1)§1.2系统需求分析 (1)§1.3进销存管理系统的开发设计思想 (1)§1.4课题的来源 (2)§1.5系统总体目标 (2)§1.6系统实施阶段 (2)第二章系统方案设计 (4)§2.1设计方案 (4)§2.1.1设计语言的选择 (4)§2.1.2 数据库的选择 (4)§2.1.3 C/S结构和B/S结构的选择 (5)§2.2设计数据库实体关系 (5)§2.3设计全局数据库实体关系 (11)第三章系统详细设计 (12)§3.1系统总结构图 (12)§3.2子功能划分 (12)§3.2.1基础信息管理 (13)§3.2.2日常业务 (13)§3.2.3系统查询 (15)§3.2.4系统帮助 (16)§3.3系统模块设计 (16)§3.3.1采购计划模块设计 (16)§3.3.2入库模块设计 (18)§3.3.3入库模块流程图 (20)§3.3.4退货模块设计 (20)§3.3.5配件盘点 (21)§3.3.6配件基本信息的查询模块设计 (22)§3.3.7用户登录 (23)第四章汽车配件管理系统的程序实现 (26)§4.1模块实现的理论基础 (26)§4.2登陆模块实现 (26)§4.3配件入库模块实现 (27)§4.4配件出库界面设计 (29)§4.5配件退货界面设计 (30)§4.6配件盘点界面设计 (31)§4.7用户权限管理的界面设计 (33)第五章系统功能测试 (35)§5.1引言 (35)§5.1.1编写目的 (35)§5.1.2测试技术 (35)§5.1.3定义 (35)§5.2测试计划执行情况 (36)§5.3测试用列 (36)§5.4评价 (38)§5.4.l软件能力 (38)§5.4.2缺陷和限制 (38)§5.4.3建议 (38)§5.4.4测试结论 (38)结论 (39)参考文献 (41)致谢 (42)第一章绪论§1.1问题背景随着信息化社会带给我们的冲击越来越强烈，信息化管理和信息化设备已经深入到我们生活的方方面面，同时，信息时代带给配件管理系统强烈的冲击。
汽车零件销售管理系统设计与实现
汽车零件销售管理系统设计与实现
汽车零件销售管理系统涉及到的功能包括：客户管理、订单管理、库存管理、供应商管理、报表统计等。
以下为汽车零件销售管理系统的设计与实现：
1.数据库设计
根据系统功能，设计数据库表包括：客户表、订单表、库存表、供应商表、商品表、员工表等。
2.系统架构设计
采用MVC（Model-View-Controller）架构设计，实现业务逻辑
与表现进行分离。
3.前端UI设计
采用Bootstrap框架进行响应式布局设计，提高用户体验。
4.后端开发
选择Java语言进行开发，在Spring MVC、MyBatis等开源框架的支持下实现业务逻辑。
5.权限管理
采用Spring Security框架实现用户的认证和授权，保证系统
的安全性。
6.报表统计
采用第三方report生成工具实现销售报表和库存报表的生成。
7.部署上线
采用Docker进行容器化部署，实现高效的运维。
总体而言，汽车零件销售管理系统的设计与实现需要结合业务需求、技术选型等多方面考虑，持续优化与改进，以提供更好的服务。
汽车零配件管理系统方案
理工大学本科生毕业设计（论文）汽修配件管理系统的设计与实现学院（系）：专业班级：学生：指导教师：学位论文原创性声明本人重声明：所呈交的论文是本人在导师的指导下独立进行研究所取得的研究成果。
除了文中特别加以标注引用的容外，本论文不包括任何其他个人或集体已经发表或撰写的成果作品。
本人完全意识到本声明的法律后果由本人承担。
作者签名：年月日学位论文使用授权书本学位论文作者完全了解学校有关保障、使用学位论文的规定，同意学校保留并向有关学位论文管理部门或机构送交论文的复印件和电子版，允许论文被查阅和借阅。
本人授权省级优秀学士论文评选机构将本学位论文的全部或部分容编入有关数据进行检索，可以采用影印、缩印或扫描等复制手段保存和汇编本学位论文。
本学位论文属于 1、囗，在年解密后适用本授权书。
2、囗不。
（请在以上相应方框打“√”）作者签名：年月日导师签名：年月日（说明：除涉及军事国防等必须要求的项目外，凡要求论文者均需向理工大学科技发展院提交书面申请，说明需要的理由。
）毕业设计(论文)任务书学生:专业班级:指导教师:工作单位:设计(论文)题目: 汽修配件管理系统的设计与实现设计（论文）主要容：1.需求分析；2.系统分析（可行性分析、组织结构图、业务流程图、数据流程图、数据字典等）；3.系统设计（功能结构图设计、数据库设计、编码设计、模块设计、算法设计、输入输出设计等）；4.系统实施（程序框图、系统界面、模拟运行数据，系统调试过程，系统使用说明书或用户手册）；5.结论（对系统开发的结果进行总结）；6.参考文献。
要求完成的主要任务:1.根据信息系统的开发要求，有计划地完成两次系统调研；2.查阅相关的国外资料，对国外的研究现状加以分析；3.要求所设计的系统应能准确无误的反映用户的业务流程，满足用户的各项要求，并具有高可靠性。
在此前提下尽可能使系统简洁明了，人机界面友好，易于操作；4.完成皮壳网，实现皮壳网的信息化。
5.完成不少于12000字的毕业论文并提交系统源代码光盘。
汽车配件公司管理信息系统设计资料文档
销售管理子系统：对客户数据、订单处理等销售业务进行管理； 财务管理子系统：负责各种报表和账目的管理工作； 采购子系统：管理供应商信息，进行采购、收获、验货等采购业务； 库存管理子系统：对仓库存货进行管理和监督。
四、4.1代码设计
信息分类代码编码是利用计算机辅助企业管理必要的前提 条件。一般情况下，信息的分类在先，编码在后。代码设 计是科学管理的体现。
块内部处理功能的工具、它主要包含层次结构图 和IPO图两个部分，层次机构图描述了整个系统 的设计结构及各类模块之间的关系：IPO图则描 述了在某个特定模块内部的输入（I）、处理过程 （P）、输出（O）思想。
5.1层次机构模块
层次结构模块图是从结构设计 的角度提出的一种工具。汽车 配件公司业务管理信息系统的 模块划分为若干子系统，如销 售管理子系统、采购管理子系 统登，它们之间是平级关系， 并且，相互之间也不交叉。同 时，一个模块还分了子模块， 如销售管理子系统下面包含了 客户管理和订货管理两了子模 块。这样，从整体上划分，形 成从全局来进行管理的格局。
——汽车配件公司业务管理信息系 统设计
指导老师：姜方桃
一、引言
目录
二、系统目标设计
三、模块设计——3.1对子系统的划分
四、代码设计——4.1代码的定义和功能
——4.2产品规格代码设计
——4.3产品代码设计
五、模块划分和处理流程设计
——5.1层次结构模块图和层次化订单管理模块结构图
5.4配件入库处理IPO图
配件入库处理 IPO图表示了 配件管理模块、 讲述了如何核 采购订货单合 法货单信息， 核对发货配件 质量信息和标 准配件质量信 息等功能
六、结束语
此设计方案包含了销售，采购，财务报表，库存 等子系统的设计,软件界面设计简洁，美观，人性 化的软件流程 。此汽车配件管理信息系统的设计 大大提高市场的上企业在市场上的竞争力能做到 合理生产，企业能够及时销售，并且库存量达到 最小，减少了积压，使公司取得了最佳的效益。 相关专家和人员对汽车配件公司业务管理信息系 统设计方案的可行性进行了肯定，此方案可投入 使用。
基于XML的汽车零部件查询系统的研究和设计
统为例 ， 结合 Ｄ Ｍ技术 和传 Ｄ Ｍ编程 的结 构模 型 Ｘ Ｏ
其中Ｐ Ｒ Ｅ 主 要用来 装载Ｘ Ａ ＳＲ ＭＬ文档 到缓存 中 ，并且 支持遍历节点树 的所有 函数 。
２基于语义的汽车零部件信息的存储研究
２１汽车零部件 的数据结构分析 ． 通 过对原机械 工业部部颁 （ ＜ 中国汽 车零部件标准大全 的分析整理 ，汽 车的体系 结构 一共 包括４ 个系 、２ 个部件 。 ７ 其 数据结构 是一棵 树（ 图２ 如 所示） 系结 点的子结 点是 部件 。
２Ｊａ ｇ ｕＰｒ ｖｎ ｉｌ ｙＬ ｂ ｒ ｔｒ ｆ ｍｐ ｔｒＩ ｆ ｒ ｔ ｎＰｒ ｃ ｓｉ ｇＴｅ ｈ ｏｏ ｙＳ ｚ ｏ １ ０ ６ ．ｉｎ ｓ ｏ ｉ ｃ ａ ｏ ａｏ ｙ ｏ ａ Ｋｅ Ｃｏ ｕ ｅ ｎ ｏ ｍａ ｉ ｏ ｅｓｎ ｃ ｎ ｌｇ ， ｕ ｈ ｕ２ ５ ０ ） ｏ
维普资讯
第２ 卷 第 ｌ 期 ８ ０
ｙｏ ． ８ １２ ＆ｌ ｏ
计
算
机
工
程
２０年ｌ月 ０２ ０
Ｏｃ ｏｂ ｒ２０ ２ ｔ ｅ ０
Ｃｏ ｐｕ ｅ ｇｉ ｅ ｒ ｎ ｍ ｔ ｒＥｎ ｎ ｅ ｉ ｇ
．
开发 研 究 与设计 技 术 ・ 文章编号：ｌ０ －４８ ０２ｌ— ２８ ０ ０ｏ ３２（ ０） ０２— ３ － ２ ０
基于RFID汽车零部件编号查询系统的研发
基于 Ｒ Ｆ Ｉ Ｄ汔车霎部件编号查 询系统昀 邵发
浙 江工 贸职 业技 术 学院 图 书信 息 中心 沈德 隆
［ 摘 要］ 本文主要 阐述 了在 飞速发展的信 息化时代， 物联 网等相 关智能技术都 迅猛 的发展使得 Ｒ Ｆ Ｉ Ｄ电子标签得 到 了广泛 的应用 本 文阐述 了基于 ＲＦ Ｉ Ｄ相 关技 术研发 的汽车零部件编号查询 系统主要是针对浙 江工贸职业技 术 学院教 学管理的 实际需要 而研发 的 研发一套 汽车零部件编 号查询 系统将在培 育汽车相 关技 术人 才及在 相关专业的 实践教 学等方 面发挥更 大的作 用。 ［ 关键词 ］ ＲＦ Ｉ Ｄ 汽车零部件 系统
在物联 网技术高速 发展 的时代 ， 人们往往 更关注物联 网技术 的成 熟度和 给人们所带来 的方便 。物联 网中 电子标 签读取 的准 确性 ， 是 物 联 网发展 的关键环节 。因此 ， 对 物联 网应用 中的电子标签 防碰撞算法 和数据采集 技术 的完 善和改进成 为 目前研究 的一大热点 。其次 ， 在物 联网的应用 上 ， 查找 速度和准确性也 是关注 的热点 。本论 文以南京某 工业生产企业 的物流 网项 目作背景 ， 针对物联 网中的这两个 关键技术 进 行改进 ， 并通过实验 ， 验证 了其实用性 和有 效性 。该系统之所 以能够 满足企业用户的需求 ， 成功 的需求分析是 重要 的第一步 ， 而需求分析 的 重 点是明确系统的应用场景和环境 。通过对 系统 功能的分析和实 际考 察， 可知在生产企业物联 网系统 中， 汽 车零部件 编号查询系统是对汽车 零部 件产品管理实现机械化 、 自动化 的根本保证 ， 因此产品管理在现代 工业 生产 中起 到相 当重要 的作用 。 汽车零部件 编号查询系统 设计特点 为可扩展性 、 灵活性及 可插人 性 。通过对该企 业现有业 务流程的细化分 析 ， 结合 对企业现有 管理软 件 的功能 分析 ， 分析出该企业主要存在 的一些 问题 ， 企业 建设物联 网系 统 主要就 是为 了能够 借助基 于 Ｒ Ｆ Ｉ Ｄ的物 联 网技 术解 决好这 些 问题 。 所 以本系统设定 以下 目标 ： （ １ ） 解决 好原 材料仓 库库存 合理化控 制的问题。 作 为生产企业 ， 原材料 的管 理涉及到众 多上游供 应链 以及企 业内 部 的生产环节和 库管环节 。该 企业生产所需 的各种原 材料种类繁 多 、 品种 齐全且分散在 三个不 同的仓库进行存放 ， 管理 问题 日益严重 。有 的原材料 严重短缺且 不能及 时有效补足 ， 导 致开始生 产时才发现 库存 不够； 有 的原材 料库存积压现象严 重 ， 而且采购成本 未能有效跟进 以往 采购单价； 有 的原材料 因为多库分 头管理 ， 所 以非正 常库存减少现 象比 较严重 ， 却难以及时形成警报信息。 （ ２ ） 解决好成本核算与成本控制 的问题 。 企业现有的成本核算方法 主要采 用的是工业企业常见 的加权平均 法， 其实都只能粗略地计算企业 的生产成本 ， 难以满足复杂多变 的市场 竞争环境 以及企业对于成本核算 方面越来越高的要求 。企业对成本核 算 的准确性 、 时效性 、 可预见性等方 面提 出了很 高的要求 。本系统 中 ， 大量采用 了Ｒ Ｆ Ｉ Ｄ电子标签作为原材料与产 成品标识 ， 并采用先进先 出 法作为成本核算的基本方法 ， 对生产 成本 进行准确核算和有效控制 ， 还 可以基于历史数据对未来成本走向提供预测 。 （ ３ ） 解决好采购 、 生产 、 销售等环节的精细管理问题 。 信息时代的企业往往追求从原材料 的采 购存储 到生产过程控制再 到销售出库管理等环节 的一体化管理 。企业 现有状 态下 自动化程度较 低， 各 个环节的诸多信息存在着不畅通和不 能共享 的问题 ， 尤其是对产 品质量的市 场跟踪和销售 价格 的灵活 应变等方面 缺乏有效监 管 ， 需要 在全 球上 下游产品供应链一体化 的大环境下 ， 有效 地处理各种信息流 ， 并协 调和管 理各类 物流 。 （ ４ ） 解决好产品配送 、 次品返修等环节的管理问题。 企业 目前 的产 品配送主要 基于下游零 售商的订单 来安排 ， 并 兼顾 生产 车间 的生产 进度计划 ， 从产品离厂 开始往往就处 于难 以掌控的状 层制定 的近期与远期 发展 战略 ， 这是在 生产企业建 设物联 网系统 的终 极 目标； 其次 ， 信 息化离 不开企业 所在行 业特有 的管理 与运营模 式 ， 这 是在生产企业 建设物联 网系统的实施基础 ； 第三， 物联 网系统需要结合 企业的人文和地域环境 ， 并 充分考虑企业 的文化 、 历 史传 统及制约 因素
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
交通与汽车工程学院课程设计说明书课程名称: 计算机应用基础课程设计课程代码: 6011339题目: 汽车零部件查询系统设计年级/专业/班: 学生姓名:学号: 开始时间: 2012 年 4 月 1 日完成时间: 2012 年 4 月 12 日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总分（100）指导教师签名：年月日目录摘要 (2)1 引言 (3)2 本程序主要功能 (3)3 本程序结构设计 (4)4 程序设计界面 (4)5 程序代码 (10)结论 (30)致谢 (31)参考文献 (32)摘要随着计算机的普及程序的应用也越来越受到重视，本次课程设计使用 Visual Basic 作为开发工具，进行了汽车零部件查询系统设计的程序设计，本系统主要完成对汽车零部件的管理，包括库存的添加、删除等。
系统可以完成对各类信息的追加、浏览、修改、查询和计算等功能。
汽车零部件查询系统广泛应用于4S店汽车零部件的库存与销售管理工作中，要求其具有实用性强、使用方便、效率高和安全可靠等特点。
本管理系统正是围绕以上几个方面进行开发的，在开发过程中充分考虑到本系统的应用特点，并进行了大量的检验，证明其的确达到了设计的要求，是一个已具备了实际应用能力的软件。
关键词：汽车零部件销售库存销售1 引言1.1 问题的提出为适合现代企业发展的需要,汽车零部件管理已经成为困扰销售的一个难题,由于其费时和繁琐性，企业迫切需要一种专门为零部件管理而服务的工具。
为此,简单的汽车零部件管理系统为此而制造出来。
本简单程序是为汽车零部件管理而设计的,内容简单，使用方便。
程序稍加变更可以适合对资源分配方面的杂事加以处理。
作为当代大学生，熟练的操作计算机是一种必备的素质。
本次设计会让我们更加熟悉VB编程，把以前学过的一些东西又重新复习了一遍，并与实际结合起来，对我们能力的提升有了很大的帮助，还能促使我们在以后的实际应用中更好的应用VB编程来设计一些数据库管理系统。
2 本程序主要功能汽车零部件管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点.本系统主要完成对汽车零部件信息的管理，包括数据库中零件的入库和出库等。
系统可以完成对各类信息的浏览、修改、查询对零件销售价格进行计算等功能。
系统的核心是数据库中零件的余量，每一个零件的修改都将联动的影响其它的各项信息，当完成对数据的操作时系统会自动地完成数据库的修改。
查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。
本系统有完整的报价查询，库存剩余量，零件名称，销售型号，匹配车型查询等等。
3 本程序结构设计汽车零部件管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点.其中利用函数调用，查询功能，库存检索等完成此次设计。
4 程序设计界面Form1：Form2：Form3:Form4:Form5:Form6:Form7:Form8:Form9:Form10:Form11:Form12:5 程序代码（1）Form1:Form2.ShowUnload MeEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Form2.ShowUnload MeEnd SubPrivate Sub Image1_Click()End Sub（2）Form2:Do While Not EOF(1)Get #1, , persIf Trim(Text2.Text) = Trim(pers.bh) Thenf = TrueForm3.ShowUnload Form2Exit DoEnd IfLoopCloseIf f = False Thent = t + 1If t < 3 ThenMsgBox "用户不存在,请重新输入！", vbOKOnly + vbInformation, "用户名错误"ElseMsgBox "重试次数已到，即将退出本系统!", vbOKOnly + vbExclamation, "用户名错误" EndExit SubEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub（3）Form3:Dim cars As qicheDim a(5)Private Sub bz_Click()Form9.ShowEnd SubPrivate Sub Command1_Click()For i = 0 To 4If Combo1(i).Text = "" ThenFor j = 0 To Form12.List1(i).ListCount - 1List3(i).AddItem Form12.List1(i).List(j)Next jElset = iCall hunt(t)End IfNext iIf Text1 <> "" And Text2 <> "" ThenCall hunt2ElseIf Text1 = "" And Text2 <> "" Then Text1 = 0: Call hunt2ElseIf Text1 <> "" And Text2 = "" Then Text2 = 10 ^ 10: Call hunt2For j = 0 To Form12.List1(5).ListCount - 1List3(5).AddItem Form12.List1(5).List(j)Next jEnd IfFor k = 0 To 5m = List3(k).ListCountFor j = 0 To mIf List3(k).List(j) <> "" Thena(k) = a(k) + 1End IfNext jNext kMax = a(0)For i = 1 To 5If a(i) > Max ThenMax = a(i)End IfNext iFor k = 0 To Val(Max)If List3(0).List(k) <> "" And List3(1).List(k) <> "" And List3(2).List(k) <> "" And List3(3).List(k) <> "" And List3(4).List(k) <> "" And List3(5).List(k) <> "" Then'List2.AddItem List3(0).List(k) & List3(1).List(k) & List3(2).List(k) & List3(3).List(k) & List3(4).List(k) & List3(5).List(k)End IfNext kFrame1.Visible = False'List2.Visible = TrueEnd SubFrame1.Visible = FalseEnd SubPrivate Sub Form_Load()Frame1.Visible = False'List2.Visible = FalseEnd SubPrivate Sub glsj_Click()Form4.ShowEnd SubPrivate Sub bk_Click()Form10.ShowForm10.Frame1.Visible = TrueEnd SubPrivate Sub kp_Click()Form10.ShowForm10.Frame2.Visible = TrueEnd SubPrivate Sub ljgl_Click()Form12.ShowEnd SubPrivate Sub ss_Click()'List2.Visible = TrueFrame1.Visible = True' List2.Visible = Not List2.Visible 'List2.ClearEnd SubSub hunt(t)For i = 0 To Form12.List1(t).ListCount - 1List3(t).AddItem Form12.List1(t).List(i), iElseList3(t).AddItem "", iEnd IfNext iEnd SubSub hunt2()For i = 0 To List1(5).ListCount - 1If Val(Text1) < Val(List1(5).List(i)) And Val(Text2) > Val(List1(5).List(i)) Then List3(5).AddItem List1(5).List(i), iElseList3(5).AddItem "", iEnd IfNext iEnd SubPrivate Sub tc_Click()EndEnd Sub（4）Form4：Dim pers As managerPrivate Sub Command1_Click()Form5.ShowEnd SubPrivate Sub Command2_Click()List1.RemoveItem List1.ListIndexList2.RemoveItem List2.ListIndexList3.RemoveItem List3.ListIndexList4.RemoveItem List4.ListIndexPrivate Sub Command3_Click()If List1.Text = "" ThenMsgBox "请选择修改对象"ElseForm6.ShowForm6.Text1 = List1.TextForm6.Text2 = List3.Textbo1.Text = List2.TextList1.RemoveItem List1.ListIndexList2.RemoveItem List2.ListIndexList3.RemoveItem List3.ListIndexList4.RemoveItem List4.ListIndexEnd IfEnd SubPrivate Sub Command4_Click()Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()i = 0Open App.Path + "\mag.dat" For Random As #1 Do While Not EOF(1)i = i + 1Get #1, i, persList1.AddItem pers.bh, i - 1List2.AddItem pers.xb, i - 1List3.AddItem pers.xm, i - 1List4.AddItem pers.mm, i - 1End SubPrivate Sub List1_Click()List2.ListIndex = List1.ListIndexList3.ListIndex = List1.ListIndexList4.ListIndex = List1.ListIndexEnd SubPrivate Sub List2_Click()List1.ListIndex = List2.ListIndexList3.ListIndex = List2.ListIndexList4.ListIndex = List2.ListIndexEnd SubPrivate Sub List3_Click()List1.ListIndex = List3.ListIndexList2.ListIndex = List3.ListIndexList4.ListIndex = List3.ListIndexEnd SubPrivate Sub List4_Click()List1.ListIndex = List4.ListIndexList2.ListIndex = List4.ListIndexList3.ListIndex = List4.ListIndexEnd Sub（5）Form5：Dim pers As managerPrivate Sub Command1_Click()If Text1 = "" Or Text2 = "" Or Text3 = "" Or Combo1.Text = "" Then MsgBox "请输入完整的信息"Text1.SetFocusIf Text1 <> "" And Text2 <> "" And Text3 <> "" And Combo1.Text <> "" Then Form4.List1.AddItem Text1Form4.List2.AddItem Combo1.TextForm4.List3.AddItem Text2Form4.List4.AddItem Text3Call saveEnd IfForm4.ShowUnload MeEnd SubPrivate Sub Command2_Click()Form4.ShowUnload MeEnd SubPrivate Sub Form_Load()Text3 = ""End Sub（6）Form6：Private Sub Command1_Click()Form4.List1.AddItem Text1, 0Form4.List2.AddItem Combo1.Text, 0Form4.List3.AddItem Text2, 0Form4.List4.AddItem Text4, 0Call saveForm3.ShowUnload MeEnd Sub(7)Form7:Private Sub Command1_Click() Form12.List1(0).AddItem Text1, 0 Form12.List1(1).AddItem Text2, 0 Form12.List1(2).AddItem Text3, 0 Form12.List1(3).AddItem Text4, 0 Form12.List1(4).AddItem Text5, 0 Form12.List1(5).AddItem Text6, 0 Form3.ShowUnload MeEnd SubPrivate Sub Command2_Click() Form3.List1(0).AddItem Text1, 0 Form3.List1(1).AddItem Text2, 0 Form3.List1(2).AddItem Text3, 0 Form3.List1(3).AddItem Text4, 0 Form3.List1(4).AddItem Text5, 0 Form3.List1(5).AddItem Text6, 0 Call save2Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub(8)Form8:Private Sub Command1_Click()Combo1(3).Text <> "" And Combo1(4).Text <> "" And Text1 <> "" Then Form12.List1(0).AddItem Combo1(0).TextForm12.List1(1).AddItem Combo1(1).TextForm12.List1(2).AddItem Combo1(2).TextForm12.List1(3).AddItem Combo1(3).TextForm12.List1(4).AddItem Combo1(4).TextForm12.List1(5).AddItem Text1Form3.ShowUnload MeElseMsgBox "请写入完整的信息！"End IfEnd SubPrivate Sub Command2_Click()Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub(9)Form9:Private Sub Text2_Change()End SubPrivate Sub Text1_Change()End SubPrivate Sub Timer1_Timer()Text2 = TimeEnd Sub(10)Form10:Dim qPrivate Sub Command1_Click()Static q As IntegerIf q = -1 Then q = List2.ListCount - 1p = Val(List2.List(q))Call xishi(p)q = q - 1End SubPrivate Sub Command2_Click()Static q As IntegerIf q > List2.ListCount - 1 Then q = 0p = Val(List2.List(q))Call xishi(p)q = q + 1Command1.Enabled = TrueEnd SubPrivate Sub Command3_Click()Form3.ShowUnload MeEnd SubPrivate Sub Command4_Click()p = Val(List2.List(0))Call xishi(p)End SubPrivate Sub Command5_Click()p = Val(List2.List(List2.ListCount - 1)) Call xishi(p)End SubPrivate Sub Form_Load()End SubPrivate Sub Text3_Change()List2.ClearFor i = 0 To Form12.List1(0).ListCount - 1If Text3 <> "" And Text4 = "" ThenIf Trim(Text3) = Trim(Form12.List1(0).List(i)) ThenList2.AddItem iEnd IfEnd IfIf Text3 <> "" And Text4 <> "" ThenIf Trim(Form12.List1(0).List(i)) = Trim(Text3) And Trim(Form12.List1(1).List(i)) = Trim(Text4) ThenList2.AddItem iEnd IfEnd IfNext iIf List2.ListCount > 0 ThenList2.ListIndex = 0p = Val(List2.Text)Call xishi(p)ElseText5(0) = ""Text5(1) = ""Text5(2) = ""Text5(3) = ""Text5(4) = ""Text5(5) = ""End IfIf List2.ListCount > 1 Then Command2.Enabled = TrueEnd SubPrivate Sub Text4_Change()List2.ClearFor i = 0 To Form12.List1(0).ListCount - 1If Text4 <> "" And Text3 = "" ThenIf Trim(Text4) = Trim(Form12.List1(1).List(i)) ThenList2.AddItem iEnd IfEnd IfIf Text3 <> "" And Text4 <> "" ThenIf Trim(Form12.List1(0).List(i)) = Trim(Text3) And Trim(Form12.List1(1).List(i)) = Trim(Text4) ThenList2.AddItem iEnd IfEnd IfNext iIf List2.ListCount > 0 ThenList2.ListIndex = 0p = Val(List2.Text)Call xishi(p)ElseText5(0) = ""Text5(1) = ""Text5(2) = ""Text5(3) = ""Text5(4) = ""Text5(5) = ""End IfIf List2.ListCount > 1 Then Command2.Enabled = TrueEnd SubPrivate Sub Text1_Change()List1.ClearList1.AddItem "配件" & " " & " " & "零件型号" & " " & " " & "适用车型" & " " & " " & " " & " " & "发布日期" & " " & " " & " " & "单位" & " " & " " & " " & " " & " " & "价格"For i = 0 To Form12.List1(0).ListCount - 1If Text1 <> "" And Text2 = "" ThenIf Trim(Form12.List1(0).List(i)) = Trim(Text1) ThenList1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfIf Text1 <> "" And Text2 <> "" ThenIf Trim(Form12.List1(0).List(i)) = Trim(Text1) And Trim(Form12.List1(1).List(i)) = Trim(Text2) ThenList1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfNext iEnd SubPrivate Sub Text2_Change()List1.ClearList1.AddItem "配件" & " " & " " & "零件型号" & " " & " " & "适用车型" & " " & " " & " " & " " & "发布日期" & " " & " " & " " & "单位" & " " & " " & " " & " " & " " & "价格"For i = 0 To Form12.List1(0).ListCount - 1If Text1 = "" And Text2 <> "" ThenIf Trim(Form12.List1(1).List(i)) = Trim(Text2) ThenList1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) &Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfIf Text1 <> "" And Text2 <> "" ThenIf Trim(Form12.List1(0).List(i)) = Trim(Text1) And Trim(Form12.List1(1).List(i)) = Trim(Text2) ThenList1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfNext iEnd Sub（11）Form11：Dim cars As qicheDim a(5)Private Sub Form_Load()Open App.Path + "\car.dat" For Random As #2Do While Not EOF(2)i = i + 1Get #2, i, carsList1(0).AddItem cars.pjList1(1).AddItem cars.ljxhList1(2).AddItem cars.sychList1(3).AddItem cars.fbList1(4).AddItem cars.dwList1(5).AddItem cars.jgLoopCloseEnd SubPrivate Sub List1_Click(Index As Integer) Select Case IndexCase 0List1(5).ListIndex = List1(0).ListIndex List1(4).ListIndex = List1(0).ListIndex List1(3).ListIndex = List1(0).ListIndex List1(2).ListIndex = List1(0).ListIndex List1(1).ListIndex = List1(0).ListIndex Case 1List1(5).ListIndex = List1(1).ListIndex List1(4).ListIndex = List1(1).ListIndex List1(3).ListIndex = List1(1).ListIndex List1(2).ListIndex = List1(1).ListIndex List1(0).ListIndex = List1(1).ListIndex Case 2List1(5).ListIndex = List1(2).ListIndex List1(4).ListIndex = List1(2).ListIndex List1(3).ListIndex = List1(2).ListIndex List1(0).ListIndex = List1(2).ListIndex List1(1).ListIndex = List1(2).ListIndex Case 3List1(5).ListIndex = List1(3).ListIndex List1(4).ListIndex = List1(3).ListIndex List1(0).ListIndex = List1(3).ListIndex List1(2).ListIndex = List1(3).ListIndex List1(1).ListIndex = List1(3).ListIndex Case 4List1(5).ListIndex = List1(4).ListIndexList1(0).ListIndex = List1(4).ListIndex List1(3).ListIndex = List1(4).ListIndex List1(2).ListIndex = List1(4).ListIndex List1(1).ListIndex = List1(4).ListIndex Case 5List1(0).ListIndex = List1(5).ListIndex List1(4).ListIndex = List1(5).ListIndex List1(3).ListIndex = List1(5).ListIndex List1(2).ListIndex = List1(5).ListIndex List1(1).ListIndex = List1(5).ListIndex End SelectEnd Sub(12)Form12:Dim cars As qicheDim a(5)Private Sub Command1_Click()If List1(0).Text = "" ThenMsgBox "请选择要修改的零件"ElseForm7.ShowForm7.Text1 = List1(0).TextForm7.Text2 = List1(1).TextForm7.Text3 = List1(2).TextForm7.Text4 = List1(3).TextForm7.Text5 = List1(4).TextForm7.Text6 = List1(5).TextList1(0).RemoveItem List1(0).ListIndex List1(1).RemoveItem List1(1).ListIndex List1(2).RemoveItem List1(2).ListIndexList1(3).RemoveItem List1(3).ListIndexList1(4).RemoveItem List1(4).ListIndexList1(5).RemoveItem List1(5).ListIndexEnd IfEnd SubPrivate Sub Command2_Click()Form8.ShowEnd SubPrivate Sub Command3_Click()List1(0).RemoveItem List1(0).ListIndexList1(1).RemoveItem List1(1).ListIndexList1(2).RemoveItem List1(2).ListIndexList1(3).RemoveItem List1(3).ListIndexList1(4).RemoveItem List1(4).ListIndexList1(5).RemoveItem List1(5).ListIndexEnd SubPrivate Sub Command4_Click()Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()Open App.Path + "\car.dat" For Random As #2 Do While Not EOF(2)i = i + 1Get #2, i, carsList1(0).AddItem cars.pjList1(1).AddItem cars.ljxhList1(2).AddItem cars.sychList1(3).AddItem cars.fbList1(4).AddItem cars.dwList1(5).AddItem cars.jgLoopCloseEnd SubPrivate Sub List1_Click(Index As Integer) Select Case IndexCase 0List1(5).ListIndex = List1(0).ListIndex List1(4).ListIndex = List1(0).ListIndex List1(3).ListIndex = List1(0).ListIndex List1(2).ListIndex = List1(0).ListIndex List1(1).ListIndex = List1(0).ListIndex Case 1List1(5).ListIndex = List1(1).ListIndex List1(4).ListIndex = List1(1).ListIndex List1(3).ListIndex = List1(1).ListIndex List1(2).ListIndex = List1(1).ListIndex List1(0).ListIndex = List1(1).ListIndex Case 2List1(5).ListIndex = List1(2).ListIndex List1(4).ListIndex = List1(2).ListIndex List1(3).ListIndex = List1(2).ListIndex List1(0).ListIndex = List1(2).ListIndex List1(1).ListIndex = List1(2).ListIndex Case 3List1(5).ListIndex = List1(3).ListIndex List1(4).ListIndex = List1(3).ListIndex List1(0).ListIndex = List1(3).ListIndex List1(2).ListIndex = List1(3).ListIndex List1(1).ListIndex = List1(3).ListIndexCase 4List1(5).ListIndex = List1(4).ListIndexList1(0).ListIndex = List1(4).ListIndexList1(3).ListIndex = List1(4).ListIndexList1(2).ListIndex = List1(4).ListIndexList1(1).ListIndex = List1(4).ListIndexCase 5List1(0).ListIndex = List1(5).ListIndexList1(4).ListIndex = List1(5).ListIndexList1(3).ListIndex = List1(5).ListIndexList1(2).ListIndex = List1(5).ListIndexList1(1).ListIndex = List1(5).ListIndexEnd SelectEnd Sub结论在这次的设计过程中，我学到的不仅是知识，我还认识到许多事情。