Montei uma tela de login onde o usuario deve colocar login e senha com o codigo abaixo:
procedure TFMLogin.Img_confClick(Sender: TObject);
var verif: boolean;
begin
FMHome.ADOLogin.SQL.add('Select * from "login" where "usuario" = :usuario AND "senha" = :senha');
FMHome.ADOLogin.Parameters.ParamByName('usuario').Value := edt_usuario.Text;
FMHome.ADOLogin.Parameters.ParamByName('senha').Value := edt_senha.Text;
FMHome.ADOLogin.Open;
try
if Not (FMHome.ADOLogin.isEmpty) then
begin
Modalresult := mrok;
verif := true;
end
else
begin
Application.MessageBox('Senha ou usuário incorretos!','Atenção',MB_OK+MB_ICONINFORMATION);
edt_usuario.Clear;
edt_senha.Clear;
edt_usuario.SetFocus;
verif := False;
end;
finally
FMHome.ADOLogin.Close;
end;
if (verif = true) then
begin
FreeAndNil(FmLogin); //Libera o form de Login da memória
Application.CreateForm(TFmHome, FmHome); //Cria a janela main
Application.Run; //Roda a aplicação
end;
end;
para criar um novo usuario caso a pessoa não tenha o login senha é o seguinte:
procedure TFMLogin.lbl_cadastroClick(Sender: TObject);
begin
UDM.ADODSLogin.open;
UDM.ADODSLogin.Insert;
FMCad_Login.showmodal;
end;
após preencher os campos o passo é confirmar:
procedure TFMCad_Login.Img_confClick(Sender: TObject);
begin
UDM.ADODSLogin.Post;
end;
Tabela Login:
Nesse momento, o registro vai para o banco de dados
porem eu tenho 3 usuarios cadastrados, e só consigo entrar com o ultimo que foi inserido e após um tempo só consigo acessar com o de ID n° 1
Aonde estou errando?