Ver Mensaje Individual
  #3 (permalink)  
Antiguo 30/01/2004, 07:22
AntofagastaCL
 
Fecha de Ingreso: enero-2004
Ubicación: Antofagasta
Mensajes: 40
Antigüedad: 21 años, 3 meses
Puntos: 0
...Bien si no me entendieron aqui va un poco de codigo para que les duela un poco la cabeza:

<%

'Esta pagina se llama DatosPaciente.asp


'recupera un identificador de la URL
numero= trim(Request.QueryString("id") )

'Se crea el objeto controlador que sirve para ocupar los metodos de la DLL
Set controlador = Server.CreateObject("Hospital.ControladorLogico")

'Constructor que se encuentra en la DLL
'por constructor me refiero al metodo que instancia ciertas clases
'(forma de programación orientada a objetos)
controlador.constructorControladorLogico

'este if sirve para que se cargen los valores del VARIANT una sola vez para que no acceda a la bd cada vez que se hace el refresh a la pagina

if trim(request.querystring("flag"))="" then
'se obtienen valores de una VARIANT de la Base de datos a traves de una DLL, el cual se
'almacena de dPaciente
dPaciente = controlador.desplegarDatosPaciente(numero)
'Se obtiene una ciudad
ciudad = dPaciente(13)
end if


'pregunta si la region es vacia, si los es se llena la region y provincia con los datos que se encuentran en la base de datos
if trim(request.querystring("reg"))="" then
region = dPaciente(12)
provincia = dPaciente(14)
else
'en caso contrario, si no es vacia la region, quiere decir que se hizo un refresh del
'combobox name="region"
'ahora se pregunta si la provincia es la que esta vacia obtenida de la URL
if trim(request.querystring("provi"))="" then
'Se obtiene la Region de la URL
region=trim(request.querystring("reg"))
'if que consulta si la provincia hay que obtenerla de la BD
if trim(request.querystring("flag"))="" then
provincia = dPaciente(14)
end if
else
'si no hay provincia entonces se obtiene de la URL la region y la provincia
region=trim(request.querystring("reg"))
provincia =trim(request.querystring("provi"))
end if
end if

'si ya se cargaron los datos de la BD, ya no se vuelven a cargar
if trim(request.querystring("flag"))="" then
rutPaciente = dPaciente(5)
end if
%>


<html>
<body>


<div align="center"><img src="logos/Datos%20personales%20Paciente.png" width="482" height="57"></div>
<hr>
<!-- tabla grande -->
<TABLE align="center" cellspacing="0" cellpadding="2" border="1" bordercolor=#000080 bgcolor="#FEF4CF">
<TR>
<TD> <font color="#000000">
<!-- form -->
</font> <FORM name="datoPac" METHOD=POST ACTION="actualizar.asp?numero=<%=trim(numero)%>">
<FONT SIZE="" COLOR="" face="arial"><B>
<TABLE height="359" cellspacing="2">
<TR>
<TD ><font color="#000000"><strong><font size="2">RUT</font></strong></font></TD>
<TD><font color="#000000">

<!-- ... Uno de los tantos valores tipo txt que quiero que no se pierdan al realizar el refresh..... -->


<INPUT NAME="RUT" TYPE="text" id="RUT" value="<%=rutPaciente%>" size="10" maxlength="10">
</font></TD>
</TR>

<!-- ... Mas codigo HTML..... -->


<tr>
<td > <font color="#000000"><b><font size="2" face="arial">REGI&Oacute;N</font></b>
</font></td>
<td> <font color="#000000">

<!-- ... select que hace que se produzca el refresh de la pagina. Necesario para poder activar los metodos de los combobox que se llaman de la DLL..... -->

<select name="region" type="submit" onchange ="location.href='DatosPaciente.asp?reg=' + this.options[this.selectedIndex].value + '&flag=s&id=<%=numero%>'">

<!-- ... se actualiza el combo de la region, llamando un metodo de la DLL, y se envia un
codigo de la region que se hubiese seleccionado del combo, para que en el combo se visualize
la correspondiente region.... -->

<% controlador.desplegarRegiones trim(region)%>


</select>
</font></td>
</tr>
<tr>
<td> <font color="#000000"><b><font size="2" face="arial">PROVINCIA</font></b>
</font></td>
<td> <font color="#000000">

<!-- ... select que hace que se produzca el refresh de la pagina. Necesario para poder activar los metodos de los combobox que se llaman de la DLL ..... -->

<select name="provincia" onchange = "location.href='DatosPaciente.asp?reg=<%=trim(regi on)%>&provi=' + this.options[this.selectedIndex].value + '&flag=s&id=<%=numero%>'" >

<!-- ... se actualiza el combo de la provincia, llamando un metodo de la DLL, y se envia un codigo de la region y de la provincia que pertenece a dicha region la cual se selecciono del combo de region y provincia, para que en el combo se visualize
la correspondiente provincia.... -->

<% controlador.desplegarProvincia trim(region),trim(provincia)%>



</select>
</font></td>
</tr>
<tr>
<td ><font color="#000000"><strong><font size="2">CIUDAD</font></strong></font></td>
<td> <font color="#000000">
<select name="ciudad" >


<!-- ... se actualiza el combo de la ciudad, llamando un metodo de la DLL controlador.desplegarCiudad, y se envia un
codigo de la region, provincia y ciudad para que se desplieguen los datos correspondientes de la region y la provincia elegidas .... -->

<%
if trim(provincia)<>"" then
controlador.desplegarCiudad trim(region),trim(provincia),trim(ciudad)
else
%>
<option value=-1>Ciudad</option>
<%end if%>
</select>
</font></td>
</tr>

<!-- ... mas codigo HTML ..... -->

Última edición por AntofagastaCL; 30/01/2004 a las 07:55