في هذا الدرس الجديد الخاص بدورة مشروع انجازبرنامج تسيير مدارس تعليم السياقة بالدلفي و الذي قمنا فيه إنشاء رسالة ترحيبية
تتضمن الولوج الى الواجهة الثانية و الخاصة بالمستخدمين حيث يقوم البرنامج بعرض جميع المستخدمين المسجلين على مستوى قاعدة البيانات كل مستخدم والإسم الخاصبه اضافة الى كلمة المرور حيث ان البرنامج به تقنية لا تمكنك من الدخول الى البرنامج بكلمة سر خاطئة اربع مرات يغلق البرنامج تلقائيا اضافة الى تقنية اخرى و هي رسالة التنبيه في حال كلمة السر الخاطئة هي عبارة عن صورة صغيرة تظهر في حال الخطأ و تختفي في حال افرغنا الحقل الخاص بكلمة السر
صورة الرسالة الترحيبية
صورة واجهة المستخدم في حال الخطأ
طبعا الدرس عبارة عن فيديو يمكنكم متابعته مباشرة على قناتنا و الدي سنضعه في هذا الموضوع اما الأكواد المستعملة فهي كالتالي:
الكود الخاص بالرسالة الترحيبية:
implementation
uses utilisateur,BDD;
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var i : Integer;
begin
spSkinGauge2.Value := spSkinGauge2.Value + 1;
case spSkinGauge2.Value of
1 : spSkinGauge2.ProgressText := 'Collecte des informations en cours ... ';
20 : spSkinGauge2.ProgressText := 'Chargement des Bases de Données en cours ...';
40 : spSkinGauge2.ProgressText := 'Chargement des paramètres en cours ... ';
60 : spSkinGauge2.ProgressText := 'Préparation de l''interface en cours ... ';
90 : spSkinGauge2.ProgressText := 'Fin des préparations......C''est Bon ';
100 : begin
Form3.Show;
begin
Form3.spSkinComboBox1.Items.Clear;
DataModule2.ADOTable1.First;
for i:=1 to DataModule2.ADOTable1.RecordCount do
begin
if DataModule2.ADOTable1NOM_UTILIS.IsNull = False then
Form3.spSkinComboBox1.Items.Add(DataModule2.ADOTable1NOM_UTILIS.Value);
DataModule2.ADOTable1.Next;
end;
Form3.spSkinComboBox1.ItemIndex := 0;
end;
Form3.spSkinPasswordEdit1.SetFocus;
Form1.Hide;
Timer1.Enabled:=false;
end;
end;
end;
:الكود الخاص بواجهة المستخدمين
private
{ Déclarations privées }
Fcounter:integer;
procedure CreateParams(var params:TCreateParams ); override;
public
{ Déclarations publiques }
end;
var
Form3: TForm3;
C : String[30];
D: String[30];
implementation
uses Acceuil,BDD,Principal;
{$R *.dfm}
const
clOrange = TColor($0000048DF);
procedure TForm3.CreateParams(var params:TCreateParams );
begin
inherited CreateParams(params);
params.ExStyle := params.ExStyle or WS_EX_APPWINDOW;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
Label2.Font.Color := clOrange;
Label3.Font.Color := clOrange;
end;
procedure TForm3.Image3MouseEnter(Sender: TObject);
begin
Timer1.Enabled := false;
end;
procedure TForm3.Image3MouseLeave(Sender: TObject);
begin
Timer1.Enabled := true;
end;
procedure TForm3.spSkinButton1Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm3.spSkinPasswordEdit1Change(Sender: TObject);
begin
Image3.Visible := False;
spSkinPasswordEdit1.Width := 157;
end;
procedure TForm3.spSkinPasswordEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
DataModule2.ADOTable1.Locate('NOM_UTILIS',spSkinComboBox1.Text,[]);
if DataModule2.ADOTable1MOT_PASSE.Value = spSkinPasswordEdit1.Text then
begin
form3.Hide;
form4.show;
C := DataModule2.ADOTable1NOM_UTILIS.Value;
D := DataModule2.ADOTable1TYPE_UTILIS.Value;
Form4.Caption := '||| GESTION AUTO ECOLE ||| MinaSoft Programmation ||| Session ouverte par : ' + C + ' ||| Type Utilisateur : '+ D + ' |||' ;
DataModule2.ADOTable1.First;
while not DataModule2.ADOTable1.Eof do
begin
//Form6.spSkinListBox1.Items.add(DataModule2.Passutilisateur.Value);
DataModule2.ADOTable1.Next;
end;
end
else
begin
Image3.Visible := True;
spSkinPasswordEdit1.Width := 140;
inc(Fcounter) ;
if Fcounter=4 then
application.Terminate;
end;
end;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
Image3.Visible := not Image3.Visible;
end;
الأن نترككم مع الفيديو
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
نتمنى ان يكون الشرح قد نال اعجابكم الى الدرس القادم ان شاء الله
قد يعجبك ايضا