vb语言.docx
《vb语言.docx》由会员分享，可在线阅读，更多相关《vb语言.docx（19页珍藏版）》请在冰豆网上搜索。
vb语言
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）
Callxishi（p）
Else
Text5（0）=""
Text5
（1）=""
Text5
（2）=""
Text5（3）=""
Text5（4）=""
Text5（5）=""
EndIf
IfList2.ListCount>1ThenCommand2.Enabled=True
EndSub
PrivateSubText1_Change（）
List1.Clear
List1.AddItem"配件"&""&""&"零件型号"&""&""&"适用车型"&""&""&""&""&"发布日期"&""&""&""&"单位"&""&""&""&""&""&"价格"
Fori=0ToForm12.List1（0）.ListCount-1
IfText1<>""AndText2=""Then
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）
EndIf
EndIf
IfText1<>""AndText2<>""Then
IfTrim（Form12.List1（0）.List（i））=Trim（Text1）AndTrim（Form12.List1
（1）.List（i））=Trim（Text2）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）
EndIf
EndIf
Nexti
EndSub
PrivateSubText2_Change（）
List1.Clear
List1.AddItem"配件"&""&""&"零件型号"&""&""&"适用车型"&""&""&""&""&"发布日期"&""&""&""&"单位"&""&""&""&""&""&"价格"
Fori=0ToForm12.List1（0）.ListCount-1
IfText1=""AndText2<>""Then
IfTrim（Form12.List1
（1）.List（i））=Trim（Text2）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）
EndIf
EndIf
IfText1<>""AndText2<>""Then
IfTrim（Form12.List1（0）.List（i））=Trim（Text1）AndTrim（Form12.List1
（1）.List（i））=Trim（Text2）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）
EndIf
EndIf
Nexti
EndSub
（11）Form11：
Dimcars
升级会员 