p_backup_db.~pas

学员管理的软件

unit P_backup_db;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ADODB, StdCtrls,IdGlobal;

type
  TP_backup = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    ADOCommand1: TADOCommand;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    path:string;
    path_filename:string;
    { Public declarations }
  end;

var
  P_backup: TP_backup;

implementation

{$R *.dfm}
uses main;
procedure TP_backup.FormCreate(Sender: TObject);
begin
path:=extractfilepath(application.ExeName);
edit1.Text:=path+'text.mdb';
path_filename:=path+'backup\';
end;

procedure TP_backup.Button2Click(Sender: TObject);
begin
savedialog1.InitialDir:=path;
savedialog1.FileName:='test_data';
savedialog1.Title:='保存文件';
if savedialog1.Execute then
edit2.Text:=savedialog1.FileName;
path_filename:=trim(edit2.Text);
end;

procedure TP_backup.Button1Click(Sender: TObject);
var
ii:boolean;
mysource,mydes,spath:string;
begin
screen.Cursor:=crhourglass;
label3.Visible:=true;
path_filename:=trim(edit2.Text);

spath:=extractfilepath(application.ExeName);
mysource:=edit1.Text;
mydes:=spath+'backup_DB\'+extractfilename(mysource);
ii:=CopyFileTo(mysource,mydes);
if not ii then
begin
showmessage('备份出错');
screen.Cursor:=crdefault;
exit;
end;

//ADOCommand1.CommandText:='';
//ADOCommand1.CommandText:='backup database test to disk=:path with init';
//ADOCommand1.Parameters.ParamByName('path').Value:=trim(edit2.Text);
//ADOCommand1.Execute;
//copyfile(pchar(edit1.Text),pchar(edit2.Text),false);
label3.Visible:=false;
label3.Update;
showmessage('备份完毕');
screen.Cursor:=crdefault;
end;

end.