哪位高手帮忙看看这段代码,

Question

procedure Tdataupdateform.Button1Click(Sender: TObject);
begin
   with datamodule1.studentstable do
   begin
     if SpinEdit1.Text='' then        begin
           showmessage('请输入学号:');
           SpinEdit1.SetFocus;
        exit;
        end;
          if not locate('sno',vararrayof([spinedit1.Text]),[lopartialkey]) then
        begin
           showmessage('无此记录,不能修改');
           exit;
        end;
        edit;
        fieldbyname('name').AsString:=edit1.Text;
        fieldbyname('sno').AsString:=spinedit1.text;
        fieldbyname('sex').AsString:=edit2.Text;
        fieldbyname('age').asstring:=edit3.Text;
        fieldbyname('entrance').AsDateTime:=datetimepicker1.Date;
        post;
        showmessage('修改成功') ;end;点击运行的时候系统提示在LOCATE行出现错误,错误为[Error] 
dataupdate.pas(63): Undeclared identifier: 'lopartialkey'
哪位高手帮忙指点一下,谢谢了
end.

Answer 1

interfaceuses
  ......,db;

Answer 2

建议用空内容的语句，一样有效的。
locate('sno',vararrayof([spinedit1.Text]),[])