unit7.pas

湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, ExtCtrls, DB, ADODB, Buttons, StdCtrls,connectdlg;

type
  TForm7 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    Timer1: TTimer;
    SpeedButton2: TSpeedButton;
    SaveDialog1: TSaveDialog;
    GG: TGauge;
    SpeedButton3: TSpeedButton;
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Timer1Timer(Sender: TObject);
begin
  if GG.Progress <=100 then
  begin
    GG.Progress := GG.Progress + 1;
    if GG.Progress = 100 then
    begin
      Timer1.Enabled := False;
      Application.MessageBox('数据备份成功！','提示',64);
    end;
  end;
end;

procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
      if (SaveDialog1.Execute) and (SaveDialog1.FileName <>'') then
  begin
    Edit1.Text := SaveDialog1.FileName;
  end;
end;

procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
     if Edit1.Text = '' then
  begin
    Showmessage('请选择备份路径！');
    Exit;
  end;
  Try
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('use master BACKUP DATABASE DataName To Disk = '+
      QuotedStr(Edit1.Text)+'use DataName');
      ExecSQL;
    end;
    Timer1.Enabled := True;
  Except
    Application.MessageBox('数据备份失败！','提示信息',0);
  end;  
end;


procedure TForm7.SpeedButton3Click(Sender: TObject);
begin
   close;
end;

end.