增加判断出错问题？

Question

我在数据库123中建了2张表：主表t_stu中有字段xh00为主键；从表t_cj中id为主键,xh00为外键。t_stu表中有2条记录200301001和200301002。现我要在窗体中向t_cj表中添加记录，edit1对应id,edit2对应xh00，当向edit2中输入时，edit1自增，且判断edit2中的学号是否存在，若不存在则提示出错。

Answer 1

在edit2的退出事件中，判断输入的是否在t_stu中存在就可以了procedure TForm1.Edit2Exit(Sender: TObject);
begin
 if ADODataSet1.Locate('xh00',Edit2.Text,[]) then
 begin
  ShowMessage('您输入的学号存在，请重新输入');
  Exit;
 end
 else
  //
end;

Answer 2

搞错，showmessage应该放在else下面，