Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - prodateEdit FireDAC Hatası
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy 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.

prodateEdit FireDAC Hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kenan Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 01 Temmuz 2025
Durum: Aktif Değil
Puanlar: 14 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kenan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: prodateEdit FireDAC Hatası
    Gönderim Zamanı: 9 Saat 3 Dakika Önce Saat 11:52
merhaba arkadaşlar , " [FireDAC][Phys][SQLite] ERROR: near ".2025": syntax error "  hatası alıyorum  bir çözümü var mı  şimdiden  teşekkür ederim 


date,BaslangicTarihi,BitisTarihi :TClProDateEdit;


void  getdatabaseFiltered;
{
  
  try
      qry = 'SELECT * FROM Satis WHERE 1=1';  // Temel başlangıç sorgusu
    
  if (BaslangicTarihi.DateStr <> '')
      qry = qry + ' AND currentdateDB >= "' + BaslangicTarihi.DateStr + '" '
      if (BitisTarihi.DateStr <> '')
        qry = qry + ' AND currentdateDB <= "' + BitisTarihi.DateStr + '" '
        
        
     qry = qry + 'ORDER BY currentdateDB DESC';    

    if (qry.Found)
    {
      ShowMessage('calısıyorrrr');
      GridSales.ConnectDataSet(qry);
      setGrids;
   
    }
    else
    {
    ShowMessage(' uygun krityerde sonuç yok !')
    }
    
  except
  ShowMessage(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');
  
  
  //database e ekleme
  Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Satis (plasiyerName,productName,price,Tur,comment,currentdateDB) VALUES (' 
  +QuotedStr(Plasiyer)+ ','
  +QuotedStr(Urun)+ ','
  +QuotedStr(Tutar)+','
  +QuotedStr(tur)+','
  +QuotedStr(AAciklama)+','
  +DateToStr(date.DateStr)+')';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  Clomosy.SleepAndCall(1000,'','');
  ShowMessage('veriler database e ekleniyor ve gösteriliyor ...')
  
  
    if(deger){
    
    ShowMessage('giltrele butonu çalışıyor');
    
    getdatabaseFiltered;
  }
  else
  {
    
      getdatabasetogrid;
      
      
      
    }
    
    
  }
  else
  {
    ShowMessage('Mqtt  bağlanamadı')
  }
  
except
  ShowMessage(LastExceptionMessage);
  }
}
Yukarı Dön
Sudesigirci Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 24 Haziran 2025
Konum: KONYA
Durum: Aktif Değil
Puanlar: 100 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı Sudesigirci Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 8 Saat 33 Dakika Önce Saat 12:22
Merhaba Kenan ,

//başlangıç tarihi
qry= qry+ ' AND currentdateDB >= "' + FormatDateTime('yyyy-mm-dd', BaslangicTarihi.Date) + '" ';


//bitiş tarihi
qry= qry+ ' AND currentdateDB <= "' + FormatDateTime('yyyy-mm-dd', BitisTarihi.Date) + '" ';

//Insert sorgusu içinde

QuotedStr(FormatDateTime('yyyy-mm-dd', date.Date)) bu şekilde kullanarak dener misin umarım hatanı çözer

iyi çalışmalar dilerim
Yukarı Dön
kenan Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 01 Temmuz 2025
Durum: Aktif Değil
Puanlar: 14 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kenan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 6 Saat 40 Dakika Önce Saat 14:15
merhaba sude, dediğin gibi eksik kısımları düzelttim  maalesef hala aynı hatayı veriyor 


