【汽车行业】汽车零部件查询系统设计说明书

交通与汽车工程学院

课程设计说明书

课程名称: 计算机应用基础课程设计

课程代码: 6011339 题目: 汽车零部件查询系统设计

年级/专业/班: 学生姓名: 学号:

开始时间: 2012 年 4 月 1 日完成时间: 2012 年 4 月 12 日课程设计成绩：

学习态度及平时成绩（30）技术水平与实际

能力（20）

创新（5）

说明书（计算书、图纸、分析

报告）撰写质量（45）

总分

（100）

指导教师签名：年月日

目录

摘要 (1)

1 引言…………………………………………………………………………………………

2 方案设计.............................................................................................2.汽车零部件查询模拟系统方案设计 (5)

2.1.1系统功能描述 (5)

2.1.2系统结构分析 (5)

2.1.3系统流程分析 (5)

2.2程序界面和代码设计 (6)

2.2.1系统工程设计框架 (6)

2.2.2系统各界面设计及代码设计 (8)

3 结果分析 (33)

结论 (45)

致谢 (46)

参考文献 (47)

摘要

随着计算机的普及,计算机高级语言已经运用到生活中的各个方面，本次课程设计使用VB语言作为开发工具，进行了汽车零部件查询系统的程序设计，该程序能实现汽车零部件查询模拟功能，进行汽车零部件的查询，修改，添加等操作，查询结果简便明了，运行界面清晰实用，操作方便，易于实际处理。

关键词：网络化计算机对策 VB语言汽车零部件查询程序

1 引言

1.1 问题的提出

随着计算机的普及，网络进入大众的家庭。VB一种可视化的、面向对象和采用事件驱动方式的高级程序设计语言，可用于开发Windows环境下的各类应用程序。本次课程设计主要内容就是使用VB编制简单、实用的小程序，以巩固我们所学的计算机VB语言知识，提高分析问题和解决问题的能力，锻炼我们独立动手的能力。

1.2任务与分析

本课题主要的目的是为了检测步进电机步距角误差，并把误差进行分析计算，最终得到一份误差数据，用误差曲线的方式在坐标上面把误差和步数结果表现出来，方便日后对误差的分析、误差的减少讨论出相应的方案…

2 设计方案

首先根据题目要求设计合理界面，确定哪些控件会用到，要考虑到操作的方便性和美观性。再按题目的功能要求编写对象的事件代码，并其逐一进行调试和修改。…

2.1系统总体方案的设计

2.1.1系统的驱动控制方案设计

根据设计要求，程序要达到的功能如下：

（1）、用随机文件建立汽车零部件和管理员的信息档案；

（2）、读出汽车零部件的信息，显示在列表框中；

（3）、能实现汽车零部件及管理员的信息的查询，修改，添加，删除等操作；

（4）、对汽车零部件搜索。

2.1.2系统结构分析

根据上面对系统功能的描述，构建出系统的总体功能结构图，如图1所示

图1 系统的总体功能结构图

2.1.3系统流程分析

本系统运行后从欢迎（登录）界面进入主界面。程序的主要工作流程图如图2所示。

汽车零部件查询系统

对管理员信息的维护

对汽车零部件信息的维护

对汽车零部件搜索

对汽车零部件的查询

使用说明

图2系统主要流程图

2.2程序界面和代码设计

2.2.1系统工程设计框架

在设计程序之前，应先布局整个工程。本系统可设立一个工程文件，取名汽车零部件查询系统.vbp ，该工程中包括1个模块文件，11个窗体文件，如图3所示。

用户登录

读取用户数据并登录

开始

失败

重试3次

操作主界面

(1).卡片式（2）.列表框式

查询零件

精确或粗略搜索

搜索零件

1.添加数据

2.删除数据

3.修改数据

管理员数据

1.添加数据

2.删除数据

3.修改数据

零件管理

图3工程内容模块代码如下：

Dim h

Type qiche

pj As String * 10

ljxh As String * 10 sych As String * 10

jg As String * 10

fb As String * 10

rq As String * 10

dw As String * 10

End Type

Dim cars As qiche Type manager

bh As String * 10

xb As Variant

xm As Variant

mm As String * 10

End Type

Dim pers As manager

Sub save()

Kill App.Path + "\mag.dat"

Open App.Path + "\mag.dat" For Random As #1

For i = 0 To Form4.List1.ListCount - 1

pers.bh = Form4.List1.List(i)

pers.xb = Form4.List2.List(i)

pers.xm = Form4.List3.List(i)

pers.mm = Form4.List4.List(i)

Put #1, i + 1, pers

Next i

Close

End Sub

Sub xishi(p)

Form10.Text5(0) = ""

Form10.Text5(1) = ""

Form10.Text5(2) = ""

Form10.Text5(3) = ""

Form10.Text5(4) = ""

Form10.Text5(5) = ""

Form10.Text5(0) = Form12.List1(0).List(p)

Form10.Text5(1) = Form12.List1(1).List(p)

Form10.Text5(2) = Form12.List1(2).List(p)

Form10.Text5(3) = Form12.List1(3).List(p)

Form10.Text5(4) = Form12.List1(4).List(p)

Form10.Text5(5) = Form12.List1(5).List(p)

End Sub

2.2.2 系统各界面设计

根据功能不同，在本系统中设计了11个窗体。（1）欢迎界面