u_restore.pas

SQL的应用

unit U_Restore;

interface

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

type
  TF_Restore = class(TForm)
    Edit: TEdit;
    OpenDialog: TOpenDialog;
    BitBtn_Restore: TBitBtn;
    BitBtn_View: TBitBtn;
    Label_Position: TLabel;
    procedure BitBtn_RestoreClick(Sender: TObject);
    procedure BitBtn_ViewClick(Sender: TObject);
  private
    QryStr,DataBaseName,Position:String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Restore: TF_Restore;

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

procedure TF_Restore.BitBtn_RestoreClick(Sender: TObject);
begin
  if ADOCnt.Connected = true then ADOCnt.Connected:=false;
  DS.DataSet.Close;
  If Edit.Text='' Then
  Begin
    MessageDlg('请选择备份路径!',MTConfirmation ,[MBOK],0);
    Edit.SetFocus;
  End
  Else
  Begin
  Try
  DataBaseName:=ReadConfig(IniFileName,'DBSet','DataBaseName'); //数据库名称
  With ADOQry Do
    Begin
    ADOCnt.Connected:=False;
    ADOQry.Active:=False;
    QryStr:='Restore DataBase '+DataBaseName+' From Disk='''+Position+'''';
    SQL.Clear;SQL.Add(QryStr);ExecSQL;
    ShowMessage('数据库还原完成');
    End
    Except
      MessageDlg('备份路径可能无效!',MTConfirmation ,[MBOK],0);
      Exit;
    End;
  End;
end;

procedure TF_Restore.BitBtn_ViewClick(Sender: TObject);
begin
  If Not OpenDialog.Execute Then Exit;
  Edit.Text:=OpenDialog.FileName;
  Position:=Edit.Text;
end;

end.