Sayfayı Yazdır | Pencereyi Kapat

silinen öğenin gözükmesi

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1130
Tarih: 26 Temmuz 2025 Saat 13:45
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: silinen öğenin gözükmesi
Mesajı Yazan: dilarayaprak
Konu: silinen öğenin gözükmesi
Mesaj Tarihi: 24 Temmuz 2025 Saat 12:25
 

sil butonuna tıkladıgımda silmek istediğim öğe veri tabanından siliyor ancak telefonda geriye gittiğimde tekrardan ekrana geliyor. (o sayfayı kapatıp tekrar girince öğe gözükmüyor)

homeForm: TclForm;
  vertScrollBox: TclVertScrollBox;
  kartPanel, silPanel: TclProPanel;
  lblText: TclProLabel;
  currentId: String;
  btnSil: TclProButton;
  mainPanel: TclProPanel;
void SilButonuTiklandi
var

  btn: TclProButton;
  silinecekId: String;
{
  btn = TclProButton(homeForm.ClSender);
  silinecekId = btn.Hint;

  try {
    Clomosy.DBSQLiteQuery.Close;
    Clomosy.DBSQLiteQuery.SQL.Text =
      'DELETE FROM kartlar WHERE id = ' + silinecekId;
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Kelime silindi.');
   Clomosy.RunUnit('Homebtn');
  }
  except {
    
  }
}
}


{
  homeForm = TclForm.Create(Self);
  homeForm.clSetCaption('Kayıtlı Kelimeler');
  homeForm.SetFormBGImage(' https://i.imgur.com/fPwWs0H.jpeg" rel="nofollow - https://i.imgur.com/fPwWs0H.jpeg ');

  vertScrollBox = homeForm.AddNewVertScrollBox(homeForm, '');
  vertScrollBox.Align = alClient;

  Clomosy.DBSQLiteQuery.Close;
  Clomosy.DBSQLiteQuery.SQL.Text =
    'SELECT id, english, turkish FROM kartlar';
  Clomosy.DBSQLiteQuery.OpenOrExecute;

  while (not Clomosy.DBSQLiteQuery.Eof) {
    currentId = Clomosy.DBSQLiteQuery.FieldByName('id').AsString;

    kartPanel = homeForm.AddNewProPanel(vertScrollBox, 'kart_' + currentId);
    kartPanel.Align = alTop;
    kartPanel.Height = 100;
    kartPanel.Margins.Bottom = 10;
    kartPanel.ClProSettings.BackGroundColor =
    clAlphaColor.clHexToColor('#e6e6e6');
    kartPanel.ClProSettings.RoundHeight = 10;
    kartPanel.ClProSettings.RoundWidth = 10;
    kartPanel.SetclProSettings(kartPanel.ClProSettings);

    // İngilizce + Türkçe birlikte
    lblText = homeForm.AddNewProLabel(kartPanel, '', '');
    lblText.Align = alClient;
    lblText.Caption =
      'EN: ' + Clomosy.DBSQLiteQuery.FieldByName('english').AsString +
      '   |   TR: ' + Clomosy.DBSQLiteQuery.FieldByName('turkish').AsString;
    lblText.ClProSettings.FontSize = 16;
    lblText.ClProSettings.FontColor =
      clAlphaColor.clHexToColor('#000000');
    lblText.SetclProSettings(lblText.ClProSettings);

    // Sil Panel
    silPanel = homeForm.AddNewProPanel(kartPanel, '');
    silPanel.Align = alRight;
    silPanel.Width = 60;

    btnSil = homeForm.AddNewProButton(silPanel, '', 'Sil');
    btnSil.Align = alClient;
    btnSil.ClProSettings.BackGroundColor =
      clAlphaColor.clHexToColor('#f4bcbc');
    btnSil.SetclProSettings(btnSil.ClProSettings);

    btnSil.Hint = currentId;

    homeForm.AddNewEvent(btnSil, tbeOnClick, 'SilButonuTiklandi');

    Clomosy.DBSQLiteQuery.Next;
  }

 homeForm.Run;
}



Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 24 Temmuz 2025 Saat 16:51
Merhaba Dilara, 
Aşağıda ki kodu dener misin?

Clomosy.DBSQLiteQuery.SQL.Text = 'DELETE FROM kartlar WHERE id = ' + silinecekId;
Clomosy.DBSQLiteQuery.OpenOrExecute;


silinecekPanel = TclProPanel(homeForm.FindComponent('kart_' + silinecekId));
if (silinecekPanel <> nil) {
  homeForm.RemoveComponent(silinecekPanel);
}



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net