VB数据库项目设计模块化教程 教学配套课件 刘玉山 刘宝山 第12章 备份和恢复模块设计.pdfVIP

第12章 备份和恢复模块设计 主编 刘玉山 第12章 备份和恢复模块设计 第12章 备份和恢复模块设计 12.1 项目需求分析 12.2 项目设计 12.3 技术要点小结 12.1 项目需求分析 12.1.1 项目需求分析的理解 12.1.2 项目需求分析 12.1.1 项目需求分析的理解 图12-1 系统维护界面 图12-2 备份数据 图12-3 恢复数据 12.1.1 项目需求分析的理解 12(123-127)P5 yd_Embed_1.jpg 图12-1 系统维护界面 12(123-127)P5 yd_Embed_2.jpg 图12-1 系统维护界面 12(123-127)P5 yd_Embed_3.jpg 图12-2 备份数据 图12-3 恢复数据 12.1.2 项目需求分析 12.2 项目设计 12.2.1 设计思想 12.2.2 程序设计 12.2.1 设计思想 图12-4 项目流程图 12.2.1 设计思想 12(123-127)P5 yd_Embed_4.jpg 图12-4 项目流程图 12.2.2 程序设计 Private Sub OK_Click() DDFB = Dir1.Path \ FileName.Text Year(Now) 年 Month(Now) 月 Day(Now) 日 .bak Set fil = fso.GetFile(App.Path \EMS.mdb) fil.Copy (DDFB) MsgBox 数据备份完毕！！ frmManageSystem.Show Unload Me End Sub Private Sub OK_Click() DDFR = File1.Path \ File1.FileName Set fil = fso.GetFile(DDFR) fil.Copy (App.Path \EMS.mdb) MsgBox 数据恢复完毕！！ 12.2.2 程序设计 frmManageSystem.Show Unload Me End Sub Private Sub OK_Click() DDFB = Dir1.Path \ FileName.Text Year(Now) 年 Mon th(Now) 月 Day(Now) 日 .bak Set fil = fso.GetFile(App.Path \EMS.mdb) fil.Copy (DDFB) MsgBox 数据备份完毕！！ frmManageSystem.Show Unload Me End Sub Private Sub OK_Click() DDFR = File1.Path \ File1.FileName Set fil = fso.GetFile(DDFR) fil.Copy (App.Path \EMS.mdb) MsgBox 数据恢复完毕！！ frmManageSystem.Show Unload Me End Sub 12.3 技术要点小结 12.3.1 FSO的引用 12.3.2 FileSystemObject和File对象变量的定义和使用 12.3.3 文件Copy方法的应用 12.3.4 驱动器列表框控件、目录列表框控件和文件列表框控件 12.3.1 FSO的引用 12.3.2 File