|
Haciendo que el GRID funcione
Primero escriba el código de inicialización, empiece
seleccionando Initialization Code desde el Botón de Lista Object,
un encabezado de código de inicialización aparecerá en el área de edición
del Guibuilder, adicione el siguiente código:
rem obtener un template que describe la forma que se usa
dim datagrid_temp$:fngb__template$(gb__win_id$)
rem define constantes
gosub Define_constantes
rem abre el archivo de datos y obtiene el template
gosub Abrir_archivo
rem hacer que el grid trabaje con datos
gosub Atar_grid_al_canal
Ahora, para crear las tres diferentes subrutinas siga los siguientes pasos:
Seleccione New Subroutine/Function en el Botón
de Lista de Object y en el cuadro de diálogo digite Define Constantes
y Ok, esto colocará un encabezado en el área de edición del Guibuilder,
digite en una nueva línea las siguientes instrucciones. (Si quiere evitarse
esta digitación puede optar por copiarla con el mouse desde el tutorial en línea
que se ofrece para el Grid. Vaya a la documentación en línea que trae el Visual
PRO/5 y haga un ‘Find’ con Data-Aware Grid Tutorial. Las instrucciones
a ser copiadas están en la sección 5, y sepa que son iguales para todo Grid
atado a un archivo).
Define_constantes:
rem message box constants
msgboxYes=6
msgboxYesNo=4
msgboxExclamation=48
msgboxInfo=64
msgboxSecond=256
rem grid send message functions
gridSetHeadingTitles=23
gridEndEdit=26
gridStartEdit=31
gridGetEdit=34
gridSetEdit=35
gridGetNumberofCols=40
gridGetNumberofRows=41
gridGetSelectedCol=44
gridGetSelectedRow=45
gridGotoCol=47
gridGotoRow=48
gridShowcurrentHeading=77
gridSetDataAware=80
gridDataAwareFunctions=81
rem misc grid values
gridHeadingDepressedMode=1
gridHeadingNotDepressedMode=0
rem data aware functions
gridSetReadOnly$=$01$
gridDeleteRow$=$02$
gridAddRow$=$03$
gridRetrieveRow$=$04$
gridCancelUpdate$=$05$
return
La anterior subrutina crea una serie de variables que serán usadas
por las funciones de SENDMSG() del grid, que se definen para hacer el código
del programa más entendible.
|
