Runtime error alma
Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1512
Tarih: 11 Mayıs 2026 Saat 17:37
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com
Konu: Runtime error alma
Mesajı Yazan: MenesKaya
Konu: Runtime error alma
Mesaj Tarihi: 11 Mayıs 2026 Saat 14:47
|
var girisyuz, ustasayfasi, musterisayfasi: TclForm RestClient: TclRest; logo1: TClProImage MemoDB: TclMemo; anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: TclProPanel listView1 : TClProListView; designerPanel1 : TClProListViewDesignerPanel; 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 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; { ustasayfasi.Show; ustasayfasi.clSetWindowState(fwsMaximized); } void AcMusteriSyf; { 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/' + 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; { kaputlbl = ustasayfasi.AddNewProLabel(designerPanel1, 'kaputlbl', 'Kaput'); clComponent.SetupComponent(basliklbl, '{"Align":"Center","Width":168, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}'); designerPanel1.AddPanelObject(kaputLbl, clText); } { /////////// 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'); 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') //////// 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}') /////////////////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"}'); ///////// 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"}'); //////// 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"}'); //////// 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"}'); //////// 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"}'); ///////// 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"}'); //////// 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"}'); //////// 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"}'); /////// 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"}'); ////// 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"}'); /////// 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"}'); /////// 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"}'); ///////// 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"}'); ////// İŞLEM KAYIT PANELİ listView1 = ustasayfasi.AddNewProListView(ustasayfasi,'listView1'); clComponent.SetupComponent(listView1, '{"MarginBottom":620,"MarginLeft":1370,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1300,"Height":150 }') designerPanel1 = ustasayfasi.AddNewProListViewDesignerPanel(listView1,'designerPanel1'); listView1.SetDesignerPanel(designerPanel1); //////////////// MÜŞTERİ SAYFASI 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"}'); ///////////MÜŞTERİ ARATMA 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"}'); ///////// SORGULAMA BUTONU 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'); ///////// MÜŞTERİ KAYDETME BUTONU musterisayfasi.AddNewEvent(yenikayitbtn,tbeOnClick,'MusteriKaydetTikla'); ustasayfasi.AddNewEvent(yenikayitbtn, tbeOnClick, 'MusteriKaydetTikla'); girisyuz.run; } 86. satırda kaputlbl de ekleme yapmıyor ve bu hatayı veriyor |
Cevaplar:
Mesajı Yazan: kaanl0
Mesaj Tarihi: 11 Mayıs 2026 Saat 15:45
|
attığım kodu incelermisin eğer hala bir hata varsa geri dönüş bekliyorum var girisyuz, ustasayfasi, musterisayfasi: TclForm RestClient: TclRest; logo1: TClProImage MemoDB: TclMemo; anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: TclProPanel listView1 : TClProListView; designerPanel1 : TClProListViewDesignerPanel; 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 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; { ustasayfasi.Show; ustasayfasi.clSetWindowState(fwsMaximized); } void AcMusteriSyf; { 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 + '"}'; 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...'); } 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 = alTop; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; 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'); 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') //////// 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":-100,"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'); arabaimg.hittest=false; 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}') /////////////////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"}'); ///////// 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"}'); //////// 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"}'); //////// 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"}'); //////// 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"}'); ///////// 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"}'); //////// 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"}'); //////// 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"}'); /////// 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"}'); ////// 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"}'); /////// 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"}'); /////// 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"}'); ///////// 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"}'); ////// İŞLEM KAYIT PANELİ islemkayitpanel = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel'); clComponent.SetupComponent(islemkayitpanel, '{"MarginBottom":620,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":150 }'); //////////////// MÜŞTERİ SAYFASI 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"}'); ///////////MÜŞTERİ ARATMA 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"}'); ///////// SORGULAMA BUTONU 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'); ///////// MÜŞTERİ KAYDETME BUTONU musterisayfasi.AddNewEvent(yenikayitbtn,tbeOnClick,'MusteriKaydetTikla'); ustasayfasi.AddNewEvent(yenikayitbtn, tbeOnClick, 'MusteriKaydetTikla'); girisyuz.run; }
|