with  form2.ADOQuery1  do
  begin
   close;
   sql.Clear;
   sql.Add('select * from xg0108_employee');
   sql.Add('where 人员代码='+''''+edit1.Text+'''');
   open;
   if form2.ADOQuery1.RecordCount<>0 then
   begin
   application.MessageBox('人员代码也存在','警告',MB_ICONEXCLAMATION)
   edit1.SelectAll;
   edit1.SetFocus;
   exit;
   endedit1.SelectAll;和edit1.SetFocus;发生错误