Sayfayı Yazdır | Pencereyi Kapat

İşlemleri ekleme

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1530
Tarih: 13 Mayıs 2026 Saat 00:36
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: İşlemleri ekleme
Mesajı Yazan: MenesKaya
Konu: İşlemleri ekleme
Mesaj Tarihi: 12 Mayıs 2026 Saat 22:01
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" rel="nofollow - 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/" rel="nofollow - 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/" rel="nofollow - 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" rel="nofollow - 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;
}

az önce yardımcı olduğunuz koddaki yapıları tam anlayamadığım için işlemleri o müşteri sayfasındaki alana eklemeyi başaramadım yardımcı olur musunuz?
< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous" style="display: none !imant;">


Cevaplar:
Mesajı Yazan: kaanl0
Mesaj Tarihi: 12 Mayıs 2026 Saat 22:06
Merhaba araç kaydı yaparkenki işlemleri kaydedip gösteririz fakat ödeme işlemleri fiyatlandırma kısımlarını tam anlamadım. Mesela yağ değişimini ücretlendirmemişsin müşteri ekranında nasıl toplam borç kısmını dolduracağız. https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - 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;">

Mesajı Yazan: kaanl0
Mesaj Tarihi: 12 Mayıs 2026 Saat 22:21
Yapılan işlemleri plaka sorgusunda getiriyorum çalışıyor artık. Tasarım iyileştirilebilir
Ayrıca fiyatlandırma kısmını anlamadığım için boş bıraktım


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, islemDetayKart: TclProPanel; // islemDetayKart eklendi
  detayBaslikLbl, toplamTutarLbl, borcLbl, islemBaslikLbl: TclProLabel; // islemBaslikLbl eklendi
  resAdLbl, resTelLbl, resKMLbl, resIslemlerLbl: TclProLabel;
  islemJSON: TclJSONObject;
  SecilenIslemler: String; 

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

  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":20,"Height":30,"TextSize":16,"TextColor":"#FF8C00","TextBold":"yes"}');

  // YENİ TASARIM: Yapılan İşlemler İçin Şık Bir Kutu (Card) Tasarımı
  islemDetayKart = musterisayfasi.AddNewProPanel(odemePanel, 'islemDetayKart');
  clComponent.SetupComponent(islemDetayKart, '{"Align":"Top","MarginTop":15,"MarginLeft":20,"MarginRight":20,"Height":150, "BackgroundColor":"#27334B","RoundWidth":10,"RoundHeight":10}');

  // Kartın içindeki küçük başlık
  islemBaslikLbl = musterisayfasi.AddNewProLabel(islemDetayKart, 'islemBaslikLbl', 'Araçta Yapılan İşlemler');
  clComponent.SetupComponent(islemBaslikLbl, '{"Align":"Top","MarginTop":10,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#9BA2B5","TextBold":"yes"}');

  // Metnin döküleceği asıl etiket (Sola ve yukarı yaslı)
  resIslemlerLbl = musterisayfasi.AddNewProLabel(islemDetayKart, 'resIslemlerLbl', 'Henüz sorgulama yapılmadı.');
  clComponent.SetupComponent(resIslemlerLbl, '{"Align":"Client","MarginTop":5,"MarginLeft":15,"MarginRight":15,"MarginBottom":10,"TextSize":14,"TextColor":"#FFFFFF"}');
  resIslemlerLbl.clProSettings.TextSettings.WordWrap = True;
  resIslemlerLbl.clProSettings.FontVertAlign = palLeading; // Metni yukarıdan başlatır
  resIslemlerLbl.clProSettings.FontHorzAlign = palLeading; // Metni soldan başlatır
  resIslemlerLbl.SetclProSettings(resIslemlerLbl.clProSettings);

  borcLbl = musterisayfasi.AddNewProLabel(odemePanel, 'borcLbl', 'Toplam Borç: 0.00 TL');
  clComponent.SetupComponent(borcLbl, '{"Align":"Bottom","MarginBottom":20,"MarginLeft":20,"Height":30,"TextSize":18,"TextColor":"#E74C3C","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;
{
  SecilenIslemler = ''; // Usta sayfasına her girildiğinde eski işlemleri sıfırlıyoruz

  //////// 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" rel="nofollow - 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);
}

void CompletedProc;
var
  GelenCevap, vAd, vTel, vKM, vIslemler: String;
{
  if (RestClient.Response == 'null')
  {
    ShowMessage('Sistemde bu plakaya ait kayıt bulunamadı!');
    if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: -';
    if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: -';
    if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: -';
    if (Assigned(resIslemlerLbl)) resIslemlerLbl.Text = '-';
  }
  else
  {
    GelenCevap = RestClient.Response;
    
    // 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');
      
      // JSON'dan işlemleri çekiyoruz
      vIslemler = Clomosy.CLParseJSON(GelenCevap, 'Islemler'); 
      if (vIslemler == '') 
        vIslemler = 'Kayıtlı işlem bulunamadı.';
      
      if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: ' + vAd;
      if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: ' + vTel;
      if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: ' + vKM + ' km';
      // Yazıyı doğrudan özel tasarladığımız etiket kutusunun içine atıyoruz
      if (Assigned(resIslemlerLbl)) resIslemlerLbl.Text = vIslemler;
      
      ShowMessage('Müşteri bilgileri başarıyla getirildi.');
    }
    else
    {
      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
  {
    ArananPlaka = clGetStringReplace(musteriaramaedt.Text, ' ', '');
    ArananPlaka = AnsiUpperCase(ArananPlaka);
    
    SendRequest(rmGet, ' https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/" rel="nofollow - https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/ ' + ArananPlaka + '.json', '');
  }
}

void MusteriKaydetTikla;
var 
  vBody, TemizPlaka: String;
{
  if (plakaedt.Text == '') { ShowMessage('Plaka boş olamaz!'); Exit; }
  
  TemizPlaka = clGetStringReplace(plakaedt.Text, ' ', '');
  TemizPlaka = AnsiUpperCase(TemizPlaka);
  
  vBody = '{"Plaka":"' + TemizPlaka + '","Ad":"' + adedt.Text + '","Telefon":"' + teledt.Text + '","KM":"' + kmedt.Text + '","Islemler":"' + SecilenIslemler + '"}';
  
  SendRequest(rmPut, ' https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/" rel="nofollow - 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;
{
  SecilenIslemler = SecilenIslemler + 'Kaput, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Bagaj, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Yağ Bakımı, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Filtreler, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Akü, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Balans, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Ön Tampon, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Arka Tampon, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Buji, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Balata, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Sol Ön Kapı, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Sol Arka Kapı, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Sağ Arka Kapı, ';
  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;
{
  SecilenIslemler = SecilenIslemler + 'Sağ Ön Kapı, ';
  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" rel="nofollow - 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;
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - 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;">


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net