Clomosy | Forum : ��lemleri ekleme

��lemleri ekleme : ellerinize sağlık çok güzel oldu...

Tue, 12 May 2026 22:25:00 +0000

Yazar: MenesKaya
Konu: 1531
G�nderim Zaman�: 12 May�s 2026 Saat 22:25

ellerinize sa�l�k �ok g�zel oldu te�ekk�r ederim �creti de ileriki zamanlarda eklemeye �al��aca��mhttps://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;">

��lemleri ekleme : Yapılan işlemleri plaka sorgusunda...

Tue, 12 May 2026 22:19:06 +0000

Yazar: kaanl0
Konu: 1531
G�nderim Zaman�: 12 May�s 2026 Saat 22:19

Yap�lan i�lemleri plaka sorgusunda getiriyorum �al��yor art�k. Tasar�m iyile�tirilebilir
Ayr�ca fiyatland�rma k�sm�n� anlamad��m i�in bo� b�rakt�m

var

girisyuz, ustasayfasi, musterisayfasi: TclForm;

RestClient: TclRest;

logo1: TClProImage;

MemoDB: TclMemo;

anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,islemkayitpanel2,islemkayitpanel3,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: TclProPanel;

ustabtn,musteribtn, aracbtn,yenikayitbtn,sorgulabtn,balatabtn,yagbtn,filtrebtn,akubtn,bujibtn,balansbtn,sagonbtn,sagarkabtn,solonbtn,solarkabtn,kaputbtn,bagajbtn,ontamponbtn,arkatamponbtn : TclProButton;

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

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

arabaimg : TClProImage;

musteriBilgiKart, odemePanel, islemDetayKart: TclProPanel; // islemDetayKart eklendi

detayBaslikLbl, toplamTutarLbl, borcLbl, islemBaslikLbl: TclProLabel; // islemBaslikLbl eklendi

resAdLbl, resTelLbl, resKMLbl, resIslemlerLbl: TclProLabel;

islemJSON: TclJSONObject;

SecilenIslemler: String;

void AcMusteriSyf;

{

musterisayfasi = TclForm.Create(Self);

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

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

musteripanel = musterisayfasi.AddNewProPanel(musterisayfasi,'musteripanel');

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

musteribasliklbl = musterisayfasi.AddNewProLabel(musteripanel, 'musteribasliklbl', 'M��teri Sorgulama Paneli');

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

musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Plaka Giriniz (�rn: 34ABC123)');

clComponent.SetupComponent(musteriaramaedt,'{"Align":"Top","MarginTop":30,"MarginLeft":100,"MarginRight":100,"Height":50, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#FFFFFF", "TextColor":"#000000"}');

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

clComponent.SetupComponent(sorgulabtn, '{"Align":"Top","MarginTop":10,"MarginLeft":150,"MarginRight":150, "Height":50, "RoundHeight":15, "RoundWidth":15, "BackgroundColor":"#FF8C00", "TextColor":"#FFFFFF", "TextBold":"yes"}');

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

musteriBilgiKart = musterisayfasi.AddNewProPanel(musterisayfasi, 'musteriBilgiKart');

clComponent.SetupComponent(musteriBilgiKart, '{"Align":"Left","MarginLeft":30,"MarginTop":30,"MarginBottom":50, "Width":400, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');

detayBaslikLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'detayBaslikLbl', 'M��teri & Ara� Detay�');