void creatDatabaseAndConnect;
{
  Password = '';
  
  if (Clomosy.PlatformIsMobile)
    DB = Clomosy.AppFilesPath + 'new.db3';
  else
    DB = 'C:\klasor\new.db3';
    
  try
  
    Clomosy.DBSQLiteConnect(DB, Password);
    Clomosy.DBSQLiteQuery.Sql.Text='CREATE TABLE IF NOT EXISTS Satis(ID INTEGER PRIMARY KEY AUTOINCREMENT,plasiyerName Text, productName Text, price Text,Tur Text,comment Text,currentdateDB Text)';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
   
    
  except
  ShowMessage('Exception Class: '+LastExceptionClassName+'Exception Message: '+LastExceptionMessage);
  }
}
void  getdatabaseFiltered;
{
  
  try
      qry = 'SELECT * FROM Satis WHERE 1=1';  // Temel başlangıç sorgusu
    
  if (BaslangicTarihi.DateStr <> '')
      ShowMessage('baslangıç tarihi :'+ BaslangicTarihi.DateStr);
      qry = qry + ' AND currentdateDB >= "' +  FormatDateTime('yyyy-mm-dd', BaslangicTarihi.Date) + '" '
      if (BitisTarihi.DateStr <> '')
        ShowMessage('bitis tarihi :'+BitisTarihi.DateStr);
        qry = qry + ' AND currentdateDB <= "' + FormatDateTime('yyyy-mm-dd', BitisTarihi.Date)  + '" '
        
        
  qry = qry + 'ORDER BY ID DESC';    

  if (qry.Found)
  {
    ShowMessage('calısıyorrrr');
    GridSales.ConnectDataSet(qry);
    setGrids;
   
  }
  else
  {
    ShowMessage(' uygun krityerde sonuç yok !')
  }
    
  except
  ShowMessage(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');
  
 
  //database e ekleme
  Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Satis (plasiyerName,productName,price,Tur,comment,currentdateDB) VALUES (' 
  +QuotedStr(Plasiyer)+ ','
  +QuotedStr(Urun)+ ','
  +QuotedStr(Tutar)+','
  +QuotedStr(tur)+','
  +QuotedStr(AAciklama)+','
  +QuotedStr(FormatDateTime('yyyy-mm-dd', date.Date))+')';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  Clomosy.SleepAndCall(1000,'','');
  ShowMessage('veriler database e ekleniyor ve gösteriliyor ...')
  
  
    if(deger){
    
    ShowMessage('filtrele butonu çalışıyor');
    
    getdatabaseFiltered;
  }
  else
  {
    
      getdatabasetogrid;
      
      
      
    }
    
    
  }
  else
  {
    ShowMessage('Mqtt  bağlanamadı')
  }
  
except
  ShowMessage(LastExceptionMessage);
  }
}
Yukarı Dön
kenan Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 01 Temmuz 2025
Durum: Aktif Değil
Puanlar: 14 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kenan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 6 Saat 38 Dakika Önce Saat 14:17
yanlış yazmışım aynı hata değil "Could not convert variant of type (UnicodeString) into type (Double) " bu hatayı veriyor artık
Yukarı Dön
Sudesigirci Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 24 Haziran 2025
Konum: KONYA
Durum: Aktif Değil
Puanlar: 100 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı Sudesigirci Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 6 Saat 24 Dakika Önce Saat 14:31
Merhaba Kenan ,
tip dönüşümü hatası alıyorsun attığın kodda hata bulamadım diğer değişken tiplerini görmem için kodun tamamını atabilir misin rica etsem
Yukarı Dön
kenan Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 01 Temmuz 2025
Durum: Aktif Değil
Puanlar: 14 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kenan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 6 Saat 14 Dakika Önce Saat 14:41
 getdatabaseFiltered metodunda  ShowMessage('baslangıç tarihi :'+ BaslangicTarihi.DateStr);
 ekrana yazdırdıktan sonra, hata çıkıyor  yani büyük ihtimal
 qry2 = qry2 + ' AND currentdateDB >= "' +  FormatDateTime('yyyy-mm-dd', BaslangicTarihi.Date) + '" ' satırında bir sıkıntı var 

var 

yoneticiForm: TclForm;
MyMQTT : TclMQTT;
plasiyer,urun,tutar,tur,AAciklama:String;
date,BaslangicTarihi,BitisTarihi :TClProDateEdit;
GridSales:TclProGrid;
FRow,FCol,j,i :Integer;
Password, DB : String;
qry,qry2:TCLSQLiteQuery;
panel1,panel2: TclProPanel;
filtre,live:TClProButton;
deger:Boolean;



