Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Clomosy Ürün kaydetmeme 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.

Clomosy Ürün kaydetmeme sorunu
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Hüseyin_Sadik Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 03 Aralık 2025
Durum: Aktif Değil
Puanlar: 31 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Hüseyin_Sadik Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Clomosy Ürün kaydetmeme sorunu
    Gönderim Zamanı: 3 Saat 1 Dakika Önce Saat 14:43
var
  AnaForm: TclForm;

  PnlAna: TclPanel;
  PnlAnaUst: TclProPanel;
  LblAnaBaslik: TclProLabel;
  BtnQR: TclProButton;
  ScrUrunler: TclVertScrollBox;
  PnlAnaAlt: TclProPanel;
  BtnUrunEkle: TclProButton;

  PnlQRModal: TclProPanel;
  PnlQRKart: TclProPanel;
  QrKod: TclQRCodeGenerator;
  BtnQRKapat: TclProButton;
  LblQRBaslik: TclProLabel;

  PnlYeniUrun: TclPanel;
  PnlYeniUrunUst: TclProPanel;
  BtnYeniUrunGeri: TclProButton;
  LblYeniUrunBaslik: TclProLabel;
  ScrYeniUrunForm: TclVertScrollBox;
  PnlForm: TclProPanel;
  EdtUrunAdi: TclEdit;
  EdtUrunFiyat: TclEdit;
  BtnKategoriAc: TclProButton;
  ImgUrunFoto: TclImage;
  BtnFotoSec: TclProButton;
  LblFotoDurum: TclProLabel;
  BtnKaydet: TclProButton;

  PnlKategoriSecim: TclPanel;
  PnlKategoriSecimUst: TclProPanel;
  BtnKategoriGeri: TclProButton;
  LblKategoriBaslik: TclProLabel;
  ScrKategoriler: TclVertScrollBox;

  BaseURL: String;
  IsEditMode: Boolean;
  DuzenlenenUrunId: Integer;
  FotoSecildi: Boolean;
  KategoriSayisi: Integer;
  ListeSayac: Integer;
  KatSayac: Integer;
  SecilenKategoriId: Integer;
  SecilenKategoriAdi: String;
  UrunListesiYuklendi: Boolean;
  KatListesiYuklendi: Boolean;
  LMemStream: TCLMemoryStream;

void EkraniGoster(PnlGoster: TclPanel);
{
  PnlAna.Visible = False;
  PnlYeniUrun.Visible = False;
  PnlKategoriSecim.Visible = False;
  PnlGoster.Visible = True;
}

void QRGoster;
{ PnlQRModal.Visible = True; }

void QRKapat;
{ PnlQRModal.Visible = False; }

void KategorileriYukle;
var rest: TclRest; dataset: TClJSONQuery;
    BtnKat: TclProButton;
{
  if (KatListesiYuklendi)
  {
    ScrKategoriler.Free;
  }
  KatListesiYuklendi = True;
  KatSayac = KatSayac + 1;
  ScrKategoriler = AnaForm.AddNewVertScrollBox(PnlKategoriSecim, 'ScrKat' + IntToStr(KatSayac));
  ScrKategoriler.Align = alClient;

  KategoriSayisi = 0;
  rest = TclRest.Create;
  rest.BaseURL = BaseURL + '/categories';
  rest.Method = rmGET;
  try
    rest.Execute;
    if (rest.Response <> '[]')
    {
      dataset = Clomosy.ClDataSetFromJSON(rest.Response);
      dataset.First;
      while (dataset.Eof == False)
      {
        BtnKat = AnaForm.AddNewProButton(ScrKategoriler, 'KatBtn_' + dataset.FieldByName('id').AsString + '_' + IntToStr(KatSayac), dataset.FieldByName('name').AsString);
        BtnKat.Align = alTop;
        BtnKat.Height = 60;
        BtnKat.Margins.Left = 16;
        BtnKat.Margins.Right = 16;
        BtnKat.Margins.Top = 10;
        BtnKat.clTagInt = dataset.FieldByName('id').AsInteger;
        BtnKat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
        BtnKat.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');
        BtnKat.clProSettings.BorderWidth = 1;
        BtnKat.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');
        BtnKat.clProSettings.FontSize = 16;
        BtnKat.clProSettings.IsRound = True;
        BtnKat.SetclProSettings(BtnKat.clProSettings);
        AnaForm.AddNewEvent(BtnKat, tbeOnClick, 'KategoriSecildi');
        KategoriSayisi = KategoriSayisi + 1;
        dataset.Next;
      }
    }
  except
    ShowMessage('Kategoriler alinamadi!');
  }
}

