Controle de Transporte Escolar On-Line IV

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
 (2)  (0)

Faça um controle de Transporte Escolar On line Com visual Studio utilizando Access e Google Maps.

Neste tutorial irei, darei uma importancia maior a criação da página de Cadastro de  transporte,

pelo fato dela conter vários  DropDowList.  E como fazer uma Consulta em um GridView utilizando o
DropDowList.

Inicie o Visual Web Developer, e adicione ao site um Form de nome CadTransporte.aspx.  Visualize a

quantidade de DropDowlist  nesta página.
Todos apresentam dados de alguma outra tabela.  Então vamos criar o acesso  a tabela Escola do 1º DropDowList e o Restante será idêntico.
 

Na página, recém criada adicione uma tabela com  20 linhas e 02 colunas, nela adicione os labels

necessários e os TextBox, adicione um DropDowList para os itens Escolas,Série,Período,Tipo de Transporte
e empresa Transportadora.

Selecione o DropDowList Escola e crie um ChosseDataSource

Na próxima tela que se abre selecione New Data Source,  e a seguir selecione o tipo de Conexão, dando um
nome sugestivo a nossa Consulta.
Na sequencia selecione nosso Banco de dados
 
E a tabela de onde virá as informações, que no nosso caso Escola.
Clique em Next, e na sequencia finish.
Nesta parte selecione o nome da Escola, para aparecer no Display, e CodEscola que é o valor do  DropDowList. Clique em Ok  e altere o nome do seu DropDowList para DDLEscola.  Está pronto nossa  Consulta para o DropDowList.  

                Faça o mesmo para os outros, não esquencendo de alterar seus nomes para:

Escola  (DropDowList)

ddlEscola

Serie   (DropDowList)

ddlSerie

Aluno 

txtAluno

RA

txtRA

Endereco

txtEndereco

Bairro

txtBairro

Cidade

txtCidade

Estado

txtEstado

CEP

txtCEp

Telefone

txtTelefone

Celular

txtCelular

Responsável

txtResponsavel

Obs

txtObs

TextMode=Multiline

Kilometragem 

txtKM

Periodo   (DropDowList)

ddlPeriodo

TipoTransporte  (DropDowList)

ddlTipo

Empresa Transportadora  (DropDowList)

ddlEmpresa

 

Adicione 02 Buttom e altere os nome s para btnInserir e btnAlterar.

Duplo-Clique no btnInserir e digite :

Protected Sub btnInserir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInserir.Click

        'verifica se foi informado

If ddlEscola.Text <> String.Empty And ddlSerie.Text <> String.Empty And txtAluno.Text <> String.Empty And txtRA.Text <> String.Empty And txtEndereco.Text <> String.Empty _

And txtBairro.Text <> String.Empty And txtCidade.Text <> String.Empty And txtUF.Text <> String.Empty And txtCEP.Text <> String.Empty And txtTelefone.Text <> String.Empty _

And txtCelular.Text <> String.Empty And txtResponsavel.Text <> String.Empty And txtObs.Text <> String.Empty And ddlPeriodo.Text <> String.Empty And ddlTipo.Text <> String.Empty And ddlEmpresa.Text <> String.Empty Then

 

            'define a conexao com o banco de dados na pasta app data

 Dim strconn As String = "provider=microsoft.jet.oledb.4.0;data source =" & Server.MapPath("app_data/Transporte.mdb") & ";"

 'monta a instrução sql que vai incluir os dados na tabela.

 Dim mysql As String = "insert into Transporte(CodEscola,Serie,Aluno,RA,Endereco,Bairro,Cidade,UF,CEP,telefone,Celular,Responsavel,

obs,kilometragem,Periodo,TipoTransporte,EmpresadoTransporte)values(@CodEscola,@Serie,@Aluno,@RA,@Endereco,@Bairro,@Cidade,@UF,@CEP,@telefone,@Celular,@Responsavel,
@Obs,@kilometragem,@Periodo,@TipoTransporte,@EmpresadoTransporte)"

Dim myconn As New OleDbConnection(strconn)

