《VB数据库项目设计模块化教程 教学课件 ppt 作者 刘玉山 刘宝山 第12章 备份和恢复模块设计》由会员分享,可在线阅读,更多相关《VB数据库项目设计模块化教程 教学课件 ppt 作者 刘玉山 刘宝山 第12章 备份和恢复模块设计(42页珍藏版)》请在金锄头文库上搜索。
1、第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_E
2、mbed_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
3、 = 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,P
4、rivate 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,
5、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 FileSystemObject和File对象变量的定义和使用,12.3.3 文件Copy方法
6、的应用,12.3.4 驱动器列表框控件、目录列表框控件和文件列表框控件,图12-5 工具箱上的文件系统控件 1.驱动器列表框(DriveListBox)控件 2.目录列表框(DirListBox)控件 3.文件列表框(FileListBox)控件,12.3.4 驱动器列表框控件、目录列表框控件和文件列表框控件,12(123-127)P5 yd_Embed_5.jpg,图12-5 工具箱上的文件系统控件,1.驱动器列表框(DriveListBox)控件,2.目录列表框(DirListBox)控件,12(123-127)P5 yd_Embed_6.jpg,3.文件列表框(FileListBox)控件,