vb语言Word下载.docx
- 文档编号:18365847
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:19
- 大小:16.56KB
vb语言Word下载.docx
《vb语言Word下载.docx》由会员分享,可在线阅读,更多相关《vb语言Word下载.docx(19页珍藏版)》请在冰豆网上搜索。
,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
Form6.Combo1.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
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
IfTrim(Form12.List1
(1).List(i))=Trim(Text2)Then
(11)Form11:
Dimcars
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 语言