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

yapilanIslemler:String;

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" rel="nofollow - 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 AcMusteriSyf;

{

  // Müşteri sayfasını da her tıklamada yepyeni yaratıyoruz

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

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

  

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

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

  

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

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

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

  

  musterisayfasi.Show;

  musterisayfasi.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/" rel="nofollow - 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 + '","Islemler":"' + yapilanIslemler + '"}';

    SendRequest(rmPut, ' https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/" rel="nofollow - 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);

  yapilanIslemler = yapilanIslemler + 'Kaput İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Bagaj İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Yağ İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Filtre İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Akü İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Balans İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Ön Tampon İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Arka Tampon İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Buji İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Balata İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Sol Ön Kapı İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Sol Arka Kapı İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Sağ Arka Kapı İşlemi, ';

}

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

  yapilanIslemler = yapilanIslemler + 'Sağ Ön Kapı İşlemi, ';

}

{

///////////

girisyuz=TclForm.Create(Self);

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

girisyuz.clSetWindowState(fwsMaximized)

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

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

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

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

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

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

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

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

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

logo1.RotationAngle= 5

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

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

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

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

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

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

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

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

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

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

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

girisyuz.run;

}


müşteri kaydı yaparken SendRequest procedure i içindeki if yapısında runtime hatası veriyor

var

  girisyuz, ustasayfasi, musterisayfasi: TclForm;

  RestClient: TclRest;

  logo1, arabaimg: TClProImage;

  anapanel, ustapanel, musteribilgipanel, islempanel, islemkayitpanel, islemkayitpanel2, islemkayitpanel3: TclProPanel;

  ustabtn, musteribtn, yenikayitbtn, sorgulabtn: TClProButton;

  kaputbtn, ontamponbtn, solonbtn, sagonbtn, solarkabtn, sagarkabtn, arkatamponbtn, bagajbtn: TClProButton;

  balatabtn, yagbtn, filtrebtn, akubtn, bujibtn, balansbtn: TClProButton;

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

  plakaedt, adedt, teledt, kmedt, musteriaramaedt: TclProEdit;

  yapilanIslemler: String;

void CompletedProc;

{

  if (RestClient.Response == 'null')

    ShowMessage('Kayıt bulunamadı!');

  else

    ShowMessage('İşlem Başarılı!');

}

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 EkleIslemEtiketi(APanel, AMetin);

var

  yeniLbl: TclProLabel;

{

  yeniLbl = ustasayfasi.AddNewProLabel(APanel, 'islemLbl_' + IntToStr(Random(999999)), '- ' + AMetin);

  yeniLbl.Align = alLeft;

  yeniLbl.Width = 160;

  yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clBlack;

  yeniLbl.clProSettings.FontSize = 13;

  yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  yeniLbl.SetclProSettings(yeniLbl.clProSettings);

  

  yapilanIslemler = yapilanIslemler + AMetin + ', ';

}

// Buton Eventları

void KaputEkleme; { EkleIslemEtiketi(islemkayitpanel, 'Kaput İşlemi'); }

void BagajEkleme; { EkleIslemEtiketi(islemkayitpanel, 'Bagaj İşlemi'); }

void YagEkleme;   { EkleIslemEtiketi(islemkayitpanel2, 'Yağ Değişimi'); }

// --- VERİ TABANI KAYIT ---

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 + '","Islemler":"' + yapilanIslemler + '"}';

  SendRequest(rmPut, ' https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/" rel="nofollow - https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/ ' + plakaedt.Text + '.json', vBody);

}

void SorgulaButonTikla;

{

  if (musteriaramaedt.Text == '') ShowMessage('Plaka giriniz!');

  else SendRequest(rmGet, ' https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/" rel="nofollow - https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/ ' + musteriaramaedt.Text + '.json', '');

}

void AcUstaSyf;

