في هذا الدرس
سنتطرق الى انجاز النافدة الخاصة بالخروج من البرنامج و التي ستكون بها
خاصية الخروج المباشر
من البرنامج او خاصية الخروج من البرنامج مع امكانية حفظ
نسخة من قاعدة البيانات في مجلد لوحده في
نفس مجلد قاعدة البيانات استعملنا
فورم جديد اضافة الى بعض المكونات كزري الخروج و زر إلغاء الخروج كما ترون في
الصورة
استعملنا كذلك مكون Gauge لكي يسمح لنا ببعض الوقت لإتمام العملية بنجاح هذه الخاصية يقوم بها مكون ZipForge
الذي يمكننا من ضغط ملف قاعدة البيانات في هذا البرنامج للمحافظة عليها او في حال تلفها او حدفها
بعد تنفيذ البرنامج نتحصل
الكود المستعمل في الدرس
unit MessageSortie;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ZipForge, ExtCtrls, ImgList, sppngimagelist, DynamicSkinForm,
SkinCtrls, SkinExCtrls, StdCtrls;
type
TForm2 = class(TForm)
spSkinPanel1: TspSkinPanel;
Label43: TLabel;
spSkinPanel2: TspSkinPanel;
spSkinSpeedButton1: TspSkinSpeedButton;
spSkinSpeedButton2: TspSkinSpeedButton;
spSkinDivider1: TspSkinDivider;
spSkinCheckRadioBox1: TspSkinCheckRadioBox;
spSkinPanel3: TspSkinPanel;
spSkinGauge2: TspSkinGauge;
spDynamicSkinForm1: TspDynamicSkinForm;
spPngImageList1: TspPngImageList;
Timer1: TTimer;
ZipForge1: TZipForge;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure spSkinSpeedButton1Click(Sender: TObject);
procedure spSkinSpeedButton2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Déclarations privées }
procedure CreateParams(var params:TCreateParams ); override;
public
{ Déclarations publiques }
end;
var
Form2: TForm2;
implementation
uses BDD,Acceuil,principal;
{$R *.dfm}
const
clOrange = TColor($0000048DF);
procedure TForm2.CreateParams(var params:TCreateParams );
begin
inherited CreateParams(params);
params.ExStyle := params.ExStyle or WS_EX_APPWINDOW;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.Enabled := true;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Label43.Font.Color := clOrange;
end;
procedure TForm2.spSkinSpeedButton1Click(Sender: TObject);
begin
if spSkinCheckRadioBox1.Checked = true then
begin
form2.Height:= 245;
Timer1.Enabled:=true;
end
else
application.Terminate;
end;
procedure TForm2.spSkinSpeedButton2Click(Sender: TObject);
begin
form4.Enabled := true;
form2.Close;
spSkinCheckRadioBox1.Checked := false;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var archiver : TZipForge;
begin
spSkinGauge2.Value := spSkinGauge2.Value + 1;
case spSkinGauge2.Value of
10: spSkinGauge2.ProgressText := 'La Sauvegarde est en cours ... ';
20 : spSkinGauge2.ProgressText := 'La Sauvegarde est en cours ... ';
40 : spSkinGauge2.ProgressText := 'La Sauvegarde est en cours ... ';
60 : spSkinGauge2.ProgressText := 'La Sauvegarde est en cours ... ';
90 : spSkinGauge2.ProgressText := 'La Sauvegarde est en cours ... ';
95 : spSkinGauge2.ProgressText := 'Sauvegarde Terminer Avec Succès......C''est Bon ' ;
100 :begin
archiver := TZipForge.Create(nil);
try
with archiver do
begin
FileName := 'C:\Users\Ouadah Adda\Desktop\Gestion Auto Ecole\data\Archives\BDD.zip';
OpenArchive(fmCreate);
BaseDir := 'C:\';
AddFiles('C:\Users\Ouadah Adda\Desktop\Gestion Auto Ecole\data\BDD.ABS');
CloseArchive();
end;
except
on E: Exception do
begin
Writeln('Exception: ', E.Message);
Readln;
end;
end;
timer1.Enabled := false;
application.Terminate;
end;
end;
end;
end.
وهذا درس الفيديو على قناتنا
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
نتمنى ان يكون الدرس مفيد لكم
