Veri Silme

   Merhabalar, mssql kullaniicilar tablomdan çekmiş olduğum OyuncuAdi tablomdan verileri göster butonuna tıklandığı zaman verileri getiriyor. Fakat seçmiş olduğum veriyi silemiyorum, seçilen veriyi sil butonuna her tıkladığımda çekmiş olduğu verileri en alttan en üste doğru siliyor.
Görseller;

Görsellerde de göründüğü gibi normalde  --1234567 verisini seçiyorum fakat veriyi sil butonuna tıkladığımda 123456789 verisini siliyor. Ben ise seçtiğim veriyi silmek istiyorum sadece.

Admin Sayfasi Unit Kodlarım:

var
AdminSayfasi: TclForm;

VerileriGetirButonu: TClProButton;
VeriyiSilButonu: TClProButton;

AdminListWiev: TClProListView;
AdminPanl: TClProListViewDesignerPanel;
OyuncuAdi:TClProLabel;

//Veritabanı bağlantısı için.
Void SetupSqlConnection
{
  Clomosy.DBSQLServerConnect('SQL Server', '192.168.1.149', 'sa', '1', 'Oyun', 1433);
}

Void VerileriGetirButonuClick;
var
//Veritabanı
AdminSayfasiVeritabani:TClSqlQuery;
{
  AdminSayfasiVeritabani = TClSqlQuery.Create(nil);
  try
    AdminSayfasiVeritabani.Connection = Clomosy.DBSQLServerConnection;
    AdminSayfasiVeritabani.SQL.Text ='SELECT OyuncuAdi as RECORD_GUID, OyuncuAdi from Kullaniicilar';
    AdminSayfasiVeritabani.Open;

    if (AdminSayfasiVeritabani.Found)
    {
      AdminListWiev.clLoadProListViewDataFromDataset(AdminSayfasiVeritabani);
    }
  finally
    AdminSayfasiVeritabani.Close;
    AdminSayfasiVeritabani.Free;
  }
}

Void DataDelete
var
  AdminDelete: TClSqlQuery;
{
  AdminDelete = TClSqlQuery.Create(nil);
  try
    AdminDelete.Connection = Clomosy.DBSQLServerConnection;
    AdminDelete.SQL.Text = 'DELETE FROM Kullaniicilar WHERE OyuncuAdi = ' + QuotedStr(OyuncuAdi.Text);
    AdminDelete.ExecSql;
    VerileriGetirButonuClick;
  finally
    AdminDelete.Free;
  }
}

void onItemClicked;
 {
  ShowMessage('--' +AdminListWiev.clSelectedItemData(clRecord_GUID));
 }

void CreateDesignerPanel;
{
  AdminPanl = AdminSayfasi.AddNewProListViewDesignerPanel(AdminListWiev, 'AdminPanl'); 
  AdminPanl.Align = alTop;
  AdminPanl.Height = 80;
  AdminPanl.clProSettings.IsRound = True;
  AdminPanl.clProSettings.IsFill = True;
  AdminPanl.clProSettings.ItemHeight = 150;
  AdminPanl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); // White
  AdminPanl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e2c5de'); // Light Grey
  AdminPanl.clProSettings.BorderWidth = 2;
  AdminPanl.clProSettings.RoundWidth = 10;
  AdminPanl.clProSettings.RoundHeight = 10;
  AdminPanl.SetclProSettings(AdminPanl.clProSettings);
  AdminListWiev.SetDesignerPanel(AdminPanl);
}

