trabalhando variaveis

estranho.com · Fevereiro 27, 2009

olá pessoal.. estou com uma pt duvida e se puderem me dar uma sugestão seria bem vinda...

funciona assim estou fazendo um sistema em asp para uma escola militar q eu estou no momento... aqui eles tem um sistema de punições para q os alunos mantenham a disciplina..

é assim quando um aluno faz uma transgreção disciplinar ele é anotado mediante a um código de acordo com a transgreção..

ex:

D1 - não cumprimento de uma ordem

D2 - má apresentação

etc...

caso tenha 2 anotações do mesmo código ele fica de LEC parcial "fica até mais tarde na sexta.."

caso tenha 3 anotações do mesmo código ele fica de LEC intermediario "fica no sabado fazendo tarefas na escola"

caso tenha 4 anotações do mesmo código ele fica de LEC total "fica o fim de semana inteiro"

caso tenha 5 anotações do mesmo código ele pode ser comunicado e até expulso do programa..

no sistema vou cadastrar as anotações e tenho uma página de pesquisa q mostra o status do aluno só que como posso fazer para q ele não apreça sempre uma vez que ele ja cumpriu seu "castigo"??? de forma q os registros não se apaguem..

Pensei em criar um campo com um "ok" para se o aluno já cumprir o "castigo" ao clicar no ok mudaria um campo no banco de dados de 1 para parc.. só que isso teria que ocorrer em dois registros no caso e depois se ele tomar outra anotação mudaria de "parc e 1" para "interm" e assim sucessivamente... como eu posso fazer isso e se tem alguma forma mais simples???

Guilherme Rambo · Fevereiro 28, 2009

Olá estranho.com, vou mover seu tópico para a área de ASP onde o pessoal poderá lhe ajudar melhor que aqui.

[]'s

xanburzum · Fevereiro 28, 2009

você pode fazer tipo um histórtco do aluno, e quando ele passar de parc e 1" para "interm", você atualiza o sistema, ou simplemente, quem for reposnsavel por entrar e ver o hist. tem a opção de colocar os niveis de LEC ,atualizando o sistema, assim você tem o status,nivel de LEC e o hoistorico detalhado do aluno.

estranho.com · Fevereiro 28, 2009

OK.. boa sugestão... vou tentar fazer aqui em caso de mais duvidas volto a postar com o código.... vlwww

xanburzum · Fevereiro 28, 2009

beleza...qualquer duvida posta ai...

estranho.com · Junho 17, 2009

me desculpem a demora.. estou postando o meu código.... e tenho o seguinte problema... os IF's nao estao funcionando.. ele tem que verificar se ja tem um registro igual e só atualizar o ja existe....

<%
		 dim verifica,username 
		 verifica = Request.querystring("verifica")
		 
'definir variaveis
Dim sql,rsUser,sqlflag,vis,conn,DB,rst,rsoo
login = Request.Cookies("login")


'Abrir a conexão


Dim ConnectString
Set conn = Server.CreateObject("ADODB.Connection")
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados.mdb")
conn.open ConnectString


Dim nomedeguerra,pel,cia,datax,motivo,anotante,cod,re,leec,ciakoq

ciakoq = "koquie"
nomedeguerra =  Request.Form("nomedeguerra")
pel =  Request.Form("pel")
cia =  Request.Form("cia")
datax =  Request.Form("datax")
motivo =  Request.Form("motivo")
anotante =  Request.Form("anotante")
cod =  Request.Form("cod")
re =  Request.Form("rex")

'Começar um recordset que corresponde
Set leec = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM lec where rex = '"&re&"'"
leec.Open sql, conn, 3, 3


Set rst = Server.CreateObject("ADODB.Recordset") 
   SQL = "SELECT * FROM cheq"
   rst.Open sql, conn, 3, 3

if verifica = "1" then  

