Como usar Combo en Visual Foxpro

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.