网盘应用—Excel数据库开发：[5]雕梁画柱

执行客户端由不同的执行单位使用，通过登录界面确认身份，登录后只能看到本单位的工单。本期完成执行客户端登录界面的设计。

前期准备工作（包括相关工具或所使用的原料等）

Excel/VBA

执行客户端登录界面设计

插入用户窗体：

新建一个Excel文件命名为“远程工单执行客户端.xls”-->将其打开-->按下Alt+F11调出VBA窗口-->在工程窗口的空白处右击-->插入-->用户窗体

设置用户窗体属性：

在属性窗口中将用户窗体名称改为“F1”，方便编程。

将用户窗体的标题改为：“远程工单执行单位客户端登陆界面”

在用户窗体中插入图片：

加一幅恰当的图片可以起到画龙点睛的作用。

在用户窗体的属性窗口中双击“Picture”属性-->在加载图片窗口中找到图片所在位置-->选择图片-->打开。

设置“PictureSizeMode”模式为自动调整大小模式。

调整窗体尺寸。

在用户窗体中插入控件：

插入1个复合框、1个文本框、2个命令按钮、3个标签，将Caption属性改成各自的名称，摆放好位置。

双击用户窗体任意位置，切换到代码窗口输入程序代码。

复合框可选项目初始化代码：

Private Sub UserForm_Activate()

With ComboBox1

.AddItem "华北"

.AddItem "东北"

.AddItem "华东"

.AddItem "华中"

.AddItem "中南"

.AddItem "西南"

.AddItem "西北"

End With

End Sub

设置2个全局变量的代码：

Dim PasErr As Integer '密码输入错误次数

Public dwmc As String '单位名称，将传递到其它程序

登录按钮代码：

Private Sub CommandButton1_Click()

Me.ComboBox1.MatchEntry=fmMatchEntryComplete

If Me.ComboBox1.ListIndex=-1 Then

MsgBox "单位名称不匹配！", vbOKOnly, "系统提示"

Else

If TextBox1="" Then

MsgBox "密码不能为空！", vbOKOnly, "系统提示"

Else

Dim l, r As Long

Dim pas As String

l=Asc(Left(ComboBox1.Text, 1))

r=Asc(Right(ComboBox1.Text, 1))

pas=CStr((l + r) * -6)

If TextBox1.Text=pas Then

'接下页

'接上页

MsgBox ComboBox1.Text & "分公司登录成功！", vbOKOnly, "系统提示"

dwmc=ComboBox1.Text

F1.Hide

Else

PasErr=PasErr + 1

If PasErr > 2 Then

MsgBox "密码输入3次错误！无法登陆系统！", vbOKOnly, "系统提示"

ThisWorkbook.Application.Quit

Else

MsgBox "密码不正确,请重新输入！还有" & 3 - PasErr & "次机会！", vbOKOnly, "系统提示"

End If

End If

End If

End If

End Sub

退出按钮代码：

Private Sub CommandButton2_Click()

ThisWorkbook.Application.Quit

End Sub

屏蔽用户窗体右上角“×”按钮的代码：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode=0 Then

Cancel=1

End If

End Sub

（待续。。。）

下期设计执行客户端的其它功能，敬请期待！

网盘应用—Excel数据库开发(共8篇)上一篇：初现轮廓|下一篇：指日告罄经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。