汽车零部件查询系统设计综述.docx
《汽车零部件查询系统设计综述.docx》由会员分享，可在线阅读，更多相关《汽车零部件查询系统设计综述.docx（28页珍藏版）》请在冰豆网上搜索。
汽车零部件查询系统设计综述
交通与汽车工程学院
课程设计说明书
课程名称:
计算机应用基础课程设计
课程代码:
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
摘要
随着计算机的普及程序的应用也越来越受到重视，本次课程设计使用VisualBasic作为开发工具，进行了汽车零部件查询系统设计的程序设计，本系统主要完成对汽车零部件的管理，包括库存的添加、删除等。
系统可以完成对各类信息的追加、浏览、修改、查询和计算等功能。
汽车零部件查询系统广泛应用于4S店汽车零部件的库存与销售管理工作中，要求其具有实用性强、使用方便、效率高和安全可靠等特点。
本管理系统正是围绕以上几个方面进行开发的，在开发过程中充分考虑到本系统的应用特点，并进行了大量的检验，证明其的确达到了设计的要求，是一个已具备了实际应用能力的软件。
关键词：
汽车零部件销售库存销售
1引言
1.1问题的提出
为适合现代企业发展的需要,汽车零部件管理已经成为困扰销售的一个难题,由于其费时和繁琐性，企业迫切需要一种专门为零部件管理而服务的工具。
为此,简单的汽车零部件管理系统为此而制造出来。
本简单程序是为汽车零部件管理而设计的,内容简单，使用方便。
程序稍加变更可以适合对资源分配方面的杂事加以处理。
作为当代大学生，熟练的操作计算机是一种必备的素质。
本次设计会让我们更加熟悉VB编程，把以前学过的一些东西又重新复习了一遍，并与实际结合起来，对我们能力的提升有了很大的帮助，还能促使我们在以后的实际应用中更好的应用VB编程来设计一些数据库管理系统。
2本程序主要功能
汽车零部件管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点.
本系统主要完成对汽车零部件信息的管理，包括数据库中零件的入库和出库等。
系统可以完成对各类信息的浏览、修改、查询对零件销售价格进行计算等功能。
系统的核心是数据库中零件的余量，每一个零件的修改都将联动的影响其它的各项信息，当完成对数据的操作时系统会自动地完成数据库的修改。
查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。
本系统有完整的报价查询，库存剩余量，零件名称，销售型号，匹配车型查询等等。
3本程序结构设计
汽车零部件管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点.
其中利用函数调用，查询功能，库存检索等完成此次设计。
4程序设计界面
Form1：
Form2：
Form3:
Form4:
Form5:
Form6:
Form7:
Form8:
Form9:
Form10:
Form11:
Form12:
5程序代码
（1）Form1:
PrivateSubForm_Click（）
Form2.Show
UnloadMe
EndSub
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
Form2.Show
UnloadMe
EndSub
PrivateSubImage1_Click（）
EndSub
（2）Form2:
DoWhileNotEOF
（1）
Get#1,,pers
IfTrim（Text2.Text）=Trim（pers.bh）Then
f=True
Form3.Show
UnloadForm2
ExitDo
EndIf
Loop
Close
Iff=FalseThen
t=t+1
Ift<3Then
MsgBox"用户不存在,请重新输入！
",vbOKOnly+vbInformation,"用户名错误"
Else
MsgBox"重试次数已到，即将退出本系统!
",vbOKOnly+vbExclamation,"用户名错误"
End
ExitSub
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
（3）Form3:
DimcarsAsqiche
Dima（5）
PrivateSubbz_Click（）
Form9.Show
EndSub
PrivateSubCommand1_Click（）
Fori=0To4
IfCombo1（i）.Text=""Then
Forj=0ToForm12.List1（i）.ListCount-1
List3（i）.AddItemForm12.List1（i）.List（j）
Nextj
Else
t=i
Callhunt（t）
EndIf
Nexti
IfText1<>""AndText2<>""Then
Callhunt2
ElseIfText1=""AndText2<>""ThenText1=0:
Callhunt2
ElseIfText1<>""AndText2=""ThenText2=10^10:
Callhunt2
Else
Forj=0ToForm12.List1（5）.ListCount-1
List3（5）.AddItemForm12.List1（5）.List（j）
Nextj
EndIf
Fork=0To5
m=List3（k）.ListCount
Forj=0Tom
IfList3（k）.List（j）<>""Then
a（k）=a（k）+1
EndIf
Nextj
Nextk
Max=a（0）
Fori=1To5
Ifa（i）>MaxThen
Max=a（i）
EndIf
Nexti
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）<>""Then
'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）
EndIf
Nextk
Frame1.Visible=False
'List2.Visible=True
EndSub
PrivateSubCommand2_Click（）
Frame1.Visible=False
EndSub
PrivateSubForm_Load（）
Frame1.Visible=False
'List2.Visible=False
EndSub
PrivateSubglsj_Click（）
Form4.Show
EndSub
PrivateSubbk_Click（）
Form10.Show
Form10.Frame1.Visible=True
EndSub
PrivateSubkp_Click（）
Form10.Show
Form10.Frame2.Visible=True
EndSub
PrivateSubljgl_Click（）
Form12.Show
EndSub
PrivateSubss_Click（）
'List2.Visible=True
Frame1.Visible=True
'List2.Visible=NotList2.Visible
'List2.Clear
EndSub
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
Else
List3（t）.AddItem"",i
EndIf
Nexti
EndSub
Subhunt2（）
Fori=0ToList1（5）.ListCount-1
IfVal（Text1）Val（List1（5）.List（i））Then
List3（5）.AddItemList1（5）.List（i）,i
Else
List3（5）.AddItem"",i
EndIf
Nexti
EndSub
PrivateSubtc_Click（）
End
EndSub
（4）Form4：
DimpersAsmanager
PrivateSubCommand1_Click（）
Form5.Show
EndSub
PrivateSubCommand2_Click（）
List1.RemoveItemList1.ListIndex
List2.RemoveItemList2.ListIndex
List3.RemoveItemList3.ListIndex
List4.RemoveItemList4.ListIndex
Callsave
EndSub
PrivateSubCommand3_Click（）
IfList1.Text=""Then
MsgBox"请选择修改对象"
Else
Form6.Show
Form6.Text1=List1.Text
Form6.Text2=List3.Text
Form6.Combo1.Text=List2.Text
List1.RemoveItemList1.ListIndex
List2.RemoveItemList2.ListIndex
List3.RemoveItemList3.ListIndex
List4.RemoveItemList4.ListIndex
EndIf
EndSub
PrivateSubCommand4_Click（）
Form3.Show
UnloadMe
EndSub
PrivateSubForm_Load（）
i=0
OpenApp.Path+"\mag.dat"ForRandomAs#1
DoWhileNotEOF
（1）
i=i+1
Get#1,i,pers
List1.AddItempers.bh,i-1
List2.AddItempers.xb,i-1
List3.AddItempers.xm,i-1
List4.AddItempers.mm,i-1
Loop
Close
EndSub
PrivateSubList1_Click（）
List2.ListIndex=List1.ListIndex
List3.ListIndex=List1.ListIndex
List4.ListIndex=List1.ListIndex
EndSub
PrivateSubList2_Click（）
List1.ListIndex=List2.ListIndex
List3.ListIndex=List2.ListIndex
List4.ListIndex=List2.ListIndex
EndSub
PrivateSubList3_Click（）
List1.ListIndex=List3.ListIndex
List2.ListIndex=List3.ListIndex
List4.ListIndex=List3.ListIndex
EndSub
PrivateSubList4_Click（）
List1.ListIndex=List4.ListIndex
List2.ListIndex=List4.ListIndex
List3.ListIndex=List4.ListIndex
EndSub
（5）Form5：
DimpersAsmanager
PrivateSubCommand1_Click（）
IfText1=""OrText2=""OrText3=""OrCombo1.Text=""Then
MsgBox"请输入完整的信息"
Text1.SetFocus
ExitSub
EndIf
IfText1<>""AndText2<>""AndText3<>""AndCombo1.Text<>""Then
Form4.List1.AddItemText1
Form4.List2.AddItemCombo1.Text
Form4.List3.AddItemText2
Form4.List4.AddItemText3
Callsave
EndIf
Form4.Show
UnloadMe
EndSub
PrivateSubCommand2_Click（）
Form4.Show
UnloadMe
EndSub
PrivateSubForm_Load（）
Text3=""
EndSub
（6）Form6：
PrivateSubCommand1_Click（）
Form4.List1.AddItemText1,0
Form4.List2.AddItemCombo1.Text,0
Form4.List3.AddItemText2,0
Form4.List4.AddItemText4,0
Callsave
Form3.Show
UnloadMe
EndSub
PrivateSubForm_Load（）
EndSub
（7）Form7:
PrivateSubCommand1_Click（）
Form12.List1（0）.AddItemText1,0
Form12.List1
（1）.AddItemText2,0
Form12.List1
（2）.AddItemText3,0
Form12.List1（3）.AddItemText4,0
Form12.List1（4）.AddItemText5,0
Form12.List1（5）.AddItemText6,0
Form3.Show
UnloadMe
EndSub
PrivateSubCommand2_Click（）
Form3.List1（0）.AddItemText1,0
Form3.List1
（1）.AddItemText2,0
Form3.List1
（2）.AddItemText3,0
Form3.List1（3）.AddItemText4,0
Form3.List1（4）.AddItemText5,0
Form3.List1（5）.AddItemText6,0
Callsave2
Form3.Show
UnloadMe
EndSub
PrivateSubForm_Load（）
EndSub
（8）Form8:
PrivateSubCommand1_Click（）
IfCombo1（0）.Text<>""AndCombo1
（1）.Text<>""AndCombo1
（2）.Text<>""AndCombo1（3）.Text<>""AndCombo1（4）.Text<>""AndText1<>""Then
Form12.List1（0）.AddItemCombo1（0）.Text
Form12.List1
（1）.AddItemCombo1
（1）.Text
Form12.List1
（2）.AddItemCombo1
（2）.Text
Form12.List1（3）.AddItemCombo1（3）.Text
Form12.List1（4）.AddItemCombo1（4）.Text
Form12.List1（5）.AddItemText1
Form3.Show
UnloadMe
Else
MsgBox"请写入完整的信息！
"
EndIf
EndSub
PrivateSubCommand2_Click（）
Form3.Show
UnloadMe
EndSub
PrivateSubForm_Load（）
EndSub
（9）Form9:
PrivateSubText2_Change（）
EndSub
PrivateSubText1_Change（）
EndSub
PrivateSubTimer1_Timer（）
Text2=Time
EndSub
（10）Form10:
Dimq
PrivateSubCommand1_Click（）
StaticqAsInteger
Ifq=-1Thenq=List2.ListCount-1
p=Val（List2.List（q））
Callxishi（p）
q=q-1
EndSub
PrivateSubCommand2_Click（）
StaticqAsInteger
Ifq>List2.ListCount-1Thenq=0
p=Val（List2.List（q））
Callxishi（p）
q=q+1
Command1.Enabled=True
EndSub
PrivateSubCommand3_Click（）
Form3.Show
UnloadMe
EndSub
PrivateSubCommand4_Click（）
p=Val（List2.List（0））
Callxishi（p）
EndSub
PrivateSubCommand5_Click（）
p=Val（List2.List（List2.ListCount-1））
Callxishi（p）
EndSub
PrivateSubForm_Load（）
EndSub
PrivateSubText3_Change（）
List2.Clear
Fori=0ToForm12.List1（0）.ListCount-1
IfText3<>""AndText4=""Then
IfTrim（Text3）=Trim（Form12.List1（0）.List（i））Then
List2.AddItemi
EndIf
EndIf
IfText3<>""AndText4<>""Then
IfTrim（Form12.List1（0）.List（i））=Trim（Text3）AndTrim（Form12.List1
（1）.List（i））=Trim（Text4）Then
List2.AddItemi
EndIf
EndIf
Nexti
IfList2.ListCount>0Then
List2.ListIndex=0
p=Val（List2.Text）
Callxishi（p）
Else
Text5（0）=""
Text5
（1）=""
Text5
（2）=""
Text5（3）=""
Text5（4）=""
Text5（5）=""
EndIf
IfList2.ListCount>1ThenCommand2.Enabled=True
EndSub
PrivateSubText4_Change（）
List2.Clear
Fori=0ToForm12.List1（0）.ListCount-1
IfText4<>""AndText3=""Then
IfTrim（Text4）=Trim（Form12.List1
（1）.List（i））Then
List2.AddItemi
EndIf
EndIf
IfText3<>""AndText4<>""Then
IfTrim（Form12.List1（0）.List（i））=Trim（Text3）AndTrim（Form12.List1
（1）.List（i））=Trim（Text4）Then
List2.AddItemi
EndIf
EndIf
Nexti
IfList2.ListCount>0Then
List2.ListIndex=0
p=Val（List2.Text）
Call
升级会员 