Dim cmd As New OleDbCommand(mysql, myconn)

            'preenche os parametros obtidos no formulario

 cmd.Parameters.Add(New OleDbParameter("@CodEscola", ddlEscola.Text))

 cmd.Parameters.Add(New OleDbParameter("@Serie", ddlSerie.Text))

 cmd.Parameters.Add(New OleDbParameter("@Aluno", txtAluno.Text))

 cmd.Parameters.Add(New OleDbParameter("@RA", txtRA.Text))

 cmd.Parameters.Add(New OleDbParameter("@Endereco", txtEndereco.Text))

 cmd.Parameters.Add(New OleDbParameter("@Bairro", txtBairro.Text))

 cmd.Parameters.Add(New OleDbParameter("@Cidade", txtCidade.Text))

 cmd.Parameters.Add(New OleDbParameter("@UF", txtUF.Text))

 cmd.Parameters.Add(New OleDbParameter("@CEP", txtCEP.Text))

 cmd.Parameters.Add(New OleDbParameter("@Telefone", txtTelefone.Text))

cmd.Parameters.Add(New OleDbParameter("@Celular", txtCelular.Text))

cmd.Parameters.Add(New OleDbParameter("@responsavel", txtResponsavel.Text))

cmd.Parameters.Add(New OleDbParameter("@Obs", txtObs.Text))

cmd.Parameters.Add(New OleDbParameter("@Kilometragem", txtKm.Text))

cmd.Parameters.Add(New OleDbParameter("@Periodo", ddlPeriodo.Text))

cmd.Parameters.Add(New OleDbParameter("@TipoTransporte", ddlTipo.Text))

cmd.Parameters.Add(New OleDbParameter("@EmpresadoTransporte", ddlEmpresa.Text))

            'abre a conexao e executa o comando

            Try

                ' Coloca um indice Inicial no dropdowlist

                ddlEscola.Items.Insert(0, "Selecione sua Escola")

                ddlEscola.SelectedIndex = 0

 

                'lblmsg.Text = "Dados Gravados com Sucesso!!!"

                myconn.Open()

                cmd.ExecuteNonQuery()

 

                lblMsg.Text = "Dados Gravados com Sucesso!!!"

                Response.Redirect("cadTransporte.aspx")

            Catch

lblMsg.Text = "Erro ao gravar os dados, consulte o administrador do site"

            Finally

                'fecha a tabela e a conexão se der erro

                myconn.Close()

 

            End Try

 

        End If

    End Sub

 

Salve e teste a página

Obs: 

1.    É necessário estar com todos os dados Exatos, qualquer erro, revise passo-a-passo  a sua digitação.

2.    No preenchimento não pode conter nenhum campo em branco, ou seja, é necessário a digitação de  todos os campos.

Abaixo a página rodando no localhost

 

As alterações e exclusões segue o mesmo padrão da página Serie.aspx (Tutorial III). Veja imagem da página AlteraCadastro.aspx

Trabalhando com DropDowList em um GridView

Para que possa aparecer o nome da Escola ou de qualquer outro dados em um gridView na hora de  fazer as alterações, faça o seguinte.

ü  Após criar o GridView, selecione a opção Edit Collumns

 
E na tela que se abre altere todos os itens para TemplateField, 
 
Retorne ao GridView, e selecione agora na GridView Tasks, a opção Edit Templates
 
Note que nosso GridView, transformou-se em um Coluna Contendo apenas um Label, e ao seu lado temos a opção de finalizar a edição ou selecionar nossas templates clicando no Display.

Selecione a Template Escola, e verifique irá abrir várias opções

 

Pontos a analisar

ü  O primeiro ItemTemplate, é o que será mostrado no GridView;

ü  Como estamos trabalhando com o CodEscola, é o que será visualizado;

ü  A opção EditItemTemplate, será o campo que teremos que fazer a edição ou exclusão.  É nesse campo, que apagaremos o Textbox e colocaremos um DropDowList para que na hora de fazer as alterações o programa possa ir buscar o nome da Escola e não seu código.

ü  Note que no Display, aparece todos os itens que você indicou como TemplateField, então, para se alterar qualquer formato de campo você deverá seleciona-lo na caixa de display e fazer as alterações(tamanho, backColor,ForeColor,Font,bordas,etc).

Após fazer as alterações e criar nossos DropDowList clique em Endtemplate, e faça os testes.

Neste GridView estou fazendo a busca pelo nome do aluno 

Já na edição e alteração 

Note que aparece o nome da Escola somente na edição e alteração e logo abaixo seu código, poderíamos resolver esse problema utilizando de uma Consulta, mas preferi  deixar no modo padrão.

 

No próximo tutorial, iremos desenvolver  a página administrativa, e a pagina de Intranet.

 

Até lá

 

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?