MessageDlg Con varios DBEdits

[[enecumene]]

Hola amigos aqui estoy de nuevo, tengo una de como hacer esto aqui dejo codigo:

Código Delphi [-]
procedure TFPedido.BitBtn1Click(Sender: TObject);
begin
If DBEdit7.Text = '' then MessageDlg('Debe especificar el número de Pedido',mtError,[mbOK],0)
   begin
      TbPedido.Insert;
      MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
   end;
end;

como agrego mas DBEdits a parte del DBEdit7.Text = ''? seria de esta manera?:

Código Delphi [-]
procedure TFPedido.BitBtn1Click(Sender: TObject);
begin
If DBEdit7.Text = '', DBEdit8.Text = '', etc, etc then MessageDlg('Debe especificar el número de Pedido',mtError,[mbOK],0)
   begin
      TbPedido.Insert;
      MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
   end;
end;

eso me pasa por estar un poco alejado de la programacion delphi..

Saludos..

[[Caral]]

Hola

Código Delphi [-]
procedure TFPedido.BitBtn1Click(Sender: TObject);
begin
If (DBEdit7.Text) and (DBEdit8.Text) and (DBEdit9.Text) = ' ' then MessageDlg('Debe especificar el número de Pedido',mtError,[mbOK],0)
   begin
      TbPedido.Insert;
      MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
   end;
end;

Saludos

[[enecumene]]

Hola, Caral gracias por tu pronta respuesta, pero me sucede lo siguiente me sale este error 'Operator is not applicable to this operand type' este es el codigo modificado segun tu ejemplo:

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)= '' then MessageDlg('Hay Casillas sin Llenar Por Favor Llenarlo',mtError,[mbOK],0)
   begin
      TbPedido.Insert;
      MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
   end;
end;

Saludos..

[[Caral]]

Hola
Revisa el codigo, al ultimo combobox le falta el text.
Me cuentas
Saludos

[[egostar]]

Yo creo que debería ser así,

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)
   begin
      TbPedido.Insert;
      MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
   end;
end;

No puedes hacer la comparación como la quieres hacer

Salud OS

[[egostar]]

Pero pensandolo bien mas bien debería ser así

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

Con una sola de las condiciones que se cumpla te debe dar el error.....

Salud OS

[[enecumene]]

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..

[[egostar]]

Checa con el segundo post que te envié, le cambie los AND por OR y nos comentas

Salud OS