// veritabanında bulunan spor salonları kullanıcının seçim yapması üzerine listelenir.

//Filtre butonu ile filtre menüsü açılır ve comboboxtan seçilen değerlere göre filtreleme işlemi yapılır.

//Spor salonu seçildiğinde kullanıcı bilgilerinin alınacağı kullanıcı kayıt sayfasına yönlendirir

Var   

SporSalonlari:TclForm;

SporSalonlariListView: TClListView;

SporSalonuAd,SporSalonuKonum:TClProLabel;

SporSalonlariSearchEdit: TClProSearchEdit;

filtreBtn,uygulaBtn:TClProButton;

filtreMenu:TclMenuFrame;

sehirCombo,ilceCombo:TCLComboBox;

kullaniciKayitUnit:TclUnit;

database, password : String;

Qry : TClSQLiteQuery;

i:Integer;

void AddDataToListview

{

  try

  if(i==0){

    Qry = Clomosy.DBSQLiteQueryWith('SELECT SalonAdi as MAIN_TEXT, SalonSehir as SUB_TEXT,SalonIlce as FOOTER_TEXT from SalonBilgi');

    Qry.OpenOrExecute;

  }

  else {

  Qry = Clomosy.DBSQLiteQueryWith('SELECT SalonAdi as MAIN_TEXT, SalonSehir as SUB_TEXT,SalonIlce as FOOTER_TEXT from SalonBilgi 

  Where SalonSehir LIKE  '+QuotedStr('%'+sehirCombo.GetItemIndex(sehirCombo.ItemIndex)+'%')+' and SalonIlce LIKE  '+QuotedStr('%'+ilceCombo.GetItemIndex(ilceCombo.ItemIndex)+'%')); 

  Qry.OpenOrExecute;

    }

      SporSalonlariListView.clLoadListViewDataFromDataset(Qry)

    

  except

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

  }

}

void GoToKullaniciGirisUnit;

{

  SporSalonlari.clShow;

  kullaniciKayitUnit.UnitName = 'kullaniciKayitUnit';

  kullaniciKayitUnit.CallerForm = SporSalonlari;

  kullaniciKayitUnit.Run;

}

void ShowFiltreMenuFrame;

{

  filtreMenu.Visible = True;

  clRTMethod(filtreMenu, 'BringToFront');

}

void HideFiltreMenuFrame;

{

  AddDataToListview;

  filtreMenu.Visible = False;

  clRTMethod(uygulaBtn, 'BringToFront');

}

void sehirComboDataLoad

 var

   sehirlerQuery :TClSQLiteQuery;

 {

   sehirlerQuery = TClSQLiteQuery.Create(Nil);

   

   try

     sehirlerQuery = Clomosy.DBSQLiteQueryWith('SELECT DISTINCT SalonSehir FROM SalonBilgi');

     sehirlerQuery.OpenOrExecute;

     while (not sehirlerQuery.Eof)

     {

       sehirCombo.AddItem(sehirlerQuery.FieldByName('SporSalonuSehir').AsString,'');

       sehirlerQuery.Next;

     }

   except

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

   }

 }

void sehirComboChanged;

 var

   ilcelerQuery :TClSQLiteQuery;

 {

   ilcelerQuery = TClSQLiteQuery.Create(Nil);

   

     ilceCombo.Clear;

     ilceCombo.AddItem('Seçiniz','');

   try

     ilcelerQuery = Clomosy.DBSQLiteQueryWith('SELECT DISTINCT SporSalonuIlce FROM SalonBilgi Where SporSalonuSehir LIKE  '+QuotedStr('%'+sehirCombo.GetItemIndex(sehirCombo.ItemIndex)+'%'));

     ilcelerQuery.OpenOrExecute;;

     while (not ilcelerQuery.Eof)

     {

     

       ilceCombo.AddItem(ilcelerQuery.FieldByName('SporSalonuIlce').AsString,'');

       ilcelerQuery.Next;

     }

   finally

     ilcelerQuery.Free;

   }

 

  i=i+1;

}

void ItemSelected

var

stringValue:string;

