《EXCEL VBA行政与人力资源管理应用案例详解 第12章.pdf》由会员分享，可在线阅读，更多相关《EXCEL VBA行政与人力资源管理应用案例详解 第12章.pdf（4页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 C H A P T E R 数据维护模块的设计 12-1 数据备份子模块设计 12-2 数据恢复子模块设计 12-3 数据清理子模块设计 行政与人力资源管理应用案例详解 一个完善的应用系统，必须有一个很好的数据维护功能，对人力资源管理系统也不例外。数据维护模块的主要功能就是备份数据、恢复数据和清理数据等。这里主要介绍人力资源管理系统的三个数据维护子模块：数据备份子模块、数据恢复子模块和数据清理子模块。12-1 数据备份子模块设计 数据备份子模块的功能就是将人力资源管理数据进行备份。这里要备份的是“人事管理.mdb”数据库文件。备份数据库文件，实际上就是制作数据库文件副本，即将数据库文件复制到
2、某个地方。数据备份子模块的的功能就是将“人事管理.mdb”文件复制到人力资源管理系统文件所在文件夹的“备份数据”子文件夹中，程序代码如下所示，它保存在一个名为“数据维护程序”的标准模块中，并且这个程序就是自定义菜单【数据维护】中的【数据备份】菜单命令指定的宏，同时也是【数据维护】自定义工具栏中的【数据备份】命令按钮指定的宏：Public Sub 数据备份()Dim myDesPath As String,mydataSourse As String,mydataDes As String,res Set fs=CreateObject(Scripting.FileSystemObject)my
3、SoursePath=ThisWorkbook.Path&myDesPath=ThisWorkbook.Path&备份数据 如果备份数据子文件夹不存在,就创建它 If fs.FolderExists(myDesPath)=False Then MkDir myDesPath End If mydataSourse=mySoursePath&人事管理.mdb mydataDes=myDesPath&人事管理.mdb If fs.FileExists(mydataDes)=True Then res=MsgBox(数据库文件“人事管理.mdb”已经存在！_&vbCrLf&vbCrLf&是否覆盖现有
4、的数据库文件？,_ vbYesNo+vbDefaultButton2+vbExclamation,注意)If res=vbYes Then fs.CopyFile mydataSourse,mydataDes Else Exit Sub End If Else fs.CopyFile mydataSourse,mydataDes End If MsgBox 已经成功将数据库人事管理.mdb备份到备份数据”文件夹！,_ vbInformation,数据备份成功 End Sub 12-2 数据恢复子模块设计 390 数据维护模块的设计 12 数据恢复，就是当原始数据遭到破坏时，从备份数据文件夹中将
5、备份的数据库文件复制到系统所在的文件夹中。数据恢复子模块的功能就是“人事管理.mdb”数据库文件复制到系统所在的文件夹，程序代码如下所示，它保存在一个名为“数据维护程序”的标准模块中，并且这个程序就是自定义菜单【数据维护】中的【数据还原】菜单命令指定的宏，同时也是【数据维护】自定义工具栏中的【数据还原】命令按钮指定的宏：Public Sub 数据还原()Dim myDesPath As String Dim mydataSourse As String,mydataDes As String Set fs=CreateObject(Scripting.FileSystemObject)mySo
6、ursePath=ThisWorkbook.Path&备份数据 myDesPath=ThisWorkbook.Path&mydataSourse=mySoursePath&人事管理.mdb mydataDes=myDesPath&人事管理.mdb 如果备份数据子文件夹及数据库文件不存在,就弹出信息框,并退出程序 If fs.FolderExists(mySoursePath)=False Then MsgBox“备份数据”文件夹不存在！,vbCritical,无法备份 Exit Sub Else If fs.FileExists(mydataSourse)=False Then MsgBox
7、数据库“人事管理.mdb”的备份文件不存在！,vbCritical,无法备份 Exit Sub End If End If If fs.FileExists(mydataDes)=True Then res=MsgBox(数据库文件“人事管理.mdb”已经存在！&vbCrLf _&vbCrLf&是否覆盖现有的数据库文件？,_ vbYesNo+vbDefaultButton2+vbExclamation,注意)If res=vbYes Then fs.CopyFile mydataSourse,mydataDes Else Exit Sub End If Else fs.CopyFile myd
8、ataSourse,mydataDes End If MsgBox 已经成功将数据库人事管理.mdb还原到系统文件夹！,_ vbInformation,数据还原成功 End Sub 12-3 数据清理子模块设计 当频繁进行数据查询与导出时，会在子文件夹“导出数据”中存在大量的工作簿文件，而这些文件完全可以通过人力资源管理系统重新创建，因此可以随时执行数据清理操作，删除这些文件。数据清理子模块的功能就是删除子文件夹“导出数据”中的所有文件，程序代码如下所示，它保存在一个名为“数据维护程序”的标准模块中，并且这个程序就是自定义菜单【数据维护】中的【数据清理】菜单命令指定的宏，同时也是【数据维护】自
9、定义工具栏中的【数据清理】命令按钮指定的宏：Public Sub 数据清理()391 行政与人力资源管理应用案例详解 On Error Resume Next If MsgBox(本操作将删除导出数据文件夹中的所有文件！是否继续？,_ vbYesNo+vbQuestion+vbDefaultButton2,清理数据)=vbNo Then Exit Sub 删除“导出数据”文件夹中的所有文件 Dim mySoursePath As String Set fs=CreateObject(Scripting.FileSystemObject)mySoursePath=ThisWorkbook.Path&导出数据 If fs.FolderExists(mySoursePath)=True Then Kill mySoursePath&*.*End If End Sub 392