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;