Mega Code Archive
Neoturk forum - boş veri girişinin engellenmesi - 2
<![CDATA[
*********************************************************
ilgili hücrelerin en az bir tanesinin doldurulması şartı
**********************************************************
//button1 cliğine ( kaydet butonu )
var x:string;
begin
x:=edit1.text+edit2.text+edit3.text+...+edit10.text; //hangi hücrelerin
//boş geçilmesini istemiyorsan yan yana ekle
x:=trim(x);
if x<>'' then
begin
...
kayıt işlemleri;
...
end
else ShowMessage('en az bir hücre doldurulmalıdır');
//final
end;
*********************************************************
tüm hücrelerin boş geçilememe şartı ve kontrolü
**********************************************************
//button1 cliğine ( kaydet butonu )
function bosmu(xx:string):boolean;
begin
if trim(xx)='' then result:=true else result:=false;
end;
begin
if bosmu(edit1.text) then
begin
showmessage('ad hanesi boş geçilemez');
edit1.setfocus;exit;
end
if bosmu(edit2.text) then
begin
showmessage('soyad hanesi boş geçilemez');
edit2.setfocus;exit;
end
if bosmu(edit3.text) then
begin
showmessage('tcno boş geçilemez');
edit3.setfocus;exit;
end
if bosmu(edit4.text) then
begin
showmessage('adres boş geçilemez');
edit4.setfocus;exit;
end
//buraya kadar exit ile çıkılmadan gelindiği için
//tüm hücreler doludur demektir.
...
kayıt işlemlerini burada yap;
...
//final
end;
saygılarımla_
neoturk_
]]>