mac版Navicat如何设置重新打开后保持上次选项卡,在使用Navicat客户端时，我们可以设置重新打开客户端，保持上次打开的选项卡的，这个功能在哪里设置？我们来看一下。......
制作员工电话查询数据库2
来源：互联网
2023-03-16 23:56:36 版权归原作者所有，如有侵权，请联系我们
这是接上文的第二部分，这里将建立两个窗体，就是管理员登陆窗体，管理员编辑操作数据库窗体。
工具/原料
- 电脑，EXCEL2010软件
方法/步骤
接着上文的内容。在EXCEL中，按下ALT F11键，弹出VBA窗口，在左边栏里，“窗体”上点右键，连续建立两个新的窗体。名称分别为“UserForm2"管理员入口，”UserForm3"管理员操作窗口。从图中我们看到了窗体有了三个。
在左边栏双击“UserForm2",弹出管理员入口窗口，事先要在左边属性栏里修改”Caption"名称，方便管理。
在窗体上添加两个标签A，分别为“用户名：”和“密码：“。添加两个文本框abl，分别为”textbox1"和“textbox2"。分别用于输入管理员用户名和密码。下方设置两个命令按钮CommandButton1和CommandButton2，名称分别为”确定“，”取消“。如下图所示：
下面对窗体2中的两个命令控件进行命令编辑。在”确定“命令按钮上点右键，在弹出的菜单中选择”查看代码“，并完整输入下面内容：
Private Sub CommandButton1_Click()
If TextBox1.Text > "秋叶4168" Then '判断用户名是否正确
MsgBox "用户登录名错误，您无权登录!" '不正确给出提示
With TextBox1
.SelStart = 0 '设置选择文字的开始字符
.SelLength = Len(TextBox1.Text) '设置选择文本的长度
.SetFocus '文本框获得焦点
End With
ElseIf TextBox2.Text > "mgy208320" Then '如果密码错误
MsgBox "密码输入错误，请重新输入!" '给出提示
With TextBox2
.SelStart = 0 '设置选择文本的开始字符
.SelLength = Len(TextBox2.Text) '设置选择文本的长度
.SetFocus '获得焦点
End With
Else
MsgBox "登录成功，欢迎你的到来!" '登录成功提示
Unload Me ' 卸载窗体
UserForm3.Show
Application.Visible = True
End If
End Sub
//这里用户名为”秋叶4168“。密码为”mgy208320"。读者可以自行修改。如下图：
同样方法，在“取消”命令按钮中点右键，在弹出的菜单里选择“查看代码”，并输入下面内容。
Private Sub CommandButton2_Click()
Unload Me '卸载窗体
ThisWorkbook.Close '关闭工作簿
End Sub
第二个窗体内容就设计完成。下一篇我们将设计第三个窗体，管理员管理数据窗体的内容。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
相关文章
- 详细阅读
-
SQL Server 2005数据库恢复图文教程详细阅读
SQL Server 2005数据库恢复图文教程,相信很多的站长网站的时候需要用到SQLServer2005数据库，但是碰到一些问题没有办法恢复，本人专业学习的.et。平时也经常用到，希望能给大家带来......
2023-03-17 513 数据库
-
如何安装SQL Server 2008数据库（带完整图解）详细阅读
如何安装SQL Server 2008数据库（带完整图解）,在电脑上安装SQLServer2008软件时，经常会遇到各种各样的问题，如何成功的安装SQLServer2008呢？提供完整过程和图片详解。......
2023-03-17 532 数据库