Guardar datos y continuar captura en el mismo form

[faparicio60]

Por favor si pudieran ayudarme, tengo un problema, estoy desarrollando un sistema en el cual deseo que los el usuario capture los datos de un articulo determinado y al grabar los datos que no se salga del form, si no que pueda elegir otro articulo para su captura. Gracias

este es mi codigo

Código Delphi [-]
procedure TForm7.BitBtn1Click(Sender: TObject);
var
   Exant,Entra,Salida,Dev,Existe,temp1,temp2,temp3:Real;
   dd,mm,aaaa:Word;
   ffecha,fpedido,fproveedor : string;
   buttonSelected : Integer;
begin
   DecodeDate(DateTimePicker1.Date,aaaa,mm,dd);

   Query1.Active;
   Query1.Insert;
   Query1.FieldByName('Fec_ent').AsDateTime := DateTimePicker1.Date;
   Query1.FieldByName('Pedido').AsString := Edit4.Text;
   Query1.FieldByName('Proveedor').AsString := Edit5.Text;
   Query1.FieldByName('Cveart').AsString := Edit6.Text;
   Query1.FieldByName('Descripc').AsString := ComboBox1.Text;
   Query1.FieldByName('Marca').AsString := Edit8.Text;
   Query1.FieldByName('Presen').AsString := Edit9.Text;
   Query1.FieldByName('Precuni').AsString := Edit2.Text;
   Query1.FieldByName('Cantreq').AsString := Edit1.Text;
   Query1.FieldByName('Importe').AsString := Edit3.Text;
   Query1.Post;

   Query3.Active;
   Query3.Locate('Clave',Edit6.Text,[]);
   Query3.Edit;
   Exant := Query3['Existencia'];
   Entra := StrToFloat(Query3['Entradas']) + StrToFloat(Edit1.Text);
   Existe:= StrToFloat(Query3['Existencia']) + StrToFloat(Edit1.Text);

   Query3.FieldByName('Exanterior').AsString := FloatToStr(Exant);
   Query3.FieldByName('Entradas').AsString := FloatToStr(Entra);
   Query3.FieldByName('Existencia').AsString := FloatToStr(Existe);
   Query3.Post;

   Query2.Active := True;
   Query2.Insert;
   Query2.FieldByName('Fecha').AsDateTime := DateTimePicker1.Date;
   Query2.FieldByName('Clave').AsString := Edit6.Text;
   Query2.FieldByName('Producto').AsString := ComboBox1.Text;
   Query2.FieldByName('Unidad').AsString := Edit9.Text;
   Query2.FieldByName('Precio').AsString := Edit2.Text;
   Query2.FieldByName('Tipo_mov').AsString := 'EA';
   Query2.FieldByName('Entrada').AsString  := Edit1.Text;
   Query2.FieldByName('Salida').Value  := 0;
   Query2.FieldByName('Existencia').AsString  := FloatToStr(Existe);
   Query2.FieldByName('Importe').AsString  := Edit3.Text;
   Query2.FieldByName('Concepto').AsString := 'ENTRADA DE ALMACEN';
   Query2.Post;

   Query2.Close;
   Query1.Refresh;

   buttonSelected := MessageDlg('Desea Continuar con la Misma Factura',mtCustom,[mbOK,mbCancel], 0);
   if buttonSelected = mrOK    then
      begin
         temp1:=0;
         Edit6.Text := ' ';
         Edit8.Text := ' ';
         Edit9.Text := ' ';
         Edit1.Text:=FormatFloat('##0.000',temp1);
         Edit2.Text := ' ';
         Form7.ComboBox1.SetFocus;
      end;
   if buttonSelected = mrCancel then
      begin
         ShowMessage('Factura Terminada');
         Query3.Close;
         Query2.Close;
         Query1.Close;
         Form7.Close;
      end;

end;

[Casimiro Notevi]

Si no quieres cerrar el formulario, borra la línea:

Código Delphi [-]
Form7.Close;

Por cierto, bienvenido a clubdelphi, echa un vistazo a nuestra guía de estilo y recuerda poner los tags al código fuente, gracias.