[原创]仿正规软件的权限设置及密码登陆的例子

wuyong_918 · 发表于 2004-10-25 14:55

不错，太好了。

ruanyb0721 · 发表于 2004-10-28 11:33

请教各位：以下是用户验证的一段代码，我不太懂代码的意思，能麻烦高手在每一段代码后做个说明，谢谢了！

Private Sub userform_Initialize() Label1 = Date$ Label3 = Time$ End Sub

Private Sub TextBox1_DblClick(ByVal cancel As MSForms.ReturnBoolean) Dim DA1, DA, WW DA1 = Date$ DA = Application.Substitute(DA1, "-", "") If TextBox1.Value = DA Then Set WW = CommandBars("standard").Controls.Add(Type:=msoControlButton) With WW .FaceId = 200 .OnAction = "报表1" .Caption = "报表2" .Style = msoButtonIconAndCaption End With Unload 用户 End If Unload 用户 End Sub

[em08]

yg877 · 发表于 2004-10-28 17:51

学习，再学习。继续努力，中国比日本一定会强多了的。

ruanyb0721 · 发表于 2004-10-29 10:16

我顶，没人能帮我吗？

[em08]

linux1234 · 发表于 2004-10-29 13:39

实在是好

slb_0831 · 发表于 2004-10-29 15:48

真是不错,可我不知道怎么用,实在是太菜了,我想从基础学,不知道应看什么书,最好网上能下载

兰色幻想 · 发表于 2004-10-29 15:54

以下是引用ruanyb0721在2004-10-29 10:16:00的发言：

我顶，没人能帮我吗？

[em08]

只是代码，看不太明白，把文件也传上来

ruanyb0721 · 发表于 2004-10-30 09:14

以下是引用兰色幻想在2004-10-29 15:54:00的发言：

只是代码，看不太明白，把文件也传上来

aXvWdE3o.rar (27.52 KB, 下载次数: 329)

ruanyb0721 · 发表于 2004-10-30 20:02

请教兰色幻想版主。文件已上传。

[em08]

兰色幻想 · 发表于 2004-10-30 20:27

Private Sub TextBox1_DblClick(ByVal cancel As MSForms.ReturnBoolean) Dim DA1, DA, WW '定义变量DA1,DA,DA DA1 = Date$ 'DA1的值为当前日期 DA = Application.Substitute(DA1, "-", "") 'DA的值为DA1替换"-"后的字符 If TextBox1.Value = DA Then '如果文本框中的值为DA Set WW = CommandBars("standard").Controls.Add(Type:=msoControlButton) 'WW为新增加的常用工具栏的按纽 With WW .FaceId = 200 ' 按纽的图标为"200"代表的图标 .OnAction = "报表1" '指定宏为报表1 .Caption = "报表2" '表面标题为报表2 .Style = msoButtonIconAndCaption '类型为图标和文字共存 End With Unload 用户验证 '关闭窗体 End If Unload 用户验证 End Sub

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