Formda kullanıcı yetkilendirme hakkında

[secret_boy]

Merhaba arkadaşlar,
bir programda veri tabanına kaydedilmiş kullanıcılar ve verilmesi gereken yetkiler var bunları kodlar ile nasıl çekip kıyaslama yaptırabilirim.
örneğin guest kullanıcımız var ve formda kaydet,düzenle,sil,güncelle butonları mevcut değerleri ise true ve false

Id kullanicilar kaydet düzenle sil güncelle
1 Guest true false true false
2 Admin true true true true

yukarıdaki gibi olan veritabanından kodlar ile yetkiye göre nasıl kıyaslama yaptırabilrim nasıl çekebilrim yardımcı olursanız çok memnun olacağım.Eğer elinde basitte olsa bunun ile ilgili bir çalışması olan arkadaşlarımız varsa burada paylaşırlarsa sevinirim iyi çalışmalar diliyorum.

[Lord_Ares]

veritabanındaki alanlar şöyle olmalı

Kullanıcı_adı : String
Şifre : String
Yetki : integer
Durumu : integer

Mantığıda şöyle yaparsın.

Başta veritabanına temel bir tane Admin kullanıcısı ve şifresini yaratırsın yetki alanınada sayı ile 1 yazarsın. Böylece yetkisi 1 olanlar admin yetkisi 2 olanlar user , 3 olanlar guest gibi dilediğin hakkı verirsin.

Kullanıcı adı ve şifre girilip giriş buttonuna bastığında
veritabanında bu kullancı adını aratır bulduğun da şifre doğrumu ve durumu aktif mi diye karşılaştırırsın. Eğer şifre doğru ve durumu aktifse programa girişini sağlar Ana formunu show edersin. Bu arada tüm unitlerden yani formlardan ulaşabileceğin genel bir değişken tanımla oturum açmış olan kullanıcı adını bu değişkende sakla ki işlem yaparken hangi kullanıcının oturum açtığını takip edebilesin. Durum aktif olayını sen istediğin için koydum bana kalsa gerek yok.

Kişi programı açtığında herhangi bir işlem yapmak istediğinde ilk baş oturum açmış kullanıcı ismini alırsın ve yetki alanındaki değere bakarsın eğer 1 ise admindir ozaman değişiklik yapabilir izin verirsin 2 ise vermezsin gibi

[brs]

Sanırım işini görecektir...

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject);
begin
  with Form1.Userler do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From User Where KULLANICI=:KADI and ONAYLI=:ONAY');
    ParamByName('KADI').Value := (Form1.Edit1.Text);
    ParamByName('ONAY').AsString := 'Evet';
    Prepared := True;
    Open;
    if Not IsEmpty then
    begin
      Application.MessageBox('Giriş yetkisi var', 'var',
        MB_Ok or MB_ICONQUESTION);
    end
    else
    begin
      Application.MessageBox('Giriş yetkisi yok!', 'yok',
        MB_Ok or MB_ICONQUESTION);
    end;
  end;
end;

[Lord_Ares]

brs arkadaşım imzandan ki söz de bana fena kapak oldu gibi şurası özelikle "İşi bilen yardım eder az bilen akıl verir" ))

[brs]

bana fena kapak oldu gibi şurası özelikl

Hoşuma giden sözlerden biri umarım kırmamışımdır sizi...

[Lord_Ares]

Yok estağfurullah paşam kırılmadım. Söz benimde hoşuma gitti şakayla karışık söze dikkat çekmek istedim ))

[secret_boy]

yardımcı olan tüm arkadaşlara teşekkür ederim.
ekteki programı inceleyebilirmisiniz.giriş alanında admin girişi yaptığım zaman yada başka bir kullanıcı ile hep aynı ayarı tutuyor.giriş alanından hangi kullanıcı ile giriş yapmışsam onun bilgileri gelmesi gerekiyor.sadece bu kısmı yapamadım.bunun üzerinden yardım edebilir misiniz.teşekkür ederim

[brs]

Ekteki dosyadan bir şey anlamadım fakat benim bir zamanlar kullandığım kodu paylaşayım...

Kod: Tümünü seç

 with Userler do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From User Where KULLANICI=:KADI and SIFRE=:SIF and ADMIN=:AD');
      ParamByName('KADI').Value := (Edit1.Text);
      ParamByName('SIF').Value := (Edit2.Text);
      ParamByName('AD').AsString := 'Evet';
      Prepared := True;
      Open;
      if Not IsEmpty then //aranan kayıt varsa ve admin ise form 2 yi aç
      begin
        Form1.Hide();
        Form2.ShowModal();
      end
      else
      begin
        Form1.Hide();
        Form3.ShowModal(); // Sadece Kullanıcı ise form 3 aç 
      end;
    end;

[secret_boy]

Merhaba brs öncelikle cevapların için teşekkür ederim programla ilgili bir görsel ekledim.problemim videoyu seyrettikten sonra anlaşılacaktır.
https://yadi.sk/d/OQK6WQt6cx2pF
programdan giriş yapılınca açılan pencereden yetkileri veriyorum (olayı kavramak açısından biraz rasgele yapılmış birşey o yuzden kusura bakmayın)
kaydettikten sonra programı kapatıp açtığım zaman ilk kayıt admin olduğu için hep aynı yetkiler geliyor yani user da alanları kapatmama rağmen açılışta admin yetkisi geliyor bunu girişte yazdığım kullanıcı ve şifre ile eşleştirip ilgili yetkilerin görünmesini istiyorum.umarım anlatabilmişimdir.çok teşekkür ederim.

[brs]

Senden ricam projeni tamamını zipleyip paylaşır mısın...

[secret_boy]

sayın brs kusura bakmayın yanlış yükleme yapmışım şimdi düzelttim proje ektedir ilginiz için teşekkürler.

[tayipk]

senin için basit bir düzeltme yaptım umarım istediğin böyle birşeydir
Kolay gelsin

http://www.filedropper.com/denemem

[secret_boy]

senin için basit bir düzeltme yaptım umarım istediğin böyle birşeydir
Kolay gelsin

http://www.filedropper.com/denemem

ilgilendiğiniz için teşekkür ederim Allah razı olsun.
sayın tayipk bazı hatalar var ve istediğim şekilde çalışmadı konu ile ilgili ekran görüntüsünü ekledim
tekrar teşekkürler

https://yadi.sk/i/-D9Zf3Uhcz8tH

[secret_boy]

konu ile ilgili yardım edebilecek yada ekteki dosyayı değiştirecek arkadaşlarımızdan yardım bekliyorum.teşekkür ederim.

[brs]

Ben size dün iki adet özelden mesaj gönderdim cevap vermediniz ve ayrıca düzenleyipn download linki gönderdim, özel mesajlarına bak ...

http://www.dosya.tc/server36/X1lcMk/denemem.rar.html