void CreateListView;
 {
  AdminListWiev = AdminSayfasi.AddNewProListView(AdminSayfasi, 'AdminListWiev');
  AdminListWiev.Align = alLeft;
  AdminListWiev.Width = AdminSayfasi.clWidth / 2 - 20;
  AdminListWiev.Margins.Right = 10;
  AdminListWiev.Margins.Bottom = 10;
  AdminListWiev.Margins.Left = 10;
  AdminListWiev.clProSettings.ViewType = lvWaterFall;
  AdminListWiev.clProSettings.IsRound = True;
  AdminListWiev.clProSettings.IsFill = True;
  AdminListWiev.clProSettings.ColCount = 1;
  AdminListWiev.clProSettings.ItemHeight = 150;
  AdminListWiev.clProSettings.ItemSpace = 5;
  AdminListWiev.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
  AdminListWiev.clProSettings.BorderWidth = 1;
  AdminListWiev.clProSettings.RoundWidth = 3;
  AdminListWiev.clProSettings.RoundHeight = 3;
  AdminListWiev.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000'); // Light Green
  AdminListWiev.SetclProSettings(AdminListWiev.clProSettings);

  AdminSayfasi.AddNewEvent(AdminListWiev, tbeOnItemClick, 'onItemClicked');
 }

   void CreateOyuncuAdiAndPrice;
 {
   OyuncuAdi = AdminSayfasi.AddNewProLabel(AdminPanl,'OyuncuAdi','test');
   clComponent.SetupComponent(OyuncuAdi,'{"MarginTop":10,"MarginLeft":10,"MarginRight":10,"MarginBottom":10 ,"Height":20,"Align" : "MostTop"}');
   AdminPanl.AddPanelObject(OyuncuAdi,clCaption);
   OyuncuAdi.Properties.AutoSize = True;
 }

