Controle de Transporte Escolar On-Line II

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (3)  (0)

Controle o transporte Escolar on line

Dando sequência ao nosso tutorial, iremos desenvolver nossas páginas de Dados e de Login.

Então vamos lá.

                Inicie o Visual web Developer, e selecionando nosso site adicione um novo Form clicando em Add New item

e de o nome de OqueE.aspx

Selecionando nossa Master Pager, criada em nosso tutorial I.
 

 Abaixo nossa página já criada. 
As páginas objetivos e Roteiro Escolar deixo por conta de vocês.
 
Criando as páginas de Login
 

Do mesmo jeito que criamos nossas páginas, vamos criar às páginas de Login que darão acesso as páginas Administrativas do Site e a página que chamarei de intranet que será de acesso das Unidades escolares.

Inicie criando 2 novas pastas , clicando com o direito no nome do site e de a elas o nome de Administrativo e Intranet

Aqui para cada pasta iremos criar uma nova página de nome LogimAdm.aspx e LoginIntra.aspx.  E cada uma por sua vez, abrirá uma nova página de nome Adm.aspx e intranet.aspx

Aqui, copie,Cole e Renomeie nossa Base. Master para cada pasta, criando assim 2 novas Master-Page,

Poderíamos ter utilizado a nossa Master Page principal, mas o objetivo é demonstrar o uso de várias máster ao mesmo tempo. Note que fiz algumas alterações no Cabeçalho, deletando alguns itens.

Em seguida crie as nossas páginas Admin.aspx e Intranet.aspx. Tendo como referencia nossas Master-Page. Veja como anda nosso solution Explorer já com as páginas criadas.

Desenvolvendo o Login de Acesso

Abra o Banco de Dados e inclua alguns itens nas Tabelas Admin e Escolas.

Em seguida abra nosso AdminLogin.aspx,se já não estiver aberto e inclua uma tabela de 2colunas e 3 linhas.

Monte as mesmas conforme figura. Alterando a propriedade do TextBox Login, em Properties/TextMode, para Password. 

 Inclua ainda um Label, e de a ele o nome de lblmsg.

 
Clique-Duplo no botão Logar, para acessarmos a área de eventos. Em seguida digite:
 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

‘Acesso ao Banco de Dados

        Dim strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("app_data/transporte.mdb")

‘Cria uma Nova Conexão

        Dim Conn As OleDbConnection = New OleDbConnection(strConn)

‘Cria Parametros

        Dim strConsulta As String = "SELECT login FROM admin WHERE Login = @Login AND Senha = @Senha"

 

        Dim cmd As OleDbCommand = New OleDbCommand(strConsulta, Conn)

        Dim objDR As OleDbDataReader

‘Compara o Parametro com o que foi digitado nos TextBox

        With cmd.Parameters

            .Add(New OleDbParameter("@Login", txtLogin.Text))

            .Add(New OleDbParameter("@Senha", txtSenha.Text))

        End With

‘Se estiver Correto, abre a conexão

        Try

            Conn.Open()

            objDR = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

‘Direciona para a página se estiver correto, senão retorna a página inicial e mostra uma mensagem de erro no label lblmsg

            If objDR.HasRows Then

                Response.Redirect("Admin.aspx")

            Else

                Response.Redirect("default.aspx")

            End If

 

        Catch ex As Exception

            Me.lblmsg.Text = "Erro de acesso aos dados, tente outra vez!!!!"

            Me.lblmsg.Visible = True

        End Try

    End Sub

End Class

-------------------------------------------------------------- 

ERROS que podem acontecer

 

Declare o NameSpace Data.OleDB, Basta clicar na opção Import 'System.Data.OleDB'

 ------------------------------------------------------------------ 

Está pronta nossa página de Login, faça os testes e verifique que a mesma já acessa a área Administrativa de nosso Site. 

Faça o mesmo para a pagina de loginIntra, não esquecendo que os dados virão da página de Escolas onde estará os dados Cadastrais e o Código de acesso

*Note os locais onde foram alterados alguns dados

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

‘Acesso ao Banco de Dados

        Dim strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("app_data/transporte.mdb")

‘Cria uma Nova Conexão

        Dim Conn As OleDbConnection = New OleDbConnection(strConn)

‘Cria Parametros

        Dim strConsulta As String = "SELECT Usuario FROM Escolas  WHERE Usuario = @Login AND CodAcesso = @CodAcesso"

 

        Dim cmd As OleDbCommand = New OleDbCommand(strConsulta, Conn)

        Dim objDR As OleDbDataReader

‘Compara o Parametro com o que foi digitado nos TextBox

        With cmd.Parameters

            .Add(New OleDbParameter("@Usuario", txtLogin.Text))

            .Add(New OleDbParameter("@CodAcesso", txtSenha.Text))

        End With

‘Se estiver Correto, abre a conexão

        Try

            Conn.Open()

            objDR = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

‘Direciona para a página se estiver correto, senão retorna a página inicial e mostra uma mensagem de erro no label lblmsg

            If objDR.HasRows Then

                Response.Redirect("Intranet.aspx")

            Else

                Response.Redirect("default.aspx")

            End If

 

        Catch ex As Exception

            Me.lblmsg.Text = "Erro de acesso aos dados, tente outra vez!!!!"

            Me.lblmsg.Visible = True

        End Try

    End Sub

End Class

 
O próximo passo é conectar o Hiperlink da Master-Page (Base-Master), Área Restrita e Intranet a nossa página de Login

Salve e teste seu Site.
 

No próximo tutorial iremos criar as páginas de Cadastros de Alunos transportados, horários, séries, transportadora, etc.

 

Até lá

Prazo máximo do novo tutorial 30/04/2009

 

At.

Cláudio Medeiros dos Santos

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?