//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------


void creatDatabaseAndConnect;
{
  Password = '';
  
  if (Clomosy.PlatformIsMobile)
    DB = Clomosy.AppFilesPath + 'new.db3';
  else
    DB = 'C:\klasor\new.db3';
    
  try
  
    Clomosy.DBSQLiteConnect(DB, Password);
    Clomosy.DBSQLiteQuery.Sql.Text='CREATE TABLE IF NOT EXISTS Satis(ID INTEGER PRIMARY KEY AUTOINCREMENT,plasiyerName Text, productName Text, price Text,Tur Text,comment Text,currentdateDB Text)';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
   
    
  except
  ShowMessage('Exception Class: '+LastExceptionClassName+'Exception Message: '+LastExceptionMessage);
  }
}


//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------


void setGrids;
{
  
 
  for (i = 0 to GridSales.ColumnCount-1 )
  {
    
     GridSales.HorzAlignments[i,0] = 0; // Merkez

    //başlıklar hariç tüm satırlar
    for (j = 1 to GridSales.RowCount-1 )
    {
      GridSales.FontStyles[i,j] = 0; // Bold
      GridSales.FontSizes[i,j] = 14;
      GridSales.HorzAlignments[i,j] = 0; // Merkez
      GridSales.VertAlignments[i,j] = 0; // Merkez
    }
  }  

    
    GridSales.ColumnWidths[0] = 50;
    GridSales.ColumnWidths[1] = 110;
    GridSales.ColumnWidths[2] = 110;
    GridSales.ColumnWidths[3] = 100; 
    GridSales.ColumnWidths[4] = 80;
    GridSales.ColumnWidths[5] = 120;
    GridSales.ColumnWidths[6] = 200;
    
    GridSales.FontSizes[0,0] = 14;
    GridSales.FontSizes[1,0] = 14;
    GridSales.FontSizes[2,0] = 14;
    GridSales.FontSizes[3,0] = 14;
    GridSales.FontSizes[4,0] = 14;
    GridSales.FontSizes[5,0] = 14;
    GridSales.FontSizes[6,0] = 14;
    

      
    GridSales.FixedLayoutFillColor = clAlphaColor.clHexToColor('#497574');
    GridSales.FixedLayoutFontColor = clAlphaColor.clHexToColor('#FFFFFF');
    
    GridSales.FocusedLayoutFontColor = clAlphaColor.clHexToColor('#6366f1');
  GridSales.Options.Selection.Mode = smSingleRow;
    GridSales.Options.Editing.Enabled = False;
    GridSales.FocusedLayoutFillColor = clAlphaColor.clHexToColor('#6fa4be');
    GridSales.SelectedLayoutFillColor = clAlphaColor.clHexToColor('#b9cfd1');
    GridSales.NormalLayoutFillColor = clAlphaColor.clHexToColor('#ffffff');
    GridSales.BandLayoutFillColor = clAlphaColor.clHexToColor('#ffffff');
    GridSales.FocusedLayoutFontColor = clAlphaColor.clHexToColor('#ededed');
}

  //-------------------------------------------------------------------------------------------------------------------------------
  //-------------------------------------------------------------------------------------------------------------------------------

void getdatabasetogrid;
{
  
  qry = Clomosy.DBSQLiteQueryWith('SELECT ID,plasiyerName,productName,price,Tur,currentdateDB,comment FROM Satis ORDER BY ID DESC');
  qry.OpenOrExecute;
  
  if (qry.Found)
  {
    GridSales.ConnectDataSet(qry);
    setGrids;
   
  }
  else
  {
    ShowMessage(' Veri Tabanında Veri Yok !')
  }
}


//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------


