【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“backup.pas”一文,供大家参考学习
unit backup;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB;
type
TF_bk = class(TForm)
Label2: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
Btn: TBitBtn;
BitBtn2: TBitBtn;
ADOQuery1: TADOQuery;
SaveDialog1: TSaveDialog;
procedure BitBtn2Click(Sender: TObject);
procedure BtnClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_bk: TF_bk;
implementation
uses main;
{$R *.dfm}
procedure TF_bk.BitBtn2Click(Sender: TObject);
begin
F_bk.Close;
end;
procedure TF_bk.BtnClick(Sender: TObject);
begin
if savedialog1.Execute then
edit1.Text:=savedialog1.FileName ;
end;
procedure TF_bk.BitBtn1Click(Sender: TObject);
begin
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('BACKUP DATABASE [college] TO ');
adoquery1.SQL.Add('DISK = '''+edit1.Text +''' WITH NOINIT , ');
adoquery1.SQL.Add('NOUNLOAD , NAME = ''college 备份'', ');
adoquery1.SQL.Add('NOSKIP , STATS = 10, NOFORMAT ');
mainform.adoconnection1.begintrans;
try
adoquery1.ExecSQL ;
mainform.adoconnection1.committrans;
showmessage('备份成功!');
except
mainform.adoconnection1.rollbacktrans;
showmessage('备份失败,请重试!');
end;
end;
end.