Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Dbgridi vertikal dbgrid olarak nasıl kullanabilirim?[ÇÖZÜLDÜ]
#1
Değerli arkadaşlar selamlar. Yazdığım bir projemde güncelleme yapıyorum. Kullandığım dbgrid nesnesinin vectical kullanılması gerekiyor. Dev ekspresin vertikaldbgrid nesnesi var yalnız bunu kullanmak istemiyorum. Çünkü programda skin özelliği var. Kullandığım dbgridin kalması gerekiyor. Nasıl bir yol izleyebilirim? 

Teşekkürler

Arkadaşlar belki lazım olur cihetinden sorunu nasıl çözdüğümü paylaşmak isterim. Kullanındığım tasarım ve arayüzden dolayı kısıtlı alanım vardı. Yaptığım güncelleme ile veritabanı yapısında değişiklik yaptım. Bundan dolayı da kısıtlı alanda dbgridde liste kullanmam mümkün değildi. Ancak dikey grid kullanabilirdim. Bende geçici bir tablo yapıp içine iki alan ekledim. döngü ile bu alanlara tablodaki başlıkları ve sorgudan dönen içerikleri ekledim. kod aşağıdadır.
procedure TForm1.Button4Click(Sender: TObject);
var
sl: TStrings ;
Say,say1:integer;
begin
SL := TStringList.Create;
 Adoquery1.SQL.Clear;
 Adoquery1.SQL.Add('SELECT * FROM NOBET WHERE TARIH =DATE()');
 Adoquery1.OPEN;
 ADOQuery1.First;
// yukarda tarihe göre sorgu yapıyorum
    try
    ADOConnection1.GetFieldNames('NOBET',SL);// tablodaki alan isimlerini liste atıyorum
      ADOTable2.OPEN;
     for say :=0  to sl.Count -1 do   // tablodaki sutun sayısı kadar döngüye sokuyorum
     begin
      ADOTable2.Append; // ilk kaydı atıyorum
      for SAY1 :=0  to  Adoquery1.RecordCount -1  do   // queryden dönen sayı kadar döngü burada asıl olan ilgili alandaki veriyi de almak
          BEGIN
       ADOTable2.FieldByName('ALAN').AsString:=SL.Strings[SAY];// alan isimli alana tablodaki ilk başlığı ekliyorum
       ADOTable2.FieldByName('PERSONEL').AsString:=ADOQuery1.FIELDBYNAME(
         SL.Strings[SAY]).AsString; //  aynı alan karşısına da queryden dönen sonucu içeriği atıyorum
           end;
      ADOTable2.Post; 
    
       END;
     ADOTable2.CLOSE;
     ADOQuery1.Close;
   //  ADOTable2.Refresh;

   
     /////

   ShowMessage('veriler eklendi');
      FINALLY
     SL.Free;
END;
Cevapla
#2
Pivot araştırın..
// Bilgi paylaştıkça çoğalır.. 

Cevapla
#3
TValueListEditor nesnesini veritabanı bilinçli hale getirerek işinizi görebilirsiniz.
P.Safa:Yaşlanarak değil, yaşayarak tecrübe kazanılır.Zaman insanları değil,armutları olgunlaştırır
C.Yücel:Toprak gibi olmalısın! Ezildikçe sertleşmelisin!Seni ezenler sana muhtaç kalmalı! Hayatı sende bulmalı
S.Canan:Bildiğini zannettiğin an hiç bir şey öğrenemezsin
Bilgi uçar
WWW
Cevapla
#4
Selamlar. Sorununuzu tam olarak anlayamadım. Biraz daha bilgi verebilir misin?
Cevapla
#5
(02-02-2019, Saat: 19:16)wiseman Adlı Kullanıcıdan Alıntı: Selamlar. Sorununuzu tam olarak anlayamadım. Biraz daha bilgi verebilir misin?

Sorgu ile bir satır bilgi getiriyorum. Yalnız sutun başlıkları net değil kullanıcı ekleme yapıyor. Kullandığım yerde alan sorunu olmasından dolayı sütun başlıklarının dikey biçimde olması gerekiyor. İlk sütun header, ikinci sütun ise içerik olacak. Devexpresin cxdbverticalgrid tam işimi görüyor ama bu defa tüm formdaki nesnleri ve skinleri değiştirmem gerekiyor. Arayüz kullandım. Bundan dolayı ya dbgridi dikey kullanma yolu bulmalıyım ya da stringgride sorguyu atmalıyım. Şuan araştırmalara devam ediyorum. Farklı fikirlere açığım.
Cevapla
#6
Kullanmış olduğunu veritabanı nedir?

Veritabanında Function yazarak (Veritabanı içinde) ihtiyacınızı karşılayacak biçimde MemoryTable oluşturup, Programdan da MemoryTable Select çekebilirsiniz...

( benzer uygulamayı eski çalıştığım firmada MySql ile yapmıştım... ancak paylaşabileceğim bir kod örneğine sahip değilim... )
Girdim İlim Meclisine, 
Eyledim Kıldım Talep, 

Dediler İlim Geride, 
İlla Edep İlla Edep.

Yunus Emre
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [ÇÖZÜLDÜ]animate işlemi wiseman 2 184 11-05-2020, Saat: 09:23
Son Yorum: wiseman
  [ÇÖZÜLDÜ]Chart Hatası hk. wiseman 5 331 05-05-2020, Saat: 17:50
Son Yorum: wiseman
  DbGrid To Excel & DataSet To Excel yhackup 17 5.028 03-05-2020, Saat: 22:44
Son Yorum: streamworld
  [çözüldü] TeeChart 10.2 yeniden kurulum wiseman 4 309 29-04-2020, Saat: 01:02
Son Yorum: hi_selamlar
  Rsa anahtarında modulus nasıl çıkarılır. seci20 4 275 25-04-2020, Saat: 01:07
Son Yorum: seci20



Konuyu Okuyanlar: 1 Ziyaretçi