clComponent.SetupComponent(detayBaslikLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":15,"Height":30,"TextSize":15,"TextColor":"#FF8C00","TextBold":"yes"}');

resAdLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resAdLbl', 'Ad Soyad: -');

clComponent.SetupComponent(resAdLbl, '{"Align":"Top","MarginTop":15,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

resTelLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resTelLbl', 'Telefon: -');

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

resKMLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resKMLbl', 'Kilometre: -');

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

odemePanel = musterisayfasi.AddNewProPanel(musterisayfasi, 'odemePanel');

clComponent.SetupComponent(odemePanel, '{"Align":"Client","MarginLeft":20,"MarginRight":30,"MarginTop":30,"MarginBottom":50, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');

toplamTutarLbl = musterisayfasi.AddNewProLabel(odemePanel, 'toplamTutarLbl', 'Servis Ge�mi�i ve �demeler');

clComponent.SetupComponent(toplamTutarLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":20,"Height":30,"TextSize":16,"TextColor":"#FF8C00","TextBold":"yes"}');

// YEN� TASARIM: Yap�lan ��lemler ��in ��k Bir Kutu (Card) Tasar�m�

islemDetayKart = musterisayfasi.AddNewProPanel(odemePanel, 'islemDetayKart');

clComponent.SetupComponent(islemDetayKart, '{"Align":"Top","MarginTop":15,"MarginLeft":20,"MarginRight":20,"Height":150, "BackgroundColor":"#27334B","RoundWidth":10,"RoundHeight":10}');

// Kart�n i�indeki k��k ba�l�k

islemBaslikLbl = musterisayfasi.AddNewProLabel(islemDetayKart, 'islemBaslikLbl', 'Ara�ta Yap�lan ��lemler');

clComponent.SetupComponent(islemBaslikLbl, '{"Align":"Top","MarginTop":10,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#9BA2B5","TextBold":"yes"}');

// Metnin d�k�lece�i as�l etiket (Sola ve yukar� yasl�)

resIslemlerLbl = musterisayfasi.AddNewProLabel(islemDetayKart, 'resIslemlerLbl', 'Hen�z sorgulama yap�lmad�.');

clComponent.SetupComponent(resIslemlerLbl, '{"Align":"Client","MarginTop":5,"MarginLeft":15,"MarginRight":15,"MarginBottom":10,"TextSize":14,"TextColor":"#FFFFFF"}');

resIslemlerLbl.clProSettings.TextSettings.WordWrap = True;

resIslemlerLbl.clProSettings.FontVertAlign = palLeading; // Metni yukar�dan ba�lat�r

resIslemlerLbl.clProSettings.FontHorzAlign = palLeading; // Metni soldan ba�lat�r

resIslemlerLbl.SetclProSettings(resIslemlerLbl.clProSettings);

borcLbl = musterisayfasi.AddNewProLabel(odemePanel, 'borcLbl', 'Toplam Bor�: 0.00 TL');

clComponent.SetupComponent(borcLbl, '{"Align":"Bottom","MarginBottom":20,"MarginLeft":20,"Height":30,"TextSize":18,"TextColor":"#E74C3C","TextBold":"yes"}');

musterisayfasi.Show;

musterisayfasi.clSetWindowState(fwsMaximized);

}

void OnUstaEnter;

{

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

}

void OnMusteriEnter;

{

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

}

void OnLeave;

{

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

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

}

void AcUstaSyf;

{

SecilenIslemler = ''; // Usta sayfas�na her girildi�inde eski i�lemleri s�f�rl�yoruz

//////// USTA SAYFASI

ustasayfasi = TclForm.Create(girisyuz);

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

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

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

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

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

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

yenikayitbtn = ustasayfasi.AddNewProButton(ustasayfasi, 'yenikayitbtn', ' + Yeni M��teri Kayd�');

clComponent.SetupComponent(yenikayitbtn,'{"Align":"Bottom", "MarginBottom":20, "MarginLeft":20, "MarginRight":20, "Height":60, "BackgroundColor":"#FF8C00", "RoundHeight":10, "RoundWidth":10, "TextColor":"#FFFFFF", "TextBold":"yes"}')

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

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

bilgibasliklbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'bilgibasliklbl', ' M��teri ve Ara� Bilgileri');

clComponent.SetupComponent(bilgibasliklbl, '{"Align":"Top", "MarginTop":30, "MarginLeft":20, "Height":30, "TextSize":15, "TextColor":"#FF8C00", "TextBold":"yes"}');

plakalbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'plakalbl', 'ARA� PLAKASI');

clComponent.SetupComponent(plakalbl, '{"MarginBottom":150,"MarginRight":280, "Height":15, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

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

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

adlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'adlbl', 'AD SOYAD');

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

adedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'adedt', '�rn: Ali Y�lmaz');

