关于delphi中备份数据库和恢复数据库说明.docVIP

关于delphi中备份数据库与恢复数据库的说明 ? ? ? ? ? ? ? ? ? 在这里我讲一下怎样使用adobackup控件进行数据库数据的备份和恢复，在这里我们使用microsoft ? access2000数据库，首先需要安装adobackup控件，安装好后会在组件面板上出现adobackup的控件，这个控件可以在『这里』下载。 ? ? ? ? ? ? ? ? 安装完控件后就可以使用该控件对数据库中的数据进行备份了，下面就给出使用该控件进行备份的整个单元的源代码，用户可以参考进行使用，在『这里』查看窗体界面图像，对于该控件的使用请参考该控件的源代码。 ? ? ? ? ? uses ? ? ? ? windows, ? messages, ? sysutils, ? classes, ? graphics, ? controls, ? forms, ? dialogs, ? ? ? ? stdctrls, ? comctrls, ? buttons, ? extctrls, ? adobackup, ? filectrl, ? registry; ? ? ? ? type ? ? ? ? tfrm_data ? = ? class(tform) ? ? ? ? ? ? bevel1: ? tbevel; ? ? ? ? ? ? lbl_caption: ? tlabel; ? ? ? ? ? ? edt_path: ? tedit; ? ? ? ? ? ? speedbutton1: ? tspeedbutton; ? ? ? ? ? ? progressbar: ? tprogressbar; ? ? ? ? ? ? btnok: ? tbutton; ? ? ? ? ? ? btncancel: ? tbutton; ? ? ? ? ? ? adobackup: ? tadobackup; ? ? ? ? ? ? opendialog: ? topendialog; ? ? ? ? ? ? panel_hide: ? tpanel; ? ? ? ? ? ? checkdate: ? tcheckbox; ? ? ? ? ? ? dt_st: ? tdatetimepicker; ? ? ? ? ? ? label1: ? tlabel; ? ? ? ? ? ? dt_end: ? tdatetimepicker; ? ? ? ? ? ? label2: ? tlabel; ? ? ? ? ? ? edt_filename: ? tedit; ? ? ? ? ? ? procedure ? btncancelclick(sender: ? tobject); ? ? ? ? ? ? procedure ? speedbutton1click(sender: ? tobject); ? ? ? ? ? ? procedure ? btnokclick(sender: ? tobject); ? ? ? ? ? ? procedure ? adobackupprocession(sender: ? tobject; ? ratio: ? integer); ? ? ? ? ? ? procedure ? formshow(sender: ? tobject); ? ? ? ? private ? ? ? ? ? ? { ? private ? declarations ? } ? ? ? ? ? ? fok: ? boolean; ? ? ? ? public ? ? ? ? ? ? { ? public ? declarations ? } ? ? ? ? end; ? ? function ? show_backup: ? boolean; ? ? function ? show_restore: ? boolean; ? ? implementation ? ? uses ? datamodule; ? ? {$r ? *.dfm} ? ? ? ? function ? show_backup: ? boolean; ? ? begin ? ? ? ? ? ? with ? tfrm_data.create(application) ? do ? ? ? ? ? ? begin ? ? ? ? ? ? ? ? caption ? := ? 数据备份; ? ? ? ? ? ? ? ? lbl_caption.caption ? := ? 备份路径:; ? ? ? ? ? ? ? ? dt_st.datetime ?