tchart ta field değiştirme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
akipek
Üye
Mesajlar: 254
Kayıt: 24 Haz 2005 01:28

tchart ta field değiştirme

Mesaj gönderen akipek »

2 tane checkbox ım var. (delphi 6 da)
bunlardan hangisini tıklarsam o checkbox a ait fielda göre tchartta grafik cizdirmek istiyorum.
Mesela
[ ]Sehir
[ ] Ülke
var
ülke tıklanırsa ülkedeki insanların sayısına göre grafik çizilecek
şehir tıklanırsa şehirlere göre grafik çizilecek.
nasıl yapabilirim bulamadım bir türlü yerini
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

CHARTIN db CHARTMI?
öyle ise
Combo change de SQL kapa cümleni tekrar oluştur.
query aç
bu kadar

yani

Kod: Tümünü seç

select sum(kişi_sayisi) from tablo sehirler // ( burda ki sehirler senin combodan gelmeli) 
veya

Kod: Tümünü seç

select sum(kişi_sayisi) from tablo ülkeler // ( burda ki ülkeler senin combodan gelmeli) 
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

Pardon tchart ve checkbox demişsin.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
oyle
Üye
Mesajlar: 137
Kayıt: 17 Eki 2006 05:53

Mesaj gönderen oyle »

Baska yontemi varmi bilmiyorum ama benim kullandigim yapi,

Kod: Tümünü seç

 Chart1.Series[0].Clear;
 With DataModule2.IBQuery1 Do
   Begin
     Close;
     Sql.Clear;
     Sql.add('select tarih,'+ComboBox1.Text+' from SINAVSONUCLARI');
     Sql.add('where ogrencino=:ogr');
     Params[0].Asinteger:=StrToInt(FrmAna.CxDbTextEdit1.Text);
     Open;

     if recordcount>0 then
     Begin
     While not eof do
       Begin
         if not(Fields[1].isnull) then
         Chart1.Series[0].Add(Fields[1].Value,Fields[0].Value);
         Next;
       End;
     End;
   End;
akipek
Üye
Mesajlar: 254
Kayıt: 24 Haz 2005 01:28

Mesaj gönderen akipek »

series1.xlabel := 'sehir'

diyincede oluyor.
birisine lazım olur diye yazayım dedim.
Cevapla