Como obter o nome do computador ?
27/07/2007
0
Grato
Paulo F.
Pauloroger
Posts
29/08/2007
Pestana_
rogerio_pestana@yahoo.com.br
vlw.
31/08/2007
Pauloroger
Aqui é meu botão de login ok,
Insira no USES System.Web.Security
var
IdUsuario: System.Object;
begin
FbConnection1.Open;
try
FbLogin.Parameters[´@USUARIO´].Value := txtUsuario.Text.ToUpper;
FbLogin.Parameters[´@SENHA´].Value := txtSenha.Text.ToUpper;
IdUsuario := FbLogin.ExecuteScalar();
if IdUsuario <> nil then
FormsAuthentication.RedirectFromLoginPage(txtUsuario.text, False)
else
Response.Write(´<script>Javascript:alert(´+
´´Usuário ou Senha inválidos !!!´);´+
´</script>´);
finally
FbConnection1.Close;
end;
*********************************************
Na minha tela principal, no Page_Load e carrego numa label, veja:
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Put user code to initialize the page here
lblInformacao.Text := ´Usuário: ´ + User.Identity.Name.ToUpper + ´ - IP: ´ + Request.UserHostAddress;
end;
Ok, um abração
Paulo Freire
04/09/2007
Pestana_
abraços,
Pestana.
Clique aqui para fazer login e interagir na Comunidade :)