Delphi Firebird notnull alanların kontrolü

[greenegitim]

Delphi tarafında boş kontrolü yapabilirsin

Kod: Tümünü seç

if edit_adi.text='' then
begin
Showmessage('Adı Alanı Boş Bırakılamaz');
edt_adi.setfocus;
abort;
end;

[greenegitim]

datasetin before post olayına yazabilirsin

[cinarbil]

ilk atamalar ve dizayn zor olabilir ama sonrası çok rahat oluyor.
direk veri tabanı üzerinden işlem yapmayın.
kaydetme işleminden önce kontrol için procedure yazın.

Kod: Tümünü seç

procedure kayit_kontrol;
hata:=0;
begin
 if frm.kf_bayi_kod.Text = '' then // bayi secilmiş mi kontrol et
  begin
    hata := 3;
    frm.StatusBar1.Panels[0].Text := 'Bayi Seçimi Yapmalısınız. Hata : ' +
      inttostr(hata);
    frm.kf_bayi_adi.SetFocus;
    exit;
  end;

  if frm.kf_en.Value = 0 then // en 0 ise hata ver
  begin
    hata := 4;
    frm.StatusBar1.Panels[0].Text := 'Kapı Eni 0 olamaz . Hata : ' +
      inttostr(hata);
    frm.kf_en.SetFocus;
    exit;
  end;
  end;

gibi işlemler devam eder sonunda

Kod: Tümünü seç

if hata=0 then kayit_işlemeleri 

[freeman35]

firebird içerisinde fieldları yaratırken default değer ata, kullandığın bileşen(ler) destekliyorsa bu alanları alacaktır. Bir diğer pratik çözümse TDataset.OnNewRecord; eventi.
Kolay gele

[freeman35]

DataSet.FieldByName('KTP_ISBN_NO').IsNull bunu kullanabilirsin, ayrıca bir komuta gerek yok.
Eğer alanın string ise Trim(DataSet.FieldByName('KTP_ISBN_NO').AsString)='' ilave etmeni tavsiye ederim