Cita:
eficsa:
¿Sobre como realizar la Limpieza?
|
En realidad de esta manera la hago yo:
Código Delphi
[-]
if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
MB_ICONQUESTION OR MB_YESNO) = ID_NO then begin
dmConecta.qEmpleados.Close;
frmPrincipal.CerrarPestana;
end
else begin
edtNombre1.Text := '';
edtNombre2.Text := '';
edtApellido1.Text := '';
edtapellido2.Text := '';
edtCedula.Text := '';
dtpFNacimiento.DateTime := Now;
IdGenero := 0;;
mDireccion.Text := '';
edtTelefono.Text := '';
edtCelular.Text := '';
dtpFAlta.DateTime := Now;
edtContacto.Text := '';
edtEmail.Text := '';
id := 0;
edtDependientes.Text := '';
Estado := '';
cbxECivil.Text := 'Estado Civil';
cbxGenero.Text := 'Género';
cbxActivado.Checked := False;
end;
end;
Creo que es la forma
"talvez no la correcta". pero es la que se me ocurre.
Con esto puedo dejar como solucionado mi problema, agradeciendo enormemente tu ayuda eficsa y también a los chicos como Casimiro_Notevi, roman y caral....
Saludos
novato_erick