{

  ustasayfasi = TclForm.Create(girisyuz);

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

  yapilanIslemler = '';

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

  ustapanel.Align = alTop;

  ustapanel.Height = 70;

  ustapanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1C253E');

  ustapanel.SetclProSettings(ustapanel.clProSettings);

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

  basliklbl.Align = alCenter;

  basliklbl.clProSettings.FontColor = clAlphaColor.clWhite;

  basliklbl.clProSettings.FontSize = 18;

  basliklbl.SetclProSettings(basliklbl.clProSettings);

  yenikayitbtn = ustasayfasi.AddNewProButton(ustasayfasi, 'yenikayitbtn', 'Müşteriyi Kaydet');

  yenikayitbtn.Align = alBottom;

  yenikayitbtn.Height = 60;

  yenikayitbtn.Margins.Bottom = 20;

  yenikayitbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF8C00');

  yenikayitbtn.clProSettings.FontColor = clAlphaColor.clWhite;

  yenikayitbtn.SetclProSettings(yenikayitbtn.clProSettings);

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

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

  musteribilgipanel.Align = alLeft;

  musteribilgipanel.Width = 400;

  musteribilgipanel.Margins.Left = 20;

  musteribilgipanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E2940');

  musteribilgipanel.clProSettings.RoundHeight = 15;

  musteribilgipanel.SetclProSettings(musteribilgipanel.clProSettings);

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

  plakaedt.Align = alTop;

  plakaedt.Height = 45;

  plakaedt.Margins.Top = 50;

  plakaedt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1C253E');

  plakaedt.clProSettings.FontColor = clAlphaColor.clWhite;

  plakaedt.SetclProSettings(plakaedt.clProSettings);

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

  islemkayitpanel.Align = alTop;

  islemkayitpanel.Height = 80;

  islemkayitpanel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  islemkayitpanel.SetclProSettings(islemkayitpanel.clProSettings);

  

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

  islemkayitpanel2.Align = alTop;

  islemkayitpanel2.Height = 80;

  islemkayitpanel2.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  islemkayitpanel2.SetclProSettings(islemkayitpanel2.clProSettings);

  kaputbtn = ustasayfasi.AddNewProButton(ustasayfasi, 'kaputbtn', 'Kaput');

  kaputbtn.Width = 100;

  kaputbtn.Height = 40;

  kaputbtn.clProSettings.BackgroundColor = clAlphaColor.clRed;

  kaputbtn.SetclProSettings(kaputbtn.clProSettings);

  ustasayfasi.AddNewEvent(kaputbtn, tbeOnClick, 'KaputEkleme');

  ustasayfasi.Show;

}

void AcMusteriSyf;

{

  musterisayfasi = TclForm.Create(Self);

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

  musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Plaka Girin');

  musteriaramaedt.Align = alTop;

  musteriaramaedt.Height = 50;

  musteriaramaedt.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  musteriaramaedt.SetclProSettings(musteriaramaedt.clProSettings);

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

  sorgulabtn.Align = alTop;

  sorgulabtn.Height = 50;

  sorgulabtn.clProSettings.BackgroundColor = clAlphaColor.clGray;

  sorgulabtn.SetclProSettings(sorgulabtn.clProSettings);

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

  musterisayfasi.Show;

}

{

  girisyuz = TclForm.Create(Self);

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

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

  anapanel.Align = alCenter;

  anapanel.Width = 400;

  anapanel.Height = 600;

  anapanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#12192C');

  anapanel.SetclProSettings(anapanel.clProSettings);

  ustabtn = girisyuz.AddNewProButton(anapanel, 'ustabtn', 'Ben Ustayım');

  ustabtn.Align = alTop;

  ustabtn.Height = 80;

  ustabtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1C253E');

  ustabtn.clProSettings.FontColor = clAlphaColor.clWhite;

  ustabtn.SetclProSettings(ustabtn.clProSettings);

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

  musteribtn = girisyuz.AddNewProButton(anapanel, 'musteribtn', 'Ben Araç Sahibiyim');

  musteribtn.Align = alTop;

  musteribtn.Height = 80;

  musteribtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1C253E');

  musteribtn.clProSettings.FontColor = clAlphaColor.clWhite;

  musteribtn.SetclProSettings(musteribtn.clProSettings);

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

  girisyuz.Run;

}