错在那里

Question

begin
   if dm_base.qryDepartment.RecordCount<>0 then
   begin
     with dm_base.qryDepartment do
     begin
       close;
       sql.Clear;
       sql.Add('select * from syst_Department where state<2');
       open;
       if dm_base.qryDepartment.Locate('deptuid',dm_base.qryEmployee.Fieldbyname('deptid').AsInteger,[]) then
       begin
         application.MessageBox('此部门下有员工不能删除',gstrTitl,MB_ICONERROR+MB_OK);
         abort;
       end;
    end;
    if application.MessageBox('真的要删除吗？',gstrTitl,mb_iconquestion+mb_yesno)=idyes   then
    begin
      with dm_base.qrydepartment do
      begin
        edit;
        fieldbyname('state').AsInteger :=2;
        post;
      end;
      end;
   end
   else
  application.MessageBox('请选中部门',gstrTitl,mB_ICONERROR+MB_OK);end;

Answer 1

这是给删除按钮的程序，选中dbgrid的一条就点击删除按钮，那么就报错，在locate函数报的错，我利用索引从员工不表钟读取部门编号报的错，就是看选中部门下是否有员工，

Answer 2

你的判断语句真是看不懂,不过按你的做法,
在select语句直接加上另外一个where的条件
'deptuid='+dm_base.qryEmployee.Fieldbyname('deptid').AsInteger
比用Location快多了吧.