Foros Club Delphi - Ver Mensaje Individual

[enecumene] · #7 16-08-2007

excelente egostar muchas gracias me funciona de pelos y sucede que tambien faltaba un else asi:

Código Delphi [-]procedure TFPedido.BitBtn1Click(Sender: TObject);
begin
If (DBEdit7.Text = '') AND
   (DBComboBox2.Text = '') and
   (DBEdit13.Text = '')  and 
   (DBLookUpComboBox5.Text = '') and
   (DBLookUpComboBox6.Text = '') and 
   (DBLookUpComboBox7.Text = '') and 
   (DBLookUpComboBox8.Text = '') and 
   (DBEdit14.Text = '') and 
   (DBEdit15.Text = '') and 
   (DBLookUpComboBox1.Text = '') then 
    MessageDlg('Hay Casillas sin Llenar Por Favor Llenarlo',mtError,[mbOK],0)
   else <--- Aqui ---> 
   begin
      TbPedido.Insert;
      MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
   end;
end;

porque sin ella aunque apareciera el mensaje como quiera se grababa los datos en blanco.

Saludos..