|
| Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir. |
Kod işleyiş sorunu |
Yanıt Yaz 
|
| Yazar | |
MenesKaya 
Yeni Üye 
Kayıt Tarihi: 04 Mayıs 2026 Konum: Konya Durum: Aktif Değil Puanlar: 12 |
 Mesaj Seçenekleri
Yanıt Yaz
Alıntı MenesKaya
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
 Teşekkürler(0)
 Alıntı Cevapla
 Konu: Kod işleyiş sorunuGönderim Zamanı: 3 Saat 37 Dakika Önce Saat 13:47 |
|
var girisyuz, ustasayfasi, musterisayfasi: TclForm RestClient: TclRest; logo1: TClProImage MemoDB: TclMemo; anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel: 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 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...'); } { /////////// 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"}'); ///////// Ö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; TclButton(musterisayfasi.clFindComponent('BtnGoBack')).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; } ////////////////////////////////////////// kodda açılış sayfasındaki usta sayfasına girip çıktıktan sonra bi daha giremiyorum müşteri sayfası içinde aynısı geçerli |
|
 |
|
|
kaanl0
Kıdemli Üye 
Kayıt Tarihi: 16 Eylül 2025 Konum: konya Durum: Aktif Değil Puanlar: 205 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 2 Saat 26 Dakika Önce Saat 14:58 |
|
Senin kodunda ben ustayım butonuna basınca sayfa açılıyor geri butonuna basınca bütün oluşturduğumuz şeyler yok edildiği için tekrar girmeye calıstığımızda componentleri bulamıyordu, o yüzden componentleri oluşturma işlemlerini prosedüre bağladık.
var
girisyuz, ustasayfasi, musterisayfasi: TclForm
RestClient: TclRest;
logo1: TClProImage
MemoDB: TclMemo;
anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel: 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
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 sayfasını her tıklamada sıfırdan, yepyeni yaratıyoruz
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"}');
ustasayfasi.AddNewEvent(yenikayitbtn, tbeOnClick, 'MusteriKaydetTikla');
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}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
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"}');
islemkayitpanel = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel');
clComponent.SetupComponent(islemkayitpanel, '{"MarginBottom":620,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":150 }');
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;
TclButton(musterisayfasi.clFindComponent('BtnGoBack')).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/' + 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...');
}
{
///////////
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')
girisyuz.run;
}
|
|
|
|
|
kaanl0
Kıdemli Üye
Kayıt Tarihi: 16 Eylül 2025 Konum: konya Durum: Aktif Değil Puanlar: 205 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 2 Saat 24 Dakika Önce Saat 15:00 |
|
Ayrıca clcomponent yerine clprosettings kullanmanı tavsiye ederim.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">
|
|
|
|
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |
Topic Seçenekleri