if leec("rex") = re then
  
  
   if leec("rex") = re  and leec("cod_cheq") = cod and leec("statusx") = "6" then

   
   leec.MoveFirst
   leec("nomedeguerra") = nomedeguerra
   leec("pel") = pel
   leec("cia") = ciakoq
   leec("cod") = cod
   leec("rex") = re
   leec("statusx") = "5"
   leec.Update
   
	rst.AddNew
   rst("nomedeguerra") = nomedeguerra
   rst("pel") = pel
   rst("cia") = ciakoq
   rst("datax") = datax
   rst("motivo") = motivo
   rst("anotante") = anotante
   rst("cod") = cod
   rst("rex") = re
   rst.Update
   rst.close
   else
   end if
	
   
   if leec("rex") = re  and leec("cod_cheq") = cod and leec("statusx") = "4" then
   

   leec.MoveFirst
   leec("nomedeguerra") = nomedeguerra
   leec("pel") = pel
   leec("cia") = ciakoq
   leec("cod") = cod
   leec("rex") = re
   leec("statusx") = "5"
   
   leec.Update
	rst.AddNew
   rst("nomedeguerra") = nomedeguerra
   rst("pel") = pel
   rst("cia") = ciakoq
   rst("datax") = datax
   rst("motivo") = motivo
   rst("anotante") = anotante
   rst("cod") = cod
   rst("rex") = re
   rst.Update
   rst.close
   
   else
   end if
   
   else
   end if
   
   
   if leec("rex") = re  and leec("cod_cheq") = cod and leec("statusx") = "2" then

 
   leec.MoveFirst
   leec("nomedeguerra") = nomedeguerra
   leec("pel") = pel
   leec("cia") = ciakoq
   leec("cod") = cod
   leec("rex") = re
   leec("statusx") = "3"
   
   leec.Update
	
   rst.AddNew
   rst("nomedeguerra") = nomedeguerra
   rst("pel") = pel
   rst("cia") = ciakoq
   rst("datax") = datax
   rst("motivo") = motivo
   rst("anotante") = anotante
   rst("cod") = cod
   rst("rex") = re
   rst.Update
   rst.close
   
   else
   end if  


 if rst("rex") = re and rst("cod") = cod then

 'leec cadastrar aluno na tabela leec com status 1
 
   leec.AddNew
   leec("nomedeguerra") = nomedeguerra
   leec("pel") = pel
   leec("cia") = ciakoq
   leec("cod_cheq") = cod
   leec("rex") = re
   leec("statusx") = "1"
   leec.Update
   leec.close
	'cadastrar chequinho
   rst.AddNew
   rst("nomedeguerra") = nomedeguerra
   rst("pel") = pel
   rst("cia") = ciakoq
   rst("datax") = datax
   rst("motivo") = motivo
   rst("anotante") = anotante
   rst("cod") = cod
   rst("rex") = re
   rst.Update
   rst.close
	 
   
 else

 'cadastrar chequinho

   
   rst.AddNew
   rst("nomedeguerra") = nomedeguerra
   rst("pel") = pel
   rst("cia") = ciakoq
   rst("datax") = datax
   rst("motivo") = motivo
   rst("anotante") = anotante
   rst("cod") = cod
   rst("rex") = re
   rst.Update
   rst.close
   

 end if
 
 
 set rst=nothing
 set leec=nothing
else


%>	

 
 
		<table width="75%" border="0" align="center">
		  <tr> 
			
	<td height="594"> 
	
	  <form name="login" method="post" action="index.asp?verifica=1" Onsubmit="return valida();">
		<p>Nome de Guerra 
		  <input name="nomedeguerra" type="text" id="nomedeguerra">
		  <br>
		  <br>
		  Pel  
		  <input name="pel" type="text" id="pel" onKeyDown="tecla(event)">
		  <br>
		  <br>
		  |Data 
		  <input name="datax" type="text" id="datax" onKeyDown="tecla(event)">
		  <br>
		  <br>
		  Motivo   
		  <input name="motivo" type="text" id="motivo">
		           <br>
		  <br>
		  Anotante: 
		  <input name="anotante" type="text" id="anotante">
		</p>
		<p> Cód 
		  <input name="cod" type="text" id="Local4">
		</p>
		<p>Re 
		  <input name="rex" type="text" id="Local5">
		  <br>
		  <br>
		                
		         
		  <input type="submit" name="Submit" value="Salvar">
		          
		  <input type="reset" name="Submit2" value="Cancelar">
		  <br>
		</p>
	  </form>
				   </td>
		  </tr>
		</table>
 
	  
	  <%
