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

下载本文档

0
0
约 64页
2017-01-07 发布于广东
举报
版权申诉

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

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

* * 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方法的应用 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)控件在线教务辅导网：更多课程配套课件资源请访问在线教务辅导网馋死 PPT研究院 POWERPOINT ACADEMY 第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) 日 .bakSet fil = fso.GetFile(App.Path \EMS.mdb)fil.Copy (DDFB)MsgBox 数据备份完毕！！frmManageSystem.ShowUnload MeEnd SubPrivate Sub OK_Click()DDFR = File1.Path \ File1.FileNameSet fil = fso.GetFile(DDFR)fil.Copy (App.Path \EMS.mdb)MsgBox 数据恢复完毕！！ 12.2.2 程序设计 frmManageSystem.ShowUnload MeEnd Sub 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 数据恢复完毕！！ frmManageSystem.Show Unload Me