Comment écrire Programme ( delphi 7) de sécurité, procédez comme suit :
المكونات المستعملة : BitBtn2 ,BitBtn1, dbcombobox,edit
طريقة العمل :
نربط المكون dbcombobox بقاعدة البيانات الخاصة بها :
نكتب التعليمة التالية في الزر BitBtn1 :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
b:boolean;
begin
i:=1;
b:=false;
repeat
if dbcombobox1.text='ADMIN' then
if edit1.text='123' then
begin
form3.show;
hide;
exit;
end
else
begin
edit1.Clear;
showmessage('mot de passe incorrect');
edit1.SetFocus;
exit;
end
else
begin
//edit1.Clear;
showmessage('le NOM incorrect');
//edit1.SetFocus;
exit;
end;
inc(i);
until i=5;
end;
end.
ملاحظة :
يجب انشاء جدول خاص بالقفل
