?? dbbackupdesignunit.pas
字號:
//*-----------------------------------------------------------------------------
//* 系統(tǒng)名稱:數(shù)據(jù)自動備份系統(tǒng)
//* 作 者:陳春華
//* 開發(fā)時間:2005
//* Windows2000 Server + SQL Server2000 + Delphi7
//* 功能簡介:
//* 軟件可自動完成SQL Server數(shù)據(jù)庫和文檔的數(shù)據(jù)定時自動備份,
//* 由用戶選擇對哪些數(shù)據(jù)庫或文檔進(jìn)行數(shù)據(jù)備份,提供對備份、還原
//* 數(shù)據(jù)作業(yè)的管理、分析、日志跟蹤等功能,備份頻率不受限制。
//*-----------------------------------------------------------------------------
unit DBBackupDesignUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Mask, FileCtrl, jpeg;
type
TDBBackupDesignForm = class(TForm)
Image2: TImage;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
Label2: TLabel;
MaskEdit1: TMaskEdit;
Memo2: TMemo;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Memo3: TMemo;
Label5: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DBBackupDesignForm: TDBBackupDesignForm;
implementation
{$R *.dfm}
uses VariableUnit, DBBackupSetupFinishUnit, NewDBBackupItem;
procedure TDBBackupDesignForm.Button1Click(Sender: TObject);
var
odir: String;
begin
if not SelectDirectory('請選擇存儲位置,數(shù)據(jù)將備份到指定位置','',odir) then
exit
else
Edit1.Text:= odir;
end;
procedure TDBBackupDesignForm.Button2Click(Sender: TObject);
begin
if Edit1.Text='' then
ShowMessage('請選擇備份路徑!')
else if MaskEdit1.Text=' : ' then
ShowMessage('請設(shè)置準(zhǔn)確的備份起始時刻!')
else if (Edit2.Text='') or (StrToFloat(Edit2.Text)<24)then
ShowMessage('同一天只備份一次,頻率必須大于24小時!')
else
begin
path:=Edit1.Text;
backupTime:=StrToTime(MaskEdit1.Text);
frequency:=StrToFloat(Edit2.Text);
DBBackupSetupFinishForm.Show;
self.Close;
end;
end;
procedure TDBBackupDesignForm.Button3Click(Sender: TObject);
begin
close;
end;
procedure TDBBackupDesignForm.Button4Click(Sender: TObject);
begin
NewDBBackupForm.Show;
self.Close;
end;
procedure TDBBackupDesignForm.FormShow(Sender: TObject);
begin
Edit1.Text:='';
MaskEdit1.Text:=' : ';
Edit2.Text:='';
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -