《Excel VBA+SQL数据管理与应用模板开发》_6.4.2 设计初始化重置窗口界面的子程序

【摘要】 本书摘自《Excel VBA+SQL数据管理与应用模板开发》一书中第6章，第4节，韩小良著。

6.4.2 设计初始化重置窗口界面的子程序

设计初始化重置窗口界面的子程序，当启动窗体或者单击选择某个字段时，重置窗口， 准备重新设置条件进行查询。代码如下：

Sub 重置条件及结果0

Dim i As Integer

Dim Cnt As Control

For Each Cnt In Me.设置查询条件.Controls

If TypeName(Cnt)="TextBox"Or TypeName(Cnt)="ComboBox"Then

Cnt.Value =""

Cnt.Enabled =False

End If

Next

For Each Cnt In Me.基本信息显示 .Controls

If TypeName(Cnt)="TextBox"Then

Cnt.Value =""

Cnt.Locked =True

End If

Next

查询结果显示 .Caption ="查询结果"

ListView1.Listltems.Clear

End Sub

设置窗体初始化程序

为窗体设置初始化程序，当启动窗体时，设置窗体的各个控件。程序代码如下：

Dim rs As ADODB.Recordset

Dim ws As Worksheet

Dim x As Variant

'为窗体设计初始化程序

Private Sub UserForm_InitializeO

Dim n As Integer,i As Integer,x As Variant

'指定工作表对象

Set ws =ThisWorkbook.Worksheets("员工信息")

ws.Select

建立与工作簿的连接

Set cnn =New ADODB.Connection

With cnn

.Provider ="microsoft.ace.oledb.12.0"

.ConnectionString="Extended Properties=Excel 12.0;"_

&"Data Source="&ThisWorkbook.FullName

.Open

End With

'在“姓名”复合框中列示表格中所有的员工姓名

姓名C.RowSource="员工信息!B2:B"&ws.Range("B1000").End(xIUp),Row

'为“性别”复合框设置项目

性别C.List =Array("男","女")

'为“部门”复合框设置项目

部门C.List =Array("办公室","人力资源部","财务部","销售部","市场部","产品研发 部","生产部","质检部","客服部")

'为“职位”复合框设置项目

职位C.List =Array(“总经理”,"总监","经理","主管","职员","总裁")

'为“学历”复合框设置项目

学历C.List=Array(" 博士","硕士","本科","大专","专科","中专","职高","高中","初中

","小学")

'为“离职原因”复合框设置项目

离职原因C.List =Array(“合同到期但个人不愿续签”,"合同到期但公司不愿续签”,"因个 人原因辞职","因公司原因辞职","违反公司规定辞退","生产任务变 化辞退”,"考核不合要求辞退",“退休”,"死亡”,"其他")

'调用子程序，重置窗口

Call 重置条件及结果

'设置查询结果显示ListView1控件的标题

x=Array(" 工号",”姓名","部门”,"职位","学历","性别","身份证号码","出生日期", "年龄","入职日期","工龄","离职时间","离职原因")

With ListViewl

.ColumnHeaders.Clear

.ListItems.Clear

'设置ListView1格式

.FullRowSelect =True

.View =lvwReport

.Gridlines =True

.Font ="微软雅黑"

'添加列标题

Fori=0 To UBound(x)

Set col =.ColumnHeaders.Add)

col.Text =x(i)

Next i

.ColumnHeaders(7).Width =150

End With

'“导出”按钮不可用

导出.Enabled =False

End Sub

为各个选择查询字段的选项按钮设置 Click 事件

为各个选择查询字段的选项按钮设置Click 事件，单击这些选项按钮，恢复该字段条件 的可操作性，而其他字段变为不可操作。程序代码如下：

Private Sub 按姓名_Click0

Call 重置条件及结果

姓名C.Enabled =True

姓名C.Value="-- 选择姓名--"

End Sub

Private Sub 按部门_Click)

Call 重置条件及结果

部门C.Enabled =True

部门C.Value ="--选择部门--"

End Sub

Private Sub 按职位_Click0

Call 重置条件及结果

职位C.Enabled =True

职位C.Value =”--选择职位--"

End Sub

Private Sub 按学历_Click0

Call 重置条件及结果

学历C.Enabled =True

学历C.Value ="--选择学历--"

End Sub

Private Sub 按性别_Click0

Call 重置条件及结果

性别C.Enabled =True

性别C.Value="-- 选择性别--"

End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们 18664393530@aliyun.com 处理，核实后本网站将在24小时内删除侵权内容。