void KategoriSecildi;
var Btn: TclProButton;
{
  Btn = TclProButton(AnaForm.clSender);
  SecilenKategoriId = Btn.clTagInt;
  SecilenKategoriAdi = Btn.Text;
  BtnKategoriAc.Text = SecilenKategoriAdi + '  v';
  BtnKategoriAc.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');
  BtnKategoriAc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EAFBFA');
  BtnKategoriAc.clProSettings.BorderColor = clAlphaColor.clHexToColor('#2ec4b6');
  BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);
  EkraniGoster(PnlYeniUrun);
}

void GoToKategoriSecim;
{
  EkraniGoster(PnlKategoriSecim);
  KategorileriYukle;
}

void UrunSil;
var BtnSil: TclProButton; rest: TclRest; reqBody: String; P1, P2: TclProPanel;
{
  BtnSil = TclProButton(AnaForm.clSender);
  reqBody = '{"id":' + IntToStr(BtnSil.clTagInt) + '}';
  rest = TclRest.Create;
  rest.BaseURL = BaseURL + '/products/delete';
  rest.Accept = 'application/json';
  rest.Method = rmPOST;
  rest.AddBody(reqBody, 'application/json');
  try
    rest.Execute;
  except
    ShowMessage('Silme hatasi');
  }
  P1 = TclProPanel(BtnSil.Parent);
  P2 = TclProPanel(P1.Parent);
  P2.Visible = False; // Sadece silinen ürünün panelini gizle
}