end if	  
conn.close
set conn = nothing
%>
 
</body>
</html>

xanburzum · Junho 17, 2009

esta gerando algum erro ???

Erick de Camargo · Junho 19, 2009

Cara, uma sugestao simples ?

Voce esta utilizando banco de dados access....

Sugiro voce criar criar no registro da "ocorrencia" (falta, indisciplina ou como voce chamar) uma data de INICIO e uma de FIM da "pena"....

Cria uma consulta que traga as informacoes que voce precisa, e uma coluna mostrando assim: se data_fim > hoje entao ABERTO

algo assim (desculpe, meu banco favorito eh SQLServer):

Select info_1,info_2,info_3,data_ocorrencia,data_inicio_pena,data_fim_pena, select case data_fim_pena > getdate() then 'ABERTO' else 'CUMPRIDO' end select as STATUS from CONSULTA WHERE codigo_cara = '1234'

e mostra isso na tela, depois voce faz outra chamada assim

Select count(1) as abertos from CONSULTA where codigo_cara='1234' and status='ABERTO'

Lembrando que essa ideia eh para uma consulta / view, e nao para uma execucao sql (string que voce passa para o banco executar) pq se fosse pra ser uma execucao, era melhor jah colocar todo o codigo no meio da query, o que dah um pouco mais de trabalho pra montar, mas fica bem mais rapido e "decente"

Abraços

estranho.com · Junho 22, 2009

Ola Erick... o campo ocorrencia é meu campo cod e nao posso colocar como data inicial ou final pois criei uma pagina de administrador aonde o individuo vai atualizar se ja cumpriu ou nao...

xanburzum o erro principal é que parece nao ler os IFs que eu criei talvez seja a forma como eu cito as variaveis do banco de dados .. nao sei...

ex: leec("rex") "leec" nome da tabela e "rex" nome do campo a ser validado... acontece q ele teria q gravar em uma determinada tabela se ja constase dados iguais em outra ex: se ja tiver um registro igual na tabela "chequinho" ele deveria cadastrar a informação na tabela "chequinho" e na tabela "leec"... acontece que ele só grava na tabela "chequinho"....

da uma verificada no meu codigo e ve se você encontra algum erro nao parte aonde eu efetuo os registros ou na forma como faço os IFs...]

if rst("rex") = re and rst("cod") = cod then	   !!!!!!!!!!!!!!!!!!!!!!!!!<<<<<<<<<<<--------- se na tabela ja tiver um registro igul salvar registro na tabela e em mais outra....

 'leec cadastrar aluno na tabela leec com status 1
 
   leec.AddNew
   leec("nomedeguerra") = nomedeguerra
   leec("pel") = pel
   leec("cia") = ciakoq
   leec("cod_cheq") = cod
   leec("rex") = re
   leec("statusx") = "1"
   leec.Update
   leec.close
	'cadastrar chequinho
   rst.AddNew
   rst("nomedeguerra") = nomedeguerra
   rst("pel") = pel
   rst("cia") = ciakoq
   rst("datax") = datax
   rst("motivo") = motivo
   rst("anotante") = anotante
   rst("cod") = cod
   rst("rex") = re
   rst.Update
   rst.close
  
   
   
 else

 'cadastrar chequinho

   
   rst.AddNew
   rst("nomedeguerra") = nomedeguerra
   rst("pel") = pel
   rst("cia") = ciakoq
   rst("datax") = datax
   rst("motivo") = motivo
   rst("anotante") = anotante
   rst("cod") = cod
   rst("rex") = re
   rst.Update
   rst.close
   

 end if

obrigado pela atenção pessoal....

xanburzum · Junho 23, 2009

poste como esta seu laço de repetiçaun atualmente...

estranho.com · Junho 24, 2009

<%

dim verifica,username

verifica = Request.querystring("verifica")

'definir variaveis

Dim sql,rsUser,sqlflag,vis,conn,DB,rst,rsoo

login = Request.Cookies("login")

'Abrir a conexão

Dim ConnectString

Set conn = Server.CreateObject("ADODB.Connection")

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados.mdb")

conn.open ConnectString

Dim nomedeguerra,pel,cia,datax,motivo,anotante,cod,re,leec,ciakoq

