|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Temas - angelito1121
Páginas: [1]
1
« en: Miércoles 17 de Noviembre de 2010, 07:48 »
Ante todo muy buenas a todos los foritas, quisiera plantearles un problema que tengo (si les parece muy tonto comprendan que recien estoy aprendiendo a usar este lenguaje de programacíon  ) El problema es el siguiente: Yo tengo una página que consta de una caja de texto, un botón y tres radio button, al escribir un dato en la caja de texto y seleccionar una de las categorías propuestas por el radio button se debe hacer click el botón para que genere una consulta con los datos especificados, pero mi problema es, ¿cómo debo hacer para obtener el valor del radio button y el textbox en la misma pagina? Porque he probado con el post, pero este me envía el dato de una página a otra y yo lo que quiero es obtener el dato en la misma página. Les dejo un ejemplo de mi código <?php require_once("funciones.php"); if (!@$cn=fnconnect()) { echo "Problema al conectar el servidor o base de datos"; return; } ?> <html> <head> </head> <body> <p> <table align= "center" border = 0> <tr><td><font face="Comic Sans Ms"><b>Dato a Buscar:</b></font></td><td><input type="text" name="txtdato"></td><td><input type="submit" name="Buscar" value="Buscar"></tr> </table> <table align="center" border = 0> <td><input type="radio" name="r1" id="r1" value="1">Nombre</td> <td><input type="radio" name="r1" id="r1" value="2">Autor</td> <td><input type="radio" name="r1" id="r1" value="3">Editorial</td> </table> </body> </html> <?php $limit=1; if (!isset($_GET["pagina"])) { $ini=0; $pag=1; } else { $pag=$_GET["pagina"]; $ini=($pag - 1) * $limit; } $sql="select * from libros"; //calculo el total de paginas $total_pag=ceil($total / $limit); $sql .=" limit $ini,$limit"; { echo $fila["nom_lib"]." | ".$fila["aut_lib"]."<br>"; } if ($total_pag > 1) { for ($i=1;$i<=$total_pag;$i++) { if($pag == $i) { echo($pag . " "); } else { echo(fnlink("default.php?op=1&pagina=".$i,"","",$i)); } } }
Como pueden ver, lo qu yo necesito es obtener el valor del radio button seleccionado mediante código PHP, ¿podrían por favor ayudarme en lo que les sea posible? Desde ya les doy las gracias a todos 
2
« en: Viernes 16 de Julio de 2010, 10:11 »
Bueno, ante todo muy buenas a los que lean este post. No me iré con rodeos, lo que sucede es que estoy haciendo un proyecto donde debo usar una libreria que me ayude a encriptar y desencriptar los datos, he estado trabajando con el codigo y funciona pero necesito explicar lo que hace cada linea de código y es esta la ayuda que pido, si por favor pudiesen ayudarme a interpretar el codigo, lo he hecho hasta donde he podido pero, creo que hay partes donde estoy mal y otras que nisiquiera entiendo. Espero puedan ayudarme, porque lo necesito bastante: Primero les pongo la libreria de clases: (tiene 3 clases) Clase Semillas: Public Class semillas Public Function semilla(ByVal strclave As String) As String Dim ingsemilla1 As Long Dim ingsemilla2 As Long Dim j As Long Dim i As Long ingsemilla1 = 0 ingsemilla2 = 0 'OBTENEMOS LA LONGITUD DE LA CADENA STRCLAVE j = Len(strclave) 'CREAMOS UN BUCLE QUE VAYA DESDE 1 HASTA LA LONGITUD DE STRCLAVE For i = 1 To Len(strclave) 'SE OBTENDRA EL CODIGO ASCII DE CADA LETRA DE STRCLAVE Y DICHO CODIGO SERÁ MULTIPLICADO 'POR EL VALOR QUE TENGA I EN CADA VUELTA, EL RESULTADO SE ASIGNARA A INGSEMILLA1 ingsemilla1 = ingsemilla1 + Asc(Mid$(strclave, i, 1)) * i 'SE OBTENDRA EL CODIGO ASCII DE CADA LETRA DE STRCLAVE Y DICHO CODIGO SERÁ MULTIPLICADO 'POR EL VALOR QUE TENGA J EN CADA VUELTA, EL RESULTADO SE ASIGNARA A INGSEMILLA2 ingsemilla2 = ingsemilla2 + Asc(Mid$(strclave, i, 1)) * j j = j + 1 Next 'FINALMENTE LA FUNCION SEMILLA DEVOLVERÁ LOS VALORES DE INGSEMILLA1 E INGSEMILLA2 semilla = LTrim$(Str$(ingsemilla1)) + "," + LTrim$(Str$(ingsemilla2)) End Function End Class
Clase encriptar Public Class Encriptar Public Function Codificar(ByVal strCadena As String, ByVal strSemilla As String) As String Dim lngIi1 As Long Dim lngIi2 As Long Dim i As Long lngIi1 = Val(Left$(strSemilla, InStr(strSemilla, ",") - 1)) lngIi2 = Val(Mid$(strSemilla, InStr(strSemilla, ",") + 1)) For i = 1 To Len(strCadena) lngIi1 = lngIi1 - i lngIi2 = lngIi2 + i If (i Mod 2) = 0 Then Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) - lngIi1) And &HFF) Else Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) + lngIi2) And &HFF) End If Next Codificar = strCadena End Function End Class
Clase desencriptar: Public Class desencriptar Public Function DeCodificar(ByVal strCadena As String, ByVal strSemilla As String) As String Dim lngIi1 As Long Dim lngIi2 As Long Dim i As Long lngIi1 = Val(Left$(strSemilla, InStr(strSemilla, ",") - 1)) lngIi2 = Val(Mid$(strSemilla, InStr(strSemilla, ",") + 1)) For i = 1 To Len(strCadena) lngIi1 = lngIi1 - i lngIi2 = lngIi2 + i If (i Mod 2) = 0 Then Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) + lngIi1) And &HFF) Else Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) - lngIi2) And &HFF) End If Next DeCodificar = strCadena End Function End Class
Y este seria el form donde uso la biblioteca Imports encriptacion Public Class Form1 Dim obj_encrip As New Encriptar Dim obj_desencrip As New desencriptar Dim obj_sem As New semillas Dim s As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = obj_encrip.Codificar(TextBox1.Text, S) TextBox1.Text = "" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox2.Text = obj_desencrip.DeCodificar(TextBox1.Text, s) TextBox1.Text = "" End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load s = obj_sem.semilla("auditoria") End Sub End Class
3
« en: Lunes 1 de Febrero de 2010, 00:06 »
Muy buenas a todos, bueno, básicamente mi título define mi consulta.
Estoy trabajando sobre PB 10.5 y SQl Server 2000 y tengo un formulario donde debo insertar datos de un avión y también una imagen del modelo del avión.
El problema es que no tengo ni idea de como insertar una imagen a la base de datos desde poewr builder, alguien podría ayudarme por favor?
4
« en: Miércoles 25 de Noviembre de 2009, 07:52 »
Muy buenas a los foristas, quisiera pedirles una ayuda en cuanto a un trabajo que me han dejado... estoy haciendo el login de un sistema, el logueo es por medio del nombre de un usuario y de un número asignado (todo esto ya se encuentra en la base de datos) el ingreso de los numeros no se hace por teclado, si no por 10 command button (del 0 al 9). Lo que tengo que hacer es que al hacer click en cada uno de los command button, los botones cambien aleatoriamente de valor. Este cambio de valor lo estoy haciendo con este código: cb_1.text = string(rand(9) - 1 ) cb_2.text = string(rand(9) - 1 ) cb_3.text = string(rand(9) - 1 ) cb_4.text = string(rand(9) - 1 ) cb_5.text = string(rand(9) - 1 ) cb_6.text = string(rand(9) - 1 ) cb_7.text = string(rand(9) - 1 ) cb_8.text = string(rand(9) - 1 ) cb_9.text = string(rand(9) - 1 ) cb_0.text = string(rand(9) - 1 )
El problema es que al hacer el cambio de valores aleatorio, algunos botones tienen a repetir el valor y lo que necesito es que al ser aleatorio al mismo tiempo cada boton tenga un valor único (en el rango de 0 a 9) ¿Alguien podría ayudarme por favor?
5
« en: Miércoles 28 de Octubre de 2009, 19:15 »
Disculpen, otra vez soy yo con otro problema, me han dejado que haga 2 datawindows con esta BD
//img264.imageshack.us/img264/360/dibujo2is.jpg
y me han pedido que haga un datawindows filtrado, en el primero tengo que ingresar el codigo del cliente en un single line edit y debe mostrarme todos los datos con el cod_cli ingresado
el segundo datawindows debe mostrarme los detalles del pedido segun el resultado del primer datawindows, lo he codificado y me queda así:
//declaración de variables
string filtro, filtro2,deta
//primer filtro
filtro = "clientes_cod_cli ='" + sle_cliente.text + "'"
dw_1.setfilter(filtro)
dw_1.filter()
dw_1.retrieve()
//select para segundo filtro
DECLARE detalle CURSOR FOR
SELECT detalle.cod_ped
FROM clientes,
detalle,
pedidos
WHERE ( pedidos.cod_ped = detalle.cod_ped ) and
( pedidos.cod_cli = clientes.cod_cli ) and
( ( clientes.cod_cli = :sle_cliente.text ) ) ;
open detalle;
fetch detalle into :deta;
do while not sqlca.sqlcode = 100
filtro2 = "detalle_cod_ped = '" + deta + "'"
fetch detalle into :deta;
loop
close detalle;
dw_2.setfilter(filtro2)
dw_2.filter()
dw_2.retrieve()
//img692.imageshack.us/img692/7919/dibujo3.png
como ven, solo me muestra el resultado del ultimo cod_ped pero no de los otros 2, podrían decirme como solucionarlo?, gracias de antemano
6
« en: Miércoles 28 de Octubre de 2009, 09:24 »
Muy buenas a todos los foritas, he creado este tema porque ya he buscado en google y no he encontrado respuesta, mi problema es el siguiente:
Tengo una base de datos "IMPORTACIONES" con una tabla llamada "PEDIDOS" entre los campos de esta tabla hay una que se llama f_venci, me han pedido que, usando un filtro, muestre en el datawindows todos los productos que hay desde una fecha "A" hasta una fecha "B" ingresándolos desde un single line edit. El problema es que lo he intentado de las dos unicas formas que encontré explicación.
Forma de caracter:
string filtro
filtro = "pedidos_f_pedido >= '" + sle_desde.text + "' and <= '" + sle_hasta.text + "'"
dw_1.setfilter(filtro)
dw_1.filter()
dw_1.retrieve()
Error: Types of expressions must match
Forma de entero:
string filtro
filtro = "pedidos_f_pedido >= " + sle_desde.text + " and <= " + sle_hasta.text
dw_1.setfilter(filtro)
dw_1.filter()
dw_1.retrieve()
Error: Types of expressions must match
Son las dos unica formas que encontré y no hay nada sobre usar datetime en un filtro, si alguien pudiese ayudarme por favor se lo agradecería mucho
Páginas: [1]
|
|
|
Mostrar Mensajes
