DBComboBox sorunu

[eseNuri]

Arkadaşlar biliyorum çok oluyorum ama benim bi sorunum daha var. Formumda bi DBComboBox kullandım ve bu ComboBox'a şu an kirada olan filmleri listeledim. Bu kod şöyle:

Kod: Tümünü seç

fiade.Clear;
  DataModul.tfilmler.First;
 for b:= 0 to DataModul.tkirasat.recordcount-1 do
  begin
  for a:=0 to DataModul.tfilmler.RecordCount-1 do
  begin
     if (datamodul.tkirasatdurum.value=1)and(datamodul.tfilmleradresim.value=datamodul.tkirasatrelfilm.value) then
       fiade.Items.Add(DataModul.tfilmleradi.Value);
    DataModul.tfilmler.Next;
  end;
  datamodul.tkirasat.Next;
  end;

Burada durum'un değeri 1 olan demek kirada olan demektir. Bana query kullan diyeceksiniz ama query ile bugüne kadar hiçbir şey yapamadım. (Z'den A'ya doğru listeleme dışında)


Burada listelemeyi başardım fakat listedeki herhangi bir kaydı seçemiyorum. Yardım ederseniz sevinirim

[danaci]

query ile ilgili kayıtlarını süz

select * from filmler where şartların1 and şartların2 şeklinde

daha sonra dbcomboboxun datasource ve datafield ini ayarla. Yani burada datasource değerini query olarak verebilirsin.

[eseNuri]

beceremedim yaaaaa

[conari]

Bir örnek

Kod: Tümünü seç

procedure TSktForm.FormActivate(Sender: TObject);
var lastsirket: string;
begin

    lastsirket:=register_oku('Software\Siparis','Lastsirket');
    ComboBox1.Items.Clear;
    sirketlerQuery.First;
    while not(sirketlerQuery.Eof) do
    begin
        ComboBox1.Items.Add(sirketlerQuerysirket.Value);
        sirketlerQuery.Next;
    ComboBox1.Text:=lastsirket;
end;
 end;

Queryden kayıt dönmüş durumda
dönen kayıdı Comboya atıyoruz..

combo da aktif değerini registerdan okuyup eşitliyoruz