如何创建口令登录窗体程序？

登录窗体口令创建完毕，还需要为其中的各个控件添加相应功能代码，以实现通过验证密码登录等功能。具体操作步骤如下：

为文本框添加代码，其实现的功能是当文本框为空时，“确定”按钮呈不可用状态；当在文本框中输入密码后，“确定”按钮呈可用状态。双击文本框，在“Microsoft Visual Basic for Application”主窗口输入相应控制代码，如图10-116所示。

代码如下：

需要为口令登录模块添加通用说明，即设置密码。在“Microsoft Visual Basic for Application”主窗口的代码编辑上面第一个下拉列表中选择“（通用）”选项；在第二个下拉列表中选择“（声明）”选项，在代码编辑区输入设置密码的代码，如图10-117所示。

代码如下：

上述代码是通过声明一个常量，把登录密码设置为123。

图10-116 给文本框添加控制代码

图10-117 添加通用声明

给“确定”按钮添加代码。该按钮要实现的功能是当输入正确的密码，单击“确定”按钮，则可成功登录并打开企业人事查询统计管理窗口；当输入密码错误时则提示“口令”无效。双击“确定”按钮，在“Microsoft Visual Basic for Application”主窗口输入相应控制代码，如图10-118所示。

代码如下：

(https://www.daowen.com)

在登录模块中，“取消”按钮作用是当单击该按钮，则系统就会保存并退出。双击“取消”按钮，在“Microsoft Visual Basic for Application”主窗口输入相应控制代码，如图10-119所示。

代码如下：

图10-118 给“确定”命令按钮添加代码

图10-119 给“取消”命令按钮添加代码

为了在打开人事查询统计系统时自动弹出口令登录窗体，则可以给系统添加显示口令登录窗体代码。在“Microsoft Visual Basic for Application”主窗口左列表中双击“ThisWordBook”选项，在代码编辑区输入相应的代码，如图10-120所示。

代码如下：

图10-120 添加自动弹出口令窗体代码