Clomosy | Forum : kodumda bi tıkandığım bi yer var https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 00:37:06 +0000 Tue, 12 May 2026 21:54:04 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1528 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[kodumda bi tıkandığım bi yer var : Plaka ararken büyük küçük harf...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1528&PID=3519#3519 Yazar: kaanl0
Konu: 1528
Gönderim Zamanı: 12 Mayıs 2026 Saat 21:54

Plaka ararken büyük küçük harf ve aradaki boşluklardan dolayı bulamıyordu kaydı o sorun giderildi sol taraftaki müşteri bilgileri kısmında henüz hiçbir işlem yapılmamıştı sorgudan sonra orayı doldurma işlemide tamamlandı 

var
  girisyuz, ustasayfasi, musterisayfasi: TclForm;
  RestClient: TclRest;
  logo1: TClProImage;
  MemoDB: TclMemo;
  anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,islemkayitpanel2,islemkayitpanel3,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: 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;
  musteriBilgiKart, odemePanel: TclProPanel;
  detayBaslikLbl, toplamTutarLbl, borcLbl: TclProLabel;
  resAdLbl, resTelLbl, resKMLbl, resIslemlerLbl: TclProLabel;
  islemJSON: TclJSONObject;

void AcMusteriSyf;
{
  musterisayfasi = TclForm.Create(Self);
  TclButton(musterisayfasi.clFindComponent('BtnFormMenu')).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 Sorgulama Paneli');
  clComponent.SetupComponent(musteribasliklbl, '{"Align":"Center","Width":250, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');
  
  musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Plaka Giriniz (Örn: 34ABC123)');
  clComponent.SetupComponent(musteriaramaedt,'{"Align":"Top","MarginTop":30,"MarginLeft":100,"MarginRight":100,"Height":50, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#FFFFFF", "TextColor":"#000000"}');
  
  sorgulabtn = musterisayfasi.AddNewProButton(musterisayfasi, 'sorgulabtn', 'ARACI SORGULA');
  clComponent.SetupComponent(sorgulabtn, '{"Align":"Top","MarginTop":10,"MarginLeft":150,"MarginRight":150, "Height":50, "RoundHeight":15, "RoundWidth":15, "BackgroundColor":"#FF8C00", "TextColor":"#FFFFFF", "TextBold":"yes"}');
  musterisayfasi.AddNewEvent(sorgulabtn, tbeOnClick, 'SorgulaButonTikla');

  musteriBilgiKart = musterisayfasi.AddNewProPanel(musterisayfasi, 'musteriBilgiKart');
  clComponent.SetupComponent(musteriBilgiKart, '{"Align":"Left","MarginLeft":30,"MarginTop":30,"MarginBottom":50, "Width":400, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');
  
  detayBaslikLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'detayBaslikLbl', 'Müşteri & Araç Detayı');
  clComponent.SetupComponent(detayBaslikLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":15,"Height":30,"TextSize":15,"TextColor":"#FF8C00","TextBold":"yes"}');

  // YENİ EKLENEN KISIM: Verilerin yazdırılacağı etiketleri oluşturuyoruz
  resAdLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resAdLbl', 'Ad Soyad: -');
  clComponent.SetupComponent(resAdLbl, '{"Align":"Top","MarginTop":15,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  resTelLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resTelLbl', 'Telefon: -');
  clComponent.SetupComponent(resTelLbl, '{"Align":"Top","MarginTop":5,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  resKMLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resKMLbl', 'Kilometre: -');
  clComponent.SetupComponent(resKMLbl, '{"Align":"Top","MarginTop":5,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  odemePanel = musterisayfasi.AddNewProPanel(musterisayfasi, 'odemePanel');
  clComponent.SetupComponent(odemePanel, '{"Align":"Client","MarginLeft":20,"MarginRight":30,"MarginTop":30,"MarginBottom":50, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');
  
  toplamTutarLbl = musterisayfasi.AddNewProLabel(odemePanel, 'toplamTutarLbl', 'Servis Geçmişi ve Ödemeler');
  clComponent.SetupComponent(toplamTutarLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":15,"Height":30,"TextSize":15,"TextColor":"#FF8C00","TextBold":"yes"}');

  borcLbl = musterisayfasi.AddNewProLabel(odemePanel, 'borcLbl', 'Toplam Borç: 0.00 TL');
  clComponent.SetupComponent(borcLbl, '{"Align":"Bottom","MarginBottom":20,"MarginLeft":15,"Height":30,"TextSize":16,"TextColor":"#FFFFFF","TextBold":"yes"}');

  musterisayfasi.Show;
  musterisayfasi.clSetWindowState(fwsMaximized);
}

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;
{
  //////// 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"}');

  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"}')

  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 }')

  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"}');

  plakalbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'plakalbl', 'ARAÇ PLAKASI');
  clComponent.SetupComponent(plakalbl, '{"MarginBottom":150,"MarginRight":280, "Height":15, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  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"}');

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

  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"}');

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

  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;

  kmlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'kmlbl', 'GÜNCEL KİLOMETRE');
  clComponent.SetupComponent(kmlbl, '{"MarginBottom":5, "MarginRight":280, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  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;

  islempanel = ustasayfasi.AddNewProPanel(ustasayfasi,'islempanel')
  clComponent.SetupComponent(islempanel, '{"Align":"Right","RoundWidth":15,"RoundHeight":15,"MarginBottom":30,"MarginTop":5, "BackgroundColor":"#1E2940","Width":1350,"Height":900 }')
  
  arabaimg = ustasayfasi.AddNewProImage(islempanel, 'arabaimg');
  ustasayfasi.SetImage(arabaimg, 'https://resmim.net/cdn/2026/05/06/CrNRqh.png');
  clComponent.SetupComponent(arabaimg, '{"MarginTop":300,"Width":1200,"Height":700}')
  arabaimg.hittest=false;

  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"}');
  ustasayfasi.AddNewEvent(kaputbtn,tbeOnClick,'KaputEkleme')

  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"}');
  ustasayfasi.AddNewEvent(ontamponbtn,tbeOnClick,'OnTamponEkleme')

  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"}');
  ustasayfasi.AddNewEvent(solonbtn,tbeOnClick,'SolOnKapiEkleme')

  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"}');
  ustasayfasi.AddNewEvent(sagonbtn,tbeOnClick,'SagOnKapiEkleme')

  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"}');
  ustasayfasi.AddNewEvent(solarkabtn,tbeOnClick,'SolArkaKapiEkleme')

  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"}');
  ustasayfasi.AddNewEvent(sagarkabtn,tbeOnClick,'SagArkaKapiEkleme')

  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"}');
  ustasayfasi.AddNewEvent(arkatamponbtn,tbeOnClick,'ArkaTamponEkleme')

  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"}');
  ustasayfasi.AddNewEvent(bagajbtn,tbeOnClick,'BagajEkleme')

  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"}');
  ustasayfasi.AddNewEvent(balatabtn,tbeOnClick,'BalataEkleme')
  
  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"}');
  ustasayfasi.AddNewEvent(yagbtn,tbeOnClick,'YagEkleme')

  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"}');
  ustasayfasi.AddNewEvent(filtrebtn,tbeOnClick,'FiltreEkleme')

  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"}');
  ustasayfasi.AddNewEvent(akubtn,tbeOnClick,'AkuEkleme')

  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"}');
  ustasayfasi.AddNewEvent(bujibtn,tbeOnClick,'BujiEkleme')

  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"}');
  ustasayfasi.AddNewEvent(balansbtn,tbeOnClick,'BalansEkleme')

  islemkayitpanel = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel');
  clComponent.SetupComponent(islemkayitpanel, '{"MarginBottom":680,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":75 }');
  
  islemkayitpanel2 = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel2')
  clComponent.SetupComponent(islemkayitpanel2, '{"MarginBottom":630,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');
  
  islemkayitpanel3 = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel3')
  clComponent.SetupComponent(islemkayitpanel3, '{"MarginBottom":570,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');

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

  ustasayfasi.Show;
  ustasayfasi.clSetWindowState(fwsMaximized);
}

// YENİ EKLENEN KISIM: Veritabanı Cevabını İşleyip Ekrana Yazdıran Akıllı Fonksiyon
void CompletedProc;
var
  GelenCevap, vAd, vTel, vKM: String;
{
  if (RestClient.Response == 'null')
  {
    ShowMessage('Sistemde bu plakaya ait kayıt bulunamadı!');
    // Bulunamazsa ekranı temizleyelim
    if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: -';
    if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: -';
    if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: -';
  }
  else
  {
    GelenCevap = RestClient.Response;
    
    // Eğer cevapta "Ad" kelimesi varsa bu bir arama (Sorgula) sonucudur, bilgileri doldur!
    if (Pos('"Ad"', GelenCevap) > 0)
    {
      vAd  = Clomosy.CLParseJSON(GelenCevap, 'Ad');
      vTel = Clomosy.CLParseJSON(GelenCevap, 'Telefon');
      vKM  = Clomosy.CLParseJSON(GelenCevap, 'KM');
      
      // Ekranda etiketler (Labeller) varsa verileri içlerine yazdır
      if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: ' + vAd;
      if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: ' + vTel;
      if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: ' + vKM + ' km';
      
      ShowMessage('Müşteri bilgileri başarıyla getirildi.');
    }
    else
    {
      // "Ad" kelimesi yoksa bu bir Usta Kayıt (Put) başarı mesajıdır.
      ShowMessage('İşlem Başarılı: Kayıt Tamamlandı!');
    }
  }
}

void SendRequest(AMethod, AURL, ABody);
{
  RestClient = TclRest.Create;
  RestClient.Accept = 'application/json';
  RestClient.ContentType = 'application/json';
  RestClient.BaseURL = AURL;
  if (ABody <> '') RestClient.Body = ABody;
  RestClient.Method = AMethod;
  RestClient.OnCompleted = 'CompletedProc';
  RestClient.ExecuteAsync;
}

void SorgulaButonTikla;
var
  ArananPlaka: String;
{
  if (musteriaramaedt.Text == '')
  {
    ShowMessage('Lütfen plaka giriniz.');
  }
  else
  {
    // Arama yaparken de müşterinin girdiği boşlukları silip büyütüyoruz
    ArananPlaka = clGetStringReplace(musteriaramaedt.Text, ' ', '');
    ArananPlaka = AnsiUpperCase(ArananPlaka);
    
    SendRequest(rmGet, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + ArananPlaka + '.json', '');
  }
}

void MusteriKaydetTikla;
var 
  vBody, TemizPlaka: String;
{
  if (plakaedt.Text == '') { ShowMessage('Plaka boş olamaz!'); Exit; }
  
  // Plakadaki boşlukları sil ve tüm harfleri büyüt
  TemizPlaka = clGetStringReplace(plakaedt.Text, ' ', '');
  TemizPlaka = AnsiUpperCase(TemizPlaka);
  
  vBody = '{"Plaka":"' + TemizPlaka + '","Ad":"' + adedt.Text + '","Telefon":"' + teledt.Text + '","KM":"' + kmedt.Text + '"}';
  
  SendRequest(rmPut, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + TemizPlaka + '.json', vBody);
  ShowMessage('Kayıt gönderiliyor...');
}

//////////////////// İŞLEM EKLEME EVENTLARI
void KaputEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Kaput işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 150; yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void BagajEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Bagaj işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 150; yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void YagEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Yag işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 128; yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void FiltreEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Filtreler değiştirildi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 135; yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void AkuEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Akü işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 135; yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void BalansEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Balans işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 160; yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void OnTamponEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Ön Tampon işlemi eklendi.');
  yeniLbl.Align = alleft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 200;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void ArkaTamponEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Arka Tampon işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 200;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void BujiEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Buji işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 150;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void BalataEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Balata işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 150;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void SolOnKapiEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol ön kapı işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void SolArkaKapiEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol arka kapı işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void SagArkaKapiEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sağ arka kapı işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void SagOnKapiEkleme;
var yeniLbl: TclProLabel; BenzersizIsim: String;
{
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sağ On kapı işlemi eklendi.');
  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

{
  girisyuz=TclForm.Create(Self);
  girisyuz.SetFormColor('#12192C','',clGNone);
  girisyuz.clSetWindowState(fwsMaximized);

  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;

  logo1 = girisyuz.AddNewProImage(anapanel, 'logo1');
  girisyuz.SetImage(logo1,'https://resmim.net/cdn/2026/05/05/CoxjKC.png');
  clComponent.SetupComponent(logo1, '{"Align":"Top", "Height":200,"Width":200}');
  logo1.RotationAngle= 5;

  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');

  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');

  girisyuz.run;
}
]]> Tue, 12 May 2026 21:54:04 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1528&PID=3519#3519 <![CDATA[kodumda bi tıkandığım bi yer var : vargirisyuz, ustasayfasi, musterisayfasi:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1528&PID=3518#3518 Yazar: MenesKaya
Konu: 1528
Gönderim Zamanı: 12 Mayıs 2026 Saat 21:28


