query要密码怎么办？

Question

procedure Tform1.inlv;
var
  Query : TQuery;
begin
  Query := TQuery.Create(nil);
  Query.DatabaseName := 'DB21';
  Query.SQL.Add('select name,other from tb');
  Query.Open;
  ListView1.Items.Clear;
  while not Query.Eof do
  begin
    with ListView1.Items.Add do
    begin
      Caption := Query.FieldByName('name').AsString;
      SubItems.Add(Query.FieldByName('other').AsString);
    end;
    Query.Next;
  end;
  Query.Close;
  Query.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 inlv;
end;
出错，我估计是query要密码？怎么办？

Answer 1

别这么连，加个Tdatabase控件，loginprompt设置为false，把你的query连到那上面

Answer 2

Query := TQuery.Create(nil);
  Query.DatabaseName := 'DB21';
  Query.Database.LoginPrompt:=false;   <------------加上这一句试试
  Query.SQL.Add('select name,other from tb');
  Query.Open;

Answer 3

EDBEnginerror  'general aql error'?