Fórum Criar pagina de Login para Internet #357481

Irei passar um exemplo simples, feito no Delphi 2007 .Net em ASP.Net, ok, se queser em Delphi for PHP tb posso lhe passar, Tambem pode ser no BDS 2006.

Como gosto muito do Firebird, ai vai um exemplo pr ele, tenho uma tabela USUARIOS, com os campos ID, USUARIO, SENHA, NIVEL, ok.

Crie um novo ASP.Net Application, renomeia a pagina WrbForm1.aspx, para Login.aspx, coloque uma tabela de 3 linhas e 3 colunas, alias faça do seu jeito. coloque 2 TextBox, um com ID de txtUsuario e outro txtSenha e um botão. Segue o codigo:

uses
... FirebirdSql.Data.Firebird;


public
{ Public Declarations }

//CONEXAO COM O BANCO DE DADOS
const
strConexao = ´User=SYSDBA;Password=masterkey;Database=C:\Inetpub\wwwroot\ShalomWeb\database\shalom.fdb;´ +
´DataSource=localhost;Port3050;Dialect=3;Charset=ISO8859_1;Role=;Packet Size=8192;´ +
´Server Type=0;Pooling=True;Min Pool Size=50;Connection Lifetime=120;Connection timeout=15;´;


Código do botão:

procedure TDefault.btlogin_Click(sender: TObject; e: System.EventArgs);

var
Comand: FbCommand;
DataAdapter: FbDataAdapter;
Conn: FbConnection;
prUsuario : FbParameter;
prSenha : FbParameter;
fbReader : FbDataReader;

begin

{ Criação dos objetos de conexão }
Conn := FbConnection.Create;
DataAdapter := FbDataAdapter.Create;
Comand := FbCommand.Create;
{ Atribuição da string de conexão e abertura do BD}
Conn.ConnectionString := strConexao;
Conn.Open;
{ Atribuição dos atributos de seleção dos dados }
DataAdapter.SelectCommand := Comand;
DataAdapter.SelectCommand.Connection := Conn;
DataAdapter.SelectCommand.CommandText :=
´select ID_ACESSO, USUARIO, NIVEL_USUARIO ´ +
´from ACESSOS where ((USUARIO = ?) and (SENHA = ?))´;
prUsuario := FbParameter.Create;
prSenha := FbParameter.Create;
DataAdapter.SelectCommand.Parameters.Add(prUsuario);
DataAdapter.SelectCommand.Parameters.Add(prSenha);
DataAdapter.SelectCommand.Parameters[0].Value := txtUsuario.Text.ToUpper;
DataAdapter.SelectCommand.Parameters[1].Value := txtSenha.Text.ToUpper;
fbReader := DataAdapter.SelectCommand.ExecuteReader;

if fbReader.Read then
begin
Session[´UsuarioLogado´] := txtUsuario.Text;
Session[´NivelUsuario´] := fbReader[´NIVEL_USUARIO´].ToString;
Session[´CodigoUsuario´] := fbReader[´ID_ACESSO´].ToString;

Response.Redirect(´Default.aspx´);

end else

RegisterStartupScript(´erro´,´<script>javascript:alert(´´Usuário ou Senha incorretos!´´);</script>´);


end;


Perceba que, criei uma sessão para o Nivel de cada usuario que se logar, nesse nivel poderá ser ALUNO, ADMINISTRADOR ou PROFESSOR, e vc dará previlégios a cada um. Valeu. Boa sorte. Paulo Freire

Obrigado por ajudar.
Usuaria tbm o Firebird, mais essa linguagem é um pouco nova
pra mim, em delph6 naum tem como ?

Mas ai como vc colocaria isso na Internet, seria um IntraWeb?, CGI? veja como vc ira hospedar isso, que preparo algo.

Paulo Freire

Obrigado pela atenção.
Preciso hospedar em um provedor, para que os clientes
possam acessar se logar e baixar o arquivo caso estejam liberados.
Acredito que tenha que ser CGI isso ?

Olá Paulo, estou querendo aprender sobre o delphi 2007 .net + asp.net, será que daria pra vc me enviar esse exemplo ou outros exemplos e tb gostaria de saber por onde eu posso começar essa nova linguagem. Agradeço desde já.