?? usjbf.~pas
字號:
unit USJBF;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ComCtrls, ExtCtrls;
type
TSJBF = class(TForm)
Image1: TImage;
ProgressBar1: TProgressBar;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SaveDialog1: TSaveDialog;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
path,name,p:string;
{ Private declarations }
public
{ Public declarations }
end;
var
SJBF: TSJBF;
implementation
uses UDM;
{$R *.dfm}
procedure TSJBF.SpeedButton1Click(Sender: TObject);
var
m:integer;
begin //進行數據備份操作
path:=extractfiledir(application.ExeName);
path:=path+'\';
name:='databack\'+formatdatetime('yyyymmddhhmmss',now)+'.bak';
p:=path+name;
self.Caption:='正在備份數據...';
begin
with DM.Q do
begin
try
Screen.Cursor := crHourGlass;
DM.Q.Close;
DM.Q.SQL.Clear;
DM.Q.SQL.Add(' BACKUP DATABASE CKGL TO DISK =''' +P+'''');
DM.Q.ExecSQL();
for m:=0 to 10000 do
progressbar1.Position:=m;
Screen.Cursor := crDefault;
Application.MessageBox('數據庫備份成功完成','數據庫備份',0+mb_iconinformation);
progressbar1.Position:=0;
except
Screen.Cursor := crDefault;
Application.MessageBox('數據庫備份失敗!請檢查備份路徑或網絡狀態','數據庫備份',0+mb_iconinformation);
exit;
end;
end;
end;
self.Caption:='備份數據';
end;
procedure TSJBF.SpeedButton2Click(Sender: TObject);
begin
Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -