DBedit3 ve DBedit4 boş ise kayıt yapmasın

[trkartal]

DBedit1 , DBedit2 , DBedit3 , DBedit4 , DBedit5 alanlarına veri girerek kayıt işlenini yapıyorum.
Ancak DBedit3 ve DBedit4 veri girişi olmadığı zaman uyarı mesajı vererek kayıt yapamayayım.
ADOQery kullanıyorum. Delphi9

Teşekkür ederim.

[greenegitim]

Kod: Tümünü seç

       if DBedit3 .Text='' then
   begin
    ShowMessage('DBedit3 Kutusu Boş Olamaz');
    DBedit3 .SetFocus;
    Abort;

   end;

   if DBedit4 .Text='' then
   begin
    ShowMessage('DBedit 4 Kutusu Boş Olamaz');
    DBedit4.SetFocus;
    Abort;

   end;

kaydet;

yada

Kod: Tümünü seç

 if (DBedit3 .Text='') or (dbedit4.text='') then
   begin
    ShowMessage('Kutular Boş Olamaz');
  Abort;
end
else kaydet;