void UrunleriYukle;
var
  PnlUrunItem, PnlUrunIkon, PnlUrunSol, PnlButonlar: TclProPanel;
  LblUrunAd, LblUrunKat, LblUrunFiyat: TclProLabel;
  BtnSilItem, BtnDuzenleItem: TclProButton;
  ImgUrunList: TclImage;
  GorselUrl, UrunStrID: String;
  rest: TclRest; dataset: TClJSONQuery;
{
  if (UrunListesiYuklendi)
  {
    ScrUrunler.Free;
  }
  UrunListesiYuklendi = True;
  ListeSayac = ListeSayac + 1;
  ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler_' + IntToStr(ListeSayac));
  ScrUrunler.Align = alClient;

  rest = TclRest.Create;
  rest.BaseURL = BaseURL + '/products';
  rest.Method = rmGET;
  try
    rest.Execute;
    if (rest.Response <> '[]')
    {
      dataset = Clomosy.ClDataSetFromJSON(rest.Response);
      dataset.First;
      while (dataset.Eof == False)
      {
        UrunStrID = dataset.FieldByName('id').AsString;

        PnlUrunItem = AnaForm.AddNewProPanel(ScrUrunler, 'Pnl_' + UrunStrID + '_' + IntToStr(ListeSayac));
        PnlUrunItem.Align = alTop;
        PnlUrunItem.Height = 120;
        PnlUrunItem.Margins.Top = 8;
        PnlUrunItem.Margins.Left = 16;
        PnlUrunItem.Margins.Right = 16;
        PnlUrunItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
        PnlUrunItem.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');
        PnlUrunItem.clProSettings.BorderWidth = 1;
        PnlUrunItem.clProSettings.IsRound = True;
        PnlUrunItem.SetclProSettings(PnlUrunItem.clProSettings);

        // FOTO (Sol)
        PnlUrunIkon = AnaForm.AddNewProPanel(PnlUrunItem, 'Ikon_' + UrunStrID + '_' + IntToStr(ListeSayac));
        PnlUrunIkon.Align = alLeft;
        PnlUrunIkon.Width = 80;
        PnlUrunIkon.Margins.Left = 10;
        PnlUrunIkon.Margins.Top = 10;
        PnlUrunIkon.Margins.Bottom = 10;
        PnlUrunIkon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');
        PnlUrunIkon.clProSettings.IsRound = True;
        PnlUrunIkon.SetclProSettings(PnlUrunIkon.clProSettings);

        ImgUrunList = AnaForm.AddNewImage(PnlUrunIkon, 'Img_' + UrunStrID + '_' + IntToStr(ListeSayac));
        ImgUrunList.Align = alClient;
        GorselUrl = dataset.FieldByName('image_url').AsString;
        if (GorselUrl <> '')
        {
          if (GorselUrl <> 'null')
          { 
            try
              AnaForm.SetImage(ImgUrunList, 'http://192.168.1.43:3000/' + GorselUrl); 
            except
              GorselUrl = '';
            }
          }
        }

        // BUTONLAR (Sag)
        PnlButonlar = AnaForm.AddNewProPanel(PnlUrunItem, 'Btns_' + UrunStrID + '_' + IntToStr(ListeSayac));
        PnlButonlar.Align = alRight;
        PnlButonlar.Width = 60;
        PnlButonlar.Margins.Right = 10;
        PnlButonlar.Margins.Top = 10;
        PnlButonlar.Margins.Bottom = 10;
        PnlButonlar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
        PnlButonlar.SetclProSettings(PnlButonlar.clProSettings);

        BtnDuzenleItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnE_' + UrunStrID + '_' + IntToStr(ListeSayac), 'Edit');
        BtnDuzenleItem.Align = alTop;
        BtnDuzenleItem.Height = 45;
        BtnDuzenleItem.clTagInt = dataset.FieldByName('id').AsInteger;
        BtnDuzenleItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2ec4b6');
        BtnDuzenleItem.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
        BtnDuzenleItem.clProSettings.FontSize = 11;
        BtnDuzenleItem.clProSettings.IsRound = True;
        BtnDuzenleItem.SetclProSettings(BtnDuzenleItem.clProSettings);
        AnaForm.AddNewEvent(BtnDuzenleItem, tbeOnClick, 'GoToDuzenle');

        BtnSilItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnS_' + UrunStrID + '_' + IntToStr(ListeSayac), 'Sil');
        BtnSilItem.Align = alBottom;
        BtnSilItem.Height = 45;
        BtnSilItem.clTagInt = dataset.FieldByName('id').AsInteger;
        BtnSilItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ff3f3f');
        BtnSilItem.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
        BtnSilItem.clProSettings.FontSize = 11;
        BtnSilItem.clProSettings.IsRound = True;
        BtnSilItem.SetclProSettings(BtnSilItem.clProSettings);
        AnaForm.AddNewEvent(BtnSilItem, tbeOnClick, 'UrunSil');

        // METINLER (Orta)
        PnlUrunSol = AnaForm.AddNewProPanel(PnlUrunItem, 'Sol_' + UrunStrID + '_' + IntToStr(ListeSayac));
        PnlUrunSol.Align = alClient;
        PnlUrunSol.Margins.Left = 10;
        PnlUrunSol.Margins.Top = 10;
        PnlUrunSol.Margins.Bottom = 10;
        PnlUrunSol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
        PnlUrunSol.SetclProSettings(PnlUrunSol.clProSettings);

        LblUrunAd = AnaForm.AddNewProLabel(PnlUrunSol, 'LblA_' + UrunStrID + '_' + IntToStr(ListeSayac), dataset.FieldByName('name').AsString);
        LblUrunAd.Align = alTop;
        LblUrunAd.Height = 28;
        LblUrunAd.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');
        LblUrunAd.clProSettings.FontSize = 15;
        LblUrunAd.SetclProSettings(LblUrunAd.clProSettings);

        LblUrunKat = AnaForm.AddNewProLabel(PnlUrunSol, 'LblK_' + UrunStrID + '_' + IntToStr(ListeSayac), dataset.FieldByName('category_name').AsString);
        LblUrunKat.Align = alTop;
        LblUrunKat.Height = 20;
        LblUrunKat.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
        LblUrunKat.clProSettings.FontSize = 11;
        LblUrunKat.SetclProSettings(LblUrunKat.clProSettings);

        LblUrunFiyat = AnaForm.AddNewProLabel(PnlUrunSol, 'LblF_' + UrunStrID + '_' + IntToStr(ListeSayac), dataset.FieldByName('price').AsString + ' TL');
        LblUrunFiyat.Align = alBottom;
        LblUrunFiyat.Height = 24;
        LblUrunFiyat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');
        LblUrunFiyat.clProSettings.FontSize = 14;
        LblUrunFiyat.SetclProSettings(LblUrunFiyat.clProSettings);

        dataset.Next;
      }
    }
  except
    ShowMessage('Baglanti hatasi');
  }
}

