档案管理在公司管理当中是一项最基本的工作内容，无论公司大小都将会涉及到员工档案管理。
由于档案涉及个人隐私，所以具有很高的隐密性，所以在管理当中十分注意权限分配。
档案管理主页
上图主管理主页，本应用以Windows Office Excel为操作平台，作为一个示例来进行编制，目前没做操作授权部分。
整体框架画了出来，然后完善操作功能，这篇内容主要介绍新建档案和查询档案两个部分。
新建档案
档案建立分为新建和调入两个部分，一个是本单位新建员工的档案信息，另一个是从其它单位入职来的员工将原工作单位调来的档案。
新建档案里面列出了员工信息需要添加的内容，基本上是个人的一些相关信息。
这方面的信息收集是档案管理当中最初始的一个工作，所以信息收集要相对仔细和完整。
其中照片和工作经历分别做了新表单来进行录入。
由于这个对话框模式比较固定，所以需要另外的输入框进行图片和更多文字的录入界面。
工作经历录入
上图就是工作经历表单，相对简单就是一个文本框，由于工作经历相关内容可能多一些，这样的方式方便录入。
照片
员工照片应用了一个对话框，引入图片地址，实际上这个只是将照片地址进行保存，下一步会完善这个功能。
对图片进行更名和保存到统一目录下面，会更加方便地管理照片。
档案查询
档案查询功能比较实用，可以实现以档案编号和姓名查询。
由于可能出现相同姓名的原因，所以查询一般以编号为主，如果查询姓名，会将相同姓名的编号查询出来添加到下面的列表框内，然后选择不同编号以确定要查询的员工。
总体来说，功能基本可以完成，接下来的就需要对其它一些功能进行编码。
调入 、调出、 留存、 销毁、 使用、 归还、 统计每一项都需要对应不同的工作表进行操作，而且工作表字段也有些许不同，所以就没有一次性完成。
首页代码
Private Sub UserForm_Initialize()Dim w As WorksheetSet w = ThisWorkbook.Worksheets("设置")With Me .Width = 1024 .Height = 490 .Caption = "员工档案管理" .Picture = LoadPicture(ThisWorkbook.Path & "\pic\1.jpg", Me.Width, Me.Height, Default) .PictureSizeMode = fmPictureSizeModeStretchEnd WithWith Me.Label1 .Width = Me.Width .Height = 45 .Top = 8 .Left = 0 .Caption = Me.Caption .TextAlign = fmTextAlignCenter .BackStyle = fmBackStyleTransparent .ForeColor = RGB(255, 250, 250) With .Font .Size = 28 .Name = "微软雅黑" .Bold = True End WithEnd WithDim iObj As Object, i As IntegerFor i = 1 To 9'设置按钮格式 For Each iObj In Me.Controls If TypeName(iObj) = "CommandButton" Then If VBA.Right(iObj.Name, 1) = i Then With iObj .Top = 80 .Left = 110 * (i - 1) + 10 .Width = 110 .Height = 30 .Caption = w.Range("I" & i + 1).Value With .Font.Size = 12.Name = "微软雅黑".Bold = False End With End With End If End If Next iObjNext iEnd Sub首页代码有些特别，对不同的按钮格式进行了循环设置，很大地节省了编码量。
欢迎关注、收藏