{

 stringValue = SporSalonlariListView.clSelectedItemData('MAIN_TEXT');

  if(stringValue=='Çankaya Spor Salonu')

  {

    ShowMessage('Seçilen spor salonunun kontenjanı doludur');  

  }

  else

  {

    GoToKullaniciGirisUnit;

  }

}

{

  SporSalonlari = TclForm.Create(Self);

  SporSalonlari.SetFormColor('#131842', '', clGNone);

  kullaniciKayitUnit=TclUnit.Create;

  

  i=0;

  

  filtreMenu = SporSalonlari.AddNewMenuFrame(SporSalonlari,'filtreMenu');

  filtreMenu.Align = alContents;

  filtreMenu.Margins.Top = 50;

  filtreMenu.MenuBar.Width = 250;

  filtreMenu.Visible = False;

  filtreMenu.ClMenuPosition = clRight;

 

  filtreBtn = SporSalonlari.AddNewProButton(SporSalonlari, 'filtreBtn', '');

  clComponent.SetupComponent(filtreBtn,'{

    "MarginBottom":700,

    "MarginLeft":298,

    "Width":80,

    "Height":40,

    "RoundHeight":10,

    "RoundWidth":10,

    "TextColor" : "#e57e38",

    "TextBold" : "yes",

    "TextSize":20,

    "BorderColor":"#9DDE8B",

    "BorderWidth":2,

    "BackgroundColor":"#006769"

  }');

  SporSalonlari.AddNewEvent(filtreBtn, tbeOnClick, 'ShowFiltreMenuFrame');

  SporSalonlari.SetImage(filtreBtn,'https://i.imgur.com/sOqdfux.png');

  

  uygulaBtn = SporSalonlari.AddNewProButton(filtreMenu.VertScrollBox, 'uygulaBtn', 'Uygula');

  clComponent.SetupComponent(uygulaBtn,'{

    "Align":"Bottom",

    "Width":100,

    "Height":50,

    "RoundHeight":10,

    "RoundWidth":10,

    "TextColor" : "#ffffff",

    "TextBold" : "yes",

    "TextSize":20,

    "BorderColor":"#9DDE8B",

    "BorderWidth":2,

    "BackgroundColor":"#006769"

  }');

  

 

  sehirCombo = SporSalonlari.AddNewComboBox(filtreMenu.VertScrollBox,'sehirCombo');

  sehirCombo.Align = alTop;

  sehirCombo.Width = 150;

  sehirCombo.Margins.Top=10;

  sehirCombo.Margins.Left =50;

  sehirCombo.Margins.Right =50;

  sehirCombo.AddItem('Seçiniz','');

  sehirComboDataLoad;

  ilceCombo = SporSalonlari.AddNewComboBox(filtreMenu.VertScrollBox,'ilceCombo');

  ilceCombo.Align = alTop;

  ilceCombo.Width = 150;

  ilceCombo.Margins.Top=10;

  ilceCombo.Margins.Left =50;

  ilceCombo.Margins.Right =50;

  ilceCombo.AddItem('Seçiniz','');

  SporSalonlari.AddNewEvent(sehirCombo,tbeOnChange,'sehirComboChanged');

  

  SporSalonlariListView=SporSalonlari.AddNewListView(SporSalonlari, 'SporSalonlariListView');

  SporSalonlariListView.align=alClient;

  

  SporSalonlari.AddNewEvent(uygulaBtn, tbeOnClick, 'HideFiltreMenuFrame');

  

  SporSalonlari.AddNewEvent(SporSalonlariListView,tbeOnItemClick,'ItemSelected');

  

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'SporSalonlari.db', '');

  

  AddDataToListview;

  

  SporSalonlari.Run;

}

Sqlite veritabanını bağlantı sağlamadan  sehirComboDataLoad; veri yüklemeye çalışmışsın.

Tablo mevcur olmasına rağmen bu hatayı verdi bu sefer de.

Tablo create'ni sizin paylaştığınız kod içerisinde bulamadım. Farklı bir yerde mi yaptınız tablo create kodlamasını.

CREATE TABLE SalonBilgi ( 

 SalonID INT IDENTITY(1,1) PRIMARY KEY, 

 SalonAdi NVARCHAR(50), 

 SalonSehir NVARCHAR(50), 

 SalonIlce NVARCHAR(50) );