[灌水]窗体封装实例

stx1980710

这是一个把窗体封装为DLL文件的实例！

和上一次相比，取消了消息提示；把取得注册码和注册功能进行分离！

只需要修改一下，类模块（是写在DLL文件中的）中相应过程中代码的位置就可以将其移植到自动的系统中，stx.dll文件中的类模块共有三个子过程，其中：LoginSys子过程调用登录界面；RegSys子过程调用注册窗体；UserSys子过程调用用户设置窗体。

该文件有以下功能：

1、必须进行注册，才可以进行试用，否则，只能打开三次，超过三次，文件将自动删除！

2、取消宏，则关闭文件；

3、用户名及密码的数据，是存放在Access数据库中的，增加、删除和修改用户资料，很方便；

      （如果你打算用ACCESS作为后台数据库文件，EXCEL作为操作前台的话，会有用的！）

4、可以直接在登录界面的公司名称文本框中修改公司名称！

所有用户的初始密码都为：123

Access数据库的密码为：2008

每个用户可以修改自已的密码；系统管理员：Admin  具有一切权限，包括

查看、增加、删除和修改其他用户资料，但 Admin 不能被删除！

  fLudVlJj.rar (77.14 KB, 下载次数: 1052)

2007-6-25 14:23 上传

点击文件名下载附件
精美登录界面+程序注册功能(窗体封装实例)

[此贴子已经被作者于2007-6-25 14:38:05编辑过]

yxy博

怎么没看到文件?

stx1980710

注册演示：

在如下界面中：运行RegCode.exe可执行程序！同时点击主程序中的“用户注册“按扭！

然后会出下面两个窗体，按如下动画所示进行注册就可以了！

 

[此贴子已经被作者于2007-6-25 14:33:11编辑过]

xiaoxue3850

好深奥  还是保存了 慢慢消化吧

bai2000

老大，登陆界面在哪里修改啊，原来的全屏的登陆界面挺好的

bai2000

我的excel中有数据的连接，怎么把更新的提示去掉

 ？？

xhjok

楼主如果提供DLL原代码才可学习

yhgqw123

Private Sub Workbook_Open()
Application.Visible = False
  Shell "Regsvr32 /s " & Chr(34) & ThisWorkbook.Path & "\stx.dll" & Chr(34)
  Dim a As New Reg
   a.LoginSys  <----------在此停住 错误提示: run-time error '429'
  Set a = Nothing                                          activex component can't create object
   
End Sub

Herman99

谢谢楼主.

建议楼主提供源码!

stx1980710

QUOTE:

以下是引用yhgqw123在2007-6-26 19:04:51的发言：

Private Sub Workbook_Open()
Application.Visible = False
  Shell "Regsvr32 /s " & Chr(34) & ThisWorkbook.Path & "\stx.dll" & Chr(34)
  Dim a As New Reg
   a.LoginSys  <----------在此停住 错误提示: run-time error '429'
  Set a = Nothing                                          activex component can't create object
   
End Sub

请看一下，下图所示的红色部份的引用是否丢失！