【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-beifen.pas,希望本篇文章对您学习有所帮助。
unit beifen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ADODB,datamod_unit;
type
Tbeifenfrm = class(TForm)
SaveDialog1: TSaveDialog;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ADOCommand1: TADOCommand;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean);
private
Trademod:TTrade_DataMod;
{ Private declarations }
public
{ Public declarations }
end;
var
beifenfrm: Tbeifenfrm;
implementation
{$R *.dfm}
procedure Tbeifenfrm.Button2Click(Sender: TObject);
begin
beifenfrm.Close;
end;
procedure Tbeifenfrm.Button1Click(Sender: TObject);
begin
if (edit1.Text='') then
begin
showmessage('请输入备份路径!');
edit1.SetFocus ;
exit;
end
else
screen.Cursor :=crhourglass;
label2.Visible :=true;
label2.Update ;
Trademod.beifen_adocom1.CommandText:='';
Trademod.beifen_adocom1.CommandText:=' backup database TradeMG to disk =:path with init ';
Trademod.beifen_adocom1.Parameters.ParamByName('path').Value :=trim(edit1.Text);
Trademod.beifen_adocom1.Execute ;
label2.Visible :=false;
label2.Update ;
application.MessageBox('备份完毕!','提示:',mb_ok);
screen.Cursor :=crdefault;
end;
procedure Tbeifenfrm.Button3Click(Sender: TObject);
begin
SaveDialog1.InitialDir :=extractfiledir(application.ExeName);
savedialog1.Title :='保存文件';
SaveDialog1.Execute;
end;
procedure Tbeifenfrm.SaveDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
edit1.Text :=savedialog1.FileName ;
end;
end.
上一篇:
DIGIDISPLAY.CPP
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?