汽车零部件查询系统设计Word格式.docx
- 文档编号:17038244
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:28
- 大小:2.83MB
汽车零部件查询系统设计Word格式.docx
《汽车零部件查询系统设计Word格式.docx》由会员分享,可在线阅读,更多相关《汽车零部件查询系统设计Word格式.docx(28页珍藏版)》请在冰豆网上搜索。
结论………………………………………………………………………………………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)
PrivateSubImage1_Click()
〔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
重试次数已到,立即退出本系统!
vbOKOnly+vbExclamation,"
End
ExitSub
PrivateSubCommand2_Click()
〔3〕Form3:
DimcarsAsqiche
Dima(5)
PrivateSubbz_Click()
Form9.Show
PrivateSubCommand1_Click()
Fori=0To4
IfCombo1(i).Text="
Then
Forj=0ToForm12.List1(i).ListCount-1
List3(i).AddItemForm12.List1(i).List(j)
Nextj
t=i
Callhunt(t)
Nexti
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
List2.Visible=True
PrivateSubForm_Load()
Frame1.Visible=False
List2.Visible=False
PrivateSubglsj_Click()
Form4.Show
PrivateSubbk_Click()
Form10.Show
Form10.Frame1.Visible=True
PrivateSubkp_Click()
Form10.Frame2.Visible=True
PrivateSubljgl_Click()
Form12.Show
PrivateSubss_Click()
'
Frame1.Visible=True
List2.Visible=NotList2.Visible
List2.Clear
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"
PrivateSubtc_Click()
(4)Form4:
DimpersAsmanager
Form5.Show
List1.RemoveItemList1.ListIndex
List2.RemoveItemList2.ListIndex
List3.RemoveItemList3.ListIndex
List4.RemoveItemList4.ListIndex
Callsave
PrivateSubCommand3_Click()
IfList1.Text="
请选择修改对象"
Form6.Show
Form6.Text1=List1.Text
Form6.Text2=List3.Text
Form6bo1.Text=List2.Text
PrivateSubCommand4_Click()
i=0
OpenApp.Path+"
\mag.dat"
ForRandomAs#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
PrivateSubList1_Click()
List2.ListIndex=List1.ListIndex
List3.ListIndex=List1.ListIndex
List4.ListIndex=List1.ListIndex
PrivateSubList2_Click()
List1.ListIndex=List2.ListIndex
List3.ListIndex=List2.ListIndex
List4.ListIndex=List2.ListIndex
PrivateSubList3_Click()
List1.ListIndex=List3.ListIndex
List2.ListIndex=List3.ListIndex
List4.ListIndex=List3.ListIndex
PrivateSubList4_Click()
List1.ListIndex=List4.ListIndex
List2.ListIndex=List4.ListIndex
List3.ListIndex=List4.ListIndex
(5)Form5:
IfText1="
OrText2="
OrText3="
OrCombo1.Text="
请输入完整的信息"
Text1.SetFocus
AndText3<
AndCombo1.Text<
Form4.List1.AddItemText1
Form4.List2.AddItemCombo1.Text
Form4.List3.AddItemText2
Form4.List4.AddItemText3
Text3="
(6)Form6:
Form4.List1.AddItemText1,0
Form4.List2.AddItemCombo1.Text,0
Form4.List3.AddItemText2,0
Form4.List4.AddItemText4,0
(7)Form7:
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.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
(8)Form8:
IfCombo1(0).Text<
AndCombo1
(1).Text<
AndCombo1
(2).Text<
AndCombo1(3).Text<
AndCombo1(4).Text<
AndText1<
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
请写入完整的信息!
(9)Form9:
PrivateSubText2_Change()
PrivateSubText1_Change()
PrivateSubTimer1_Timer()
Text2=Time
(10)Form10:
Dimq
StaticqAsInteger
Ifq=-1Thenq=List2.ListCount-1
p=Val(List2.List(q))
Callxishi(p)
q=q-1
Ifq>
List2.ListCount-1Thenq=0
q=q+1
Command1.Enabled=True
p=Val(List2.List(0))
PrivateSubCommand5_Click()
p=Val(List2.List(List2.ListCount-1))
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
PrivateSubText4_Change()
IfText4<
AndText3="
IfTrim(Text4)=Trim(Form12.List1
(1).List(i))Then
p=Val(Li
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 汽车零部件 查询 系统 设计
![提示](https://static.bdocx.com/images/bang_tan.gif)