tablodaki tek bir kayıt seçildiğinde panel gösterme..

[Biltes]

Arkadaşlar öncelikle herkese kolay gelsin,

Sorunum şu bir tablom var ve bu tabloda onay adında bir alanım var yapmak istediğim olay kod tablodaki tüm kayıtlara bakacak eğer bunlardan birinin değeri "1" ise panel gösterecek deilse gösermeyecek. Belki güleceksiniz bu soru için ama inanın beynim durdu. Kullandığım kodu aşağıda yazıyorum, sizce nerede hata yapıyorum yada sizlerin daha ii bir önerisi olan var mı?

Kod: Tümünü seç

  if not sprtable.IsEmpty Then
    Begin
      sprtable.First;
      while not sprtable.Eof Do
        Begin
          sprtable.Next;
          if not sprtableonay.AsInteger = 0 Then
            Begin
              ctable.Open;
              Panel1.Visible := True;
            End;
        End;
    End;

İlginize şimdiden çok tşk ederim...

[conari]

Tüm tabloyu açıp alanları karşılaştırma
Tablona

Kod: Tümünü seç

where onay=1 

kısıtını ver.
sonuç dönerse işleme devam edersiniz.

[Battosai]

if not sprtable.IsEmpty Then
Begin
sprtable.First;
while not sprtable.Eof Do
Begin
if sprtableonay.AsInteger = 1 Then
Begin
ctable.Open;
Panel1.Visible := True;
exit;
End;
sprtable.Next;
End;
End;

Burda kayıtların içinde onay değeri 1 olan kayıt bulunduğunda panel görünür ve döngüden çıkılır...

[Biltes]

Çok tşk ederim, yukarıdaki kod tam istediğim gibi hocam parmaklarınıza sağlık...