vb语言.docx
- 文档编号:5384011
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:19
- 大小:16.56KB
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)
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 语言