w_sjbf.pas

来自「学生学籍管理源码」· PAS 代码 · 共 66 行

unit w_sjbf;

interface

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

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

var
  sjbf: Tsjbf;

implementation

{$R *.dfm}

procedure Tsjbf.Button1Click(Sender: TObject);
var
a,b:string;
begin
query1.SQL.Clear ;
a:='backup database xjgl to disk=';
b:=#39+edit1.text+#39;
query1.SQL.Add(a+b);
query1.ExecSQL ;
sjbf.Close;

end;

procedure Tsjbf.Button2Click(Sender: TObject);
begin
sjbf.Close;
end;

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

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

end.