Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Kodumdaki kayıt sorunu
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Kodumdaki kayıt sorunu
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
MenesKaya Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 04 Mayıs 2026
Konum: Konya
Durum: Aktif
Puanlar: 12 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı MenesKaya Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Kodumdaki kayıt sorunu
    Gönderim Zamanı: 2 Saat 10 Dakika Önce Saat 13:48
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');
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 herhangi bir müşteriyi kaydettikten sonra bi daha tekrar kaydedemiyorum ne olursa olsun müşteri kaydet butonuna basılmıyor
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">
Yukarı Dön
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif
Puanlar: 205 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 27 Dakika Önce Saat 15:31
Butonun ikonun arkasında kalmış sadece köşelerden tıklayabiliyor, doğru yerden üstüste 2 kere tıklarsam problem olmuyor, kullandığınız araba görselini biraz daha yukarı kaldırarak butonu tıklanabilir yapabilirsiniz ya da arabaimg.hittest=false; diyerek arabaimg componentinin tıklanabilirliğini kapatarak butonu tıklayabilir hale getirebilirsiniz
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.