Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Clomosy ile değişken kullanımı
  Aktif Konular Aktif Konular RSS - İşlemleri ekleme
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

İşlemleri ekleme
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
MenesKaya Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 04 Mayıs 2026
Konum: Konya
Durum: Aktif Değil
Puanlar: 24 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı MenesKaya Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: İşlemleri ekleme
    Gönderim Zamanı: 1 saat 47 Dakika Önce 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');
  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;
}

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;">
Yukarı Dön
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif Değil
Puanlar: 211 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 42 Dakika Önce 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" 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;">
Yukarı Dön
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif Değil
Puanlar: 211 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 27 Dakika Önce 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');
  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/' + 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/' + 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');
  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" 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;">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

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

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

Bu Sayfa 0,039 Saniyede Yüklendi.