u_backup.~pas

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

unit U_Backup;

interface

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

type
  TF_Backup = class(TForm)
    Label2: TLabel;
    Edit: TEdit;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    BitBtn_Backup: TBitBtn;
    procedure BitBtn_BackupClick(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    QryStr,DataBaseName,Position:String;
    { Public declarations }
  end;

var
  F_Backup: TF_Backup;

implementation
//Uses U_RecordStruct,U_DBPublicPack;
uses mainfrm;
{$R *.dfm}

procedure TF_Backup.BitBtn_BackupClick(Sender: TObject);
Begin
If copy(Edit.Text,Length(Edit.Text)-2,3)<>'mdb' Then
  Begin
    MessageDlg('后缀必须为.mdb',MtError,[MBOk],0);
    Edit.Text:='';
    exit;
  End;
  Try
    CopyFile(Pchar(ExtractfilePath(Paramstr(0))+'database\中草药库.mdb'),Pchar(Edit.Text),True);
  Except
    ShowMessage('对不起，数据库备份失败！');
//    Exit;
  End;
    ShowMessage('数据库备份成功！');
    F_Backup.Close;
End;

procedure TF_Backup.DirectoryListBox1Change(Sender: TObject);
begin
  Edit.Text:=directorylistbox1.Directory+'\中草药库备份.mdb';
end;

end.