delphi7调用存储过程没用返回记录出错！！！

以下代码调用sql server 2000的存储过程
当输入用户编码，如果存在就能正常显示，如果没有就会出错
如何判断没有返回记录！！！
procedure Txc_login.edit4enter(Sender: TObject);
begin
  if trim(edit1.text)='' then
     begin
        Application.MessageBox('用户编码输入框不能空。','提示',64);
        edit1.SetFocus;
     end
  else
begin
   with xc.ADODataSet1 do
 begin
   Active:=false;
   CommandType:=cmdStoredProc;
   CommandText:='xc_useridcx';
   Parameters.Clear;
   Parameters.AddParameter;
   Parameters[0].Name:='@user_id';
   Parameters[0].Direction:= pdInput;
   Parameters[0].DataType:=ftString;
   Parameters.Refresh;
   Parameters.ParamByName('@user_id').Value:=Edit1.Text;
   Active:=true;
   ExecuteOptions;
end;
   edit2.text := xc.adodataset1['user_name'];
   edit4.text := xc.adodataset1['user_pwd'];
   edit3.SetFocus;
end;
end;