Atiker Yazılım | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Bilgi Bankası > Özel Ekran
  Aktif Konular Aktif Konular RSS - BtQuery PanelToFields & FieldsToPanel Kullanımı
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Atiker Yazılım Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir. Detaylı bilgi ve destek için: 444 82 99

BtQuery PanelToFields & FieldsToPanel Kullanımı

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
mervenur.demic Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 25 Ekim 2018
Durum: Aktif Değil
Puanlar: 262
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı mervenur.demic Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: BtQuery PanelToFields & FieldsToPanel Kullanımı
    Gönderim Zamanı: 26 Ekim 2018 Saat 09:42

BtQuery PanelToFields & FieldsToPanel Kullanımı

BtQuery’nin bir özelliği olan bu fonksiyonlar query’e hızlı bir şekilde field’ları gönderip, alabilmemizi sağlar. 

Bu fonksiyonları kullanabilmek için panel üzerindeki nesnelerin adının tablodaki alan isimleriyle aynı olması gerekmektedir. 

PanelToFields fonksiyonu yeni kayıt veya güncelleme işleminde, FieldsToPanel fonksiyonu ise tablodan forma veri çekmek için kullanabiliriz.


FieldByName Kullanılarak Yapılmış Kayıt Örneği:

Qry := TBtQuery.Create(nil);

  try

    with Qry do                     

    begin  

      RequestLive := True;

      SQL.Text := 'SELECT * FROM ZZ_TBLAVSB WHERE AVUKAT_KODU=' + AVUKAT_KODU.SQLText;

      Open;                                                             

      if Found then Edit else Insert;

      FieldByName('AVUKAT_KODU').AsString := AVUKAT_KODU.Text;

      FieldByName('AVUKAT_ADI').AsString := AVUKAT_ADI.Text;

      Post;                          

      Close;                  

      BtnKayit.RunForOperations(rfNew);

    end;  

  finally                                 

    Qry.Free;                

  end;

PanelToFields Kullanılarak Yapılmış Kayıt Örneği:

Qry := TBtQuery.Create(nil);

  try

    with Qry do                     

    begin  

      RequestLive := True;

      SQL.Text := 'SELECT * FROM ZZ_TBLAVSB WHERE AVUKAT_KODU=' + AVUKAT_KODU.SQLText;

      Open;                                                              

      if Found then Edit else Insert;

      PanelToFields(PnlSabit);              

      Post;                          

      Close;                  

      BtnKayit.RunForOperations(rfNew);

    end;  

  finally                                 

    Qry.Free;                

  end;

FieldByName Kullanılarak Yapılmış Veri Çekme Örneği:

Qry := TBtQuery.Create(nil);

  try

    with Qry do                     

    begin  

      RequestLive := True;

      SQL.Text := 'SELECT * FROM ZZ_TBLAVSB WHERE AVUKAT_KODU=' + AVUKAT_KODU.SQLText;

      Open;                                                             

      if Found then

      begin

        AVUKAT_KODU.Text := FieldByName('AVUKAT_KODU').AsString;

        AVUKAT_ADI.Text := FieldByName('AVUKAT_ADI').AsString;

      end;

      Close;                  

    end;  

  finally                                 

    Qry.Free;                

  end;

FieldsToPanel Kullanılarak Yapılmış Veri Çekme Örneği:

Qry := TBtQuery.Create(nil);

  try

    with Qry do                     

    begin  

      RequestLive := True;

      SQL.Text := 'SELECT * FROM ZZ_TBLAVSB WHERE AVUKAT_KODU=' + AVUKAT_KODU.SQLText;

      Open;                                                              

      if Found then FieldsToPanel(PnlSabit);              

      Close;                  

    end;  

  finally                                 

    Qry.Free;                

  end;




Düzenleyen mervenur.demic - 26 Ekim 2018 Saat 09:42
Yukarı Dön
 Yanıt Yaz Yanıt Yaz
  Konu Paylaş   

Forum Atla Forum İzinleri Açılır Kutu İzle