Tümünü işaretle

[cmkare]

Merhaba. yaptığım programda soru cevaplama ekranı var. kullanıcı bunu tek tek işaretliyor. Çok iyi - İyi - kötü gibi.. Ben, 4 tane buton yapmak istiyorum. ve bu butonların görevi Çok iyiye tıklarsa tüm soruların karşılığı çok iyi olacak, İyiye tıklarsa iyi olacak, kötüye tıklarsa hepsi kötü olacak gibi yapmak istiyorum.

Cxgrid üzerinden doldurtuyorum. ektede görebilirsiniz. bir butonla nasıl hepsini nasıl işaretleyebilirim?

[KoPilot]

Eğer verileri bir veritabanından alıyorsan

Kod: Tümünü seç

while not dataset.eof do
begin
   dataset.fieldbyname('alan_adi').asinteger:=1;
   dataset.next;
end;

delphi kurulu değil. Denemeden yazdım böyle olması lazım.

[cmkare]

begin
while not ADOQuery1.eof do
begin
ADOQuery1.Edit ;
ADOQuery1.fieldbyname('SIK').asinteger:=1;
ADOQuery1.next;
ADOQuery1.Append;
end;
end;

bu şekilde 4 şıkkıda birden işaretliyor. yanyana.. ben sadece Çok iyileri işaretlesin istiyorum alt alta. neyi değiştirmem lazım?

Çok iyi - İyi - Orta - Kötü bunlar benim gridde elle oluşturduğum alanlar. hepsi queryde SIK alanına bağlı.
çok iyiyi işaretlerse SIK alanına 1 yazıyor.
İyiyi işaretlerse SIK alanına 2 yazıyor
ortayı işaretlerse SIK alanına 3 yazıyor..

[KoPilot]

Kod: Tümünü seç

ADOQuery1.Append;

Bu satırla
"kayıtların sonuna gelinceye kadar yeni satır ekle" demişsin. Bence bu satırı kaldırmalısın.

cxgrid hiç kullanmadım dolayısıyla özelliklerini bilmiyorum ama mantık olarak bi yanlışlık yok.
SIK alanı 1 ise çok iyi işaretlenir .....v.s

(tabi kontrolleri yapıyorsan)

[cmkare]

evet oldu. teşekkürler..