var
girisyuz, ustasayfasi, musterisayfasi: TclForm
RestClient: TclRest;
logo1: TClProImage
MemoDB: TclMemo;
anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,islemkayitpanel2,islemkayitpanel3,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: 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
musteriBilgiKart, odemePanel: TclProPanel;
detayBaslikLbl, toplamTutarLbl, borcLbl: TclProLabel;
resAdLbl, resTelLbl, resKMLbl, resIslemlerLbl: TclProLabel;
islemJSON: TclJSONObject;
void AcMusteriSyf;
{
  musterisayfasi = TclForm.Create(Self);
  TclButton(musterisayfasi.clFindComponent('BtnFormMenu')).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 Sorgulama Paneli');
  clComponent.SetupComponent(musteribasliklbl, '{"Align":"Center","Width":250, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');
  
  musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Plaka Giriniz (Örn: 34ABC123)');
  clComponent.SetupComponent(musteriaramaedt,'{"Align":"Top","MarginTop":30,"MarginLeft":100,"MarginRight":100,"Height":50, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#FFFFFF", "TextColor":"#000000"}');
  
  sorgulabtn = musterisayfasi.AddNewProButton(musterisayfasi, 'sorgulabtn', 'ARACI SORGULA');
  clComponent.SetupComponent(sorgulabtn, '{"Align":"Top","MarginTop":10,"MarginLeft":150,"MarginRight":150, "Height":50, "RoundHeight":15, "RoundWidth":15, "BackgroundColor":"#FF8C00", "TextColor":"#FFFFFF", "TextBold":"yes"}');
  musterisayfasi.AddNewEvent(sorgulabtn, tbeOnClick, 'SorgulaButonTikla');


  musteriBilgiKart = musterisayfasi.AddNewProPanel(musterisayfasi, 'musteriBilgiKart');
  clComponent.SetupComponent(musteriBilgiKart, '{"Align":"Left","MarginLeft":30,"MarginTop":30,"MarginBottom":50, "Width":400, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');
  
  detayBaslikLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'detayBaslikLbl', 'Müşteri & Araç Detayı');
  clComponent.SetupComponent(detayBaslikLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":15,"Height":30,"TextSize":15,"TextColor":"#FF8C00","TextBold":"yes"}');

  odemePanel = musterisayfasi.AddNewProPanel(musterisayfasi, 'odemePanel');
  clComponent.SetupComponent(odemePanel, '{"Align":"Client","MarginLeft":20,"MarginRight":30,"MarginTop":30,"MarginBottom":50, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');
  
  toplamTutarLbl = musterisayfasi.AddNewProLabel(odemePanel, 'toplamTutarLbl', 'Servis Geçmişi ve Ödemeler');
  clComponent.SetupComponent(toplamTutarLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":15,"Height":30,"TextSize":15,"TextColor":"#FF8C00","TextBold":"yes"}');

  borcLbl = musterisayfasi.AddNewProLabel(odemePanel, 'borcLbl', 'Toplam Borç: 0.00 TL');
  clComponent.SetupComponent(borcLbl, '{"Align":"Bottom","MarginBottom":20,"MarginLeft":15,"Height":30,"TextSize":16,"TextColor":"#FFFFFF","TextBold":"yes"}');

  musterisayfasi.Show;
  musterisayfasi.clSetWindowState(fwsMaximized);
}
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;
{
//////// 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');
  clComponent.SetupComponent(arabaimg, '{"MarginTop":300,"Width":1200,"Height":700}')
  arabaimg.hittest=false;

  

  /////////////////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"}');
  ustasayfasi.AddNewEvent(kaputbtn,tbeOnClick,'KaputEkleme')


  ///////// Ö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"}');
  ustasayfasi.AddNewEvent(ontamponbtn,tbeOnClick,'OnTamponEkleme')
  ///////// 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"}');
  ustasayfasi.AddNewEvent(solonbtn,tbeOnClick,'SolOnKapiEkleme')

  //////// 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"}');
  ustasayfasi.AddNewEvent(sagonbtn,tbeOnClick,'SagOnKapiEkleme')

  //////// 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"}');
  ustasayfasi.AddNewEvent(solarkabtn,tbeOnClick,'SolArkaKapiEkleme')

  //////// 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"}');
  ustasayfasi.AddNewEvent(sagarkabtn,tbeOnClick,'SagArkaKapiEkleme')

  ///////// 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"}');
  ustasayfasi.AddNewEvent(arkatamponbtn,tbeOnClick,'ArkaTamponEkleme')
  //////// 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"}');
  ustasayfasi.AddNewEvent(bagajbtn,tbeOnClick,'BagajEkleme')


  //////// 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"}');
  ustasayfasi.AddNewEvent(balatabtn,tbeOnClick,'BalataEkleme')
  

  /////// 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"}');
  ustasayfasi.AddNewEvent(yagbtn,tbeOnClick,'YagEkleme')



  ////// 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"}');
  ustasayfasi.AddNewEvent(filtrebtn,tbeOnClick,'FiltreEkleme')



  /////// 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"}');
  ustasayfasi.AddNewEvent(akubtn,tbeOnClick,'AkuEkleme')



  /////// 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"}');
  ustasayfasi.AddNewEvent(bujibtn,tbeOnClick,'BujiEkleme')



  ///////// 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"}');
  ustasayfasi.AddNewEvent(balansbtn,tbeOnClick,'BalansEkleme')

  ////// İŞLEM KAYIT PANELİ
  islemkayitpanel = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel');
  clComponent.SetupComponent(islemkayitpanel, '{"MarginBottom":680,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":75 }');
  //////// İŞLEM KAYIT PANELİ 
  islemkayitpanel2 = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel2')
  clComponent.SetupComponent(islemkayitpanel2, '{"MarginBottom":630,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');
  //////// İŞLEM KAYIT PANELİ 3
  islemkayitpanel3 = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel3')
  clComponent.SetupComponent(islemkayitpanel3, '{"MarginBottom":570,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');

///////// MÜŞTERİ KAYDETME BUTONU
//  musterisayfasi.AddNewEvent(yenikayitbtn,tbeOnClick,'MusteriKaydetTikla');
  ustasayfasi.AddNewEvent(yenikayitbtn, tbeOnClick, 'MusteriKaydetTikla');

  ustasayfasi.Show;
  ustasayfasi.clSetWindowState(fwsMaximized);
}


void CompletedProc;
{
  if (RestClient.Response == 'null')
    ShowMessage('Kayıt bulunamadı!');
  else
    ShowMessage('İşlem Başarılı: ' + RestClient.Response);
}

void SendRequest(AMethod, AURL, ABody);
{
  RestClient = TclRest.Create;
  RestClient.Accept = 'application/json';
  RestClient.ContentType = 'application/json';
  RestClient.BaseURL = AURL;
  if (ABody <> '') RestClient.Body = ABody;
  RestClient.Method = AMethod;
  RestClient.OnCompleted = 'CompletedProc';
  RestClient.ExecuteAsync;
}

void SorgulaButonTikla;
{
  if (musteriaramaedt.Text == '')
    ShowMessage('Lütfen plaka giriniz.');
  else
    SendRequest(rmGet, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + musteriaramaedt.Text + '.json', '');
}

void MusteriKaydetTikla;
  var vBody: String;
  {
    if (plakaedt.Text == '') { ShowMessage('Plaka boş olamaz!'); Exit; }
    
    vBody = '{"Plaka":"' + plakaedt.Text + '","Ad":"' + adedt.Text + '","Telefon":"' + teledt.Text + '","KM":"' + kmedt.Text + '"}';
    SendRequest(rmPut, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + plakaedt.Text + '.json', vBody);
    ShowMessage('Kayıt gönderiliyor...');
  }
//////////////////// İŞLEM EKLEME EVENTLARI

void KaputEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Kaput işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Width = 150
  yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void BagajEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Bagaj işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Width = 150
  yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}
void YagEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Yag işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Width = 128
  yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}
void FiltreEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Filtreler değiştirildi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Width = 135
  yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}
void AkuEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Akü işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Width = 135
  yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}
void BalansEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Balans işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Width = 160
  yeniLbl.Margins.Left = 15;
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}



void OnTamponEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Ön Tampon işlemi eklendi.');
  yeniLbl.Align = alleft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Margins.Left = 15;
  yeniLbl.Width = 200
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void ArkaTamponEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Arka Tampon işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Margins.Left = 15;
  yeniLbl.Width = 200
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void BujiEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Buji işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Margins.Left = 15;
  yeniLbl.Width = 150
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}
void BalataEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Balata işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Margins.Left = 20;
  yeniLbl.Width = 150
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void SolOnKapiEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol ön kapı işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Margins.Left = 20;
  yeniLbl.Width = 200
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void SolArkaKapiEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol arka kapı işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Margins.Left = 20;
  yeniLbl.Width = 200
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}
void SagArkaKapiEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sağ arka kapı işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Margins.Left = 20;
  yeniLbl.Width = 200
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}

void SagOnKapiEkleme;
var
  yeniLbl: TclProLabel;
  BenzersizIsim: String;
{
  // Aynı isim hatası almamak için nesne isminin sonuna rastgele sayı ekliyoruz
  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));
  
  // Etiketi doğrudan islemkayitpanel içine alt alta (alTop) ekliyoruz
  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sağ On kapı işlemi eklendi.');
  yeniLbl.Align = alLeft;
  yeniLbl.Height = 30;
  yeniLbl.Margins.Top = 5;
  yeniLbl.Margins.Left = 20;
  yeniLbl.Width = 200
  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  yeniLbl.clProSettings.FontSize = 14;
  yeniLbl.SetclProSettings(yeniLbl.clProSettings);
}



{
///////////

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');
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')

girisyuz.run;
}

bu kodda müşteri sayfasında her müğşterinin işlemini arattığında müşteri bilgilerini sayfadaki yerlerine yerleştirmem lazım ama pek anlayamadım
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous" style="display: none !important;">]]> Tue, 12 May 2026 21:28:59 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1528&PID=3518#3518