clComponent.SetupComponent(adedt,'{"MarginBottom":270, "MarginLeft":20,"MarginRight":280, "Height":45,"Width":200, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

tellbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'tellbl', 'TELEFON');

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

teledt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'teledt', '0555...');

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

teledt.KeyboardType=vktNumberPad;

teledt.MaxLength=11;

kmlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'kmlbl', 'G�NCEL K�LOMETRE');

clComponent.SetupComponent(kmlbl, '{"MarginBottom":5, "MarginRight":280, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

kmedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'kmedt', '84500');

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

kmedt.KeyboardType=vktNumberPad;

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

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

arabaimg = ustasayfasi.AddNewProImage(islempanel, 'arabaimg');

ustasayfasi.SetImage(arabaimg, 'https://resmim.net/cdn/2026/05/06/CrNRqh.png');

clComponent.SetupComponent(arabaimg, '{"MarginTop":300,"Width":1200,"Height":700}')

arabaimg.hittest=false;

kaputbtn = ustasayfasi.AddNewProButton(islempanel, 'kaputbtn', '●');

clComponent.SetupComponent(kaputbtn, '{"Width":110,"MarginTop":150,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

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

ontamponbtn = ustasayfasi.AddNewProButton(islempanel, 'ontamponbtn', '●');

clComponent.SetupComponent(ontamponbtn, '{"Width":200,"MarginTop":540,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

ustasayfasi.AddNewEvent(ontamponbtn,tbeOnClick,'OnTamponEkleme')

solonbtn = ustasayfasi.AddNewProButton(islempanel, 'solonbtn', '●');

clComponent.SetupComponent(solonbtn, '{"Width":100,"MarginTop":355,"MarginRight":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

ustasayfasi.AddNewEvent(solonbtn,tbeOnClick,'SolOnKapiEkleme')

sagonbtn = ustasayfasi.AddNewProButton(islempanel, 'sagonbtn', '●');

clComponent.SetupComponent(sagonbtn, '{"Width":100,"MarginTop":355,"MarginRight":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

ustasayfasi.AddNewEvent(sagonbtn,tbeOnClick,'SagOnKapiEkleme')

solarkabtn = ustasayfasi.AddNewProButton(islempanel, 'solarkabtn', '●');

clComponent.SetupComponent(solarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

ustasayfasi.AddNewEvent(solarkabtn,tbeOnClick,'SolArkaKapiEkleme')

sagarkabtn = ustasayfasi.AddNewProButton(islempanel, 'sagarkabtn', '●');

clComponent.SetupComponent(sagarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

ustasayfasi.AddNewEvent(sagarkabtn,tbeOnClick,'SagArkaKapiEkleme')

arkatamponbtn = ustasayfasi.AddNewProButton(islempanel, 'arkatamponbtn', '●');

clComponent.SetupComponent(arkatamponbtn, '{"Width":200,"MarginTop":540,"Marginleft":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

ustasayfasi.AddNewEvent(arkatamponbtn,tbeOnClick,'ArkaTamponEkleme')

bagajbtn= ustasayfasi.AddNewProButton(islempanel, 'bagajbtn', '●');

clComponent.SetupComponent(bagajbtn, '{"Width":110,"MarginTop":150,"Marginleft":600,"Height":55, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

ustasayfasi.AddNewEvent(bagajbtn,tbeOnClick,'BagajEkleme')

balatabtn = ustasayfasi.AddNewProButton(islempanel, 'balatabtn', '+ Balata');

clComponent.SetupComponent(balatabtn, '{"MarginRight":1200, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FDF2E9", "TextColor":"#D35400", "TextBold":"yes"}');

ustasayfasi.AddNewEvent(balatabtn,tbeOnClick,'BalataEkleme')

yagbtn = ustasayfasi.AddNewProButton(islempanel, 'yagbtn', '+ Ya�');

clComponent.SetupComponent(yagbtn, '{"MarginRight":900, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EBF5FB", "TextColor":"#2E86C1", "TextBold":"yes"}');

ustasayfasi.AddNewEvent(yagbtn,tbeOnClick,'YagEkleme')

filtrebtn = ustasayfasi.AddNewProButton(islempanel, 'filtrebtn', '+ Filtreler');

clComponent.SetupComponent(filtrebtn, '{"MarginRight":600, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAFAF1", "TextColor":"#27AE60", "TextBold":"yes"}');

ustasayfasi.AddNewEvent(filtrebtn,tbeOnClick,'FiltreEkleme')

akubtn = ustasayfasi.AddNewProButton(islempanel, 'akubtn', '+ Ak�');

clComponent.SetupComponent(akubtn, '{"MarginRight":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FEF9E7", "TextColor":"#F1C40F", "TextBold":"yes"}');

ustasayfasi.AddNewEvent(akubtn,tbeOnClick,'AkuEkleme')

bujibtn = ustasayfasi.AddNewProButton(islempanel, 'bujibtn', '+ Buji');

clComponent.SetupComponent(bujibtn, '{"MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#F4ECF7", "TextColor":"#8E44AD", "TextBold":"yes"}');

ustasayfasi.AddNewEvent(bujibtn,tbeOnClick,'BujiEkleme')

balansbtn = ustasayfasi.AddNewProButton(islempanel, 'balansbtn', '+ Balans');

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

ustasayfasi.AddNewEvent(balansbtn,tbeOnClick,'BalansEkleme')

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

clComponent.SetupComponent(islemkayitpanel, '{"MarginBottom":680,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":75 }');

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

clComponent.SetupComponent(islemkayitpanel2, '{"MarginBottom":630,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');

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

clComponent.SetupComponent(islemkayitpanel3, '{"MarginBottom":570,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');

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

ustasayfasi.Show;

ustasayfasi.clSetWindowState(fwsMaximized);

}

void CompletedProc;

var

GelenCevap, vAd, vTel, vKM, vIslemler: String;

{

if (RestClient.Response == 'null')

{

ShowMessage('Sistemde bu plakaya ait kay�t bulunamad�!');

if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: -';

if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: -';

if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: -';

if (Assigned(resIslemlerLbl)) resIslemlerLbl.Text = '-';

}

else

{

GelenCevap = RestClient.Response;

// Arama (Sorgula) sonucudur, bilgileri doldur

if (Pos('"Ad"', GelenCevap) > 0)

{

vAd = Clomosy.CLParseJSON(GelenCevap, 'Ad');

vTel = Clomosy.CLParseJSON(GelenCevap, 'Telefon');

vKM = Clomosy.CLParseJSON(GelenCevap, 'KM');

// JSON'dan i�lemleri �ekiyoruz

vIslemler = Clomosy.CLParseJSON(GelenCevap, 'Islemler');

if (vIslemler == '')

vIslemler = 'Kay�tl� i�lem bulunamad�.';

if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: ' + vAd;

if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: ' + vTel;

if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: ' + vKM + ' km';

// Yaz�y� do�rudan �zel tasarlad��m�z etiket kutusunun i�ine at�yoruz

if (Assigned(resIslemlerLbl)) resIslemlerLbl.Text = vIslemler;

ShowMessage('M��teri bilgileri ba�ar�yla getirildi.');

}

else

{

ShowMessage('��lem Ba�ar�l�: Kay�t Tamamland�!');

}

void SendRequest(AMethod, AURL, ABody);

{

RestClient = TclRest.Create;

RestClient.Accept = 'application/json';

RestClient.ContentType = 'application/json';

RestClient.BaseURL = AURL;

if (ABody <> '') RestClient.Body = ABody;

RestClient.Method = AMethod;

RestClient.OnCompleted = 'CompletedProc';

RestClient.ExecuteAsync;

}

void SorgulaButonTikla;

var

ArananPlaka: String;

{

if (musteriaramaedt.Text == '')

{

ShowMessage('L�tfen plaka giriniz.');

}

else

{

ArananPlaka = clGetStringReplace(musteriaramaedt.Text, ' ', '');

ArananPlaka = AnsiUpperCase(ArananPlaka);

SendRequest(rmGet, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + ArananPlaka + '.json', '');

}

void MusteriKaydetTikla;

var

vBody, TemizPlaka: String;

{

if (plakaedt.Text == '') { ShowMessage('Plaka bo� olamaz!'); Exit; }

TemizPlaka = clGetStringReplace(plakaedt.Text, ' ', '');

TemizPlaka = AnsiUpperCase(TemizPlaka);

vBody = '{"Plaka":"' + TemizPlaka + '","Ad":"' + adedt.Text + '","Telefon":"' + teledt.Text + '","KM":"' + kmedt.Text + '","Islemler":"' + SecilenIslemler + '"}';

SendRequest(rmPut, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + TemizPlaka + '.json', vBody);

ShowMessage('Kay�t g�nderiliyor...');

}

//////////////////// ��LEM EKLEME EVENTLARI ////////////////////

void KaputEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Kaput, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Kaput i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 150; yeniLbl.Margins.Left = 15;

yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BagajEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Bagaj, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Bagaj i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 150; yeniLbl.Margins.Left = 15;

}

void YagEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Ya� Bak�m�, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Yag i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 128; yeniLbl.Margins.Left = 15;

}

void FiltreEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Filtreler, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Filtreler de�i�tirildi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 135; yeniLbl.Margins.Left = 15;

}

void AkuEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Ak�, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Ak� i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 135; yeniLbl.Margins.Left = 15;

}

void BalansEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Balans, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Balans i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 160; yeniLbl.Margins.Left = 15;

}

void OnTamponEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + '�n Tampon, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- �n Tampon i�lemi eklendi.');

yeniLbl.Align = alleft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 200;

}

void ArkaTamponEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Arka Tampon, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Arka Tampon i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 200;

}

void BujiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Buji, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Buji i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 150;

}

void BalataEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Balata, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Balata i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 150;

}

void SolOnKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Sol �n Kap�, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol �n kap� i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

}

void SolArkaKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Sol Arka Kap�, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol arka kap� i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

}

void SagArkaKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Sa� Arka Kap�, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sa� arka kap� i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

}

void SagOnKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

SecilenIslemler = SecilenIslemler + 'Sa� �n Kap�, ';

BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sa� On kap� i�lemi eklendi.');

yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

}

{

girisyuz=TclForm.Create(Self);

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

girisyuz.clSetWindowState(fwsMaximized);

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

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

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

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

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

girisyuz.SetImage(logo1,'https://resmim.net/cdn/2026/05/05/CoxjKC.png');

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

logo1.RotationAngle= 5;

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

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

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

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

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

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

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

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

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

girisyuz.run;

}

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous" style="display: none !important;">

��lemleri ekleme : Ücret kısmı şimdilik yok sadece...

Tue, 12 May 2026 22:18:42 +0000

Yazar: MenesKaya
Konu: 1531
G�nderim Zaman�: 12 May�s 2026 Saat 22:18

�cret k�sm� �imdilik yok sadece i�lemleri o alana ekleyece�im �cret biraz beni a�t� a��kcas�< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous" style="display: none !imant;">

��lemleri ekleme : Merhaba araç kaydı yaparkenki...

Tue, 12 May 2026 22:16:23 +0000

Yazar: kaanl0
Konu: 1531
G�nderim Zaman�: 12 May�s 2026 Saat 22:16

Merhaba ara� kayd� yaparkenki i�lemleri kaydedip g�steririz fakat �deme i�lemleri fiyatland�rma k�s�mlar�n� tam anlamad�m. Mesela ya� de�i�imini �cretlendirmemi�sin m��teri ekran�nda nas�l toplam bor� k�sm�n� dolduraca��z?

��lemleri ekleme : var girisyuz, ustasayfasi, musterisayfasi:...

Tue, 12 May 2026 22:06:13 +0000

Yazar: MenesKaya
Konu: 1531
G�nderim Zaman�: 12 May�s 2026 Saat 22:06

var

girisyuz, ustasayfasi, musterisayfasi: TclForm;

RestClient: TclRest;

logo1: TClProImage;

MemoDB: TclMemo;

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

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

arabaimg : TClProImage;

musteriBilgiKart, odemePanel: TclProPanel;

detayBaslikLbl, toplamTutarLbl, borcLbl: TclProLabel;