void GoToAna;
{
  EkraniGoster(PnlAna);
  UrunleriYukle;
}

void GoToDuzenle;
var BtnDuz: TclProButton; imageUrlStr, katAdi: String; rest: TclRest; dataset: TClJSONQuery;
{
  BtnDuz = TclProButton(AnaForm.clSender);
  DuzenlenenUrunId = BtnDuz.clTagInt;
  IsEditMode = True;
  FotoSecildi = False;
  LblYeniUrunBaslik.Text = 'Urunu Duzenle';
  EdtUrunAdi.Text = '';
  EdtUrunFiyat.Text = '';
  SecilenKategoriId = 0;
  SecilenKategoriAdi = '';
  BtnKategoriAc.Text = 'Kategori Seciniz  v';
  BtnKategoriAc.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');
  BtnKategoriAc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');
  BtnKategoriAc.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');
  BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);
  ImgUrunFoto.MultiResBitmap.Clear;

  rest = TclRest.Create;
  rest.BaseURL = BaseURL + '/products/' + IntToStr(DuzenlenenUrunId);
  rest.Method = rmGET;
  try
    rest.Execute;
    if (rest.Response <> '[]')
    {
      dataset = Clomosy.ClDataSetFromJSON(rest.Response);
      if (dataset.Eof == False)
      {
        EdtUrunAdi.Text = dataset.FieldByName('name').AsString;
        EdtUrunFiyat.Text = dataset.FieldByName('price').AsString;
        SecilenKategoriId = dataset.FieldByName('category_id').AsInteger;
        katAdi = dataset.FieldByName('category_name').AsString;
        SecilenKategoriAdi = katAdi;
        BtnKategoriAc.Text = katAdi + '  v';
        BtnKategoriAc.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');
        BtnKategoriAc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EAFBFA');
        BtnKategoriAc.clProSettings.BorderColor = clAlphaColor.clHexToColor('#2ec4b6');
        BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);
        imageUrlStr = dataset.FieldByName('image_url').AsString;
        if (imageUrlStr <> '')
        {
          if (imageUrlStr <> 'null')
          {
            try
              AnaForm.SetImage(ImgUrunFoto, 'http://192.168.1.43:3000/' + imageUrlStr);
            except
              imageUrlStr = '';
            }
            LblFotoDurum.Text = 'Mevcut fotograf var';
          }
          else
          { LblFotoDurum.Text = 'Fotograf yok'; }
        }
        else
        { LblFotoDurum.Text = 'Fotograf yok'; }
        EkraniGoster(PnlYeniUrun);
      }
    }
  except
    ShowMessage('Urun bilgisi alinamadi');
  }
}

void GoToYeniUrun;
{
  IsEditMode = False;
  DuzenlenenUrunId = 0;
  FotoSecildi = False;
  SecilenKategoriId = 0;
  SecilenKategoriAdi = '';
  LblYeniUrunBaslik.Text = 'Yeni Urun Ekle';
  EdtUrunAdi.Text = '';
  EdtUrunFiyat.Text = '';
  ImgUrunFoto.MultiResBitmap.Clear;
  BtnKategoriAc.Text = 'Kategori Seciniz  v';
  BtnKategoriAc.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');
  BtnKategoriAc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');
  BtnKategoriAc.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');
  BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);
  LblFotoDurum.Text = 'Fotograf secilmedi';
  EkraniGoster(PnlYeniUrun);
}

void FotoSec;
{
  Clomosy.ImageChooser(AnaForm, ImgUrunFoto);
  FotoSecildi = True;
  LblFotoDurum.Text = 'Fotograf secildi';
}