{
  AdminSayfasi = TclForm.Create(Self);
  CreateListView;
  CreateDesignerPanel;
  SetupSqlConnection;
  CreateOyuncuAdiAndPrice;

  // VerileriGetirButonu
  VerileriGetirButonu = AdminSayfasi.AddNewProButton(AdminSayfasi, 'VerileriGetirButonu', 'Verileri Getir');
  VerileriGetirButonu.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#f1e9e9');
  clComponent.SetupComponent(VerileriGetirButonu,'{"RoundHeight": 4, "RoundWidth": 4, "BorderColor": "#000000"}');
  VerileriGetirButonu.Margins.Top= 100;
  VerileriGetirButonu.Align = alNone;
  VerileriGetirButonu.Width = 100;
  VerileriGetirButonu.Height= 50;
  VerileriGetirButonu.Position.X = (AdminSayfasi.clWidth / 2) - (VerileriGetirButonu.Width / 2) + 250;
  VerileriGetirButonu.Position.Y = (AdminSayfasi.clHeight / 2) - (VerileriGetirButonu.Height / 2) - 200;
  VerileriGetirButonu.SetclProSettings(VerileriGetirButonu.clProSettings);
  AdminSayfasi.AddNewEvent(VerileriGetirButonu, tbeOnClick, 'VerileriGetirButonuClick');

  // VeriyiSilButonu
  VeriyiSilButonu = AdminSayfasi.AddNewProButton(AdminSayfasi, 'VeriyiSilButonu', 'Seçilen Veriyi Sil');
  VeriyiSilButonu.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#f1e9e9');
  clComponent.SetupComponent(VeriyiSilButonu,'{"RoundHeight": 4, "RoundWidth": 4, "BorderColor": "#000000"}');
  VeriyiSilButonu.Margins.Top= 100;
  VeriyiSilButonu.Align = alNone;
  VeriyiSilButonu.Width = 100;
  VeriyiSilButonu.Height= 50;
  VeriyiSilButonu.Position.X = (AdminSayfasi.clWidth / 2) - (VeriyiSilButonu.Width / 2) + 250;
  VeriyiSilButonu.Position.Y = (AdminSayfasi.clHeight / 2) - (VeriyiSilButonu.Height / 2) - 110;
  VeriyiSilButonu.SetclProSettings(VeriyiSilButonu.clProSettings);
  AdminSayfasi.AddNewEvent(VeriyiSilButonu, tbeOnClick, 'DataDelete');

  AdminSayfasi.SetFormColor('#dfe2e7','#336ecc',clGCross); //AdminSayfasi'un arkaplanını renklendirme.

  AdminSayfasi.Run; // AdminSayfasi'u çalıştırma.
}
Nerede yanlış yapıyorumda acaba seçtiğim veriyi silmiyor gösterebilir misiniz?

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
emre.gungor01 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 03 Mayıs 2024 Konum: Konya Durum: Aktif Değil Puanlar: 46	Mesaj Seçenekleri Yanıt Yaz Alıntı emre.gungor01 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Veri Silme Gönderim Zamanı: 13 Haziran 2024 Saat 01:26
	Merhabalar, mssql kullaniicilar tablomdan çekmiş olduğum OyuncuAdi tablomdan verileri göster butonuna tıklandığı zaman verileri getiriyor. Fakat seçmiş olduğum veriyi silemiyorum, seçilen veriyi sil butonuna her tıkladığımda çekmiş olduğu verileri en alttan en üste doğru siliyor. Görseller; Görsellerde de göründüğü gibi normalde --1234567 verisini seçiyorum fakat veriyi sil butonuna tıkladığımda 123456789 verisini siliyor. Ben ise seçtiğim veriyi silmek istiyorum sadece. Admin Sayfasi Unit Kodlarım: var AdminSayfasi: TclForm; VerileriGetirButonu: TClProButton; VeriyiSilButonu: TClProButton; AdminListWiev: TClProListView; AdminPanl: TClProListViewDesignerPanel; OyuncuAdi:TClProLabel; //Veritabanı bağlantısı için. Void SetupSqlConnection { Clomosy.DBSQLServerConnect('SQL Server', '192.168.1.149', 'sa', '1', 'Oyun', 1433); } Void VerileriGetirButonuClick; var //Veritabanı AdminSayfasiVeritabani:TClSqlQuery; { AdminSayfasiVeritabani = TClSqlQuery.Create(nil); try AdminSayfasiVeritabani.Connection = Clomosy.DBSQLServerConnection; AdminSayfasiVeritabani.SQL.Text ='SELECT OyuncuAdi as RECORD_GUID, OyuncuAdi from Kullaniicilar'; AdminSayfasiVeritabani.Open; if (AdminSayfasiVeritabani.Found) { AdminListWiev.clLoadProListViewDataFromDataset(AdminSayfasiVeritabani); } finally AdminSayfasiVeritabani.Close; AdminSayfasiVeritabani.Free; } } Void DataDelete var AdminDelete: TClSqlQuery; { AdminDelete = TClSqlQuery.Create(nil); try AdminDelete.Connection = Clomosy.DBSQLServerConnection; AdminDelete.SQL.Text = 'DELETE FROM Kullaniicilar WHERE OyuncuAdi = ' + QuotedStr(OyuncuAdi.Text); AdminDelete.ExecSql; VerileriGetirButonuClick; finally AdminDelete.Free; } } void onItemClicked; { ShowMessage('--' +AdminListWiev.clSelectedItemData(clRecord_GUID)); } void CreateDesignerPanel; { AdminPanl = AdminSayfasi.AddNewProListViewDesignerPanel(AdminListWiev, 'AdminPanl'); AdminPanl.Align = alTop; AdminPanl.Height = 80; AdminPanl.clProSettings.IsRound = True; AdminPanl.clProSettings.IsFill = True; AdminPanl.clProSettings.ItemHeight = 150; AdminPanl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); // White AdminPanl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e2c5de'); // Light Grey AdminPanl.clProSettings.BorderWidth = 2; AdminPanl.clProSettings.RoundWidth = 10; AdminPanl.clProSettings.RoundHeight = 10; AdminPanl.SetclProSettings(AdminPanl.clProSettings); AdminListWiev.SetDesignerPanel(AdminPanl); } void CreateListView; { AdminListWiev = AdminSayfasi.AddNewProListView(AdminSayfasi, 'AdminListWiev'); AdminListWiev.Align = alLeft; AdminListWiev.Width = AdminSayfasi.clWidth / 2 - 20; AdminListWiev.Margins.Right = 10; AdminListWiev.Margins.Bottom = 10; AdminListWiev.Margins.Left = 10; AdminListWiev.clProSettings.ViewType = lvWaterFall; AdminListWiev.clProSettings.IsRound = True; AdminListWiev.clProSettings.IsFill = True; AdminListWiev.clProSettings.ColCount = 1; AdminListWiev.clProSettings.ItemHeight = 150; AdminListWiev.clProSettings.ItemSpace = 5; AdminListWiev.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff'); AdminListWiev.clProSettings.BorderWidth = 1; AdminListWiev.clProSettings.RoundWidth = 3; AdminListWiev.clProSettings.RoundHeight = 3; AdminListWiev.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000'); // Light Green AdminListWiev.SetclProSettings(AdminListWiev.clProSettings); AdminSayfasi.AddNewEvent(AdminListWiev, tbeOnItemClick, 'onItemClicked'); } void CreateOyuncuAdiAndPrice; { OyuncuAdi = AdminSayfasi.AddNewProLabel(AdminPanl,'OyuncuAdi','test'); clComponent.SetupComponent(OyuncuAdi,'{"MarginTop":10,"MarginLeft":10,"MarginRight":10,"MarginBottom":10 ,"Height":20,"Align" : "MostTop"}'); AdminPanl.AddPanelObject(OyuncuAdi,clCaption); OyuncuAdi.Properties.AutoSize = True; } { AdminSayfasi = TclForm.Create(Self); CreateListView; CreateDesignerPanel; SetupSqlConnection; CreateOyuncuAdiAndPrice; // VerileriGetirButonu VerileriGetirButonu = AdminSayfasi.AddNewProButton(AdminSayfasi, 'VerileriGetirButonu', 'Verileri Getir'); VerileriGetirButonu.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#f1e9e9'); clComponent.SetupComponent(VerileriGetirButonu,'{"RoundHeight": 4, "RoundWidth": 4, "BorderColor": "#000000"}'); VerileriGetirButonu.Margins.Top= 100; VerileriGetirButonu.Align = alNone; VerileriGetirButonu.Width = 100; VerileriGetirButonu.Height= 50; VerileriGetirButonu.Position.X = (AdminSayfasi.clWidth / 2) - (VerileriGetirButonu.Width / 2) + 250; VerileriGetirButonu.Position.Y = (AdminSayfasi.clHeight / 2) - (VerileriGetirButonu.Height / 2) - 200; VerileriGetirButonu.SetclProSettings(VerileriGetirButonu.clProSettings); AdminSayfasi.AddNewEvent(VerileriGetirButonu, tbeOnClick, 'VerileriGetirButonuClick'); // VeriyiSilButonu VeriyiSilButonu = AdminSayfasi.AddNewProButton(AdminSayfasi, 'VeriyiSilButonu', 'Seçilen Veriyi Sil'); VeriyiSilButonu.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#f1e9e9'); clComponent.SetupComponent(VeriyiSilButonu,'{"RoundHeight": 4, "RoundWidth": 4, "BorderColor": "#000000"}'); VeriyiSilButonu.Margins.Top= 100; VeriyiSilButonu.Align = alNone; VeriyiSilButonu.Width = 100; VeriyiSilButonu.Height= 50; VeriyiSilButonu.Position.X = (AdminSayfasi.clWidth / 2) - (VeriyiSilButonu.Width / 2) + 250; VeriyiSilButonu.Position.Y = (AdminSayfasi.clHeight / 2) - (VeriyiSilButonu.Height / 2) - 110; VeriyiSilButonu.SetclProSettings(VeriyiSilButonu.clProSettings); AdminSayfasi.AddNewEvent(VeriyiSilButonu, tbeOnClick, 'DataDelete'); AdminSayfasi.SetFormColor('#dfe2e7','#336ecc',clGCross); //AdminSayfasi'un arkaplanını renklendirme. AdminSayfasi.Run; // AdminSayfasi'u çalıştırma. } Nerede yanlış yapıyorumda acaba seçtiğim veriyi silmiyor gösterebilir misiniz?