void  getdatabaseFiltered;
{
  
  try
      qry2 = Clomosy.DBSQLiteQueryWith('SELECT * FROM Satis WHERE 1=1');
  if (BaslangicTarihi.DateStr <> ''){
      ShowMessage('baslangıç tarihi :'+ BaslangicTarihi.DateStr);
      qry2 = qry2 + ' AND currentdateDB >= "' +  FormatDateTime('yyyy-mm-dd', BaslangicTarihi.Date) + '" '
      if (BitisTarihi.DateStr <> ''){
        ShowMessage('bitis tarihi :'+BitisTarihi.DateStr);
        qry2 = qry2 + ' AND currentdateDB <= "' + FormatDateTime('yyyy-mm-dd', BitisTarihi.Date)  + '" '
      }
  }
  qry2 = qry2 + 'ORDER BY ID DESC';    
  
  ShowMessage('qryfound öncesi');
  qry.OpenOrExecute;
  if (qry2.Found)
  {
    ShowMessage('calısıyorrrr');
    GridSales.ConnectDataSet(qry2);
    setGrids;
   
  }
  else
  {
    ShowMessage(' uygun krityerde sonuç yok !')
  }
    
  except
  ShowMessage(LastExceptionMessage);
  }
    
  
}

//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------


void filtered;
{
  deger=True;
  getdatabaseFiltered;
}


//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------


void lived;
{
  
  deger=False;
  getdatabasetogrid;
  
}





//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------



void ProGridCellDblClick;
{
  
  FRow = yoneticiForm.ClSenderRow;
  FCol = yoneticiForm.ClSenderCol;
  ShowMessage(GridSales.GetCellValue(FCol,FRow));
}






//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------



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');
  
  
  //database e ekleme
  Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Satis (plasiyerName,productName,price,Tur,comment,currentdateDB) VALUES (' 
  +QuotedStr(Plasiyer)+ ','
  +QuotedStr(Urun)+ ','
  +QuotedStr(Tutar)+','
  +QuotedStr(tur)+','
  +QuotedStr(AAciklama)+','
  +QuotedStr(FormatDateTime('yyyy-mm-dd', date.Date))+')';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  Clomosy.SleepAndCall(1000,'','');
  ShowMessage('veriler database e ekleniyor ve gösteriliyor ...')
  
  
    if(deger){
    
    ShowMessage('filtrele butonu çalışıyor');
    
    getdatabaseFiltered;
  }
  else
  {
    
      getdatabasetogrid;
      
      
      
    }
    
    
  }
  else
  {
    ShowMessage('Mqtt  bağlanamadı')
  }
  
except
  ShowMessage(LastExceptionMessage);
  }
}


//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------


