Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda listar tudo


Sou_Designer

Pergunta

Bom dia/tarde gente...

Tenho um cód aqui que é para alterar se a pessoa passou (SIM), não passou (NÃO) ou ainda vai realizar a prova (REALIZAR).

Esta busca é feita por CPF...

porém nesta página de busca por CPF querem que já apareça listado todas as pessoas que estão no banco de dados... 50 por 50 pessoas.. paginando... e com a opção de editar cada pessoa se ela passou (SIM), não passou (NÃO) ou ainda vai REALIZAR a prova.

Vamos lá...

Página 1... onde busca o CPF e tem que ser implementada a listagem... Listagem deverá conter o NOME (COD_NOME), CPF e SITUAÇÃO (situação está na tabela

<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<body class="BODY">
<table border="0" align="center" cellspacing="0" class="Tabela_Boleto_Bancario" style="margin-top:5px;">
<form name="FORM_NOTA_FINAL" action="" method="post">
           <tr>
            <td align="center" style="font-family:Verdana; font:bold; font-size:12px;">
            <img src="../img/logo.jpg" border="0" align="absmiddle" style="float:left">
                        </td>
          </tr>
           <tr>
            <td align="center" style="font-family:Verdana; font:bold; font-size:12px; background-color:#999999; color:#FFFFFF; height:25;"> Listagem de Resultado</td>
          </tr>
           <tr>
            <td class="Texto">&nbsp;&nbsp;&nbsp;Informe aqui o CPF do candidato:  
              <span class="style1">*</span> &nbsp;&nbsp;
              <input name="CAD_CD_CPF" type="text" class="Formulario" id="CAD_CD_CPF" onFocus="this.className='Formulario_focus';this.value=''" onBlur="this.className='Formulario';" onKeyPress="SomenteNumeros(this)" onKeyUp="Mascara_CPF('CAD_CD_CPF')" size="23" maxlength="14">&nbsp;&nbsp;<img src="../img/lupa.gif" onClick="CPF_Cadastrado();" border="0">
            
            </td>
          </tr>

           <tr>
            <td align="center" style="font-family:Verdana; font:bold; font-size:12px; background-color:#999999; color:#FFFFFF; height:25;">Cadastrar Nota Final </td>
          </tr>

        <tr>
                <td class="Texto_Comprovante" style="padding:5px;">
                <span id="Resultado_CPF_Cadastrado" class="Texto_Azul"></span>
                </td>
        </tr>

        <tr>
                <td class="Texto_Comprovante" style="padding:5px;">&nbsp;</td>
        </tr>

        <tr>
                <td class="Texto_Comprovante" style="padding:5px;">&nbsp;</td>
        </tr>

           <tr>
            <td class="Texto_Comprovante">&nbsp;</td>
          </tr>

          <tr>
            <td background="../img/background_faixa_bottom.jpg" style="background-repeat:no-repeat; height:27px;">&nbsp;            </td>
          </tr>
</form>
</table>
</body>
<% END IF %>
Página CPF CANDIDATO:
<!--#include file="connect.asp" -->
<%
Session.LCID = 1046
Response.CacheControl = "no-cache"
Response.AddHeader "pragma","no-cache"
Response.Expires = -1 
Response.Buffer = true
Response.Charset="ISO-8859-1" 'acentuação, caracteres especiais, codificação, etc no Ajax.

VAR_CPF = Request.QueryString("CPF")
VAR_CPF = REPLACE(VAR_CPF,".","")
VAR_CPF = REPLACE(VAR_CPF,"-","")

        Query_CPF_Cadastrado = "                        " +_
            " SELECT                                     " +_
            "    CANDI_CD_MATRICULA,                        " +_
            "    CANDI_NM_CANDIDATO,                        " +_
            "    RESVEST_TX_APROVADO,                    " +_
            "    RESVEST_DT_CADASTRO                        " +_
            " FROM                                         " +_
            "    CONSULTA_NOTA_FINAL                        " +_
            " WHERE                                     " +_
            "    CANDI_CD_CPF =                             " +_
            "    '"&VAR_CPF&"'                             "
        Set CPF_Cadastrado = Conect.Execute(Query_CPF_Cadastrado)
            
%>
<table width="100%" border="0" class="Texto">
<% IF CPF_Cadastrado.EOF THEN %>
  <tr>
    <td colspan="2">CPF <%=Request.QueryString("CPF")%>, não cadastrado!</td>
  </tr>
<% ELSE %>  
  <tr>
    <td width="12%" class="Texto_Negrito">Matricula:</td>
    <td><%=CPF_Cadastrado("CANDI_CD_MATRICULA")%></td>
  </tr>
  <tr>
    <td class="Texto_Negrito">Nome:</td>
    <td><%=CPF_Cadastrado("CANDI_NM_CANDIDATO")%></td>
  </tr>
  <tr>
    <td class="Texto_Negrito">Aprovado:</td>
    <td>
    <%
        IF CPF_Cadastrado("RESVEST_TX_APROVADO") = "S" THEN
            Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='S' checked>&nbsp;Sim")
            Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='N'>&nbsp;N&atilde;o")
                                               Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='R'>&nbsp;Realizar")


        ELSEIF CPF_Cadastrado("RESVEST_TX_APROVADO") = "N" THEN
            Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='S'>&nbsp;Sim")
            Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='N' checked>&nbsp;N&atilde;o")
                               Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='R'>&nbsp;Realizar")

        ELSE
            Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='S'>&nbsp;Sim")
            Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='N'>&nbsp;N&atilde;o")
                              Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='R'>&nbsp;Realizar")

        END IF    
    %>
     </td>
  </tr>
    <tr>
        <td colspan="2">&nbsp;</td>
    </tr>
  <tr>
    <td colspan="2">
    <% 
        IF CPF_Cadastrado("RESVEST_TX_APROVADO") <> "" THEN 
            Response.Write("<input name='B3' type='button' class='Botao' id='B3' value='MODIFICAR' onClick='Gravar_Nota()'>")
            Response.Write("<input type='hidden' name='CD_TIPO_REGISTRO' id='CD_TIPO_REGISTRO' value='UPDATE'>")
        ELSE
            Response.Write("<input name='B3' type='button' class='Botao' id='B3' value='GRAVAR' onClick='Gravar_Nota()'>")
            Response.Write("<input type='hidden' name='CD_TIPO_REGISTRO' id='CD_TIPO_REGISTRO' value='INSERT'>")
        END IF
    %>
    <input type="hidden" name="CD_MATRICULA" id="CD_MATRICULA" value="<%=CPF_Cadastrado("CANDI_CD_MATRICULA")%>">
    </td>
  </tr>
  
<% END IF %>  
</table>
Página Gravar Nota Final:
<!--#include file="connect.asp" -->
<%
Session.LCID = 1046
Response.CacheControl = "no-cache"
Response.AddHeader "pragma","no-cache"
Response.Expires = -1 
Response.Buffer = true
Response.Charset="ISO-8859-1" 'acentuação, caracteres especiais, codificação, etc no Ajax.

    IF Request.QueryString("TIPO_REG") = "INSERT" THEN

        Query_Cadastro_Nota =    "                             " +_
            " INSERT INTO                                     " +_
            "    TB_RESULTADO_VESTIBULAR                        " +_
            "    (CANDI_CD_MATRICULA,                        " +_
            "    RESVEST_TX_APROVADO,                         " +_
            "    RESVEST_DT_CADASTRO)                        " +_
            " VALUES                                         " +_
            "    ("&Request.QueryString("CD_MATRICULA")&",    " +_
            "    '"&Request.QueryString("CD_NOTA")&"',        " +_
            "     '"&Now()&"')                                 "
        Set Cadastro_Nota = Conect.Execute(Query_Cadastro_Nota)
            Response.Write("Resultado cadastrado com sucesso!")        
    
    ELSE
                Query_Atualiza_Nota =    "                             " +_
                    " UPDATE                                         " +_
                    "    TB_RESULTADO_VESTIBULAR                        " +_
                    "    SET                                            " +_
                    "    RESVEST_TX_APROVADO = '"&Request.QueryString("CD_NOTA")&"',                " +_
                    "    RESVEST_DT_ATUALIZADO = '"&Now()&"'                                      " +_
                    " WHERE                                                                        " +_
                    "    CANDI_CD_MATRICULA = "&Request.QueryString("CD_MATRICULA")&"            "
                Set Atualiza_Nota = Conect.Execute(Query_Atualiza_Nota)
                    Response.Write("Resultado modificado com sucesso!")        
    
    END IF
%>

No banco de dados o resultado se passou, não passou ou realizar está na tabela TB_RESULTADO_VESTIBULAR campo RESVEST_TX_APROVADO.

Desde já agradeço muito quem puder me ajudar !!!!

Valeu gente ! :wub:

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

bom a apagina~ção você encontra no repositorio de scripts ai em cima, para colocar opção.. de passou ou não... você pode colocar um link que quando clicado... envia uma querystrinng para um update dizendo aprovado sim ou não ou ainda se vai fazer a prova...

Link para o comentário
Compartilhar em outros sites

  • 0

:wacko: vou tentar, obrigado

bom a apagina~ção você encontra no repositorio de scripts ai em cima, para colocar opção.. de passou ou não... você pode colocar um link que quando clicado... envia uma querystrinng para um update dizendo aprovado sim ou não ou ainda se vai fazer a prova...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...