小白级别看不懂哪里错了，求大神修改一下，谢谢

秦玉玺

Sub login()
'===用户登陆===
On Error GoTo doerror
    sname = UserForm1.TextBox1.Text
    spass = UserForm1.TextBox2.Text
    If sname = "" And spass <> "" Then
       MsgBox ("请输入用户名")
       UserForm1.TextBox1.Text = ""
       UserForm1.TextBox2.Text = ""
       UserForm1.TextBox1.SetFocus
    ElseIf spass = "" And sname <> "" Then
      MsgBox ("请输入密码")
      UserForm1.TextBox2.Text = ""
      UserForm1.TextBox2.SetFocus
    ElseIf sname = "" And sname = "" Then
      MsgBox ("请输入用户名和密码")
      UserForm1.TextBox1.Text = ""
      UserForm1.TextBox2.Text = ""
      GoTo jixu
doerror:
  '查找出错时,说明无效用户
       MsgBox "无此用户，请查实！", vbOKOnly, "系统提示"
       UserForm1.TextBox1.Text = ""
       UserForm1.TextBox2.Text = ""
       UserForm1.TextBox1.SetFocus

活在理想的世界

你怎么这么玩儿的？登录界面为什么要用MSGBOX 来填写用户名和密码？这简直非主流。

活在理想的世界

登录最好的解决方案是Access+Excel来实现的。
用户名来做Access的主键，密码是另一个字段。
数据验证是用SQL+ADODB.Recordset对象来实现的。
窗体有标签，文本框，按钮就可以了。
当然还需要有注册，注销，登录等功能。

你这个完全不对。

zjdh

活在理想的世界 发表于 2018-6-24 09:59
你怎么这么玩儿的？登录界面为什么要用MSGBOX 来填写用户名和密码？这简直非主流。

哈！你没仔细看。他这是用的用户窗体登录，MSGBOX用来提示的。

zjdh

粗略看了一下，似乎没有问题但不完整，你得将你的附件上传，可以直接查出问题。

zjdh

活在理想的世界 发表于 2018-6-24 10:03
登录最好的解决方案是Access+Excel来实现的。
用户名来做Access的主键，密码是另一个字段。
数据验证是用 ...

建议将你的登录系统提供分享。

活在理想的世界

zjdh 发表于 2018-6-24 10:28
建议将你的登录系统提供分享。

登录只是一个局部程序，都是固定套路，这东西谈不上分享。
说白了就是ADODB.Recordset对象RecordCount属性等于1就是注册用户，等于0就是未注册用户或者用户名&密码有误。
注册用户就让登录否则就不让登录。

至于让登录就是现实Excel主程序，隐藏窗体
不让登录就是继续隐藏Excel主程序。

注册就是INSERT INTO 语句而已。只不过插入前先SELECT 一下原数据，看看是不是用户名重复。

用用户名作为Access主键本身也有一个好处，好处就是主键是不重复的。

就是如此。

秦玉玺

活在理想的世界 发表于 2018-6-24 10:03
登录最好的解决方案是Access+Excel来实现的。
用户名来做Access的主键，密码是另一个字段。
数据验证是用 ...

大神可以分享一下登录系统吗？

zjdh

http://club.excelhome.net/forum.php?mod=viewthread&tid=249041