Skip to main content

Como Logar Sistemalogar sistema no Delphidelphi

Sou novato em Delphi e reparei que não há a presença de uso de variáveis como data readers nessareaders nesse linguagem como no VB. Estou fazendo umaum procedure para logar no sistema. aA conexão com o banco já esta pronta e funcional minha duvida é:

Como prosseguir com a leitura de dados no banco agora?

Procedure de conexão com o banco: Segue código com a conexão com o banco:

     procedure TFrmPrincipal.GetConnection();
 
     var
 
       diretorioDb : String;
 
     begin
 
       diretorioDb := ExtractFilePath(ParamStr(0));

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

     begin
    if dmDados.bdConnection.Connected = false then begin

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

  := true;
    end
   end else begin

     begin
      dmDados.bdConnection.Connected := false;
 
         end;
 
       end else begin

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

Procedure para efetuar o Login: Método de login:

     procedure TfrmLogin.LogarSistema(userPr: string; senhaPr: string);
     begin
 
       with dmDados.query do begin

     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.

Como Logar Sistema no Delphi

Sou novato em Delphi e reparei que não há a presença de uso de variáveis como data readers nessa linguagem como no VB. Estou fazendo uma procedure para logar no sistema. a conexão com o banco já esta pronta e funcional minha duvida é:

Como prosseguir com a leitura de dados no banco?

Procedure de conexão 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 para efetuar o Login:

     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.

Como logar sistema no delphi

Sou novato em Delphi e reparei que não há a presença de uso de variáveis como data readers nesse linguagem como no VB. Estou fazendo um procedure para logar no sistema. A conexão com o banco já esta pronta e funcional minha duvida é:

Como prosseguir com a leitura de dados no banco agora?

Segue código com a conexão 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;

Método de login:

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;
removeu 71 caracteres do conteúdo; tags editadas
Fonte Link
Junior Moreira
  • 7mil
  • 4
  • 22
  • 50

Sou novato em delphiDelphi e reparei que não ha a presença de uso de variaveisvariáveis como data readers nesse liguagemnessa linguagem como no vbVB. Estou fazendo um procedureuma procedure para logar no sistema. a conexaoconexão com o banco ja esta pronta e funcional minha duvida é: como proseguir

Como prosseguir 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 BANCOProcedure de conexão 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 SISTEMAProcedure para efetuar o Login:

     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.

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.

Sou novato em Delphi e reparei que não a presença de uso de variáveis como data readers nessa linguagem como no VB. Estou fazendo uma procedure para logar no sistema. a conexão com o banco esta pronta e funcional minha duvida é:

Como prosseguir com a leitura de dados no banco?

Procedure de conexão 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 para efetuar o Login:

     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.
Fonte Link

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.