Combobox
Esta programa te ayudara a manejar los Combobox de una manera distinta y con clase en Visual Foxpro.
Podrás ver como filtrar informacón en combo y de como cargar la información en tiempo de ejecución.
Este pequeño programa carga los datos de varios países de la región en el primer combox y una vez seleccionado el país
el cual deseas consultar se desplegará en el combo2 los estados el cual pertenecen al país seleccionado.
Este procedimiento te mostrará como puedes utilizar esta instrucción para futuras consultas en tu programa.
Pasos a seguir
Paso 1:
En el evento Init del formulario coloca lo siguiente:
PUBLIC xcod
thisform.BackColor = RGB(61,96,148)
thisform.opc1.Combo1.RowSourceType = 6
thisform.opc1.combo1.RowSource ="pais.nombre,codigo"
Paso 2:
En el evento Load de tu formulario agrega el siguiente procedimiento
SET SAFETY off
CREATE TABLE pais (codigo c(3), nombre C(25))
INSERT INTO pais(codigo,nombre) VALUES ("001","Venezuela")
INSERT INTO pais(codigo,nombre) VALUES ("002","Mexico")
INSERT INTO pais(codigo,nombre) VALUES ("003","Colombia")
INSERT INTO pais(codigo,nombre) VALUES ("004","Peru")
INSERT INTO pais(codigo,nombre) VALUES ("005","Ecuador")
CREATE TABLE estados (codigo c(3), nombre_edo C(25))
INSERT INTO estados(codigo,nombre_edo) VALUES ("001","Apure")
INSERT INTO estados(codigo,nombre_edo) VALUES ("001","Amazonas")
INSERT INTO estados(codigo,nombre_edo) VALUES ("001","Anzoategui")
INSERT INTO estados(codigo,nombre_edo) VALUES ("001","Aragua")
INSERT INTO estados(codigo,nombre_edo) VALUES ("001","Barinas")
INSERT INTO estados(codigo,nombre_edo) VALUES ("001","Carabobo")
INSERT INTO estados(codigo,nombre_edo) VALUES ("001","Lara")
INSERT INTO estados(codigo,nombre_edo) VALUES ("002","DF")
INSERT INTO estados(codigo,nombre_edo) VALUES ("002","Aguas Calientes")
INSERT INTO estados(codigo,nombre_edo) VALUES ("002","Baja California")
INSERT INTO estados(codigo,nombre_edo) VALUES ("002","Campeche")
INSERT INTO estados(codigo,nombre_edo) VALUES ("002","Chiapas")
INSERT INTO estados(codigo,nombre_edo) VALUES ("002","Chihuahua")
INSERT INTO estados(codigo,nombre_edo) VALUES ("003","Antioquia")
INSERT INTO estados(codigo,nombre_edo) VALUES ("003","Bolivar")
INSERT INTO estados(codigo,nombre_edo) VALUES ("003","Boyacá")
INSERT INTO estados(codigo,nombre_edo) VALUES ("003","Cauca")
INSERT INTO estados(codigo,nombre_edo) VALUES ("003","Medellin")
INSERT INTO estados(codigo,nombre_edo) VALUES ("004","Apurímac")
INSERT INTO estados(codigo,nombre_edo) VALUES ("004","Cuzco")
INSERT INTO estados(codigo,nombre_edo) VALUES ("004","Tacna")
INSERT INTO estados(codigo,nombre_edo) VALUES ("004","Ayacucho")
INSERT INTO estados(codigo,nombre_edo) VALUES ("004","Piura")
INSERT INTO estados(codigo,nombre_edo) VALUES ("004","Lima")
INSERT INTO estados(codigo,nombre_edo) VALUES ("005","Quito")
INSERT INTO estados(codigo,nombre_edo) VALUES ("005","Azuay")
INSERT INTO estados(codigo,nombre_edo) VALUES ("005","Bolívar")
INSERT INTO estados(codigo,nombre_edo) VALUES ("005","Cañar")
INSERT INTO estados(codigo,nombre_edo) VALUES ("005","Chimborazo")
Paso 3:
En el Combo1 y en el evento InteractiveChange deberas colocar :
xcod=pais.codigo
Esta opción permite cargar el código del país en la variable xcod cada vez que te desplazas por el combo
Paso 4:
Inserta la clase opc1 en tu formulario.
Una vez que ejecutes el programa en el primer Combo se desplegarán los países, allí seleccionarás el de tu preferencia y el combo2 te mostrará los estado correspondiente a es país tal como lo muestra la figura de abajo.
Descarga el programa de manera gratuita en la parte inferior del Blog.
