onceqq的博客

Private Sub Command1_Click() If Text1.Text = "1" And Text2.Text = "1" Then Form1.Visible = False Form2.Visible = True Else MsgBox "密码有误或用户不存在，请重试!" Text2.Text = "" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click() End End Sub

Private Sub Command1_Click() If Text1.Text = "admin" And Text2.Text = "admin" Then Form1.Hide Form3.Show Else If Text1.Text = "admin" Then MsgBox ("你输入的密码有误") Text2.Text = "" Text2.SetFocus Else MsgBox ("你输入的帐号不存在") Text1.Text = "" Text1.SetFocus End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() MsgBox ("你只具有浏览的权限，没有更改信息的权力！") Form1.Hide Form2.Show End Sub