DbGrid Veri Silmesini Engelleme

[kaan_karabey]

http://prntscr.com/2l96a1 burdaki dbgriddeki yeri sil butonuna bastığında silinmesini ve düzenlenmesini istemiyorum.
Ama bundan sonra eklenen kullanıcılar düzenlensin ve silinsin bunu nasıl yapabilirim...

[esistem]

Gride bağlı tablo adını Table varsayıyorum. Kullanıcı Adı alanını da ,UserName varsayıyorum.
ButtonOnClick olayına

Kod: Tümünü seç

if TableUserName.ASString<>'ADMİN' Then Begin
< Silme İşlemi >
End else Showmessage ('ADMİN kullanıcısı silinemez...!');

böylece ADMİN kullanıcısı Silinemez olacaktır. Aynı olayı Düzenle butonuna da yazabilirsiniz.

[mrmarman]

Başka bir konu ama bunu da değerlendirmenizi önemle tavsiye ederim...:

- DBGrid ile direkt görüntüleme yapıldığında, şöyle bir açık bulunur. Delphi mühendisleri varsayılanlar içerisinde ReadOnly durumunu false şeklinde düşünmüşler, bizim bunu değerlendirmemiz lazım.

- DBGrid'deki bir kayıt üzerindeyken CTRL + DEL tuşlarına basın sonucu gözlemleyin.

[kaan_karabey]

Başka bir konu ama bunu da değerlendirmenizi önemle tavsiye ederim...:

- DBGrid ile direkt görüntüleme yapıldığında, şöyle bir açık bulunur. Delphi mühendisleri varsayılanlar içerisinde ReadOnly durumunu false şeklinde düşünmüşler, bizim bunu değerlendirmemiz lazım.

- DBGrid'deki bir kayıt üzerindeyken CTRL + DEL tuşlarına basın sonucu gözlemleyin.

haklısın silmene izin veriyor ctrl+del yapınca ama readonly aktifleştirince silmene izin vermiyor o uyarı gelmiyor teşekkür ederim

[kaan_karabey]

Gride bağlı tablo adını Table varsayıyorum. Kullanıcı Adı alanını da ,UserName varsayıyorum.
ButtonOnClick olayına

Kod: Tümünü seç

if TableUserName.ASString<>'ADMİN' Then Begin
< Silme İşlemi >
End else Showmessage ('ADMİN kullanıcısı silinemez...!');

böylece ADMİN kullanıcısı Silinemez olacaktır. Aynı olayı Düzenle butonuna da yazabilirsiniz.

bunun aynısını firebird ile nasıl uygularım????????

[kaan_karabey]

Yardım edebilecek kimse yok mu????

[greenegitim]

Kod: Tümünü seç

if ibdatasetusernama.text ='ADMİN' then
begin
showmessage('Admin kullanıcısı silinemez');
abort;
end else ibdataset.delete;

yada

Kod: Tümünü seç

if dbeditkullanici.text ='ADMİN' then
begin
showmessage('Admin kullanıcısı silinemez');
abort;
end else ibdataset.delete;