[已解决]对应值登录

fjmxwrs

如A列为用户名，B列为密码，如何在用户窗体中的登录框中设置对应关系？谢谢

最佳答案

月排行榜 / 总排行榜

溦兰

2010-2-27 23:35

简化点,大致是这样

Private Sub CommandButton1_Click()
   Dim name, pw, n As String
   
   name = ComboBox1.Value
   pw = TextBox1.Value
  
   If name = "" Or pw = "" Then
      MsgBox "用户名或密码不能为空!请输入"
     
   Else
      n = Sheets("用户资料库").Range("C65536").End(xlUp).Row
      n = Sheets("用户资料库").Range("-----" & n).Find(name, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
     
      If Sheets("用户资料库").Cells(n, 4) = name And Sheets("用户资料库").Cells(n, 5) = pw Then
         -------
       -------
      Else
         MsgBox "信息不对,请重新输入"
      End If
 End If
end sub

跳转到最佳答案楼层

溦兰

按下用户按钮时,检测输入的用户名为密码是否和资料表上的用户名为密码一致?,如果是,能进入,不对提示重新输入

fjmxwrs

QUOTE:

以下是引用溦兰在2010-2-27 23:17:00的发言：

按下用户按钮时,检测输入的用户名为密码是否和资料表上的用户名为密码一致?,如果是,能进入,不对提示重新输入

是这个意思，可以如何实现呀？

溦兰

Private Sub CommandButton1_Click()
   Dim name, str, n As String
   Dim pw As String   
   name = ComboBox1.Value
   pw = TextBox1.Value
  
   If name = "" Or pw = "" Then
      MsgBox "用户名或密码不能为空!请输入", 64
     
   Else
      n = Sheets("用户资料库").Range("C65536").End(xlUp).Row
      n = Sheets("用户资料库").Range("----").Find(name, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
      str = Sheets("用户资料库").Cells(n, 4)
     
      If Sheets("用户资料库").Cells(n, 4) = name And Sheets("用户资料库").Cells(n, 5) = pw Then
         -------
       -------
      Else
         MsgBox "信息不对,请重新输入"
      End If
 End If
end sub

溦兰

简化点,大致是这样

Private Sub CommandButton1_Click()
   Dim name, pw, n As String
   
   name = ComboBox1.Value
   pw = TextBox1.Value
  
   If name = "" Or pw = "" Then
      MsgBox "用户名或密码不能为空!请输入"
     
   Else
      n = Sheets("用户资料库").Range("C65536").End(xlUp).Row
      n = Sheets("用户资料库").Range("-----" & n).Find(name, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
     
      If Sheets("用户资料库").Cells(n, 4) = name And Sheets("用户资料库").Cells(n, 5) = pw Then
         -------
       -------
      Else
         MsgBox "信息不对,请重新输入"
      End If
 End If
end sub

fjmxwrs

 n = Sheets("用户资料库").Range("-----" & n).Find(name, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row

到这里出错了，

溦兰

 n = Sheets("用户资料库").Range("-----" & n)这里是要你写入你自己选的区域呀,我不知道你的区域在那,所以就用----来代替

fjmxwrs

用户资料工作表中的A列为用户名，B列为密码，要怎么写呢？

fjmxwrs

Private Sub CommandButton1_Click()
   Dim name, str, n As String
   Dim pw As String
   name = TextBox1.Value
   pw = TextBox2.Value
  
   If name = "" Or pw = "" Then
      MsgBox "用户名或密码不能为空!请输入", 64
     
   Else
      n = Sheets("用户").Range("A65536").End(xlUp).Row
      n = Sheets("用户").Range("A：B").Find(name, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
      str = Sheets("用户").Cells(n, 1)
     
      If Sheets("用户").Cells(n, 1) = name And Sheets("用户").Cells(n, 2) = pw Then
       MsgBox "登录成功！"

Unload UserForm1
Application.Visible = True
      Else
         MsgBox "信息不对,请重新输入"
      End If
 End If
End Sub

这样对吗？

msyangyi

都是高手