VB个人登入档案设计Word文档格式.docx
- 文档编号:7719387
- 上传时间:2023-05-09
- 格式:DOCX
- 页数:20
- 大小:1.28MB
VB个人登入档案设计Word文档格式.docx
《VB个人登入档案设计Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB个人登入档案设计Word文档格式.docx(20页珍藏版)》请在冰点文库上搜索。
EndSub
PrivateSub个人档案_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
MessageBox.Show("
世界因你而精彩!
欢迎您进入个人档案系统!
)
Timer1.Start()
yz()
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dima,bAsString
Dimc,d,i,aa,ccAsInteger
a=TextBox1.Text
b=TextBox4.Text
c=Val(TextBox3.Text)
d=Val(TextBox2.Text)
cc=0
Fori=0Ton-1
Ifa<
>
b1(i)Then
ContinueFor
Else
aa=i
cc=1
EndIf
Ifcc<
1Then
MsgBox("
您输入的用户名不存在!
请重新输入!
Label6.Text="
ElseIfb<
b2(aa)Then
您输入的密码有误,请重新输入!
ElseIfc<
dThen
您输入的验证码有误,请重新输入!
欢迎您进入档案系统!
Me.Text=a&
--个人档案系统"
亲,"
&
b1(aa)
a6=b1(aa)
a7=aa
TextBox4.Text="
TextBox1.Text="
TextBox3.Text="
Label8.Text="
qq=aa
Form2.Show()
Form2.Label16.Text="
欢迎会员:
a2
Form2.TextBox1.Text=c1(qq)
Form2.ComboBox1.Text=c2(qq)
Form2.ComboBox2.Text=c3(qq)
Form2.TextBox2.Text=c4(qq)
Form2.MaskedTextBox1.Text=c5(qq)
Form2.MaskedTextBox2.Text=c6(qq)
Form2.MaskedTextBox3.Text=c7(qq)
Form2.MaskedTextBox4.Text=c8(qq)
Form2.RichTextBox1.Text=c9(qq)
Form2.RichTextBox2.Text=c10(qq)
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Dimi,aa,ccAsInteger
aa=0
Fori=0To2
SelectCasei
Case0
a2=InputBox("
请输入您的用户名!
(限10位字符以内)"
Case1
a3=InputBox("
请输入您设置的6位密码:
Case2
a4=InputBox("
请再输入一次您的6位数密码:
EndSelect
Ifa2<
Ifa2="
Then
你输入的用户名有误!
请重新注册!
ElseIfLen(a2)>
10Then
您输入的用户名超长!
请重新注册"
ElseIfcc=1Then
您输入的用户名已存在,请重新输入!
ElseIfa3="
您输入的密码有误!
ElseIfLen(a3)<
6Then
您输入的密码位数有误,请重新注册!
ElseIfa4<
a3Then
您输入的两次密码不一致!
注册成功!
请妥善保管好您的密码及账户!
vbNewLine&
您的用户名:
a2&
密码是:
a3&
是否直接进入登入状态!
!
TextBox1.Text=a2
b1(n)=a2
b2(n)=a3
n+=1
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
是否确认退出?
End
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
a=0
b=0
Fori=0To1
Ifi=0Then
a=InputBox("
请输入您要注销的账户或用户名:
b=InputBox("
请输入账户密码:
b1(i)And(Mid(Label6.Text,3,Len(Label6.Text)))<
您输入的账户不存在,请重新注销!
您输入的密码错误,无法注销账户,请重新输入"
b1(aa)="
b2(i)="
注销成功!
--感谢您的使用!
PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
DimaAsString
a=a6
Ifcc=1Then
b3(aa)=InputBox("
请输入您要设置的密保问题:
(20个字符以内)"
IfLen(b3(aa))>
20Orb3(aa)="
您输入的密保问题超长或为空,请重新输入:
b3(aa)="
b4(aa)=InputBox("
请输入您的密保答案:
IfLen(b4(aa))>
20Orb4(aa)="
您输入的密保答案超长或者为空,请重新输入:
b4(aa)="
密保问题:
b3(aa)&
密保答案:
b4(aa)
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
Dima,b,c,dAsString
请输入你要更改密码的帐号或用户名:
您输入的用户不存在,请核对后查询!
密保问题是:
b3(a7)&
答案是:
Ifb<
b4(a7)Then
您输入的密保答案有误,请重新输入!
Ifb="
密保答案不能为空!
请先到账户安全设置专区设置密保问题!
c=InputBox("
密保验证正确!
请输入您的新密码:
(6位字符)"
IfLen(c)<
密码输入有误,请重新输入!
d=InputBox("
请再次输入您的新密码:
Ifc<
两次密码输入不一致,请重新输入!
b2(a7)=c
密码更改成功!
b1(a7)&
b2(a7)&
请妥善保管好您的密码!
PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.Click
Dimi,h,c1AsInteger
Dima,b,c,d,e1,f,g,c2,c3,c4,c5,c6AsString
c6=0
c5=0
c1=0
是否进入vip管理!
'
是'
请直接回车(或确认)"
进入vip会员注册请按任意字符!
请输入该系统的设计者姓名!
刘声武"
请输入您要注册的用户名:
IfLen(c)>
20Then
您输入的用户名超长,请重新输入!
请输入您要注册的6位字符密码:
IfLen(d)<
e1=InputBox("
请再次输入您设置的密码:
Ifd<
e1Then
您两次输入的密码不相符,请重新输入!
恭喜您,vip会员注册成功!
c&
密码:
d&
请保管好您的账户和密码,以免造成不必要的安全事故!
f="
vip"
c
b1(n)=f
b2(n)=d
TextBox1.Text=c
您输入的设计者姓名错误,不能注册vip会员,请联系设计者!
g="
TextBox1.Text
Fori=0Ton
Ifg<
h=i
c1=1
Ifc1<
您输入的账户不存在,请重新输入!
c2=TextBox4.Text
Ifc2<
b2(h)Then
c3=Val(TextBox3.Text)
c4=Val(TextBox2.Text)
Ifc3<
c4Then
输入的验证码有误,请重新输入!
欢迎:
vip会员"
Mid(b1(h),4,Len(b1(h)))&
进入系统"
Me.Text=b1(h)&
c5=InputBox("
是否进入查看普通会员账户信息:
是-请直接回车"
否--请输入任意字符"
Ifc5="
c6="
c6=c6&
Mid(b1(i)&
1,20)&
Mid(b2(i)&
_
Mid(b3(i)&
1,30)&
Mid(b4(i)&
vbNewLine
系统会员账户资料(带vip字样为管理员)"
用户名密码密保问题答案"
c6)
EndIf
b1(h)
Form3.Show()
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Label9.Text=vbNewLine&
Now
EndClass
2--form2事件程序:
PublicClassForm2
DimaaAsInteger=1
Dima1,a2AsInteger
Dimb1AsString
Dimc0(200),c1(200),c2(200),c3(200),c4(200),c5(200),c6(200),c7(200),c8(200),c9(200),c10(200)AsString
Label17.Text=vbNewLine&
PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Dimi,jAsInteger
PictureBox2.Image=Image.FromFile("
F:
\编辑区\VB,NET\vb作业\04刘声武\材料\头像素材\"
2&
.jpg"
Try
c1(qq)=CStr(TextBox1.Text)
c2(qq)=CStr(ComboBox1.Text)
c3(qq)=CStr(ComboBox2.Text)
c4(qq)=CStr(TextBox2.Text)
c5(qq)=CStr(MaskedTextBox1.Text)
c6(qq)=CStr(MaskedTextBox2.Text)
c7(qq)=CStr(MaskedTextBox3.Text)
c8(qq)=CStr(MaskedTextBox4.Text)
c9(qq)=CStr(RichTextBox1.Text)
c10(qq)=CStr(RichTextBox2.Text)
保存成功!
CatchexAsException
保存失败,请重新保存!
EndTry
PrivateSubButton3_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Me.Close()
3--form3事件程序:
PublicClassForm3
DimcountAsInteger=1
PrivateSubForm3_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Dima1AsString
a1="
Ifi+1<
0"
Mid((i+1)&
1,25)&
a1=Mid((i+1)&
ListBox1.Items.Add(a1)
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 个人 档案 设计