//öncelikle merhaba , MyMQTTPublishReceived metodunun içine , proGridde sql SELECT sorgusunu nasıl yapabiliriz  , database attığım verileri nasıl proGridde hepsini görürüz ?

var 

yoneticiForm: TclForm;

MyMQTT : TclMQTT;

plasiyer,urun,tutar,tur,AAciklama,tarih :String;

date:TClProDateEdit;

GridSales:TclProGrid;

j:Integer;

Password, DB : String;

qry:TClSqlQuery;

void creatDatabaseAndConnect;

{

  Password = '';

  

  if (Clomosy.PlatformIsMobile)

    DB = Clomosy.AppFilesPath + 'new.db';

  else

    DB = 'C:\klasor\new.db3';

    

  try

  

    Clomosy.DBSQLiteConnect(DB, Password);

    Clomosy.DBSQLiteQuery.Sql.Text='CREATE TABLE IF NOT EXISTS Sales(plasiyerName Text, productName Text, price Text,Tur Text,comment Text,currentdateDB Text)';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    

  except

  ShowMessage('Exception Class: '+LastExceptionClassName+'Exception Message: '+LastExceptionMessage);

  }

}

void MyMQTTPublishReceived;

{

try

  if(MyMQTT.ReceivedAlright)

  {

  

  //BURADA JSON ILE MQTT DEN GELEN VERILERI AYIRIP DEGISKENLERIN ICINE ATIYORUZ

  plasiyer = Clomosy.CLParseJSON(MyMQTT.ReceivedMessage,'plasiyer');

  urun = Clomosy.CLParseJSON(MyMQTT.ReceivedMessage,'urun_adi');

  tutar = Clomosy.CLParseJSON(MyMQTT.ReceivedMessage,'Satış');

  tur = Clomosy.CLParseJSON(MyMQTT.ReceivedMessage,'satis_turu');

  AAciklama = Clomosy.CLParseJSON(MyMQTT.ReceivedMessage,'Aciklama');

  tarih = DateToStr(date.DateStr);

  

  

  //database e ekleme

  Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Sales (plasiyerName,productName,price,Tur,comment,currentdateDB) VALUES (' 

  +QuotedStr(Plasiyer)+ ','

  +QuotedStr(Urun)+ ','

  +QuotedStr(Tutar)+','

  +QuotedStr(tur)+','

  +QuotedStr(AAciklama)+','

  +QuotedStr(tarih)+')';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  

  

 

  ShowMessage('VERİLER DATA BASE E EKLENDİ....');

  

  

  //BURADA MQTT ILE GELEN VERILERI GRID DE GOSTERIYORUZ(SQL DEN CEKMEDEN VERILERI GRID DE GECICI TUTUYOR)

  GridSales.BeginUpdate;

  for(j=0 to 5)

    {

    Case j of

    {

      0:GridSales.Cells[j,GridSales.RowCount] = Plasiyer;

      1:GridSales.Cells[j,GridSales.RowCount] = Urun;

      2:GridSales.Cells[j,GridSales.RowCount] = Tutar;

      3:GridSales.Cells[j,GridSales.RowCount] = tur;

      4:GridSales.Cells[j,GridSales.RowCount] = tarih;

      5:GridSales.Cells[j,GridSales.RowCount] = AAciklama;

     

      }

    }

  GridSales.RowCount= GridSales.RowCount + 1 ;

  GridSales.EndUpdate;

  

}

  else

   ShowMessage('veri alınamadı');

except

ShowMessage(LastExceptionMessage);

}

}

{

  yoneticiForm = TclForm.Create(self);

  yoneticiForm.SetFormColor('#ebebeb', '#cfcfcf', clGVertical);

  date = yoneticiForm.AddNewProDateEdit(yoneticiForm,'date');

  yoneticiForm.LytTopBar.Visible = True;

  creatDatabaseAndConnect;

  

  GridSales = yoneticiForm.AddNewProGrid(yoneticiForm, 'GridSales');

  GridSales.Align = alClient;

  GridSales.RowCount=1;

  GridSales.ColumnCount = 5;

  GridSales.Cells[0,0] = 'Plasiyer_adı';

  GridSales.Cells[1,0] = 'urun_adi';

  GridSales.Cells[2,0] = 'acıklama';

  GridSales.Cells[3,0] = 'satis_turu'; 

  GridSales.Cells[4,0] = 'Tarih';

  GridSales.Cells[5,0] = 'acıklama';

  GridSales.Options.Selection.Mode = smSingleRow;

  

  MyMQTT =yoneticiForm.addnewMQTTConnection(yoneticiForm,'MyMQTT');

  MyMQTT.Channel = 'Chat';

  MyMQTT.Connect;

  

  

  yoneticiForm.AddNewEvent(MyMQTT,tbeOnMQTTPublishReceived,'MyMQTTPublishReceived');

  

  yoneticiForm.Run;

}