Sou novato em delphi e reparei que não ha a presença de uso de variaveis como data readers nesse liguagem como no vb. Estou fazendo um procedure para logar no sistema. a conexao com o banco ja esta pronta e funcional minha duvida é: como proseguir com a leitura de dados no banco agr OBS - CODIGOS ABAIXO... VOU DEIXAR A CONEXAO COM O BANCO E A PROCEDURE DE LOGIN





PROCEDURE DE CONECTAR COM O BANCO

         procedure TFrmPrincipal.GetConnection();

         var

           diretorioDb : String;

         begin

           diretorioDb := ExtractFilePath(ParamStr(0));

           if FileExists(diretorioDb + 'DataBase.mdb') then begin

             if dmDados.bdConnection.Connected = false then begin

               dmDados.bdConnection.ConnectionString :=        'Provider=Microsoft.Jet.OLEDB.4.0;Psddword="";Data Source=' + diretorioDb +          'DataBase.mdbde Seu programa';
               dbDados.bdConnection.Connected := true;      

             end else begin

               dmDados.bdConnection.Connected := false;

             end;

           end else begin

             ShowMessage('Banco de Dados não Encontrado!');

           end;

         end;






PROCEDURE DE LOGAR NO SISTEMA

         procedure TfrmLogin.LogarSistema(userPr: string; senhaPr: string);
         begin

           with dmDados.query do begin

             Close;
             SQL.Clear;
             SQL.Add('SELECT * FROM usuarios WHERE username =userPr and senha =senhaPr');

             Parameters.ParamByName('userPr').Value := userPr;
             Parameters.ParamByName('senhaPr').Value := senhaPr;

             ExecSQL;

           end;

           showmessage('Logado Com Sucesso!');

         end;

         end.