一个完整的登陆系统DLL封装问题

yl1991 · 发表于 2011-8-3 13:44

原帖由 zhj1978 于 2011-8-3 13:22 发表
请楼上公布完整代码

16楼+17楼＝完整代码

zhj1978 · 发表于 2011-8-3 16:42

原帖由 yl1991 于 2011-8-3 13:44 发表

16楼+17楼＝完整代码

看的有点晕，请公布一下吧，谢谢

yl1991 · 发表于 2011-8-5 10:59

原帖由 zhj1978 于 2011-8-3 16:42 发表

看的有点晕，请公布一下吧，谢谢

看的有点晕，请公布一下吧

yl1991 · 发表于 2011-8-6 22:39

原帖由 zhj1978 于 2011-8-5 12:59 发表
应该是excel表“登录”打开之前就出现窗体，你的是在excel打开后才出现窗体，需要改善

已经有隐藏工作表的程序了，启动时还是有工作表短暂闪动，好象是EXCEL的通病！
不过我用强制启动宏的方法后这一现象没了，哈哈。。。

zhj1978 · 发表于 2011-8-7 13:07

原帖由 yl1991 于 2011-8-6 22:39 发表

已经有隐藏工作表的程序了，启动时还是有工作表短暂闪动，好象是EXCEL的通病！
不过我用强制启动宏的方法后这一现象没了，哈哈。。。

有隐藏工作表的程序，请公布一下代码

yl1991 · 发表于 2011-8-8 20:15

原帖由 灰袍法师 于 2011-8-2 02:11 发表
你的UserForm4里面的退出代码是

Unload UserForm2 '登陆窗体关闭

应该改为 Unload UserForm4吧？？？

而且后面的语句也不对

整段改为如下即可
Private Sub CommandButton2_Click() '退出按纽

Un ...

那天测试不完整，今天又发现个问题，用户在输入三次错误密码退出报错！请再看看，谢谢！

灰袍法师 · 发表于 2011-8-9 02:37

原帖由 yl1991 于 2011-8-8 20:15 发表
那天测试不完整，今天又发现个问题，用户在输入三次错误密码退出报错！请再看看，谢谢！

UserForm4的这一段代码不对，因为你先 Unload UserForm4，所以所有在UserForm4里面声明的变量全部消失，包括 XLapp！

因此接着的所有 XLapp.xxxxxx 就会出现没有对象的错误。

你应该单独在一个模块里面声明 public 变量，而不是在窗体模块里面声明。

If XLapp.ActiveWorkbook.Sheets("YFGL").Range("C2").Value = 3 Then '如果是第3次登陆
MsgBox "密码不正确,无权进入系统!", 64, "提示" '提示退出
      Unload UserForm4 '登陆窗体关闭
         If XLapp.Workbooks.Count > 1 Then '如果打开的不止一个工作簿
                  XLapp.ThisWorkbook.Close '关闭当前工作簿
            Else '如果只有一个工作簿
         XLapp.Application.Quit '退出EXCEL
      End If
End If
End If

改为
If XLapp.ActiveWorkbook.Sheets("YFGL").Range("C2").Value = 3 Then '如果是第3次登陆
MsgBox "密码不正确,无权进入系统!", 64, "提示" '提示退出
         If XLapp.Workbooks.Count > 1 Then '如果打开的不止一个工作簿
                  XLapp.ThisWorkbook.Close '关闭当前工作簿
            Else '如果只有一个工作簿
         XLapp.Application.Quit '退出EXCEL
      End If
      Unload UserForm4 '登陆窗体关闭
End If

End If

[ 本帖最后由灰袍法师于 2011-8-10 20:09 编辑 ]

yl1991 · 发表于 2011-8-10 18:04

[quote]原帖由 灰袍法师 于 2011-8-9 02:37 发表

UserForm4的这一段代码不对，因为你先 Unload UserForm4，所以所有在UserForm4里面声明的变量全部消失，包括 XLapp！

因此接着的所有 XLapp.xxxxxx 就会出现没有对象的错误。

你应该单独在一个模块里面声明 ... [

不行呀，输错一次就退出了。
不过经你提示，我改成以下就可以了，开始我没注意这个Unload UserForm4（要去掉这句）
If XLapp.ActiveWorkbook.Sheets("YFGL").Range("C2").Value = 3 Then '如果是第3次登陆
MsgBox "密码不正确,无权进入系统!", 64, "提示" '提示退出
         If XLapp.Workbooks.Count > 1 Then '如果打开的不止一个工作簿
                  XLapp.ThisWorkbook.Close '关闭当前工作簿
            Else '如果只有一个工作簿
         XLapp.Application.Quit '退出EXCEL
      End If
End If
End If

另外
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False '关闭excel不提示
Application.Quit '关闭exce
End Sub
就完整了，谢谢灰袍法师！

yl1991 · 发表于 2011-8-16 20:24

本帖最后由 yl1991 于 2011-8-16 20:28 编辑

又遇到问题了，这两天封装一个题库管理，大部分都做了，还剩下部分，灰袍法师、 excel333有空给研究下吧，大家有兴趣也研究下，谢谢！

monkeylzx · 发表于 2012-5-2 21:04

感谢分享经验，初学中

		自动登录	找回密码
密码			免费注册

[已解决] 一个完整的登陆系统DLL封装问题