ciakoq = "koquie"

nomedeguerra = Request.Form("nomedeguerra")

pel = Request.Form("pel")

cia = Request.Form("cia")

datax = Request.Form("datax")

motivo = Request.Form("motivo")

anotante = Request.Form("anotante")

cod = Request.Form("cod")

re = Request.Form("rex")

'Começar um recordset que corresponde

Set leec = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM lec where rex = '"&re&"'"

leec.Open sql, conn, 3, 3

Set rst = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM cheq"

rst.Open sql, conn, 3, 3

if verifica = "1" then

if leec("rex") = re then

if leec("rex") = re and leec("cod_cheq") = cod and leec("statusx") = "6" then

leec.MoveFirst

leec("nomedeguerra") = nomedeguerra

leec("pel") = pel

leec("cia") = ciakoq

leec("cod") = cod

leec("rex") = re

leec("statusx") = "5"

leec.Update

rst.AddNew

rst("nomedeguerra") = nomedeguerra

rst("pel") = pel

rst("cia") = ciakoq

rst("datax") = datax

rst("motivo") = motivo

rst("anotante") = anotante

rst("cod") = cod

rst("rex") = re

rst.Update

rst.close

else

end if

if leec("rex") = re and leec("cod_cheq") = cod and leec("statusx") = "4" then

leec.MoveFirst

leec("nomedeguerra") = nomedeguerra

leec("pel") = pel

leec("cia") = ciakoq

leec("cod") = cod

leec("rex") = re

leec("statusx") = "5"

leec.Update

rst.AddNew

rst("nomedeguerra") = nomedeguerra

rst("pel") = pel

rst("cia") = ciakoq

rst("datax") = datax

rst("motivo") = motivo

rst("anotante") = anotante

rst("cod") = cod

rst("rex") = re

rst.Update

rst.close

else

end if

else

end if

if leec("rex") = re and leec("cod_cheq") = cod and leec("statusx") = "2" then

leec.MoveFirst

leec("nomedeguerra") = nomedeguerra

leec("pel") = pel

leec("cia") = ciakoq

leec("cod") = cod

leec("rex") = re

leec("statusx") = "3"

leec.Update

rst.AddNew

rst("nomedeguerra") = nomedeguerra

rst("pel") = pel

rst("cia") = ciakoq

rst("datax") = datax

rst("motivo") = motivo

rst("anotante") = anotante

rst("cod") = cod

rst("rex") = re

rst.Update

rst.close

else

end if

if rst("rex") = re and rst("cod") = cod then

'leec cadastrar aluno na tabela leec com status 1

leec.AddNew

leec("nomedeguerra") = nomedeguerra

leec("pel") = pel

leec("cia") = ciakoq

leec("cod_cheq") = cod

leec("rex") = re

leec("statusx") = "1"

leec.Update

leec.close

'cadastrar chequinho

rst.AddNew

rst("nomedeguerra") = nomedeguerra

rst("pel") = pel

rst("cia") = ciakoq

rst("datax") = datax

rst("motivo") = motivo

rst("anotante") = anotante

rst("cod") = cod

rst("rex") = re

rst.Update

rst.close

else

'cadastrar chequinho

rst.AddNew

rst("nomedeguerra") = nomedeguerra

rst("pel") = pel

rst("cia") = ciakoq

rst("datax") = datax

rst("motivo") = motivo

rst("anotante") = anotante

rst("cod") = cod

rst("rex") = re

rst.Update

rst.close

end if

set rst=nothing

set leec=nothing

else

%>

<tr>

<p>Nome de Guerra

<br>

Pel

<br>

|Data

<br>

Motivo

<br>

Anotante:

</p>

<p> Cód

</p>

<p>Re

<br>

<br>

</p>

</form>

</td>

</tr>

</table>

<%

end if

conn.close

set conn = nothing

%>

</body>

</html>

Arquivado

trabalhando variaveis

Recommended Posts

estranho.com 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Guilherme Rambo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

estranho.com 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

estranho.com 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Erick de Camargo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

estranho.com 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

estranho.com 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP - Cadastro de Faturamento

Search Sexy Womans in your town for night

Passar Hora para Campo Input automaticamente

Fóruns

Tempo Real

Informação importante