var

girisyuz, ustasayfasi, musterisayfasi: TclForm

RestClient: TclRest;

logo1: TClProImage

MemoDB: TclMemo;

anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel: TclProPanel

ustabtn,musteribtn, aracbtn,yenikayitbtn,sorgulabtn,balatabtn,yagbtn,filtrebtn,akubtn,bujibtn,balansbtn,sagonbtn,sagarkabtn,solonbtn,solarkabtn,kaputbtn,bagajbtn,ontamponbtn,arkatamponbtn : TclProButton

basliklbl,plakalbl,bilgibasliklbl,musteribasliklbl, adlbl, tellbl, kmlbl:TClProLabel

plakaedt, adedt, teledt, kmedt, musteriaramaedt: TclProEdit

arabaimg : TClProImage

void OnUstaEnter;

{

clComponent.SetupComponent(ustabtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');

}

void OnMusteriEnter;

{

clComponent.SetupComponent(musteribtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');

}

void OnLeave;

{

clComponent.SetupComponent(ustabtn, '{"BorderColor":"#1C253E", "BorderWidth":2}');

clComponent.SetupComponent(musteribtn, '{"BorderColor":"#1C253E", "BorderWidth":2}');

}

void AcUstaSyf;

{

ustasayfasi.Show;

ustasayfasi.clSetWindowState(fwsMaximized)

}

void AcMusteriSyf;

{

musterisayfasi.Show;

musterisayfasi.clSetWindowState(fwsMaximized)

}

void SendRequest(AMethod,AURL,ABody);

{

  RestClient = TclRest.Create;

  try

    try

      RestClient.Accept = 'application/json';

      RestClient.ContentType = 'application/json';

      RestClient.ConnectTimeOut = 60000;

      RestClient.BaseURL = AURL;

      if (ABody <> '')

        RestClient.Body = ABody;

      RestClient.Method = AMethod;

      RestClient.OnCompleted = 'CompletedProc';

      RestClient.ExecuteAsync;

    except

    if (RestClient == Nil) 

      RestClient = TclRest.Create;

  

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

    }

  finally

  }

}

void SorgulaButonTikla;

var

  SorguUrl : String;

{

  if (musteriaramaedt.Text == '')

  {

    ShowMessage('Lütfen aratmak istediğiniz plakayı giriniz.');

  }

  else

  {

   

    SorguUrl = ' https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/" rel="nofollow - https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/ ' + musteriaramaedt.Text + '.json';

    

    // Daha önce yazdığın SendRequest fonksiyonunu çağırıyoruz

    SendRequest(rmGet, SorguUrl, '');

  }

}

void CompletedProc;

{

  // Gelen veriyi Memo'ya yazdırıyoruz

  if (RestClient.Response == 'null')

    MemoDB.Text = 'Kayıt bulunamadı!';

  else

    MemoDB.Text = RestClient.Response;

  // Belleği temizle (Önemli!)

  RestClient.Free;

  RestClient = Nil;

}

void MusteriKaydetTikla;

var

  vUrl, vBody : String;

{

  // plakaedt ve adedt isimlerini senin var kısmındaki gibi küçük harf yaptık

  vUrl = ' https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/" rel="nofollow - https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/ ' + plakaedt.Text + '.json';

  vBody = '{"Plaka":"' + plakaedt.Text + '","Ad":"' + adedt.Text + '"}';

  

  SendRequest(rmPut, vUrl, vBody);

  ShowMessage('Bulut kaydı başlatıldı...');

}

