Bir yerde takıldım ve çok araştırmama rağmen bulamadım Formumda bulunan EditBox ve ComboBoxların bazılarını zorunlu alan yaptım bu zorunlu alan boş bırakılıp kaydet butonuna basıldığında showmessage olarak alanın boş geçilmeyeceği uyarısını veriyor buraya kadar sıkıntı yok
fakat Ms sql'e bu verileri kaydediyor ve boş geçilmemesi gereken alan boş olarak kaydediliyor boş veri göndermemesi için ne yapabilirim
Kod: Tümünü seç
procedure TfrmKitapKayit.BitBtnCikisClick(Sender: TObject);
begin
Close
end;
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ş');
end;
begin
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ş');
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;
end;
end.