void YeniUrunKaydet;
var reqBody: String; rest: TclRest; LBase64: String;
{
  if (EdtUrunAdi.Text == '') { ShowMessage('Urun adi giriniz!'); Exit; }
  if (EdtUrunFiyat.Text == '') { ShowMessage('Fiyat giriniz!'); Exit; }
  if (SecilenKategoriId == 0) { ShowMessage('Kategori seciniz!'); Exit; }
  if (IsEditMode == False)
  {
    if (FotoSecildi == False) { ShowMessage('Fotograf seciniz!'); Exit; }
  }

  reqBody = '{"category_id":' + IntToStr(SecilenKategoriId) + ', "name":"' + EdtUrunAdi.Text + '", "description":"' + EdtUrunAdi.Text + '", "price":' + EdtUrunFiyat.Text;

  if (FotoSecildi)
  {
    LMemStream = TCLMemoryStream.Create;
    ImgUrunFoto.Bitmap.SaveToStream(LMemStream);
    LBase64 = LMemStream.AsBase64;
    reqBody = reqBody + ', "image_base64":"' + LBase64 + '"';
    LMemStream.Free;
  }

  if (IsEditMode)
  { reqBody = reqBody + ', "id":' + IntToStr(DuzenlenenUrunId) + '}'; }
  else
  { reqBody = reqBody + '}'; }

  rest = TclRest.Create;
  rest.BaseURL = BaseURL + '/products';
  rest.Accept = 'application/json';
  rest.Method = rmPOST;
  rest.AddBody(reqBody, 'application/json');
  try
    rest.Execute;
    EdtUrunAdi.Text = '';
    EdtUrunFiyat.Text = '';
    ImgUrunFoto.MultiResBitmap.Clear;
    GoToAna;
    ShowMessage('Kaydedildi!');
  except
    ShowMessage('Kayit basarisiz!');
  }
}

