Delphi EditBox MS Sql'e boş veri göndermesini nasıl engellerim

Herkese şimdiden çok teşekkür ederim.

Bir merak yada hobi mi diyelim kendim bir yazılım yapayım öğreneyim diye ufak bir kütüphane otomasyonu yapmaya karar verdim;

Yaparken öğrenmeyi seviyorum herşey güzel giderken 2 yerde takıldım ve çok araştırmama rağmen sorunu çözemedim.

1.Sorunum form içinde bazı EditBoxlaarı boş geçilemez yaptım bunlardan 1 boş olduğunda ve kaydet butonuna bastığımda

ekrana showmessage olarak uyarı mesajı çıkarıyor buraya kadar tamam ama sql bu boş veriyi gönderiyor sql kolonlardaki allow nulls işaretini kaldırdım fakat yinede boş olarak gidiyor bunu delphi tarafında nasıl çözerim

 

2.sorun Form eksiksiz doldurulduktan sonra kaydet butonuna bastığımda EditBox ve ComboBoxtaki girilen Değerlerin silinmesi olayıni yapamadım

Not:Form ShowModal Olarak açılıyor

 

procedure TfrmKitapKayit.BitBtnKaydetClick(Sender: TObject);
begin

 

//boş mu değil mi kontrol et...
begin
if Trim(EditBarkodNo.Text)='' then // Eğer Edit1 kutusunda bilgi yoksa boş ise trim boşluk atmak için space boşluk tuşuna basmışsa onu yok sayması için.
ShowMessage('Barkod No Girilmemiş')
else
qryKitapKayit.Delete;

if Trim(EditKitapAdi.Text)='' then // Eğer Edit1 kutusunda bilgi yoksa boş ise trim boşluk atmak için space boşluk tuşuna basmışsa onu yok sayması için.
showMessage('Kitap Adı Girilmemiş');

if Trim(EditYazarAdi.Text)='' then // Eğer Edit1 kutusunda bilgi yoksa boş ise trim boşluk atmak için space boşluk tuşuna basmışsa onu yok sayması için.
ShowMessage('Yazar Adı Girilmemiş');

if Trim(EditYayinEvi.Text)='' then // Eğer Edit1 kutusunda bilgi yoksa boş ise trim boşluk atmak için space boşluk tuşuna basmışsa onu yok sayması için.
ShowMessage('Yayın Evi Adı Girilmemiş');

if Trim(ComboBoxKitapTuru.Text)='' then // Eğer Edit1 kutusunda bilgi yoksa boş ise trim boşluk atmak için space boşluk tuşuna basmışsa onu yok sayması için.
ShowMessage('Kitap Türü Girilmemiş');

 

end;

begin

with qryKitapKayit do

begin
tar1:=DateToISO8601(DateTimePickerTeminTarihi.date);
SQL.Text:='Select Convert(Varchar(11),TeminTarihi,104) from KitapKayit';

qryKitapKayit.sql.Clear;
qryKitapKayit.sql.add('insert into KitapKayit');
qryKitapKayit.sql.add('(BarkodNo,KitapAdi,YazarAdi,YayinEvi,KitapTuru,TeminBicimi,TeminTarihi,StokSayisi,HasarDurumu)');
qryKitapKayit.sql.add('values(:a,:b,:c,:d,:e,:f,:g,:h,:i)');

 

Parameters.ParamByName('a').value:=EditBarkodNo.Text;
Parameters.ParamByName('b').value:=EditKitapAdi.Text;
Parameters.ParamByName('c').value:=EditYazarAdi.Text;
Parameters.ParamByName('d').value:=EditYayinEvi.Text;
Parameters.ParamByName('e').value:=ComboBoxKitapTuru.Text;
Parameters.ParamByName('f').value:=EditTeminBicimi.Text;
Parameters.ParamByName('g').Value:=tar1;
Parameters.ParamByName('h').value:=EditStokSayisi.Text;
Parameters.ParamByName('i').value:=ComboBoxHasarDurumu.Text;

 

 

ExecSQL;
Close;
SQL.Text:='Select * from KitapKayit';
Open;
end;
end;