Fórum Nome da fonte dedados nao encontrado e nenhum driver padrão especificado #559496

unit U_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, Grids, DBGrids;

type
  Tf_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    editUsuario: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    editSenha: TEdit;
    dsUsuarios: TDataSource;
    DBGrid1: TDBGrid;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure AjudaClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_login: Tf_login;

implementation

uses U_principal, U_dmdados, U_frmSplash;

{$R *.dfm}

procedure Tf_login.BitBtn1Click(Sender: TObject);
begin
  dmdados.Usuarios.close;
     dmdados.Usuarios.sql.Clear;
     dmdados.Usuarios.sql.Text:='select * from usuarios where login=' + quotedstr(editUsuario.Text); 
               ' and senha=' + quotedstr(editSenha.Text);
     dmdados.usuarios.open;
   
     if dmdados.usuarios.IsEmpty then
      begin
          showmessage('Acesso negado');
      end
      else
      BEGIN
       f_principal.Show;
       f_principal.labelUsuario.Caption:= dmdados.Usuarios.fieldbyname('nome').AsString;
      END;
end;

procedure Tf_login.BitBtn2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tf_login.AjudaClick(Sender: TObject);
begin
f_ajuda.Show;
end;



end.