Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - kodumda bi tıkandığım bi yer var
  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.

kodumda bi tıkandığım bi yer var
 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: kodumda bi tıkandığım bi yer var
    Gönderim Zamanı: 1 saat 52 Dakika Önce Saat 21:28

var
girisyuz, ustasayfasi, musterisayfasi: TclForm
RestClient: TclRest;
logo1: TClProImage
MemoDB: TclMemo;
anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,islemkayitpanel2,islemkayitpanel3,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: TclProPanel
ustabtn,musteribtn, aracbtn,yenikayitbtn,sorgulabtn,balatabtn,yagbtn,filtrebtn,akubtn,bujibtn,balansbtn,sagonbtn,sagarkabtn,solonbtn,solarkabtn,kaputbtn,bagajbtn,ontamponbtn,arkatamponbtn : TclProButton
basliklbl,plakalbl,bilgibasliklbl,musteribasliklbl, adlbl, tellbl, kmlbl:TClProLabel
plakaedt, adedt, teledt, kmedt, musteriaramaedt: TclProEdit
arabaimg : TClProImage
musteriBilgiKart, odemePanel: TclProPanel;
detayBaslikLbl, toplamTutarLbl, borcLbl: TclProLabel;
resAdLbl, resTelLbl, resKMLbl, resIslemlerLbl: TclProLabel;
islemJSON: TclJSONObject;
void AcMusteriSyf;
{
  musterisayfasi = TclForm.Create(Self);
  TclButton(musterisayfasi.clFindComponent('BtnFormMenu')).Visible = False;
  musterisayfasi.SetFormColor('#12192C','',clGNone);
  
  musteripanel = musterisayfasi.AddNewProPanel(musterisayfasi,'musteripanel');
  clComponent.SetupComponent(musteripanel,'{"Align":"Top","Height":70, "BackgroundColor":"#1C253E"}');
  
  musteribasliklbl = musterisayfasi.AddNewProLabel(musteripanel, 'musteribasliklbl', 'Müşteri Sorgulama Paneli');
  clComponent.SetupComponent(musteribasliklbl, '{"Align":"Center","Width":250, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');
  
  musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Plaka Giriniz (Örn: 34ABC123)');
  clComponent.SetupComponent(musteriaramaedt,'{"Align":"Top","MarginTop":30,"MarginLeft":100,"MarginRight":100,"Height":50, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#FFFFFF", "TextColor":"#000000"}');
  
  sorgulabtn = musterisayfasi.AddNewProButton(musterisayfasi, 'sorgulabtn', 'ARACI SORGULA');
  clComponent.SetupComponent(sorgulabtn, '{"Align":"Top","MarginTop":10,"MarginLeft":150,"MarginRight":150, "Height":50, "RoundHeight":15, "RoundWidth":15, "BackgroundColor":"#FF8C00", "TextColor":"#FFFFFF", "TextBold":"yes"}');
  musterisayfasi.AddNewEvent(sorgulabtn, tbeOnClick, 'SorgulaButonTikla');


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

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

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

  musterisayfasi.Show;
  musterisayfasi.clSetWindowState(fwsMaximized);
}
void OnUstaEnter;
{
  clComponent.SetupComponent(ustabtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');
}

void OnMusteriEnter;
{
  clComponent.SetupComponent(musteribtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');
}
void OnLeave;
{
  clComponent.SetupComponent(ustabtn, '{"BorderColor":"#1C253E", "BorderWidth":2}');
  clComponent.SetupComponent(musteribtn, '{"BorderColor":"#1C253E", "BorderWidth":2}');
}
void AcUstaSyf;
{
//////// USTA SAYFASI

ustasayfasi = TclForm.Create(girisyuz);
ustasayfasi.SetFormColor('#12192C','',clGNone);
TclButton(ustasayfasi.clFindComponent('BtnFormMenu')).Visible = False;


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



basliklbl = ustasayfasi.AddNewProLabel(ustapanel, 'basliklbl', 'Usta Yönetim Paneli');
clComponent.SetupComponent(basliklbl, '{"Align":"Center","Width":168, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');

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

yenikayitbtn = ustasayfasi.AddNewProButton(ustasayfasi, 'yenikayitbtn', ' + Yeni Müşteri Kaydı');
clComponent.SetupComponent(yenikayitbtn,'{"Align":"Bottom", "MarginBottom":20, "MarginLeft":20, "MarginRight":20, "Height":60, "BackgroundColor":"#FF8C00", "RoundHeight":10, "RoundWidth":10, "TextColor":"#FFFFFF", "TextBold":"yes"}')

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

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

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

bilgibasliklbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'bilgibasliklbl', '                                     Müşteri ve Araç Bilgileri');
clComponent.SetupComponent(bilgibasliklbl, '{"Align":"Top", "MarginTop":30, "MarginLeft":20, "Height":30, "TextSize":15, "TextColor":"#FF8C00", "TextBold":"yes"}');



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

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



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

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



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

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

  

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

  adedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'adedt', 'Örn: Ali Yılmaz');
  clComponent.SetupComponent(adedt,'{"MarginBottom":270, "MarginLeft":20,"MarginRight":280, "Height":45,"Width":200, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');



  ///////TELEFON YAZI

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

  

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

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

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

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

  

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

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

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

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

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

  arabaimg = ustasayfasi.AddNewProImage(islempanel, 'arabaimg');
  ustasayfasi.SetImage(arabaimg, 'https://resmim.net/cdn/2026/05/06/CrNRqh.png');
  clComponent.SetupComponent(arabaimg, '{"MarginTop":300,"Width":1200,"Height":700}')
  arabaimg.hittest=false;

  

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

  kaputbtn = ustasayfasi.AddNewProButton(islempanel, 'kaputbtn', '●');
  clComponent.SetupComponent(kaputbtn, '{"Width":110,"MarginTop":150,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(kaputbtn,tbeOnClick,'KaputEkleme')


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

  ontamponbtn = ustasayfasi.AddNewProButton(islempanel, 'ontamponbtn', '●');
  clComponent.SetupComponent(ontamponbtn, '{"Width":200,"MarginTop":540,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(ontamponbtn,tbeOnClick,'OnTamponEkleme')
  ///////// SOL ÖN KAPI BUTONU

  solonbtn = ustasayfasi.AddNewProButton(islempanel, 'solonbtn', '●');
  clComponent.SetupComponent(solonbtn, '{"Width":100,"MarginTop":355,"MarginRight":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(solonbtn,tbeOnClick,'SolOnKapiEkleme')

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

  sagonbtn = ustasayfasi.AddNewProButton(islempanel, 'sagonbtn', '●');
  clComponent.SetupComponent(sagonbtn, '{"Width":100,"MarginTop":355,"MarginRight":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(sagonbtn,tbeOnClick,'SagOnKapiEkleme')

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

  solarkabtn = ustasayfasi.AddNewProButton(islempanel, 'solarkabtn', '●');
  clComponent.SetupComponent(solarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(solarkabtn,tbeOnClick,'SolArkaKapiEkleme')

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

  sagarkabtn = ustasayfasi.AddNewProButton(islempanel, 'sagarkabtn', '●');
  clComponent.SetupComponent(sagarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(sagarkabtn,tbeOnClick,'SagArkaKapiEkleme')

  ///////// ARKA TAMPON

  arkatamponbtn = ustasayfasi.AddNewProButton(islempanel, 'arkatamponbtn', '●');
  clComponent.SetupComponent(arkatamponbtn, '{"Width":200,"MarginTop":540,"Marginleft":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(arkatamponbtn,tbeOnClick,'ArkaTamponEkleme')
  //////// BAGAJ BUTONU

  bagajbtn= ustasayfasi.AddNewProButton(islempanel, 'bagajbtn', '●');
  clComponent.SetupComponent(bagajbtn, '{"Width":110,"MarginTop":150,"Marginleft":600,"Height":55, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(bagajbtn,tbeOnClick,'BagajEkleme')


  //////// BALATA BUTONU

  balatabtn = ustasayfasi.AddNewProButton(islempanel, 'balatabtn', '+ Balata');
  clComponent.SetupComponent(balatabtn, '{"MarginRight":1200, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FDF2E9", "TextColor":"#D35400", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(balatabtn,tbeOnClick,'BalataEkleme')
  

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

  yagbtn = ustasayfasi.AddNewProButton(islempanel, 'yagbtn', '+ Yağ');
  clComponent.SetupComponent(yagbtn, '{"MarginRight":900, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EBF5FB", "TextColor":"#2E86C1", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(yagbtn,tbeOnClick,'YagEkleme')



  ////// FİLTRELER BUTONU

  filtrebtn = ustasayfasi.AddNewProButton(islempanel, 'filtrebtn', '+ Filtreler');
  clComponent.SetupComponent(filtrebtn, '{"MarginRight":600, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAFAF1", "TextColor":"#27AE60", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(filtrebtn,tbeOnClick,'FiltreEkleme')



  /////// AKÜ BUTONU

  akubtn = ustasayfasi.AddNewProButton(islempanel, 'akubtn', '+ Akü');
  clComponent.SetupComponent(akubtn, '{"MarginRight":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FEF9E7", "TextColor":"#F1C40F", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(akubtn,tbeOnClick,'AkuEkleme')



  /////// BUJİ BUTONU

  bujibtn = ustasayfasi.AddNewProButton(islempanel, 'bujibtn', '+ Buji');
  clComponent.SetupComponent(bujibtn, '{"MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#F4ECF7", "TextColor":"#8E44AD", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(bujibtn,tbeOnClick,'BujiEkleme')



  ///////// BALANS BUTONU

  balansbtn = ustasayfasi.AddNewProButton(islempanel, 'balansbtn', '+ Balans');
  clComponent.SetupComponent(balansbtn, '{ "MarginLeft":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAECEE", "TextColor":"#2C3E50", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(balansbtn,tbeOnClick,'BalansEkleme')

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

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

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


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

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

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

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

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

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



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

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

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

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

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

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



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

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

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

anapanel=girisyuz.AddNewProPanel(girisyuz, 'anapanel');
clComponent.SetupComponent(anapanel,'{"Align":"Center","Width":450,"Height":650, "BackgroundColor":"#12192C"}');
TclButton(girisyuz.clFindComponent('BtnFormMenu')).Visible = False;
TclButton(girisyuz.clFindComponent('BtnGoBack')).Visible = False;

/////////////LOGO
logo1 = girisyuz.AddNewProImage(anapanel, 'logo1');
clComponent.SetupComponent(logo1, '{"Align":"Top", "Height":200,"Width":200}');
logo1.RotationAngle= 5

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

ustabtn=girisyuz.AddNewProButton(anapanel, 'ustabtn','   Ben Ustayım' + #13 + '   Müşteri kabul et ve işlem kaydet');
clComponent.SetupComponent(ustabtn,'{"Align":"Top", "MarginTop":50, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}')
girisyuz.AddNewEvent(ustabtn, tbeOnMouseMove , 'OnUstaEnter');
girisyuz.AddNewEvent(anapanel,tbeOnMouseMove, 'OnLeave')
girisyuz.AddNewEvent(ustabtn,tbeOnClick, 'AcUstaSyf')
/////////MÜŞTERİ BUTON
musteribtn=girisyuz.AddNewProButton(anapanel, 'musteribtn','   Ben Araç Sahibiyim' + #13 + '   Aracımın servis geçmişini gör');
clComponent.SetupComponent(musteribtn,'{"Align":"Top", "MarginTop":20, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}')
girisyuz.AddNewEvent(musteribtn, tbeOnMouseMove , 'OnMusteriEnter');
girisyuz.AddNewEvent(musteribtn,tbeOnClick, 'AcMusteriSyf')

girisyuz.run;
}

bu kodda müşteri sayfasında her müğşterinin işlemini arattığında müşteri bilgilerini sayfadaki yerlerine yerleştirmem lazım ama pek anlayamadım
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous" style="display: none !important;">
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 26 Dakika Önce Saat 21:54
Plaka ararken büyük küçük harf ve aradaki boşluklardan dolayı bulamıyordu kaydı o sorun giderildi sol taraftaki müşteri bilgileri kısmında henüz hiçbir işlem yapılmamıştı sorgudan sonra orayı doldurma işlemide tamamlandı 

var
  girisyuz, ustasayfasi, musterisayfasi: TclForm;
  RestClient: TclRest;
  logo1: TClProImage;
  MemoDB: TclMemo;
  anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,islemkayitpanel2,islemkayitpanel3,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: TclProPanel;
  ustabtn,musteribtn, aracbtn,yenikayitbtn,sorgulabtn,balatabtn,yagbtn,filtrebtn,akubtn,bujibtn,balansbtn,sagonbtn,sagarkabtn,solonbtn,solarkabtn,kaputbtn,bagajbtn,ontamponbtn,arkatamponbtn : TclProButton;
  basliklbl,plakalbl,bilgibasliklbl,musteribasliklbl, adlbl, tellbl, kmlbl:TClProLabel;
  plakaedt, adedt, teledt, kmedt, musteriaramaedt: TclProEdit;
  arabaimg : TClProImage;
  musteriBilgiKart, odemePanel: TclProPanel;
  detayBaslikLbl, toplamTutarLbl, borcLbl: TclProLabel;
  resAdLbl, resTelLbl, resKMLbl, resIslemlerLbl: TclProLabel;
  islemJSON: TclJSONObject;

void AcMusteriSyf;
{
  musterisayfasi = TclForm.Create(Self);
  TclButton(musterisayfasi.clFindComponent('BtnFormMenu')).Visible = False;
  musterisayfasi.SetFormColor('#12192C','',clGNone);
  
  musteripanel = musterisayfasi.AddNewProPanel(musterisayfasi,'musteripanel');
  clComponent.SetupComponent(musteripanel,'{"Align":"Top","Height":70, "BackgroundColor":"#1C253E"}');
  
  musteribasliklbl = musterisayfasi.AddNewProLabel(musteripanel, 'musteribasliklbl', 'Müşteri Sorgulama Paneli');
  clComponent.SetupComponent(musteribasliklbl, '{"Align":"Center","Width":250, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');
  
  musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Plaka Giriniz (Örn: 34ABC123)');
  clComponent.SetupComponent(musteriaramaedt,'{"Align":"Top","MarginTop":30,"MarginLeft":100,"MarginRight":100,"Height":50, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#FFFFFF", "TextColor":"#000000"}');
  
  sorgulabtn = musterisayfasi.AddNewProButton(musterisayfasi, 'sorgulabtn', 'ARACI SORGULA');
  clComponent.SetupComponent(sorgulabtn, '{"Align":"Top","MarginTop":10,"MarginLeft":150,"MarginRight":150, "Height":50, "RoundHeight":15, "RoundWidth":15, "BackgroundColor":"#FF8C00", "TextColor":"#FFFFFF", "TextBold":"yes"}');
  musterisayfasi.AddNewEvent(sorgulabtn, tbeOnClick, 'SorgulaButonTikla');

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

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

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

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

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

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

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

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

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

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

void AcUstaSyf;
{
  //////// USTA SAYFASI
  ustasayfasi = TclForm.Create(girisyuz);
  ustasayfasi.SetFormColor('#12192C','',clGNone);
  TclButton(ustasayfasi.clFindComponent('BtnFormMenu')).Visible = False;

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

  basliklbl = ustasayfasi.AddNewProLabel(ustapanel, 'basliklbl', 'Usta Yönetim Paneli');
  clComponent.SetupComponent(basliklbl, '{"Align":"Center","Width":168, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');

  yenikayitbtn = ustasayfasi.AddNewProButton(ustasayfasi, 'yenikayitbtn', ' + Yeni Müşteri Kaydı');
  clComponent.SetupComponent(yenikayitbtn,'{"Align":"Bottom", "MarginBottom":20, "MarginLeft":20, "MarginRight":20, "Height":60, "BackgroundColor":"#FF8C00", "RoundHeight":10, "RoundWidth":10, "TextColor":"#FFFFFF", "TextBold":"yes"}')

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

  bilgibasliklbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'bilgibasliklbl', '                                     Müşteri ve Araç Bilgileri');
  clComponent.SetupComponent(bilgibasliklbl, '{"Align":"Top", "MarginTop":30, "MarginLeft":20, "Height":30, "TextSize":15, "TextColor":"#FF8C00", "TextBold":"yes"}');

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

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

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

  adedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'adedt', 'Örn: Ali Yılmaz');
  clComponent.SetupComponent(adedt,'{"MarginBottom":270, "MarginLeft":20,"MarginRight":280, "Height":45,"Width":200, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

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

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

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

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

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

  kaputbtn = ustasayfasi.AddNewProButton(islempanel, 'kaputbtn', '●');
  clComponent.SetupComponent(kaputbtn, '{"Width":110,"MarginTop":150,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(kaputbtn,tbeOnClick,'KaputEkleme')

  ontamponbtn = ustasayfasi.AddNewProButton(islempanel, 'ontamponbtn', '●');
  clComponent.SetupComponent(ontamponbtn, '{"Width":200,"MarginTop":540,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(ontamponbtn,tbeOnClick,'OnTamponEkleme')

  solonbtn = ustasayfasi.AddNewProButton(islempanel, 'solonbtn', '●');
  clComponent.SetupComponent(solonbtn, '{"Width":100,"MarginTop":355,"MarginRight":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(solonbtn,tbeOnClick,'SolOnKapiEkleme')

  sagonbtn = ustasayfasi.AddNewProButton(islempanel, 'sagonbtn', '●');
  clComponent.SetupComponent(sagonbtn, '{"Width":100,"MarginTop":355,"MarginRight":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(sagonbtn,tbeOnClick,'SagOnKapiEkleme')

  solarkabtn = ustasayfasi.AddNewProButton(islempanel, 'solarkabtn', '●');
  clComponent.SetupComponent(solarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(solarkabtn,tbeOnClick,'SolArkaKapiEkleme')

  sagarkabtn = ustasayfasi.AddNewProButton(islempanel, 'sagarkabtn', '●');
  clComponent.SetupComponent(sagarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(sagarkabtn,tbeOnClick,'SagArkaKapiEkleme')

  arkatamponbtn = ustasayfasi.AddNewProButton(islempanel, 'arkatamponbtn', '●');
  clComponent.SetupComponent(arkatamponbtn, '{"Width":200,"MarginTop":540,"Marginleft":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(arkatamponbtn,tbeOnClick,'ArkaTamponEkleme')

  bagajbtn= ustasayfasi.AddNewProButton(islempanel, 'bagajbtn', '●');
  clComponent.SetupComponent(bagajbtn, '{"Width":110,"MarginTop":150,"Marginleft":600,"Height":55, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(bagajbtn,tbeOnClick,'BagajEkleme')

  balatabtn = ustasayfasi.AddNewProButton(islempanel, 'balatabtn', '+ Balata');
  clComponent.SetupComponent(balatabtn, '{"MarginRight":1200, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FDF2E9", "TextColor":"#D35400", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(balatabtn,tbeOnClick,'BalataEkleme')
  
  yagbtn = ustasayfasi.AddNewProButton(islempanel, 'yagbtn', '+ Yağ');
  clComponent.SetupComponent(yagbtn, '{"MarginRight":900, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EBF5FB", "TextColor":"#2E86C1", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(yagbtn,tbeOnClick,'YagEkleme')

  filtrebtn = ustasayfasi.AddNewProButton(islempanel, 'filtrebtn', '+ Filtreler');
  clComponent.SetupComponent(filtrebtn, '{"MarginRight":600, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAFAF1", "TextColor":"#27AE60", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(filtrebtn,tbeOnClick,'FiltreEkleme')

  akubtn = ustasayfasi.AddNewProButton(islempanel, 'akubtn', '+ Akü');
  clComponent.SetupComponent(akubtn, '{"MarginRight":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FEF9E7", "TextColor":"#F1C40F", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(akubtn,tbeOnClick,'AkuEkleme')

  bujibtn = ustasayfasi.AddNewProButton(islempanel, 'bujibtn', '+ Buji');
  clComponent.SetupComponent(bujibtn, '{"MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#F4ECF7", "TextColor":"#8E44AD", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(bujibtn,tbeOnClick,'BujiEkleme')

  balansbtn = ustasayfasi.AddNewProButton(islempanel, 'balansbtn', '+ Balans');
  clComponent.SetupComponent(balansbtn, '{ "MarginLeft":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAECEE", "TextColor":"#2C3E50", "TextBold":"yes"}');
  ustasayfasi.AddNewEvent(balansbtn,tbeOnClick,'BalansEkleme')

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  anapanel=girisyuz.AddNewProPanel(girisyuz, 'anapanel');
  clComponent.SetupComponent(anapanel,'{"Align":"Center","Width":450,"Height":650, "BackgroundColor":"#12192C"}');
  TclButton(girisyuz.clFindComponent('BtnFormMenu')).Visible = False;
  TclButton(girisyuz.clFindComponent('BtnGoBack')).Visible = False;

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

  ustabtn=girisyuz.AddNewProButton(anapanel, 'ustabtn','   Ben Ustayım' + #13 + '   Müşteri kabul et ve işlem kaydet');
  clComponent.SetupComponent(ustabtn,'{"Align":"Top", "MarginTop":50, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}');
  girisyuz.AddNewEvent(ustabtn, tbeOnMouseMove , 'OnUstaEnter');
  girisyuz.AddNewEvent(anapanel,tbeOnMouseMove, 'OnLeave');
  girisyuz.AddNewEvent(ustabtn,tbeOnClick, 'AcUstaSyf');

  musteribtn=girisyuz.AddNewProButton(anapanel, 'musteribtn','   Ben Araç Sahibiyim' + #13 + '   Aracımın servis geçmişini gör');
  clComponent.SetupComponent(musteribtn,'{"Align":"Top", "MarginTop":20, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}');
  girisyuz.AddNewEvent(musteribtn, tbeOnMouseMove , 'OnMusteriEnter');
  girisyuz.AddNewEvent(musteribtn,tbeOnClick, 'AcMusteriSyf');

  girisyuz.run;
}
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,078 Saniyede Yüklendi.