Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
minha tela de cadastro que criei no delphi com mysql usei o trio de componentes SQLDataSet1 DataSetProvider1 ClientDataSet1
ele está tudo certo mais o nome do login aparece nele mais não é o mesmo que se logou
procedure TF_UsuarioSenha.btnLoginClick(Sender: TObject);
begin
if (edtLogin.Text = '') then
begin
ShowMessage('O campo Login está vazio'); // Se o campo Login estiver vazio, retorna a msg de erro
end
else
if (edtSenha.Text = '') then
begin
ShowMessage('O campo Senha está vazio'); // Se o campo Senha estiver vazio, retorna a msg de erro
end
else
begin
Dm.cdsLoginSenha.Open; // abre a tabela tab_Usuarios
F_Principal.StatusBar.Panels[2].Text := ' O Login do Usuário é: ' + Dm.cdsLoginSenhaLOGIN.AsSTring;
F_Principal.Caption := 'Administrado do Sistema em uso pelo Administrador: ' + Dm.cdsLoginSenhaLOGIN.AsSTring;
//F_Principal.lblUsuario.Caption := ' Nome do Usuário:' + Dm.cdsLoginSenhaNome.AsSTring;
F_Principal.Label5.Caption := ' O Login do Usuário é: ' + Dm.cdsLoginSenhaLOGIN.AsSTring; + 'o administrador do sistema', mtError, [mbOK], 0);
EdtSenha.Clear; // limpa o objeto EdtSenha
EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha end;
end;Carregando comentários...