dbgridmi stringgridmi listboxmı

[similyan]

nasıl yapacağımı bulamadım..
ad soyad tel gibi başlıklar olacak altında bilgiler ordan seçtiğim kayıt listbox a geçecek umarım anlatabilmişimdir.

ad----soyad----tel
ali.....can........2156416
ayşe...gül.....15151
burdan mouse seçip sürükleyerek yada buton sayesinde seç dediğimde yandaki listboxa yine aynı başlıklar altında 1. 2. diye sıralacak hangi bileşenle nasıl yapacam bulamadım..

[MicroChip]

saydığın tüm bileşenler ile yapılabilir. Ama senin ne yapmak istediğini pek anlamadım. tam olarak açıklarsan iyi olur.

mesela dbgridden verilerin vardır listboxa atabilirsin yada tersi yada stringgrid hiç farketmez. ne yapmak istediğin önemli


saygılar...

[similyan]

tam olarak şöle tablo tarzında bilgiler gözükecek kategoriler ve altında bilgiler düzenli bir şekilde..ordan seçtiğim diğer listboxta mesela yine kategoriler altında listelenecek..worddeki tablo gibi yani


yani üsteki resimde mouse ile tıklayıp seç deyince alttaki tabloya atacak..

[similyan]

seçtiğimiz alanı dbgridden listboxa nasıl atacaz bilgileri..

[serkan]

Kod: Tümünü seç

ListBox1.Items.Add(table1HESAPKODU.text+'  '+table1UNVANI.text);

yani seçtiğin dbgrid den değil dbgridin bağlı olduğu tablodan atabilirsin..

[similyan]

sağol serkan ama olmadı yani yapamadım..dbgridden seçilini olan alan ile ilgili bölümün tümünü sırasıyla listboxa atacam..yani
ad soyad tel
a aa 145

mesela a yazan yerin üzerine gelip seç butonuna tıklayınca a aa 145 i listbox a atacak...

[ulu coder]

ListBox hoş olmaz, ListView koyup, ViewStyle'ını Report seçin.
DBGrid'in table'a bağlı olduğunu varsayarak yazıyorum:

Kod: Tümünü seç

var
  ItemNo: Integer;
begin
  ItemNo := ListView1.Items.Count;
  ListView1.Items.Add;
  ListView1.Items.Item[ItemNo].Caption := Table1.FieldByName('AD').AsString;
  ListView1.Items.Item[ItemNo].SubItems.Add(Table1.FieldByName('SOYAD').AsString);
  ListView1.Items.Item[ItemNo].SubItems.Add(Table1.FieldByName('TEL').AsString);
end;

Kolay Gelsin...

[serkan]

olmadı derken nasıl olmadı...
sen kendi alan adlarını yazacaksın..

Kod: Tümünü seç

ListBox1.Items.Add(table1ad.text+'  '+table1soyad.text+'  '+table1telefon.text); 

burda table1 yazan yere senin dbgridin bağlı olduğu tablonun ismini yazacaksın.

[similyan]

serkan ben adotable kullanıyorum dbgridde veritabanından direk alınan bilgiler mevcut..ordakilerden seçtiğimi listboxa atacam..
ulucoder senin kodlarıda söylediğin gibi butonun onclick olayına ekledim sorun yok çalışıyor ama olmuyor yine.listview e atmıyor..

[ulu coder]

ListView'a Column'ları eklemen gerek, unumuşum.
ListView'a çift tıkla, yeni pencere çıkacak.
Column'ların Caption'larını da yazmayı unutma.

[similyan]

adotable1:fields ad not found dedi şimdide...

[ulu coder]

Demek ki tablonda 'AD' adında bi alanın yokmuş (:
Tablondan hangi alanları ekleyeceksen onları yazacaksın.

[similyan]

ad alanı var veritabanı bağlantılarıda tamam ee sorun ne o zaman ben bu verdiğin kodu butonun içerisine yazıyorum

Kod: Tümünü seç

var 
  ItemNo: Integer;
begin
  ItemNo := ListView1.Items.Count;
  ListView1.Items.Add;
  ListView1.Items.Item[ItemNo].Caption := adoTable1.FieldByName('Ad').AsString;
  ListView1.Items.Item[ItemNo].SubItems.Add(adoTable1.FieldByName('Soyad').AsString);
  ListView1.Items.Item[ItemNo].SubItems.Add(adoTable1.FieldByName('Tel').AsString);

[similyan]

tamamdır çok güzel oldu teşekkürler..aynı kodları tekrar yazdım oldu hayret..Listview den tekrar nasıl silecez

Kod: Tümünü seç

var
  ItemNo: Integer;
begin
 ItemNo := ListView1.Items.Count;
 ListView1.Items.clear;

yapınca listenin hepsini siliyor istediğimi nasıl sildirecem
birde ListView de yazanları word dosyası olarak nasıl kaydedecez..son iki soru

[ulu coder]

Seçili öğeyi silmek için

Kod: Tümünü seç

if ListView1.ItemIndex > -1 then //Seçilmiş Item var mı kontrolü
  ListView1.Selected.Delete;

Word'e aktarmak için:

Kolay gelsin