Limpiar DBEdit

[[Caral]]

Hola
Hay que tener en cuenta que el DBEdit es simplemente un capturador de la informacion que contiene la tabla, como dice arriba Roman.
Podras limpiarlo las veces que quieras, pero siempre saldra el dato de lo contrario para que sirve?.
Cuando suceden cosas asi es mejor usar un simple edit, que se mantendra vacio mientras uno quiera y trabajara como un DBEdit, tambien cuando uno quiera.
Esa es mi humilde opinion, por lo menos es mas facil que lidiar con limpieza de componentes.
Saludos

[Ade]

ok gracias, use los dbedit para luego simplemente hacer un Ztable1.insert, pus con los edit deberia d ehacerlo manualmente para cada campo, estoy equivocada?

[[Caral]]

Hola Ade
Es algo asi:
En el from create Pones:

Código Delphi [-]
 Edit1.Clear;

Con esto el edit estara limpio al entrar
y
En el sitio donde grabas los datos

Código Delphi [-]
Ztable1.Open;
Edit1.Text:= DBEdit1.Text;
Ztable1.insert
Edit1.Text;
Ztable1.Post;

Saludos

[Ade]

hola caral, lo siento pero no te entendi , edit, dbedit o los dos??

soy novata con delphi y esta es mi 1º aplicacion.
de todas formas mencionarte q tengo un from en el cual tengo pestañas (ttabbednotebook), una para insertar,otra eliminar/modificar, otra listar y otra para salir.
en la de insertar tengo un groupbox (InsertarGroupBox) y en el los label (12)y dbedit(12) , un label (NumInsertado) para ir mostrando si se insertó o faltan datos y un boton insertar, y al pulsar este boton ya valido los campos y si son correctos inserto y se quedan los dbedit en blanco.
todo eso ok

pero veo la pantalla algo sosa y pense q si el usuario introducia datos y no deseaba insertar q??
pues un boton , ya fuera cancelar o limpiar, cuya funcionalidad fuera esa la de limpiar los dbedit.
pero no tengo ningun edit,pensaba q con ellos deberia de hacer:

Código Delphi [-]
ZTable.FieldByName('Codigo').AsString:=edit.text;

y asi para cada campo
gracias por tu ayuda

[[Caral]]

Hola Ade
En donde vas a insertar el registro pones:

Código Delphi [-]
if MessageBox(Handle, 
                PChar('Esta Seguro de que desea' + #13#10 + 
                      'Insertar El Nuevo Registro'), 
                PChar('Registros'),
                MB_OKCANCEL + MB_DEFBUTTON1 + MB_SYSTEMMODAL) = IDOK 
then
// Esto si no quiere insertar, osea Cancelar, limpia los DBEdit y da el foco al DBedit que necesites, yo puse DBEdit1 por poner algo, tu eliges
     DBEdit1.Clear;
     DBEdit1.SetFocus;
 begin
// Aqui pones la sentencia que usas para insertar en la tabla, Ejemplo
ZTable.Insert;
DBEdit1.Text;
DBEdit2.Text;
DBEdit3.Text; // Etc, Etc, Etc
ZTable.Post;

Espero te sirva
Saludos

[Ade]

gracias nuevamente Caral, no pense en mostrar la pantallita de confirmacion para insertar datos, pero para eliminar ya la tenia, pues pensé que si introduzco muchos registros seria un poco follonero, sobre tu codigo un pequeño error que debio colarse, lo modifique y lo pongo por si alguien lo necesita, y mencionarte que el DBEdit1.Clear me funciona, increible, cuando yo lo probe por mi cuenta no iba, haber si veo que puse mal,
ah por cierto:
#13 retorno de carro
pero #10 para que sirve?? tabulacion tal vez???

Código Delphi [-]
procedure TProveedores.Button1Click(Sender: TObject);
begin
if MessageBox(Handle,
                PChar('Esta Seguro de que desea' + #13#10 +
                      'Insertar El Nuevo Registro'),
                PChar('Registros'),
                MB_OKCANCEL + MB_DEFBUTTON1 + MB_SYSTEMMODAL) = IDCANCEL
then begin
// Esto si no quiere insertar, osea Cancelar, limpia los DBEdit
// y da el foco al DBedit que necesites, yo puse DBEdit1 por
//poner algo, tu eliges
     DBEdit1.Clear;
     DBEdit1.SetFocus;
     end
else
 begin
// Aqui pones la sentencia que usas para insertar en la tabla, Ejemplo
ZTable1.Insert;
ZTable1.Post;
end;
end;

muchas gracias

[Ade]

jeje no hice la prueba, ya hallé lo que me pasaba y me sigue pasando con clear, limpia los dbedit, pero cuando me situo sobre ellos para introducir de nuevo datos, me aparecen los datos introducidos justo antes de limpiar.

[[Caral]]

Hola
Asi se soluciona el dedazo, poniendo delante del then:

Código Delphi [-]
if MessageBox(Handle, 
                PChar('Esta Seguro de que desea' + #13#10 + 
                      'Insertar El Nuevo Registro'), 
                PChar('Registros'),
                MB_OKCANCEL + MB_DEFBUTTON1 + MB_SYSTEMMODAL) = IDOK 
// Esto si no quiere insertar, osea Cancelar, limpia los DBEdit y da el foco al DBedit que necesites, yo puse DBEdit1 por poner algo, tu eliges
     DBEdit1.Clear;
     DBEdit1.SetFocus;
then
 begin
// Aqui pones la sentencia que usas para insertar en la tabla, Ejemplo
ZTable.Insert;
DBEdit1.Text;
DBEdit2.Text;
DBEdit3.Text; // Etc, Etc, Etc
ZTable.Post;

Tabular es el 9, el 10 no tengo idea, pero funciona y se ve bien.
Como esta Murcia
Saludos

[roman]

El #10 es avance de línea.

// Saludos