while do döngüsü ile databasenin içindeki

[P206]

Biraz karışık olabilir ama şöylwe bişey yapabilrsin, illaki combobox kullanacaksan.

Önce Global bir Stringlist tanımla.

Kod: Tümünü seç

  
private
    { Private declarations }
    liste:  TStringList;

bu şekilde

daha sonra bunu

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
        liste:=TStringList.Create;
end;

ile Create et.

Kod: Tümünü seç

        query.open;
        while not query.eof do begin
                ComboBox1.Items.add(query.Fields[0].AsString);
                liste.add(query.Fields[1].AsString);
                query.Next;

        end;

ile Combobox a ve Stringlist e dosyaları at.
daha sonra .

Kod: Tümünü seç

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
        ShowMessage( Liste.strings[ComboBox1.ItemIndex])
end;

Bu şekilde Combobox ı tıklayınca yanındaki değeri almış olursun.

[a4tech]

sizin dediğiniz jedi paketini indirdim kurdum çalışıyor peki yapmak istediğini hangi aşamalarla yapıcam anlatırmısınız

[a4tech]

ama benim değerleri edit kutularına almam gerekiyor

[TRSoft]

Baştan anlatıyorum..

Ne kullanıyorsun bilmiyorum ama ben Table olduğunu varsayarak yazıyorum.

Formuna gerekli dbeditları yerleştir ve gerekli fieldları ata. Sonra bir adet rxLookupEdit koy ve LookupEditın Object Inspectordeki LookupSource na tablona bağladığın datasource seç daha sonra Lookupfield ve LookupDisplay alanına fisno fieldını bağla..

Şimdi Tablonu filitreleme işlemini yapalım..

Kod: Tümünü seç

Table1.Filtered:=True;
Table1.Filter:='sthar_htur='+''''+'H'+'''';

şimdi Lookupedit üzerinden seçdiğiniz kayda ait diğer fieldlar dbeditlarda görünecektir.

[a4tech]

teşekkür ederim üstadım allah razı olsun