數據庫的備份與還原+INI文件數據庫參數配置

 利用SQL語句來完成對SQL Server數據庫的備份與還原功能 僅以練習

 

完成代碼如下：

------------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Bevel1: TBevel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses unit2,unit3,unit4;

 

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  str:='select number as 編號,name as 姓名,tel as 聯繫電話 from info';
  AdoQuery1.Close ;
  AdoQuery1.SQL.Clear ;
  AdoQuery1.SQL.Add(str);
  AdoQuery1.Open ;
end;

 

procedure TForm1.Button2Click(Sender: TObject);
begin
  form2:=Tform2.Create(form1);
  form2.Show ;
  ADOQuery1.Edit ;
  form2.Edit2.Text :=ADOQuery1.FieldByName('編號').AsString ;
  form2.edit3.Text :=ADOQuery1.FieldByName('姓名').AsString ;
  form2.edit4.Text :=ADOQuery1.FieldByName('聯繫電話').AsString ;
end;

 

//數據庫的INI文件配置（該模塊代碼見下----）

procedure TForm1.Button3Click(Sender: TObject);
begin
  CfgForm:=TCfgForm.Create(form1);
  CfgForm.Show ;
end;

 

procedure TForm1.Button4Click(Sender: TObject);
var
  ss,sd:string;
begin
  sd:=extractfilepath(paramstr(0))+'backup/'+datetostr(now)+'.mdf';
  //SaveDialog1.Execute ;
  ss:='backup database test to disk='''+sd+'''';
  //showmessage(sd);
  if fileexists(sd) then
    begin
    if messagebox(0,' 今天備份文件已存在！是否覆蓋？','警告',MB_OKCANCEL)= IDCANCEL then
      exit
    else
      DeleteFile(sd);
      ADOQuery1.Close ;
      ADOQuery1.SQL.Clear ;
      ADOQuery1.SQL.Add(ss);
      ADOQuery1.ExecSQL ;
      showmessage('數據庫備份完成！'); ;
      exit;
    end
  else
    begin
    ADOQuery1.Close ;
    ADOQuery1.SQL.Clear ;
    ADOQuery1.SQL.Add(ss);
    ADOQuery1.ExecSQL ;
    showmessage('數據庫備份完成！');
    end;
  {st:=SaveDialog1.FileName ;
  ss:='backup database test to disk='''+st+'.mdf''';
  if fileexists(st+'.mdf') then
    if Messagebox(0,'該文件已存在！,您是否要覆蓋該文件？','警告',MB_OKCANCEL)=IDCANCEL then
       exit
    else
      begin
      deletefile(st+'.mdf');
      ADOQuery1.Close ;
      ADOQuery1.SQL.Clear ;
      ADOQuery1.SQL.Add(ss);
      ADOQuery1.ExecSQL ;
      showmessage('數據庫備份完成！');
      end
  else
  begin
    //showmessage(ss);
    //DataModule4.ADOConnection1.ConnectionString :='';
    ADOQuery1.Close ;
    ADOQuery1.SQL.Clear ;
    ADOQuery1.SQL.Add(ss);
    ADOQuery1.ExecSQL ;
    showmessage('數據庫備份完成！');
  end;}
end;

 

procedure TForm1.Button5Click(Sender: TObject);
var
  ss,sql:string;
begin
  SaveDialog1.Execute ;
  ss:=SaveDialog1.FileName ;
  sql:='use master restore database test from disk='''+ss+'''';
  if messagebox(0,' 您確認要執行恢復操作嗎？','警告',MB_OKCANCEL)= IDCANCEL then
     exit
  else
  begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear ;
  ADOQuery1.SQL.Add(sql);
  ADOQuery1.ExecSQL ;
  showmessage('數據庫恢復完成！');
  end;
end;

 

procedure TForm1.Button6Click(Sender: TObject); //獲取當前路徑
begin
  //GetModuleFileName();
  ShowMessage(extractfilepath(application.exename));
  ShowMessage(extractfilepath(paramstr(0)));
end;

end.

---------------------------------

數據庫實現INI文件配置 完整代碼：

---------------------------------

unit Unit3;

interface

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

type
  TCfgForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CfgForm: TCfgForm;

implementation
var
  myinifile:Tinifile;
{$R *.dfm}

 

procedure TCfgForm.Button2Click(Sender: TObject);
begin
  CfgForm.Free ;
end;

 

procedure TCfgForm.FormCreate(Sender: TObject);
var
  filename:string;
begin
  filename:=ExtractFilePath(paramstr(0))+'SQLcfg.ini';
  myinifile:=Tinifile.Create(filename);
  edit1.Text :=myinifile.ReadString('參數配置','Data Source','');
  edit2.Text :=myinifile.ReadString('參數配置','Initial Catalog','');
  edit3.Text :=myinifile.ReadString('參數配置','User ID','');
  edit4.Text :=myinifile.ReadString('參數配置','Password','');
end;

 

procedure TCfgForm.Button1Click(Sender: TObject);
begin
  myinifile.WriteString('參數配置','Data Source',edit1.text);
  myinifile.WriteString('參數配置','Initial Catalog',edit2.text);
  myinifile.WriteString('參數配置','User ID',edit3.text);
  myinifile.WriteString('參數配置','Password',edit4.text);
  myinifile.Destroy ;
  CfgForm.Release ;
end;

 

procedure TCfgForm.Button3Click(Sender: TObject);
begin
  showmessage(inttostr(CfgForm.InstanceSize));
end;

end.
-------------------------------

SQLcfg.ini 文件內容:

---------------

[參數配置]
Data Source=BULY
Initial Catalog=test
User ID=sa
Password=1001

---------------

2009-11-04