unit12.~pas

学生学籍管理 delphi+sql2000 合力制作

unit Unit12;

interface

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

type
  TForm12 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    SaveDialog1: TSaveDialog;
    Image1: TImage;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

uses Unit2, Unit1, Unit3;

{$R *.dfm}

procedure TForm12.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm12.Button1Click(Sender: TObject);
var
Filename : string ;
begin
if SaveDialog1.Execute then
  begin
  FileName:= SaveDialog1.FileName;
  showmessage(FileName);
  try
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('backup database 学生管理系统 to disk='''+FileName+'''');
  ADOQuery1.ExecSQL;
  if fileExists(FileName)then
  showmessage('已经将数据库备份为:'+FileName,);
  except
  messageDlg('数据备份异常!',MTError,[mbok],0);
  end;
  end;


end;

procedure TForm12.Button2Click(Sender: TObject);
var
Filename : string ;
begin
   if SaveDialog1.Execute then
  begin
  FileName:= SaveDialog1.FileName;
  showmessage(FileName);
  try
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('use master restore database 学生管理系统 from disk='''+FileName+''''+'with replace');
  ADOQuery1.ExecSQL;
  if fileExists(FileName)then
  showmessage('已经将数据库备份为:'+FileName,);
  except
  messageDlg('数据备份异常!',MTError,[mbok],0);
  end;
  end;
end;

end.