关于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 ? :