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 alanisimleriyle aynı olması gerekmektedir. 

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

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

Qry := TBtQuery.Create(nil);

  try

    with Qrydo                     

    begin  

      RequestLive := True;

      SQL.Text := 'SELECT * FROM ZZ_TBLAVSBWHERE 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 Qrydo                     

    begin  

      RequestLive := True;

      SQL.Text := 'SELECT * FROM ZZ_TBLAVSBWHERE 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 Qrydo                     

    begin  

      RequestLive := True;

      SQL.Text := 'SELECT * FROM ZZ_TBLAVSBWHERE 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 Qrydo                     

    begin  

      RequestLive := True;

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

     Open;                                                             

      if Found thenFieldsToPanel(PnlSabit);              

      Close;                  

    end;  

  finally                                 

    Qry.Free;                

  end;