Clipper/FiveWin - Agregar registro Nuevo

   
Vista:

Agregar registro Nuevo

Publicado por Balterra (38 intervenciones) el 18/02/2013 18:53:12
Hola a todos,

Me podeis ayudar, ando loco para poder agregar un registro a un simple fichero.

Estoy aplicando el metodo para guardar, eliminar y refrescar que se utiliza el el Tutor_21 que viene con hmg.3.1.1, pero no lleva la opcion de Nuevo

Os pongo el Fuente

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
#include "hmg.ch"
Function Main

DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 480 ;
TITLE 'Tutor 21: Data-Bound Controls Test' ;
MAIN ;
ON INIT OpenTables() ;
ON RELEASE CloseTables()

DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 100,30 FLAT RIGHTTEXT BORDER

BUTTON TOP ;
CAPTION '&Top' ;
PICTURE 'primero.bmp' ;
ACTION ( DbGoTop() , Refresh() )

BUTTON PREVIOUS ;
CAPTION '&Previous';
PICTURE 'anterior.bmp' ;
ACTION ( DbSkip(-1) , Refresh() )

BUTTON NEXT ;
CAPTION '&Next';
PICTURE 'siguiente.bmp' ;
ACTION ( DbSkip(1) , if ( eof() , DbGoBottom() , Nil ) , Refresh() )

BUTTON BOTTOM ;
CAPTION '&Bottom' ;
PICTURE 'ultimo.bmp' ;
ACTION ( DbGoBottom() , Refresh() )

BUTTON SAVE ;
CAPTION '&Save' ;
PICTURE 'guardar.bmp' ;
ACTION ( Save() , Refresh() )

BUTTON UNDO ;
CAPTION '&Undo' ;
PICTURE 'deshacer.bmp' ;
ACTION ( Refresh() )

END TOOLBAR

@ 50,10 LABEL LABEL_1 VALUE 'Code:'
@ 80,10 LABEL LABEL_2 VALUE 'First Name'
@ 110,10 LABEL LABEL_3 VALUE 'Last Name'
@ 140,10 LABEL LABEL_4 VALUE 'Birth Date:'
@ 170,10 LABEL LABEL_5 VALUE 'Married:'
@ 200,10 LABEL LABEL_6 VALUE 'Bio:'

@ 50,200 TEXTBOX TEXT_1;
FIELD TEST->CODE ;
NUMERIC ;
MAXLENGTH 10

@ 80,200 TEXTBOX TEXT_2;
WIDTH 150 ;
FIELD TEST->FIRST ;
MAXLENGTH 30

@ 110,200 TEXTBOX TEXT_3;
WIDTH 150 ;
FIELD TEST->LAST ;
MAXLENGTH 30

@ 140,200 DATEPICKER DATE_4 ;
FIELD Test->Birth

@ 170,200 CHECKBOX CHECK_5 ;
CAPTION '' ;
FIELD Test->Married

@ 200,200 EDITBOX EDIT_6 ;
FIELD Test->Bio ;
HEIGHT 100

END WINDOW

Win_1.Text_1.SetFocus

ACTIVATE WINDOW Win_1

Return Nil

Procedure Refresh

Win_1.Text_1.Refresh
Win_1.Text_2.Refresh
Win_1.Text_3.Refresh
Win_1.Date_4.Refresh
Win_1.Check_5.Refresh
Win_1.Edit_6.Refresh
Win_1.Text_1.SetFocus

Return

Procedure Save

Win_1.Text_1.Save
Win_1.Text_2.Save
Win_1.Text_3.Save
Win_1.Date_4.Save
Win_1.Check_5.Save
Win_1.Edit_6.Save

Return

Procedure OpenTables
USE TEST
Return

Procedure CloseTables
USE
Return

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Como hariais para añadir un Registro nuevo?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Agregar registro Nuevo

Publicado por marcelo (29 intervenciones) el 19/02/2013 18:27:28
igual que los anteriores poniendo:
dbappend()
Saludos
Marcelo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Agregar registro Nuevo

Publicado por Balterra (38 intervenciones) el 22/02/2013 17:49:12
Pues no se como, pues el problema es que le creo un boton de "Nuevo" y cuando le doy me saca en pantalla todos los datos del regitro en el que estoy. Y me estoy volviendo loco.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Agregar registro Nuevo

Publicado por juan carlos escobar (1 intervención) el 05/03/2013 18:38:23
Re recomiendo que analice el ejemplo

contractos en la carpeta samples

es muy didactico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar