problemas entrar nuevo formulario para hacer un alta
Publicado: Mié Ago 17, 2005 9:46 am
Tengo el siguiente formulario
/*
* Proyecto: raylledatos
* Fichero: participantes.prg
* Descripción:
* Autor:
* Fecha: 14/08/2005
*/
#include "Xailer.ch"
CLASS tparticipantes FROM TForm
COMPONENT oDbfDataSet1
COMPONENT oTimer1
COMPONENT oDBBrowse1
COMPONENT oCdxDataSource1
COMPONENT oDBNavigator1
METHOD CreateForm()
METHOD AddNew()
ENDCLASS
#include "participantes.xfm"
//---------------------------------------------------------- ----------------
----
METHOD AddNew() CLASS tparticipantes
LOCAL oFrm
WITH OBJECT oFrm := tdatoparti():CreateForm( Self )
:cText := "Alta de Participante"
::oDbfDataSet1:AddNew()
:ShowModal()
if :nModalResult == mrOK
::oDbfDataSet1:Update()
::oDBBrowse1:Refresh()
else
::oDbfDataSet1:Cancel()
endif
END WITH
RETURN NIL
en el que esta puesto la barra de botones OdbNavigator
en el boton "+", habro el siguiente formulario para poder poner los datos
nuevo de un alta
/*
* Proyecto: raylledatos
* Fichero: datosparti.prg
* Descripción:
* Autor:
* Fecha: 15/08/2005
*/
#include "Xailer.ch"
CLASS tdatoparti FROM TForm
COMPONENT oLabel1
COMPONENT oLabel2
COMPONENT oLabel3
COMPONENT oLabel4
COMPONENT oLabel5
COMPONENT oLabel6
COMPONENT oLabel7
COMPONENT oLabel8
COMPONENT oLabel9
COMPONENT oGroupBox1
COMPONENT oLabel10
COMPONENT oLabel11
COMPONENT oLabel12
COMPONENT oLabel13
COMPONENT oLabel14
COMPONENT oLabel15
COMPONENT oLabel16
COMPONENT oDBEnombre
COMPONENT oDBEdireccion
COMPONENT oDBEpoblacion
COMPONENT oDBEpostal
COMPONENT oDBEprovincia
COMPONENT oDBEtelefono
COMPONENT oDBEmovil
COMPONENT oDBEemail
COMPONENT oDBDateEdit1
COMPONENT oDBComboBox1
COMPONENT oDBEedad
COMPONENT oDBComboBox2
COMPONENT oDBEclub
COMPONENT oOK
COMPONENT oDBEnumero
COMPONENT oCancel
METHOD CreateForm()
METHOD FirstCreate( oSender )
ENDCLASS
#include "datosparti.xfm"
//---------------------------------------------------------- ----------------
----
METHOD FirstCreate( oSender ) CLASS tdatoparti
oSender:oDataSet := ::oParent:oDbfDataSet1
RETURN Nil
y al entrar en este formulario me da es siguiente error
***************************** Registro de errores
*****************************
Fecha: 08/17/05
Hora: 09:41:05
Memoria libre: 69796
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 0.99.4 Pre-release 4
Compilador: xHarbour build 0.99.50 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Class: 'NIL' has no exported method
Operación: VARGET
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
(b)XDBDATEEDIT (42)
TDBDATEEDIT:VARGET (0)
(b)TDBFDATASET:ADDNEW (482)
AEVAL (0)
TDBFDATASET:ADDNEW (482)
TPARTICIPANTES:ADDNEW (33)
(b)TPARTICIPANTES:CREATEFORM (81)
TDBNAVIGATOR:ONCLICKINSERT (0)
TDBNAVIGATOR:COMMAND (156)
TPARTICIPANTES:WMCOMMAND (233)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (15)
------------------ Información detallada de áreas de
trabajo ------------------
Area: 1
Alias: PARTICIP
Registro: 1
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Me puedes ayudar a saber cual es el error
Muchas gracias de antemano, esto es la primera vez que estoy tratando con
bases de datos en xailer
/*
* Proyecto: raylledatos
* Fichero: participantes.prg
* Descripción:
* Autor:
* Fecha: 14/08/2005
*/
#include "Xailer.ch"
CLASS tparticipantes FROM TForm
COMPONENT oDbfDataSet1
COMPONENT oTimer1
COMPONENT oDBBrowse1
COMPONENT oCdxDataSource1
COMPONENT oDBNavigator1
METHOD CreateForm()
METHOD AddNew()
ENDCLASS
#include "participantes.xfm"
//---------------------------------------------------------- ----------------
----
METHOD AddNew() CLASS tparticipantes
LOCAL oFrm
WITH OBJECT oFrm := tdatoparti():CreateForm( Self )
:cText := "Alta de Participante"
::oDbfDataSet1:AddNew()
:ShowModal()
if :nModalResult == mrOK
::oDbfDataSet1:Update()
::oDBBrowse1:Refresh()
else
::oDbfDataSet1:Cancel()
endif
END WITH
RETURN NIL
en el que esta puesto la barra de botones OdbNavigator
en el boton "+", habro el siguiente formulario para poder poner los datos
nuevo de un alta
/*
* Proyecto: raylledatos
* Fichero: datosparti.prg
* Descripción:
* Autor:
* Fecha: 15/08/2005
*/
#include "Xailer.ch"
CLASS tdatoparti FROM TForm
COMPONENT oLabel1
COMPONENT oLabel2
COMPONENT oLabel3
COMPONENT oLabel4
COMPONENT oLabel5
COMPONENT oLabel6
COMPONENT oLabel7
COMPONENT oLabel8
COMPONENT oLabel9
COMPONENT oGroupBox1
COMPONENT oLabel10
COMPONENT oLabel11
COMPONENT oLabel12
COMPONENT oLabel13
COMPONENT oLabel14
COMPONENT oLabel15
COMPONENT oLabel16
COMPONENT oDBEnombre
COMPONENT oDBEdireccion
COMPONENT oDBEpoblacion
COMPONENT oDBEpostal
COMPONENT oDBEprovincia
COMPONENT oDBEtelefono
COMPONENT oDBEmovil
COMPONENT oDBEemail
COMPONENT oDBDateEdit1
COMPONENT oDBComboBox1
COMPONENT oDBEedad
COMPONENT oDBComboBox2
COMPONENT oDBEclub
COMPONENT oOK
COMPONENT oDBEnumero
COMPONENT oCancel
METHOD CreateForm()
METHOD FirstCreate( oSender )
ENDCLASS
#include "datosparti.xfm"
//---------------------------------------------------------- ----------------
----
METHOD FirstCreate( oSender ) CLASS tdatoparti
oSender:oDataSet := ::oParent:oDbfDataSet1
RETURN Nil
y al entrar en este formulario me da es siguiente error
***************************** Registro de errores
*****************************
Fecha: 08/17/05
Hora: 09:41:05
Memoria libre: 69796
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 0.99.4 Pre-release 4
Compilador: xHarbour build 0.99.50 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Class: 'NIL' has no exported method
Operación: VARGET
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
(b)XDBDATEEDIT (42)
TDBDATEEDIT:VARGET (0)
(b)TDBFDATASET:ADDNEW (482)
AEVAL (0)
TDBFDATASET:ADDNEW (482)
TPARTICIPANTES:ADDNEW (33)
(b)TPARTICIPANTES:CREATEFORM (81)
TDBNAVIGATOR:ONCLICKINSERT (0)
TDBNAVIGATOR:COMMAND (156)
TPARTICIPANTES:WMCOMMAND (233)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (15)
------------------ Información detallada de áreas de
trabajo ------------------
Area: 1
Alias: PARTICIP
Registro: 1
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Me puedes ayudar a saber cual es el error
Muchas gracias de antemano, esto es la primera vez que estoy tratando con
bases de datos en xailer