BİRİ YARDIM ETSİN PLS

[AReS]

Aşağıdaki kodla kayıt sildiriyom ama burada ad veya soyad veya diğerlerinden biri uyuşuyosa kaç tane kişi olursa olsun siliyo Ahmet Ozdemir, Mehmet Ozdemir die iki kayıt varsa adamların soyadı aynı die hepsini siliyo bunu Editlerin hepsini kontrol edip dogruysa sildirmek istiyom.
YArdımlarınız için tşkler.

procedure TSQLF.Button1Click(Sender: TObject);
begin
with Query1 do
begin

Close;
SQL.Clear;
SQL.Add('DELETE FROM PERSONEL WHERE AD='''+Edit1.Text+'''');
SQL.Add('DELETE FROM PERSONEL WHERE SOYAD='''+Edit2.Text+'''');
SQL.Add('DELETE FROM PERSONEL WHERE BABAAD='''+Edit3.Text+'''');
SQL.Add('DELETE FROM PERSONEL WHERE TELEFON='''+Edit4.Text+'''');
SQL.Add('DELETE FROM PERSONEL WHERE ADRES='''+Edit5.Text+'''');
Execsql;
end;
ADO1.Requery();
end;

[mege]

Delphi Forum başka forumlara benzemez! LÜTFEN FORUM KURALLARINI OKUYUP, UYUN!!!

[rsimsek]

Bu ilk mesajınız ve öncelikle forumumuza hoşgeldiniz..

İkinci olarak @mege kardeşimizin uyarılarını dikkate almanızı tavsiye ederim.. Çünkü faul lu bir soru olmuş (Başlık büyük harf ve kod kısmı [ code ] [ /code ] tag ları içine alınmamış )

Cevaba gelirsek;

Kod: Tümünü seç

procedure TSQLF.Button1Click(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('DELETE FROM PERSONEL WHERE AD='''+Edit1.Text+'''');
    SQL.Add('  and SOYAD='''+Edit2.Text+'''');
    SQL.Add('  and BABAAD='''+Edit3.Text+'''');
    SQL.Add('  and TELEFON='''+Edit4.Text+'''');
    SQL.Add('  and ADRES='''+Edit5.Text+'''');
    Execsql;
   end;
  ADO1.Requery();
end;

şeklinde bir silme ile yanlızca bütün seçeneklerin sağlandığı kayıtı silersiniz