Kaydı neden aktarmıyor acaba. Kodda ne eksik ?

[OnderTastan]

Arkadaşlar ağaşıdaki kodun neresinde eksiklik var. Akydı veritabanına aktarmanın dışında diğer tüm kodlar işliyor ama bir türlü kaydı veritabanına aktaramadım.
--------------------------------------------------------------------------------
procedure TASBA_KAYIT.EkleClick(Sender: TObject);
var
Ekle:Integer;
begin
Table1.FilterOptions:=[foCaseInsensitive];//harf duyarlılığı yok
Table1.Filter:='ASBA_AD='+QuotedStr(Adi.Text);//kriter
Table1.Filtered:=true;

if Adi.Text='' then
begin
Ekle:=Application.MessageBox('ADI-SOYADI alanını boş bıraktınız !','Zorunlu Alan',
MB_Ok);
Adi.SetFocus;
end
else
begin
if Unvan.Text='' then
begin
Ekle:=Application.MessageBox('ÜNVANI alanını boş bıraktınız !','Zorunlu Alan',
MB_Ok);
Unvan.SetFocus;
end
else
begin
if Adi.Text=Table1ASBA_AD.Text then
begin
Ekle:=Application.MessageBox('Aynı Kayıt Var. Başka Kayıt Eklemek İster misiniz?','Aynı Kayıt',
MB_YesNo);
begin
if Ekle=mrYes Then
begin
Adi.SetFocus;
end
else
begin
Table1.Insert; //kayıt aç
Table1ASBA_AD.Text:=Adi.Text;
Table1ASBA_UNVAN.Text:=Unvan.Text;
Table1.Post; //kaydet

end;
end;
end;
end;
end;
end;

[sadettinpolat]

Onder, koda bakip hatanin nerde oldugunu soylemek istedim bir an ama inan kod oyle ic ice girmis , oyle gereksiz if then else ler kullanilmis ki gecenin bu saatinde hangi if blogu hangisine ait cikartmadim.

problemine hizli cevap almak istiyorsan soruyu daha duzgun okunakli yazman senin icin yararli olacaktir.

su asamada sana diyebilecegim tek sey if Adi.Text='' then satirina break point koyup kodun icerisinde adim adim ilerlemen ve hangi kodlarin calistigini tespit etmen.

iyi geceler...

[OnderTastan]

Arkadaşlar ağaşıdaki kodun neresinde eksiklik var. Akydı veritabanına aktarmanın dışında diğer tüm kodlar işliyor ama bir türlü kaydı veritabanına aktaramadım.
--------------------------------------------------------------------------------
procedure TASBA_KAYIT.EkleClick(Sender: TObject);
var
Ekle:Integer;
begin
Table1.FilterOptions:=[foCaseInsensitive];//harf duyarlılığı yok
Table1.Filter:='ASBA_AD='+QuotedStr(Adi.Text);//kriter
Table1.Filtered:=true;

>>>GİRİLEN BİLGİYİ VERİ TABANINDA ARA<<<

if Adi.Text='' then
begin
Ekle:=Application.MessageBox('ADI-SOYADI alanını boş bıraktınız !','Zorunlu Alan',
MB_Ok);
Adi.SetFocus;

>>>EĞER ADI-SOYADI BOŞ BIRAKILMIŞSA UYARI VER<<<

end
else
begin
if Unvan.Text='' then
begin
Ekle:=Application.MessageBox('ÜNVANI alanını boş bıraktınız !','Zorunlu Alan',
MB_Ok);
Unvan.SetFocus;

>>>EĞER ÜNVANI BOŞ BIRAKILMIŞSA UYARI VER<<<
end
else
begin
if Adi.Text=Table1ASBA_AD.Text then
begin
Ekle:=Application.MessageBox('Aynı Kayıt Var. Başka Kayıt Eklemek İster misiniz?','Aynı Kayıt',
MB_YesNo);
begin
if Ekle=mrYes Then
begin
Adi.SetFocus;

>>>EĞER ADI-SOYADI ALANI BİLGİSİ VARSA "AYNI KAYIT" UYARISI VER<<<



>>> BUNLARIN HİÇBİRİ DEĞİLSE VERİYİ, VERİTABANINA KAYDET<<<

end;
end;
end;
end;
end;
end;

üstad hakkın var. ama belki yardımcı olur diye koydum, kodlarda buraya kadar sorun yok. ayırarak anlatmaya çalıştım. ama kaydı aktarma kısmına gelince aktarmıyor. kesinlikle if ve elseleri bi yerde yanlış kullanıyorum ama nerde?

[aslangeri]

s.a.
Öncelikle aramıza hoş geldin.
kodlari çin

<code>
kodlar buraya
</code>
büyük küçük yerine [ ] olacak.

tagını kullnırsanı iyi olur.
soruna gelince kayıt işlemini yapmaması normal çünkü kayıt etmesi için bir işlem yapmamışsın. kaydetmek için hangi bileşeni kullanıyorsun(veya kullanmayı düşünüyorsun). (eğer table1 ise ise başktan söyleyim hem filitreleyip hemde insert yapamzsın(en azından o şekilde)

birde önce arama yapmak yerine alanların boş olup olmadıklarını kontrol ettir
eğer alanlar boş ise arama yapmanın bir anlamı yok.

endleri ensonda kapatmak yerine işi bitince kapat.

Kod: Tümünü seç

if Adi.Text='' then
begin
Ekle:=Application.MessageBox('ADI-SOYADI alanını boş bıraktınız !','Zorunlu Alan',
MB_Ok);
Adi.SetFocus; 
exit;//bu satır ile prosedürden direk çıkarsın.

kolay gelsin.