?? sjbfunt.pas
字號:
unit sjbfunt;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
Tsjbffrm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label3: TLabel;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
sjbffrm: Tsjbffrm;
implementation
uses data;
{$R *.dfm}
procedure Tsjbffrm.FormActivate(Sender: TObject);
begin
edit1.Text:=datetimetostr(date);
end;
procedure Tsjbffrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
sjbffrm:=nil;
sjbffrm.Free;
end;
procedure Tsjbffrm.BitBtn1Click(Sender: TObject);
var
str1:string;
begin
label3.Caption:='正在進行文件備份,請稍候... ...';
try
str1:=ExtractFilePath(Application.ExeName)+'backup\'+trim(edit1.text);
with dataman.vipQuery do
begin
close;
sql.Clear;
sql.Add('backup database pos to disk='+#39+str1+#39);
execsql;
end;
showmessage('備份成功!');
label3.Caption:='';
except
showmessage('操作失??!');
end;
end;
procedure Tsjbffrm.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure Tsjbffrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Perform(CM_DialogKey,Vk_TAB,0);
key:=#0;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -