备份及恢复功能的实现.ppt

工作任务七
备份及恢复功能的实现项目子任务一：保存更新的数据步骤一:将所有的数据对象声明为全局变量

步骤二:声明一个全局整型变量update1,以设置记载有无修改单元格的变量,1为修改
在datagridview窗体中，设置单元格修改时update1变量值的更改：
事件：CellBeginEdit
代码：update1=1采用的事件:主窗体中“保存修改”的单击事件事件代码:1.声明一个oledbcommandbuilder类，该类用于为dataadapter对象查找匹配的Command语句，必须要加DimcmbuildAsNewOleDbCommandBuilder(sel1.da)2.保存修改:如果内容被修改则更新数据库Ifsel1.update1=1Thensel1.da.Update(sel1.ds.Tables(“student”))EndIf说明:da对象的update方法:更新指定的数据库步骤一：创建保存窗口
控件名：SaveFileDialog
设置方法：
1.在“对话框工具箱”中拖动SaveFileDialog控件至MAIN主窗体中
2.将其名称改名为”Save1”
步骤二：设置保存窗口
事件：“数据库”菜单——“备份数据库”菜单的单击事件
1、设置保存窗口的标题为“另存为”文本
Save1.title=“另存为”
2、设置保存窗口的文件类型为mdb数据库
save1.filter=“ACCESS数据库文件（*.mdb）|*.mdb”
说明：
字符串由文件类型说明和文件扩展名组成。
格式：“文件类型说明|*.扩展名”
3、设置保存窗口打开时为空文件名
save1.filename=“”
4、设置当备份的数据库文件已存在时是否弹出覆盖提示框
Save1.overwriteprompt=true
事件：“数据库”菜单——“备份数据库”菜单的单击格式：
控件名.showdialog()
代码：
save1.showdialog()
一、判断是否选择的是“保存”按钮知识点:
1.文件已存在时先删除已存在的文件
File.delete
2.当前数据库拷贝至指定文件夹的指定文件中
File.Copy步骤：
1、声明及创建一个存储备份文件名及路径的变量
文件名的路径和名称由“另存为”窗口获取。
Dimfilestrasstring
Filestr=save1.filename步骤：
2、当指定的文件名已存时删除该文件。
对文件操作需要引用文件命名空间IO
（1）在程序常规声明位置引用文件命名空间：
Importssystem.IO
（2）假如已存在指定文件名则删除
IFfile.exists(filestr)then
file.delete(filestr)
Endif2.当前数据库拷贝至指定文件夹的指定文件中
说明：
拷贝的源文件：当前文件夹的student.mdb数据库
拷贝的目标文件：filestr
格式：
File.Copy(源文件，目标文件)
代码：
步骤一：创建保存窗口
控件名：OpenFileDialog
设置方法：
1.在“对话框工具箱”中拖动openFileDialog控件至MAIN主窗体中
2.将其名称改名为”open1”
步骤二：设置保存窗口
事件：“数据库”菜单——“备份数据库”菜单的单击事件
1、设置打开窗口的标题为“打”文本
open1.title=“另存为”
2、设置打开窗口的文件类型为mdb数据库
open1.filter=“ACCESS数据库文件（*.mdb）|*.mdb”

3、设置打开窗口打开时为空文件名
open1.filename=“”
4、设置默认还原数据库类型为mdb
Open1.defaultExt=“mdb”
事件：“数据库”菜单——“还原数据库”菜单的单击
代码：
open1.showdialog()
一、判断是否选择的是“打开”按钮知识点:
1.删除当前项目中的数据库文件
File.delete（当前数据库文件）
2.将指定文件夹的指定文件拷贝为当前数据库File.Copy（指定文件,当前数据库文件）步骤：
1、声明及创建一个存储还原文件名及路径的变量
文件名的路径和名称由“打开”窗口获取。
Dimfilestrasstring
Filestr=open1.filename步骤：
2、删除当前项目中的数据库文件

IFfile.exists(Application.StartupPath&"\student.mdb")then
file.delete(Application.StartupPath&"\student.mdb")
Endif2.将指定文件夹的指定文件拷贝为当前数据库
说明：
拷贝的源文件：filestr
拷贝的目标文件：当前文件夹的s