procedure TfmMainForm.LoginForms;
begin
  Application.CreateForm(TfmPassWord,FmPassWord);
  try
    with dmRightSet.adoquery do
    begin
     // SQL.Clear;
      SQL.Add('DELETE FROM ONLINE WHERE USERID = ''' +m_UserID+ '''');
      SQL.Text := 'DELETE FROM ONLINE WHERE USERID = ''' +m_UserID+ '''';
      ExecSQL;
    end;
end;
执行上面的过程后,程序会跳出不知名的错误,后来将adoquery中的属性cursorlocation改为cluseserver就不会出错!可我另外新建一个工程不改这个属性也不会出错!不知道为什么?请大家帮个忙解决一下!