id_mohamadi
19-09-2010, 10:51
سلام
من چنین کدی را برای تکراری بودن شماره دانشجویی نوشتم ولی در موقع ثبت با چنین خطایی مواجه می شم .نمی دونم اشکالش از چی؟لطفا کمک کنید
procedure Tsabt_stuFm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9':;
#13:if MasDataDM.Tstudent.Locate('id_stu',Edit1.Text,[]) then
begin
Application.MessageBox('id tekrari, dobare talash konid,'Error',MB_OK+MB_ICONWARNING);
DBEdit1.Text:='';
Edit1.Text:='';
Edit1.SetFocus;
MasDataDM.Tstudent.Insert;
end
else
begin
MasDataDM.Tstudent.Insert;
DBEdit1.Text:=Edit1.Text;
DBEdit2.SetFocus;
end;
#27:;
#8:;
else
key:=#0;
end;
end;
;
پیغام خطا:
project proj1 .exe raised exception class EoleException with messege 'cannot insert the valuenull into column 'id_stu',table proj1.dbo.student ';coulumn does not allow nulls .insert fails '.process stopped.
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
من چنین کدی را برای تکراری بودن شماره دانشجویی نوشتم ولی در موقع ثبت با چنین خطایی مواجه می شم .نمی دونم اشکالش از چی؟لطفا کمک کنید
procedure Tsabt_stuFm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9':;
#13:if MasDataDM.Tstudent.Locate('id_stu',Edit1.Text,[]) then
begin
Application.MessageBox('id tekrari, dobare talash konid,'Error',MB_OK+MB_ICONWARNING);
DBEdit1.Text:='';
Edit1.Text:='';
Edit1.SetFocus;
MasDataDM.Tstudent.Insert;
end
else
begin
MasDataDM.Tstudent.Insert;
DBEdit1.Text:=Edit1.Text;
DBEdit2.SetFocus;
end;
#27:;
#8:;
else
key:=#0;
end;
end;
;
پیغام خطا:
project proj1 .exe raised exception class EoleException with messege 'cannot insert the valuenull into column 'id_stu',table proj1.dbo.student ';coulumn does not allow nulls .insert fails '.process stopped.
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]