Cita:
eficsa:
Si decide continuar, saldrá del procedimiento btnAgregarClick, ingresará los nuevos datos, hará click en el botón agregar y así hasta que decida no agregar otro.
|
Habia propuesto Limpliar mis edit y variables. es lo que me imagino que puedo yo hacer hasta decidir decirle que no deseo Agregar mas.
Ejemplo:
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 := '';
end;
end;
Es lo que se me ocurre.. Alguna otra idea?
Saludos