backup.~pas

宁夏中药管理系统,在其它的基础上改的,将他人没有完成的功能补上

unit backup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl;

type
  Tf_backup = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    ml1, d2: string;
   
    { Public declarations }
  end;

var
  f_backup: Tf_backup;

implementation

{$R *.DFM}

procedure Tf_backup.Button1Click(Sender: TObject);
var d1, d3: string;
begin
  if trim(edit1.text) = '' then
  begin
    showmessage('文件名不能为空,文件后缀名必须是.mdb文件');
    edit1.Text := '*.mdb';
    edit1.setfocus;
    exit;
  end;
  if copy(trim(edit1.text), length(trim(edit1.text)) - 4, 5) = '*.mdb' then
  begin
    showmessage('没有指定要备份数据的文件名');
    edit1.SetFocus;
    exit;
  end;
  if messagedlg('确定要备份数据吗(是/否)?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    d1 := expandfilename(trim(edit1.text));
    d3 := extractfiledir(trim(edit1.text));
    if not DirectoryExists(d3) then
    begin
      if messagedlg('''' + d3 + '''' + '备份的目录不存在.是否创建此目录(Y/N)?', mtconfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
        mkdir(d3);
        button1.Enabled := false;
        d1 := expandfilename(trim(edit1.text));
        copyfile(pchar(d2), pchar(d1), true);
        showmessage('备份数据成功!');
        filelistbox1.Refresh;
      end
      else
        showmessage('备份数据失败!');
    end
    else
    begin
      copyfile(pchar(d2), pchar(d1), true);
      button1.Enabled := true;
      showmessage('备份数据成功!');
      filelistbox1.Refresh;
    end;

  end
  else
  begin
    close;
    //form1.show;
    //form1.Enabled:=true;
  end;
end;

procedure Tf_backup.Edit1Change(Sender: TObject);
begin
  edit1.text := expandfilename(edit1.text);
end;

procedure Tf_backup.FormShow(Sender: TObject);
begin
  FileListBox1.Directory := trim(ml1);
  edit1.text := '*.mdb';
  d2 := expandfilename('database\中草药库.mdb');
  button1.enabled := true;
end;

procedure Tf_backup.DirectoryListBox1Change(Sender: TObject);
begin
  edit1.text := expandfilename(edit1.text);
end;

procedure Tf_backup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FileListBox1.Directory := trim(ml1);
//form1.Enabled:=true;
//form1.show;
end;

procedure Tf_backup.Button2Click(Sender: TObject);
begin
  close;
end;

end.