汽车零部件查询系统设计说明书Word文档下载推荐.docx
- 文档编号:18153832
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:39
- 大小:7.53MB
汽车零部件查询系统设计说明书Word文档下载推荐.docx
《汽车零部件查询系统设计说明书Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《汽车零部件查询系统设计说明书Word文档下载推荐.docx(39页珍藏版)》请在冰豆网上搜索。
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工程内容
模块代码如下:
Dimh
Typeqiche
pjAsString*10
ljxhAsString*10
sychAsString*10
jgAsString*10
fbAsString*10
rqAsString*10
dwAsString*10
EndType
DimcarsAsqiche
Typemanager
bhAsString*10
xbAsVariant
xmAsVariant
mmAsString*10
DimpersAsmanager
Subsave()
KillApp.Path+"
\mag.dat"
OpenApp.Path+"
ForRandomAs#1
Fori=0ToForm4.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
Nexti
Close
EndSub
Subxishi(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)
2.2.2系统各界面设计
依照功能不同,在本系统中设计了11个窗体。
(1)欢迎界面
欢迎界面的要紧功能是让用户了解程序软件的用途
(2)用户登录界面
用户登录界面的功能是让治理员进入系统,防止非工作人员进入。
用户登录主界面如图5所示
图5登录界面
登录页面要紧代码如下:
PrivateSubCommand1_Click()'
登录系统按钮
StatictAsInteger
f=False
IfText2.Text="
OrText1="
Then
MsgBox"
请填写完整的个人信息"
EndIf
IfText2.Text<
>
"
n=LOF
(1)/Len(pers)
DoWhileNotEOF
(1)
Get#1,,pers
IfTrim(Text2.Text)=Trim(pers.bh)Then
f=True
Form3.Show
UnloadForm2
ExitDo
Loop
Iff=FalseThen
t=t+1
Ift<
3Then
用户不存在,请重新输入!
vbOKOnly+vbInformation,"
用户名错误"
Else
重试次数已到,立即退出本系统!
vbOKOnly+vbExclamation,"
End
ExitSub
PrivateSubCommand2_Click()'
终止按钮
(3)主界面一如图6所示
主界面的功能是展现出系统软件的功能,使用户一目了然。
图6主界面
要紧代码如下:
DimcarsAsqiche’通用定义代码
Dima(5)
PrivateSubForm_Load()
Frame1.Visible=False
List2.Visible=False
PrivateSubbz_Click()’查看系统关心
Form9.Show
PrivateSubss_Click()‘搜索零件
List2.Visible=True
Frame1.Visible=True
List2.Visible=NotList2.Visible
List2.Clear
PrivateSubCommand1_Click()’依照零件信息对零件搜索
Fori=0To4
IfCombo1(i).Text="
Forj=0ToForm12.List1(i).ListCount-1
List3(i).AddItemForm12.List1(i).List(j)
Nextj
t=i
Callhunt(t)
IfText1<
AndText2<
Callhunt2
ElseIfText1="
ThenText1=0:
Callhunt2
ElseIfText1<
AndText2="
ThenText2=10^10:
Forj=0ToForm12.List1(5).ListCount-1
List3(5).AddItemForm12.List1(5).List(j)
Fork=0To5
m=List3(k).ListCount
Forj=0Tom
IfList3(k).List(j)<
a(k)=a(k)+1
EndIf
Nextj
Nextk
Max=a(0)
Fori=1To5
Ifa(i)>
MaxThen
Max=a(i)
Fork=0ToVal(Max)
IfList3(0).List(k)<
AndList3
(1).List(k)<
AndList3
(2).List(k)<
AndList3(3).List(k)<
AndList3(4).List(k)<
AndList3(5).List(k)<
List2.AddItemList3(0).List(k)&
List3
(1).List(k)&
List3
(2).List(k)&
List3(3).List(k)&
List3(4).List(k)&
List3(5).List(k)
Frame1.Visible=False
Subhunt(t)
Fori=0ToForm12.List1(t).ListCount-1
IfTrim(Combo1(t).Text)=Trim(Form12.List1(t).List(i))Then
List3(t).AddItemForm12.List1(t).List(i),i
List3(t).AddItem"
i
Subhunt2()
Fori=0ToList1(5).ListCount-1
IfVal(Text1)<
Val(List1(5).List(i))AndVal(Text2)>
Val(List1(5).List(i))Then
List3(5).AddItemList1(5).List(i),i
List3(5).AddItem"
PrivateSubCommand2_Click()‘退出搜索零部件
PrivateSubglsj_Click()‘打开治理员数据治理功能
Form4.Show
PrivateSubbk_Click()‘表框式查询零部件
Form10.Show
Form10.Frame1.Visible=True
PrivateSubkp_Click()‘卡片式查询零部件
Form10.Frame2.Visible=True
PrivateSubljgl_Click()‘打开零部件数据治理功能
Form12.Show
PrivateSubtc_Click()‘退出系统
(4)主界面二如图7所示
图7主界面
1.卡片式零件查询:
Dimq
(1).查看上一个零件的代码如下:
PrivateSubCommand1_Click()
StaticqAsInteger
Ifq=-1Thenq=List2.ListCount-1
p=Val(List2.List(q))
Callxishi(p)
q=q-1
(2)查看下一个零件代码如下:
PrivateSubCommand2_Click()
Ifq>
List2.ListCount-1Thenq=0
q=q+1
Command1.Enabled=True
(3)退出卡片式查询代码如下:
PrivateSubCommand3_Click()
UnloadMe
(4)查看第一个零件代码如下:
PrivateSubCommand4_Click()
p=Val(List2.List(0))
(5)查看最后一个零件代码如下:
PrivateSubCommand5_Click()
p=Val(List2.List(List2.ListCount-1))
(6)卡片式配件框发生改变代码如下:
PrivateSubText3_Change()
Fori=0ToForm12.List1(0).ListCount-1
IfText3<
AndText4="
IfTrim(Text3)=Trim(Form12.List1(0).List(i))Then
List2.AddItemi
AndText4<
IfTrim(Form12.List1(0).List(i))=Trim(Text3)AndTrim(Form12.List1
(1).List(i))=Trim(Text4)Then
IfList2.ListCount>
0Then
List2.ListIndex=0
p=Val(List2.Text)
Text5(0)="
Text5
(1)="
Text5
(2)="
Text5(3)="
Text5(4)="
Text5(5)="
1ThenCommand2.Enabled=True
(7)卡片式零件型号框发生改变代码如下:
PrivateSubText4_Change()
IfText4<
AndText3="
IfTrim(Text4)=Trim(Form12.List1
(1).List(i))Then
2.列表框式零件查询:
(1)列表框式配件框发生改变代码如下:
PrivateSubText1_Change()
List1.Clear
List1.AddItem"
配件"
&
零件型号"
适用车型"
公布日期"
单位"
价格"
IfTrim(Form12.List1(0).List(i))=Trim(Text1)Then
List1.AddItemForm12.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)
IfTrim(Form12.List1(0).List(i))=Trim(Text1)AndTrim(Form12.List1
(1).List(i))=Trim(Text2)Then
(2)列表框式零件型号框发生改变代码如下:
PrivateSubText2_Change()
IfText1="
IfTrim(Form12.List1
(1).List(i))=Trim(Text2)Then
(5)主界面三如图8所示
图8主界面
要紧代码如下:
DimcarsAsqiche‘通用代码
(1)修改零件代码如下:
IfList1(0).Text="
请选择要修改的零件"
Form7.Show
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 汽车零部件 查询 系统 设计 说明书