{
  yoneticiForm = TclForm.Create(self);
  yoneticiForm.SetFormColor('#ebebeb', '#cfcfcf', clGVertical);
  yoneticiForm.LytTopBar.Visible = True;
  creatDatabaseAndConnect;
  deger=False;
  panel1=yoneticiForm.AddNewProPanel(yoneticiForm, 'panel1');
  panel2=yoneticiForm.AddNewProPanel(yoneticiForm, 'panel2');
  
  
  
  panel1.Align = alTop;
  panel1.Margins.Top = 5;
  panel1.Margins.Left = 5;
  panel1.Margins.Right = 5;
  panel1.Height = 200;
  panel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6b6b6b2');
  panel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  panel1.clProSettings.IsRound = True;
  panel1.clProSettings.BorderWidth = 2;
  panel1.clProSettings.RoundHeight = 10;
  panel1.clProSettings.RoundWidth = 10;
  panel1.SetclProSettings(panel1.clProSettings);
  
  
  panel2.Align = alClient;
  panel2.Margins.Top = 5;
  panel2.Margins.Left = 5;
  panel2.Margins.Right = 5;
  panel2.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6b6b6b2');
  panel2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  panel2.clProSettings.IsRound = True;
  panel2.clProSettings.BorderWidth = 2;
  panel2.clProSettings.RoundHeight = 10;
  panel2.clProSettings.RoundWidth = 10;
  panel2.SetclProSettings(panel2.clProSettings);
  
  
  
  date = yoneticiForm.AddNewProDateEdit(panel1,'date');
  date.Visible=False;
  
  BaslangicTarihi = yoneticiForm.AddNewProDateEdit(panel1,'BaslangicTarihi');
  BaslangicTarihi.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#a6ade3');
  BaslangicTarihi.Align = alLeft;
  BaslangicTarihi.SetclProSettings(BaslangicTarihi.clProSettings);
  
  
  BitisTarihi = yoneticiForm.AddNewProDateEdit(panel1,'BitisTarihi');
  BitisTarihi.Align = alRight;
  BitisTarihi.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8ec200');
  BitisTarihi.SetclProSettings(BitisTarihi.clProSettings);
  
  filtre = yoneticiForm.AddNewProButton(panel1, 'filtre', 'Filtrele');
  filtre.Align = alBottom;
  filtre.Margins.Bottom = 15;
  filtre.Margins.Left = 100;
  filtre.Margins.Right = 100;
  filtre.Height = 40;
  filtre.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6366F1');
  filtre.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6b6b6b2');
  filtre.clProSettings.IsRound = True;
  filtre.clProSettings.BorderWidth = 1;
  filtre.clProSettings.FontSize = 25;
  filtre.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
  filtre.clProSettings.TextSettings.Font.Style=[fsBold];
  filtre.SetclProSettings(filtre.clProSettings);
  
   
  live = yoneticiForm.AddNewProButton(panel1, 'live', 'yenile');
  live.Align = alBottom;
  live.Margins.Bottom = 15;
  live.Margins.Left = 100;
  live.Margins.Right = 100;
  live.Height = 40;
  live.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ff6600');
  live.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ff6600');
  live.clProSettings.IsRound = True;
  live.clProSettings.BorderWidth = 1;
  live.clProSettings.FontSize = 25;
  live.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
  live.clProSettings.TextSettings.Font.Style=[fsBold];
  live.SetclProSettings(live.clProSettings);
  
  GridSales = yoneticiForm.AddNewProGrid(panel2, 'GridSales');
  GridSales.Align = alClient;
  getdatabasetogrid;
  
  
  MyMQTT =yoneticiForm.addnewMQTTConnection(yoneticiForm,'MyMQTT');
  MyMQTT.Channel = 'Chat';
  MyMQTT.Connect;
  
  
  
  yoneticiForm.AddNewEvent(live,tbeOnClick,'lived');
  yoneticiForm.AddNewEvent(filtre,tbeOnClick,'filtered');
  yoneticiForm.AddNewEvent(GridSales,tbeOnProGridCellDblClick,'ProGridCellDblClick');
  yoneticiForm.AddNewEvent(MyMQTT,tbeOnMQTTPublishReceived,'MyMQTTPublishReceived');
  
  yoneticiForm.Run;
}
Yukarı Dön
kenan Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 01 Temmuz 2025
Durum: Aktif Değil
Puanlar: 14 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kenan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 5 Saat 45 Dakika Önce Saat 15:10
merhaba  kodun düzeltilmiş ve çalışan hali alttadır  teşekkür ederim ilgilenen herkese

void getdatabaseFiltered;
{
  var baslangicStr, bitisStr : String;

  try
    qry2 = 'SELECT * FROM Satis WHERE 1=1';

    if (BaslangicTarihi.DateStr <> '') {
      baslangicStr = FormatDateTime('yyyy-mm-dd', BaslangicTarihi.Date);
      qry2 = qry2 + ' AND currentdateDB >= ' + QuotedStr(baslangicStr);
    }

    if (BitisTarihi.DateStr <> '') {
      bitisStr = FormatDateTime('yyyy-mm-dd', BitisTarihi.Date);
      qry2 = qry2 + ' AND currentdateDB <= ' + QuotedStr(bitisStr);
    }
    qry2 = qry2 + ' ORDER BY ID DESC';

    qry = Clomosy.DBSQLiteQueryWith(qry2);
    qry.OpenOrExecute;

    if (qry.Found) {
      GridSales.ConnectDataSet(qry);
      setGrids;
    }
    else {
      ShowMessage('Uygun kriterde sonuç yok!');
    }

  except
    ShowMessage(LastExceptionMessage);
  }
} 
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

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

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,039 Saniyede Yüklendi.