{

///////////

girisyuz=TclForm.Create(Self);

girisyuz.SetFormColor('#12192C','',clGNone);

girisyuz.clSetWindowState(fwsMaximized)

/////////////ANA PANEL

anapanel=girisyuz.AddNewProPanel(girisyuz, 'anapanel');

clComponent.SetupComponent(anapanel,'{"Align":"Center","Width":450,"Height":650, "BackgroundColor":"#12192C"}');

TclButton(girisyuz.clFindComponent('BtnFormMenu')).Visible = False;

TclButton(girisyuz.clFindComponent('BtnGoBack')).Visible = False;

/////////////LOGO

logo1 = girisyuz.AddNewProImage(anapanel, 'logo1');

girisyuz.SetImage(logo1,' https://resmim.net/cdn/2026/05/05/CoxjKC.png" rel="nofollow - https://resmim.net/cdn/2026/05/05/CoxjKC.png ');

clComponent.SetupComponent(logo1, '{"Align":"Top", "Height":200,"Width":200}');

logo1.RotationAngle= 5

//////////USTA BUTON

ustabtn=girisyuz.AddNewProButton(anapanel, 'ustabtn','   Ben Ustayım' + #13 + '   Müşteri kabul et ve işlem kaydet');

clComponent.SetupComponent(ustabtn,'{"Align":"Top", "MarginTop":50, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}')

girisyuz.AddNewEvent(ustabtn, tbeOnMouseMove , 'OnUstaEnter');

girisyuz.AddNewEvent(anapanel,tbeOnMouseMove, 'OnLeave')

girisyuz.AddNewEvent(ustabtn,tbeOnClick, 'AcUstaSyf')

/////////MÜŞTERİ BUTON

musteribtn=girisyuz.AddNewProButton(anapanel, 'musteribtn','   Ben Araç Sahibiyim' + #13 + '   Aracımın servis geçmişini gör');

clComponent.SetupComponent(musteribtn,'{"Align":"Top", "MarginTop":20, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}')

girisyuz.AddNewEvent(musteribtn, tbeOnMouseMove , 'OnMusteriEnter');

girisyuz.AddNewEvent(musteribtn,tbeOnClick, 'AcMusteriSyf')

//////// USTA SAYFASI

ustasayfasi = TclForm.Create(girisyuz);

ustasayfasi.SetFormColor('#12192C','',clGNone);

TclButton(ustasayfasi.clFindComponent('BtnFormMenu')).Visible = False;

ustapanel = ustasayfasi.AddNewProPanel(ustasayfasi, 'ustapanel');

clComponent.SetupComponent(ustapanel,'{"Align":"Top","Height":70, "BackgroundColor":"#1C253E"}');

basliklbl = ustasayfasi.AddNewProLabel(ustapanel, 'basliklbl', 'Usta Yönetim Paneli');

clComponent.SetupComponent(basliklbl, '{"Align":"Center","Width":168, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');

///////////////KAYIT BUTONU

yenikayitbtn = ustasayfasi.AddNewProButton(ustasayfasi, 'yenikayitbtn', ' + Yeni Müşteri Kaydı');

clComponent.SetupComponent(yenikayitbtn,'{"Align":"Bottom", "MarginBottom":20, "MarginLeft":20, "MarginRight":20, "Height":60, "BackgroundColor":"#FF8C00", "RoundHeight":10, "RoundWidth":10, "TextColor":"#FFFFFF", "TextBold":"yes"}')

///////////////MÜŞTERİ BİLGİ PANELİ

musteribilgipanel= ustasayfasi.AddNewProPanel(ustasayfasi,'musteribilgipanel')

clComponent.SetupComponent(musteribilgipanel, '{"Align":"Left","MarginLeft":30,"MarginBottom":30,"MarginTop":350,"MarginRight":20, "Height":50,"Width":500,"BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15 }')

/////////////// Başlık

bilgibasliklbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'bilgibasliklbl', '                                     Müşteri ve Araç Bilgileri');

clComponent.SetupComponent(bilgibasliklbl, '{"Align":"Top", "MarginTop":30, "MarginLeft":20, "Height":30, "TextSize":15, "TextColor":"#FF8C00", "TextBold":"yes"}');

//////////PLAKA YAZI

plakalbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'plakalbl', 'ARAÇ PLAKASI');

clComponent.SetupComponent(plakalbl, '{"MarginBottom":150,"MarginRight":280, "Height":15, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  ///////PLAKA GİRİŞ

  plakaedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'plakaedt', '34 ABC 123');

  clComponent.SetupComponent(plakaedt, '{"MarginBottom":90, "MarginLeft":20, "MarginRight":20, "Height":45,"Width":450, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  ///////İSİM YAZI

  adlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'adlbl', 'AD SOYAD');

  clComponent.SetupComponent(adlbl, '{"MarginBottom":330, "MarginRight":280, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  

  ///////İSİM GİRİŞ

  adedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'adedt', 'Örn: Ali Yılmaz');

  clComponent.SetupComponent(adedt,'{"MarginBottom":270, "MarginLeft":20,"MarginRight":280, "Height":45,"Width":200, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  ///////TELEFON YAZI

  tellbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'tellbl', 'TELEFON');

  clComponent.SetupComponent(tellbl, '{"MarginBottom":330, "MarginLeft":200, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  

  ////////TELEFON GİRİŞ

  teledt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'teledt', '0555...');

  clComponent.SetupComponent(teledt, '{"MarginBottom":270, "MarginLeft":280,"MarginRight":20,"Width":200,"MaxLength":11, "Height":45, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  teledt.KeyboardType=vktNumberPad;

  teledt.MaxLength=11;

  ////////KİLOMETRE YAZI

  kmlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'kmlbl', 'GÜNCEL KİLOMETRE');

  clComponent.SetupComponent(kmlbl, '{"MarginBottom":5, "MarginRight":280, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  

  ////////KİLOMETRE GİRİŞ

  kmedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'kmedt', '84500');

  clComponent.SetupComponent(kmedt, '{"MarginTop":55, "MarginLeft":20, "MarginRight":20, "Height":45,"Width":450, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#FF8C00", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  kmedt.KeyboardType=vktNumberPad;

 /////////////İŞLEM Paneli

 islempanel = ustasayfasi.AddNewProPanel(ustasayfasi,'islempanel')

 clComponent.SetupComponent(islempanel, '{"Align":"Right","RoundWidth":15,"RoundHeight":15,"MarginBottom":30,"MarginTop":5, "BackgroundColor":"#1E2940","Width":1350,"Height":900 }')

 ////////////Araba Görseli

  arabaimg = ustasayfasi.AddNewProImage(islempanel, 'arabaimg');

  ustasayfasi.SetImage(arabaimg, ' https://resmim.net/cdn/2026/05/06/CrNRqh.png" rel="nofollow - https://resmim.net/cdn/2026/05/06/CrNRqh.png ');

  clComponent.SetupComponent(arabaimg, '{"MarginTop":300,"Width":1200,"Height":700}')

  

  /////////////////Kaput Butonu

  kaputbtn = ustasayfasi.AddNewProButton(islempanel, 'kaputbtn', '●');

  clComponent.SetupComponent(kaputbtn, '{"Width":110,"MarginTop":150,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ///////// ÖN TAMPON BUTONU

  ontamponbtn = ustasayfasi.AddNewProButton(islempanel, 'ontamponbtn', '●');

  clComponent.SetupComponent(ontamponbtn, '{"Width":200,"MarginTop":540,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ///////// SOL ÖN KAPI BUTONU

  solonbtn = ustasayfasi.AddNewProButton(islempanel, 'solonbtn', '●');

  clComponent.SetupComponent(solonbtn, '{"Width":100,"MarginTop":355,"MarginRight":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  //////// SAĞ ÖN KAPI BUTONU

  sagonbtn = ustasayfasi.AddNewProButton(islempanel, 'sagonbtn', '●');

  clComponent.SetupComponent(sagonbtn, '{"Width":100,"MarginTop":355,"MarginRight":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  //////// SOL ARKA KAPI BUTONU

  solarkabtn = ustasayfasi.AddNewProButton(islempanel, 'solarkabtn', '●');

  clComponent.SetupComponent(solarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  //////// SAĞ ARKA KAPI BUTONU

  sagarkabtn = ustasayfasi.AddNewProButton(islempanel, 'sagarkabtn', '●');

  clComponent.SetupComponent(sagarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ///////// ARKA TAMPON

  arkatamponbtn = ustasayfasi.AddNewProButton(islempanel, 'arkatamponbtn', '●');

  clComponent.SetupComponent(arkatamponbtn, '{"Width":200,"MarginTop":540,"Marginleft":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  //////// BAGAJ BUTONU

  bagajbtn= ustasayfasi.AddNewProButton(islempanel, 'bagajbtn', '●');

  clComponent.SetupComponent(bagajbtn, '{"Width":110,"MarginTop":150,"Marginleft":600,"Height":55, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  //////// BALATA BUTONU

  balatabtn = ustasayfasi.AddNewProButton(islempanel, 'balatabtn', '+ Balata');

  clComponent.SetupComponent(balatabtn, '{"MarginRight":1200, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FDF2E9", "TextColor":"#D35400", "TextBold":"yes"}');

  /////// YAĞ DEĞİŞİMİ BUTONU

  yagbtn = ustasayfasi.AddNewProButton(islempanel, 'yagbtn', '+ Yağ');

  clComponent.SetupComponent(yagbtn, '{"MarginRight":900, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EBF5FB", "TextColor":"#2E86C1", "TextBold":"yes"}');

  ////// FİLTRELER BUTONU

  filtrebtn = ustasayfasi.AddNewProButton(islempanel, 'filtrebtn', '+ Filtreler');

  clComponent.SetupComponent(filtrebtn, '{"MarginRight":600, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAFAF1", "TextColor":"#27AE60", "TextBold":"yes"}');

  /////// AKÜ BUTONU

  akubtn = ustasayfasi.AddNewProButton(islempanel, 'akubtn', '+ Akü');

  clComponent.SetupComponent(akubtn, '{"MarginRight":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FEF9E7", "TextColor":"#F1C40F", "TextBold":"yes"}');

  /////// BUJİ BUTONU

  bujibtn = ustasayfasi.AddNewProButton(islempanel, 'bujibtn', '+ Buji');

  clComponent.SetupComponent(bujibtn, '{"MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#F4ECF7", "TextColor":"#8E44AD", "TextBold":"yes"}');

  ///////// BALANS BUTONU

  balansbtn = ustasayfasi.AddNewProButton(islempanel, 'balansbtn', '+ Balans');

  clComponent.SetupComponent(balansbtn, '{ "MarginLeft":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAECEE", "TextColor":"#2C3E50", "TextBold":"yes"}');

  ////// İŞLEM KAYIT PANELİ

  islemkayitpanel = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel')

  clComponent.SetupComponent(islemkayitpanel, '{"MarginBottom":620,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":150 }')

  

  //////////////// MÜŞTERİ SAYFASI

  musterisayfasi=TclForm.Create(Self);

  TclButton(musterisayfasi.clFindComponent('BtnFormMenu')).Visible = False;

  TclButton(musterisayfasi.clFindComponent('BtnGoBack')).Visible = False;

  musterisayfasi.SetFormColor('#12192C','',clGNone);

  

  musteripanel = musterisayfasi.AddNewProPanel(musterisayfasi,'musteripanel')

  clComponent.SetupComponent(musteripanel,'{"Align":"Top","Height":70, "BackgroundColor":"#1C253E"}');

  musteribasliklbl = musterisayfasi.AddNewProLabel(musteripanel, 'musteribasliklbl', 'Müşteri Paneli');

  clComponent.SetupComponent(musteribasliklbl, '{"Align":"Center","Width":168, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');

  

  ///////////MÜŞTERİ ARATMA

  musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Örn: 58 ABC 58');

  clComponent.SetupComponent(musteriaramaedt,'{"MarginBottom":600,"Height":45,"Width":600, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#ffffff", "TextColor":"#000000"}');

  ///////// SORGULAMA BUTONU

  sorgulabtn = musterisayfasi.AddNewProButton(musterisayfasi, 'sorgulabtn', 'SORGULA');

  clComponent.SetupComponent(sorgulabtn, '{ "MarginBottom":200, "Height":50, "Width":300, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAECEE", "TextColor":"#2C3E50", "TextBold":"yes"}');

  musterisayfasi.AddNewEvent(sorgulabtn,tbeOnClick,'SorgulaButonTikla');

  ///////// MÜŞTERİ KAYDETME BUTONU

  musterisayfasi.AddNewEvent(yenikayitbtn,tbeOnClick,'MusteriKaydetTikla');

girisyuz.run;

}


kodumda giriş yaptığımda çıktığım panele bir daha giremiyorum ve firebase kaydetmeyi sanırım yapamadım