Save and continue without closing the form

Ciao Fabio, Привіт Sparrow
Come stai?
There are a number of options for you.
1.  You could use two buttons (one to save and close the form, one to save and remain on the form).  But I wonder if this might be a bit confusing to the user.
2.  You can save and remain on the form and write a script specifying each field to be cleared but this can be a bit laborious if you have lots of fields.
3.  You can save and remain on the form and write a script that loops through all of the components on the form and clears them (technically, this is probably the 'correct' way to do it).
4.  Or you can cheat - LOL!  You can save and close the form (which will re-set all of the components but then immediately return to the form) - the user will not notice what has happened;  the script for this is probably the easiest of all the options.
And I imagine there are probably a couple of other ways too.
Regards,
Derek.

Hi Fabio,
You've got the 'save and add another record' attached to the 'onclick' event.
Try moving it to the 'onafterclick' event and it should be okay.

procedure frmInserimento_bSalvacontinua_OnAfterClick (Sender: TObject);
var
  i : integer;
begin
  for i:= 0 to frmInserimento.ComponentCount -1 do
     if frmInserimento.Components[i] is TdbEdit then TdbEdit(frmInserimento.Components[i]).Clear;
  for i:= 0 to frmInserimento.ComponentCount -1 do
     if frmInserimento.Components[i] is TdbComboBox then TdbComboBox(frmInserimento.Components[i]).Clear;
  for i:= 0 to frmInserimento.ComponentCount -1 do
     if frmInserimento.Components[i] is TdbStringGridEx Then TdbStringGridEx(frmInserimento.Components[i]).ClearRows;
end;

Although I wrote that I think Option 3 is probably the technically 'correct' way to do it, I think I would probably go with Option 4 simply because the script is simpler.

Still, so long as one of the options does what you need, that's the main thing.

One small thing I noticed in your attachment - on the form 'frmavvio' you can click on the label 'INFORMAZIONI';  I do this quite a lot too but I like to change the cursor from an 'arrow' to a 'hand point' when the user moves the mouse across the label.  Maybe it's something you hadn't come across?

Derek.

Hi Again,
My apologies - I didn't read your original post fully and didn't see the problem with the comboboxes.
This is because in your script, you are clearing out the comboboxes as well as the edit fields.
I think what you need to do is reset the comboboxes to -1 - try it like this

procedure frmInserimento_bSalvacontinua_OnAfterClick (Sender: TObject);
var
  i : integer;
begin
  for i:= 0 to frmInserimento.ComponentCount -1 do
     if frmInserimento.Components[i] is TdbEdit then TdbEdit(frmInserimento.Components[i]).Clear;
  for i:= 0 to frmInserimento.ComponentCount -1 do
     if frmInserimento.Components[i] is TdbComboBox then TdbComboBox(frmInserimento.Components[i]).dbitemid := -1;
end;

I'd also remove the lines about 'tdbstringgridex as it just confuses things (well, it confuses me!!) as you don't have any tablegrids in form 'frminserimento'
Derek.