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; }
|