{
  IsEditMode = False;
  DuzenlenenUrunId = 0;
  FotoSecildi = False;
  KategoriSayisi = 0;
  ListeSayac = 0;
  KatSayac = 0;
  SecilenKategoriId = 0;
  SecilenKategoriAdi = '';
  UrunListesiYuklendi = False;
  KatListesiYuklendi = False;

  AnaForm = TclForm.Create(Self);
  AnaForm.SetFormColor('#F8F9FA', '', clGNone);

  // ---- ANA EKRAN ----
  PnlAna = AnaForm.AddNewPanel(AnaForm, 'PnlAna');
  PnlAna.Align = alClient;

  PnlAnaUst = AnaForm.AddNewProPanel(PnlAna, 'PnlAnaUst');
  PnlAnaUst.Align = alTop;
  PnlAnaUst.Height = 64;
  PnlAnaUst.Margins.Left = 16;
  PnlAnaUst.Margins.Right = 16;
  PnlAnaUst.Margins.Top = 8;
  PnlAnaUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');
  PnlAnaUst.SetclProSettings(PnlAnaUst.clProSettings);

  LblAnaBaslik = AnaForm.AddNewProLabel(PnlAnaUst, 'LblAna', 'Menu');
  LblAnaBaslik.Align = alLeft;
  LblAnaBaslik.Width = 80;
  LblAnaBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');
  LblAnaBaslik.clProSettings.FontSize = 20;
  LblAnaBaslik.clProSettings.FontVertAlign = palCenter;
  LblAnaBaslik.SetclProSettings(LblAnaBaslik.clProSettings);

  BtnQR = AnaForm.AddNewProButton(PnlAnaUst, 'BtnQR', 'QR Kodu');
  BtnQR.Align = alRight;
  BtnQR.Width = 80;
  BtnQR.Height = 44;
  BtnQR.Margins.Top = 10;
  BtnQR.Margins.Bottom = 10;
  BtnQR.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');
  BtnQR.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnQR.clProSettings.IsRound = True;
  BtnQR.SetclProSettings(BtnQR.clProSettings);
  AnaForm.AddNewEvent(BtnQR, tbeOnClick, 'QRGoster');

  ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler0');
  ScrUrunler.Align = alClient;

  PnlAnaAlt = AnaForm.AddNewProPanel(PnlAna, 'PnlAnaAlt');
  PnlAnaAlt.Align = alBottom;
  PnlAnaAlt.Height = 88;
  PnlAnaAlt.Margins.Left = 16;
  PnlAnaAlt.Margins.Right = 16;
  PnlAnaAlt.Margins.Bottom = 8;
  PnlAnaAlt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');
  PnlAnaAlt.SetclProSettings(PnlAnaAlt.clProSettings);

  BtnUrunEkle = AnaForm.AddNewProButton(PnlAnaAlt, 'BtnEkle', '+ Yeni Urun Ekle');
  BtnUrunEkle.Align = alClient;
  BtnUrunEkle.Margins.Top = 12;
  BtnUrunEkle.Margins.Bottom = 12;
  BtnUrunEkle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');
  BtnUrunEkle.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnUrunEkle.clProSettings.FontSize = 17;
  BtnUrunEkle.clProSettings.IsRound = True;
  BtnUrunEkle.SetclProSettings(BtnUrunEkle.clProSettings);
  AnaForm.AddNewEvent(BtnUrunEkle, tbeOnClick, 'GoToYeniUrun');

  // ---- QR MODAL ----
  PnlQRModal = AnaForm.AddNewProPanel(AnaForm, 'PnlQRModal');
  PnlQRModal.Align = alClient;
  PnlQRModal.Visible = False;
  PnlQRModal.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#88000000');
  PnlQRModal.SetclProSettings(PnlQRModal.clProSettings);
  AnaForm.AddNewEvent(PnlQRModal, tbeOnClick, 'QRKapat');

  PnlQRKart = AnaForm.AddNewProPanel(PnlQRModal, 'PnlQRKart');
  PnlQRKart.Align = alCenter;
  PnlQRKart.Width = 280;
  PnlQRKart.Height = 360;
  PnlQRKart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  PnlQRKart.clProSettings.IsRound = True;
  PnlQRKart.SetclProSettings(PnlQRKart.clProSettings);

  LblQRBaslik = AnaForm.AddNewProLabel(PnlQRKart, 'LblQR', 'Menu QR Kodu');
  LblQRBaslik.Align = alTop;
  LblQRBaslik.Height = 50;
  LblQRBaslik.clProSettings.FontHorzAlign = palCenter;
  LblQRBaslik.clProSettings.FontVertAlign = palCenter;
  LblQRBaslik.SetclProSettings(LblQRBaslik.clProSettings);

  QrKod = AnaForm.AddNewQRCodeGenerator(PnlQRKart, 'QrKod', 'http://192.168.1.43:3000/');
  QrKod.Align = alTop;
  QrKod.Height = 240;
  QrKod.Margins.Left = 20;
  QrKod.Margins.Right = 20;

  BtnQRKapat = AnaForm.AddNewProButton(PnlQRKart, 'BtnQRKapat', 'Kapat');
  BtnQRKapat.Align = alBottom;
  BtnQRKapat.Height = 48;
  BtnQRKapat.Margins.Left = 20;
  BtnQRKapat.Margins.Right = 20;
  BtnQRKapat.Margins.Bottom = 16;
  BtnQRKapat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');
  BtnQRKapat.clProSettings.IsRound = True;
  BtnQRKapat.SetclProSettings(BtnQRKapat.clProSettings);
  AnaForm.AddNewEvent(BtnQRKapat, tbeOnClick, 'QRKapat');

  // ---- YENİ URUN EKRANI ----
  PnlYeniUrun = AnaForm.AddNewPanel(AnaForm, 'PnlYeniUrun');
  PnlYeniUrun.Align = alClient;
  PnlYeniUrun.Visible = False;

  PnlYeniUrunUst = AnaForm.AddNewProPanel(PnlYeniUrun, 'PnlYeniUst');
  PnlYeniUrunUst.Align = alTop;
  PnlYeniUrunUst.Height = 64;
  PnlYeniUrunUst.Margins.Left = 16;
  PnlYeniUrunUst.Margins.Right = 16;
  PnlYeniUrunUst.Margins.Top = 8;
  PnlYeniUrunUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');
  PnlYeniUrunUst.SetclProSettings(PnlYeniUrunUst.clProSettings);

  BtnYeniUrunGeri = AnaForm.AddNewProButton(PnlYeniUrunUst, 'BtnGeri', '<');
  BtnYeniUrunGeri.Align = alLeft;
  BtnYeniUrunGeri.Width = 44;
  BtnYeniUrunGeri.Height = 44;
  BtnYeniUrunGeri.Margins.Top = 10;
  BtnYeniUrunGeri.Margins.Bottom = 10;
  BtnYeniUrunGeri.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnYeniUrunGeri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');
  BtnYeniUrunGeri.clProSettings.BorderWidth = 1;
  BtnYeniUrunGeri.clProSettings.IsRound = True;
  BtnYeniUrunGeri.SetclProSettings(BtnYeniUrunGeri.clProSettings);
  AnaForm.AddNewEvent(BtnYeniUrunGeri, tbeOnClick, 'GoToAna');

  LblYeniUrunBaslik = AnaForm.AddNewProLabel(PnlYeniUrunUst, 'LblYBaslik', 'Yeni Urun Ekle');
  LblYeniUrunBaslik.Align = alClient;
  LblYeniUrunBaslik.clProSettings.FontHorzAlign = palCenter;
  LblYeniUrunBaslik.clProSettings.FontVertAlign = palCenter;
  LblYeniUrunBaslik.SetclProSettings(LblYeniUrunBaslik.clProSettings);

  ScrYeniUrunForm = AnaForm.AddNewVertScrollBox(PnlYeniUrun, 'ScrYeniForm');
  ScrYeniUrunForm.Align = alClient;

  PnlForm = AnaForm.AddNewProPanel(ScrYeniUrunForm, 'PnlForm');
  PnlForm.Align = alTop;
  PnlForm.Height = 540;
  PnlForm.Margins.Left = 16;
  PnlForm.Margins.Right = 16;
  PnlForm.Margins.Top = 8;
  PnlForm.Margins.Bottom = 16;
  PnlForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  PnlForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F0F0F0');
  PnlForm.clProSettings.BorderWidth = 1;
  PnlForm.clProSettings.IsRound = True;
  PnlForm.SetclProSettings(PnlForm.clProSettings);

  ImgUrunFoto = AnaForm.AddNewImage(PnlForm, 'ImgUrunFoto');
  ImgUrunFoto.Align = alTop;
  ImgUrunFoto.Height = 160;
  ImgUrunFoto.Margins.Left = 20;
  ImgUrunFoto.Margins.Right = 20;
  ImgUrunFoto.Margins.Top = 20;

  BtnFotoSec = AnaForm.AddNewProButton(PnlForm, 'BtnFotoSec', 'Fotograf Sec');
  BtnFotoSec.Align = alTop;
  BtnFotoSec.Height = 48;
  BtnFotoSec.Margins.Left = 20;
  BtnFotoSec.Margins.Right = 20;
  BtnFotoSec.Margins.Top = 10;
  BtnFotoSec.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0FAFA');
  BtnFotoSec.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');
  BtnFotoSec.clProSettings.IsRound = True;
  BtnFotoSec.SetclProSettings(BtnFotoSec.clProSettings);
  AnaForm.AddNewEvent(BtnFotoSec, tbeOnClick, 'FotoSec');

  LblFotoDurum = AnaForm.AddNewProLabel(PnlForm, 'LblFotoDurum', 'Fotograf secilmedi');
  LblFotoDurum.Align = alTop;
  LblFotoDurum.Height = 22;
  LblFotoDurum.Margins.Left = 20;
  LblFotoDurum.Margins.Top = 4;
  LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');
  LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

  BtnKategoriAc = AnaForm.AddNewProButton(PnlForm, 'BtnKategoriAc', 'Kategori Seciniz  v');
  BtnKategoriAc.Align = alTop;
  BtnKategoriAc.Height = 52;
  BtnKategoriAc.Margins.Left = 20;
  BtnKategoriAc.Margins.Right = 20;
  BtnKategoriAc.Margins.Top = 12;
  BtnKategoriAc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');
  BtnKategoriAc.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');
  BtnKategoriAc.clProSettings.BorderWidth = 1;
  BtnKategoriAc.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');
  BtnKategoriAc.clProSettings.FontSize = 15;
  BtnKategoriAc.clProSettings.IsRound = True;
  BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);
  AnaForm.AddNewEvent(BtnKategoriAc, tbeOnClick, 'GoToKategoriSecim');

  EdtUrunAdi = AnaForm.AddNewEdit(PnlForm, 'EdtUrunAdi', 'Urun Adi');
  EdtUrunAdi.Align = alTop;
  EdtUrunAdi.Height = 52;
  EdtUrunAdi.Margins.Left = 20;
  EdtUrunAdi.Margins.Right = 20;
  EdtUrunAdi.Margins.Top = 12;

  EdtUrunFiyat = AnaForm.AddNewEdit(PnlForm, 'EdtUrunFiyat', 'Fiyat (150.00)');
  EdtUrunFiyat.Align = alTop;
  EdtUrunFiyat.Height = 52;
  EdtUrunFiyat.Margins.Left = 20;
  EdtUrunFiyat.Margins.Right = 20;
  EdtUrunFiyat.Margins.Top = 12;

  BtnKaydet = AnaForm.AddNewProButton(PnlForm, 'BtnKaydet', 'Kaydet');
  BtnKaydet.Align = alBottom;
  BtnKaydet.Height = 52;
  BtnKaydet.Margins.Left = 20;
  BtnKaydet.Margins.Right = 20;
  BtnKaydet.Margins.Bottom = 20;
  BtnKaydet.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');
  BtnKaydet.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnKaydet.clProSettings.IsRound = True;
  BtnKaydet.SetclProSettings(BtnKaydet.clProSettings);
  AnaForm.AddNewEvent(BtnKaydet, tbeOnClick, 'YeniUrunKaydet');

  // ---- KATEGORİ SEÇİM EKRANI ----
  PnlKategoriSecim = AnaForm.AddNewPanel(AnaForm, 'PnlKategoriSecim');
  PnlKategoriSecim.Align = alClient;
  PnlKategoriSecim.Visible = False;

  PnlKategoriSecimUst = AnaForm.AddNewProPanel(PnlKategoriSecim, 'PnlKatUst');
  PnlKategoriSecimUst.Align = alTop;
  PnlKategoriSecimUst.Height = 64;
  PnlKategoriSecimUst.Margins.Left = 16;
  PnlKategoriSecimUst.Margins.Right = 16;
  PnlKategoriSecimUst.Margins.Top = 8;
  PnlKategoriSecimUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');
  PnlKategoriSecimUst.SetclProSettings(PnlKategoriSecimUst.clProSettings);

  BtnKategoriGeri = AnaForm.AddNewProButton(PnlKategoriSecimUst, 'BtnKatGeri', '<');
  BtnKategoriGeri.Align = alLeft;
  BtnKategoriGeri.Width = 44;
  BtnKategoriGeri.Height = 44;
  BtnKategoriGeri.Margins.Top = 10;
  BtnKategoriGeri.Margins.Bottom = 10;
  BtnKategoriGeri.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnKategoriGeri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');
  BtnKategoriGeri.clProSettings.BorderWidth = 1;
  BtnKategoriGeri.clProSettings.IsRound = True;
  BtnKategoriGeri.SetclProSettings(BtnKategoriGeri.clProSettings);
  AnaForm.AddNewEvent(BtnKategoriGeri, tbeOnClick, 'GoToYeniUrun');

  LblKategoriBaslik = AnaForm.AddNewProLabel(PnlKategoriSecimUst, 'LblKatBaslik', 'Kategori Sec');
  LblKategoriBaslik.Align = alClient;
  LblKategoriBaslik.clProSettings.FontHorzAlign = palCenter;
  LblKategoriBaslik.clProSettings.FontVertAlign = palCenter;
  LblKategoriBaslik.clProSettings.FontSize = 17;
  LblKategoriBaslik.SetclProSettings(LblKategoriBaslik.clProSettings);

  ScrKategoriler = AnaForm.AddNewVertScrollBox(PnlKategoriSecim, 'ScrKat0');
  ScrKategoriler.Align = alClient;

  UrunleriYukle;

  AnaForm.Run;
}


eklediğim ürünler kayıt olmuyor ama web tarafında kaydoluyor
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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
kayra12 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif Değil
Puanlar: 56 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 26 Dakika Önce Saat 15:18
hata devam ediyor mu ?https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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
 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,070 Saniyede Yüklendi.