Skip to main content
1 de 3

Como Logar Sistema no Delphi

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.