أفضل برمجة قفل للبرنامج بالدالفي
ملاحظة : تمكنك هذه الطريقة باضافة اسم والقفل و تغيره والتحكم فيه بطريقة جيدة
أكيد يجب عليك تخصيص فورم خاص باضافة القفل وتغيره تظهر الى المدير فقط .
*****لاتبخلو علينا بالدعاء عمر نغبال
الطريقة كالتالي:
1- نقوم باضافة جدول فيه اسم والقفل
2- نفتح واجهة الدالفي نقوم باضافة adotable نربطه بجدول الققفل
3- نقوم باضافة edit1,edit2 + BitBtn1
العمل :
ملاحظة : تمكنك هذه الطريقة باضافة اسم والقفل و تغيره والتحكم فيه بطريقة جيدة
أكيد يجب عليك تخصيص فورم خاص باضافة القفل وتغيره تظهر الى المدير فقط .
*****لاتبخلو علينا بالدعاء عمر نغبال
1- نقوم باضافة جدول فيه اسم والقفل
2- نفتح واجهة الدالفي نقوم باضافة adotable نربطه بجدول الققفل
3- نقوم باضافة edit1,edit2 + BitBtn1
العمل :
procedure TForm1.sBitBtn1Click(Sender: TObject);
begin
datamodule2.MP.Open;
datamodule2.MP.First;
if
datamodule2.MPutilisateur.Value='admin' then
begin
form3.sBitBtn10.Visible:=true;
Form3.showModal;
end
else
begin
if datamodule2.MPutilisateur.Value=sedit1.Text then
begin
if datamodule2.MPMP.Value=sedit2.Text then
begin
//datamodule2.MPMP.Visible:=False;
form3.sBitBtn10.Visible:=false;
Form3.showModal;
sedit1.Clear;
sedit2.Clear;
end
Else
begin
SHOWMESSAGE('Mot de
Passe Incorrecte...!');
sEdit1.Text:='';
end;
end
else
SHOWMESSAGE('Nom
Utilisateur Incorrecte...!');
end;
end;
procedure TForm1.sEdit1Change(Sender: TObject);
begin
if sEdit1.Text<>'' then
begin
datamodule2.MP.Filter
:= ' utilisateur like '+QuotedStr(sEdit1.Text+'*');
datamodule2.MP.Filtered := true;
end
else
begin
datamodule2.MP.Filtered := false;;
end;
end;
procedure TForm1.sEdit2Change(Sender: TObject);
begin
if sEdit2.Text<>'' then
begin
datamodule2.MP.Filter := ' MP like '+QuotedStr(sEdit2.Text+'');
datamodule2.MP.Filtered := true;
end
else
begin
datamodule2.MP.Filtered := false;;
end;
end;
