VB写一个登陆筐的问题

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:27:03
首先这个登陆筐是form3
我想当点机这个form3上面的command1.的时候
进入form1
需要加个帐号密码才可进入
请高手帮忙
我问的是如何
让form3.点机command1.
的时候提示需要一个帐号密码才能进去
这里我写admin
当admin密码也是admin
一样的时候才可以进去
另外form3.点机command1如果密码对
登陆form1.
当然我这个当时没想起来写
给个大概步骤
不全面不要 追+30

form3.command1 的click事件中

Private Sub Command1_Click()
If Text1 = "admin" Then
If Text2 = "admin" Then
Form1.Show
Unload Me
Else
MsgBox "密码错误,请重新输入密码!", , "警告"
Text2.SetFocus
End If
Else
MsgBox "用户名错误,请重新输入!", , "警告"
Text1.SetFocus
End If

End Sub

开始时form3设为启动窗体(工程－工程属性－启动对象－form3)
建form1和from3，在from3上编写程序代码：
Private Sub Command1_Click()
dim name as string
dim password as string
name= InputBox("请输入您的帐号", "帐号密码输入框")
password = InputBox("请输入您的密码", "帐号密码输入框")
If trim(name) = "admin" And trim(password) = "admin" Then
Unload Me
Form1.Show
Else
MsgBox "请输入正确的信息"
End If
End Sub

首先把form3设为启动窗体(工程－工程属性－启动对象－form3)
建form1和from3，在from3上编写程序代码：<