Kullanıcıya göre kısıtlama

[PoaX]

Aşağıdaki procedure ne gibi bir ekLenti yaparak kullanıcıya göre örneğin bir butonun visible özelliğini true veya false yapabiLirim yardımcı oLursanız sevinirim
DbCheckBox bu iş için yeterLi mi acaba ??*


procedure Tstarting.cxButton1Click(Sender: TObject);
var
adet:integer;
GirisPassword: String;
begin
adet:=0;
If Self.cxTextEdit1.Text = '' Then Begin
Application.MessageBox('Kullanıcı adını boş geçemezsiniz...','Hata!!!',0);
Self.cxTextEdit1.SetFocus;
Exit;
End;
AdoQuery1.SQL.Text := 'SELECT * FROM userx WHERE userr='''+Trim(cxTextEdit1.Text)+'''';
AdoQuery1.Open;
GirisPassword := Trim(AdoQuery1.FieldByName('password').AsString);
If AdoQuery1.RecordCount = 0 Then Begin
Application.MessageBox('Böyle bir kullanıcı kayıtlı değildir...','Hata!!!');
AdoQuery1.Close;
Exit;
End Else Begin
If GirisPassword = Self.cxTextEdit2.Text Then Begin

dbCheckBox1.DataSource:=datam.DataSource1;
DbCheckBox1.DataField:='adminmi';
if DbCheckBox1.Checked=true then
begin

generalapp.ShowModal;
end
else
begin

generalapp.ShowModal;
starting.Visible := False;

end;
End
Else
Begin
Application.MessageBox('Şifre hatalı lütfen tekrar deneyiniz...','Hata!!!');
adet:=adet+1;
if adet>=3 then
close;

End;
End;
AdoQuery1.Close;
end;

[PoaX]

HerhaLde cevap verecek kimse yok ?

[CiTiZEN]

arama yaparsanız daha hızlı sonuçlara ulaşabilirsiniz aşağıdaki linkte bi kaç bilgi mevcut.

viewtopic.php?f=2&t=25506&p=143836&hili ... B1#p143836

[PoaX]

Ben pek bir şey görmedim. Button.visible := true dan başka bir şe yok. ????

[PoaX]

HaLLettim teşekkür ederim. yapıLması gereken

If GirisPassword = Self.cxTextEdit2.Text Then Begin
if Adoquery1.FieldByName('adminmi').AsVariant=false then
begin
generalapp.dxNavBar1Item1.Visible:=false;
generalapp.ShowModal;
starting.Visible := False;
end
else
begin
generalapp.dxNavBar1Item1.Visible:=true;
generalapp.ShowModal;
starting.Visible := False;

[CiTiZEN]

Ben pek bir şey görmedim. Button.visible := true dan başka bir şe yok. ????

örnek olması açısından yazmıştım...herneyse sonucu paylaştığın için saol