w_sjhf.~pas

系统管理程序的源码

unit w_sjhf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Buttons;

type
  Tsjhf = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    SpeedButton1: TSpeedButton;
    OpenDialog1: TOpenDialog;
    Database1: TDatabase;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjhf: Tsjhf;

implementation

uses mydata;

{$R *.dfm}

procedure Tsjhf.Button2Click(Sender: TObject);
begin
sjhf.Close;
end;

procedure Tsjhf.Button1Click(Sender: TObject);
var
a,b:string;
begin

query1.SQL.Clear ;
a:='restore database xjgl from disk=';
b:=#39+edit1.text+#39 ;
query1.SQL.Add(a+b);
data.Database1.Connected:=false;
query1.ExecSQL;
data.Database1.Connected :=true;
close;
end;

procedure Tsjhf.SpeedButton1Click(Sender: TObject);
begin
opendialog1.Filter:='Bak files(*.bak)|*.bak|All files (*.*)|*.*';
if opendialog1.Execute then
edit1.Text:=opendialog1.FileName ;
end;

procedure Tsjhf.FormShow(Sender: TObject);
begin
edit1.Text:='';
end;

end.