|
窗体初始化的代码如下:- Private Sub UserForm_Initialize()
- '添加项目到“学历”复合框
- ComboEdu.AddItem "博士"
- ComboEdu.AddItem "硕士"
- ComboEdu.AddItem "本科"
- ComboEdu.AddItem "大专"
- ComboEdu.AddItem "中专"
- ComboEdu.AddItem "高中"
- ComboEdu.AddItem "初中"
- ComboEdu.AddItem "其他"
- '添加项目到“职称”复合框
- ComboTitle.AddItem "总经办"
- ComboTitle.AddItem "财务部"
- ComboTitle.AddItem "行政部"
- ComboTitle.AddItem "市场部"
- ComboTitle.AddItem "工程部"
- ComboTitle.AddItem "餐饮部"
- ComboTitle.AddItem "安全部"
- ComboTitle.AddItem "保洁部"
-
- '添加项目到“职位”复合框
- ComboDuty.AddItem "总经理"
- ComboDuty.AddItem "副总经理"
- ComboDuty.AddItem "部门经理"
- ComboDuty.AddItem "主管"
- ComboDuty.AddItem "领班"
- ComboDuty.AddItem "职员"
-
- '添加项目到“联系方式一、二、三”
- ComboLX1.AddItem "固定电话"
- ComboLX1.AddItem "移动电话"
- ComboLX1.AddItem "腾讯QQ"
- ComboLX1.AddItem "E-mail"
-
- ComboLX2.AddItem "固定电话"
- ComboLX2.AddItem "移动电话"
- ComboLX2.AddItem "腾讯QQ"
- ComboLX2.AddItem "E-mail"
-
- ComboLX3.AddItem "固定电话"
- ComboLX3.AddItem "移动电话"
- ComboLX3.AddItem "腾讯QQ"
- ComboLX3.AddItem "E-mail"
- CmdSave.Caption = "增加"
- Me.Caption = "新增员工资料"
- If strStatus = "查询" Then
- Dim intRow As Integer
- intRow = intCurrentRow
- With Sheets("员工基本信息表")
- TextName.Value = .Cells(intRow, 2).Value
- If .Cells(intRow, 3).Value = "男" Then
- OptionMan.Value = True
- Else
- OptionWoman.Value = True
- End If
- ComboEdu.Value = .Cells(intRow, 4).Value
- TextBirth.Value = .Cells(intRow, 5).Value
- TextID.Value = .Cells(intRow, 6).Value
- TextNation.Value = .Cells(intRow, 7).Value
- ComboTitle.Value = .Cells(intRow, 8).Value
- ComboDuty.Value = .Cells(intRow, 9).Value
- TextJBGZ.Value = .Cells(intRow, 10).Value
- TextGLGZ.Value = .Cells(intRow, 11).Value
- TextXLGZ.Value = .Cells(intRow, 12).Value
- TextZWGZ.Value = .Cells(intRow, 13).Value
- TextZJ.Value = .Cells(intRow, 14).Value
- TextSize.Value = .Cells(intRow, 15).Value
- TextGYG.Value = .Cells(intRow, 16).Value
- TextRDSJ.Value = .Cells(intRow, 17).Value
- TextSGSJ.Value = .Cells(intRow, 18).Value
- TextBegin.Value = .Cells(intRow, 19).Value
- TextEnd.Value = .Cells(intRow, 20).Value
- TextWarn.Value = .Cells(intRow, 21).Value
- ComboLX1.Value = .Cells(intRow, 22).Value
- TextLX1.Value = .Cells(intRow, 23).Value
- ComboLX2.Value = .Cells(intRow, 24).Value
- TextLX2.Value = .Cells(intRow, 25).Value
- ComboLX3.Value = .Cells(intRow, 26).Value
- TextLX3.Value = .Cells(intRow, 27).Value
- TextAdd.Value = .Cells(intRow, 28).Value
- TextNAdd.Value = .Cells(intRow, 29).Value
- TextSb.Value = .Cells(intRow, 30).Value
- TextGJJ.Value = .Cells(intRow, 31).Value
-
-
- End With
- CmdSave.Caption = "保存"
- Me.Caption = "查询/修改员工资料"
- End If
- End Sub
复制代码 |
|