u_restore.~pas

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

unit U_Restore;

interface

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

type
  TF_Restore = class(TForm)
    Label1: TLabel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Edit1: TEdit;
    FileListBox1: TFileListBox;
    BitBtn_Restore: TBitBtn;
    procedure FileListBox1Change(Sender: TObject);
    procedure BitBtn_RestoreClick(Sender: TObject);
  private
    QryStr,DataBaseName,Position:String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Restore: TF_Restore;

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

procedure TF_Restore.FileListBox1Change(Sender: TObject);
begin
  edit1.Text:=filelistbox1.FileName;
end;

procedure TF_Restore.BitBtn_RestoreClick(Sender: TObject);
Var
  DBName: String;
Begin
{If copy(Edit.Text,Length(Edit.Text)-2,Length(Edit.Text))<>'mdb' Then
   Begin
   MessageDlg('后缀必须为.mdb',MtError,[MBOk],0);
   Edit.Text:='';
   exit;
   End;
   deletefile(extractfilepath(paramstr(0))+'kwdb.mdb');
   filecopy(edit1.Text,extractfilepath(paramstr(0))+'kwdb.mdb'); }
  DBName:=ExtractFilePath(ParamStr(0))+'Database\中草药库.mdb';
  If mainfrm.Form1.ADOConnection1.Connected=True Then mainfrm.Form1.ADOConnection1.Connected:=False;
  if FileExists(DBName) Then DeleteFile(DBName);
  Try
  CopyFile(Pchar(Edit1.Text),Pchar(DBName),True);
  if mainfrm.Form1.ADOConnection1.Connected=False Then mainfrm.Form1.ADOConnection1.Connected := True;
  Except
    ShowMessage('对不起，数据库还原失败！');
  End;
    ShowMessage('数据库还原成功！');
    F_Restore.Close;
End;

end.