
objetos
Publicado por marcelo (139 intervenciones) el 09/08/2011 15:02:51
tengo este codigo ,el cual me genera un objeto form
con una grilla :
CLOSE DATA ALL
SET DEFA TO d:\PRUEBA
SET CLASSLIB TO CLASSGRILLA ADDITIVE
PUBLIC oForm
oForm = NEWOBJECT("MiForm")
oForm.SHOW
READ EVENTS
RELEASE oform
DEFINE CLASS MiForm AS FORM
TOP = 0
LEFT = 0
DOCREATE = .T.
CAPTION = "Ejemplo de formulario vacio "
WINDOWSTATE = 0
NAME = "Form1"
WIDTH = 640
HEIGHT = 300
procedure load
set defa to e:\prueba
set dele on
use ALUMNOS in 0
sele ALUMNOS
this.refresh
endproc
PROCEDURE unload
CLOSE TABLES all
RELEASE ALL
ENDPROC
ADD OBJECT GRID1 AS classgrilla with;
columncount=3,;
recordsourcetype=0,;
recordsource="ALUMNOS.dbf"
ENDDEFINE
al ejecutar el coddigo ,me muestra bien el form ,el grid y los datos .
el tema es que ,cuando cierro el form ,luego no puedo salir de vfox
(lo estoy probando por l de comandos ) ,me sale un mensaje que dice "no se puede salir de v fox "
me esta faltando algun release o close data ??
desde ya gracias
con una grilla :
CLOSE DATA ALL
SET DEFA TO d:\PRUEBA
SET CLASSLIB TO CLASSGRILLA ADDITIVE
PUBLIC oForm
oForm = NEWOBJECT("MiForm")
oForm.SHOW
READ EVENTS
RELEASE oform
DEFINE CLASS MiForm AS FORM
TOP = 0
LEFT = 0
DOCREATE = .T.
CAPTION = "Ejemplo de formulario vacio "
WINDOWSTATE = 0
NAME = "Form1"
WIDTH = 640
HEIGHT = 300
procedure load
set defa to e:\prueba
set dele on
use ALUMNOS in 0
sele ALUMNOS
this.refresh
endproc
PROCEDURE unload
CLOSE TABLES all
RELEASE ALL
ENDPROC
ADD OBJECT GRID1 AS classgrilla with;
columncount=3,;
recordsourcetype=0,;
recordsource="ALUMNOS.dbf"
ENDDEFINE
al ejecutar el coddigo ,me muestra bien el form ,el grid y los datos .
el tema es que ,cuando cierro el form ,luego no puedo salir de vfox
(lo estoy probando por l de comandos ) ,me sale un mensaje que dice "no se puede salir de v fox "
me esta faltando algun release o close data ??
desde ya gracias
Valora esta pregunta


0