Problemas com IF THEN ELSE

Question

Estou com este velho problema...analizem...tenho uma parte do programa que vai analizar se existe informa��es gravadas no BD se existir, aparece uma pergunta onde nesta pergunta posso optar por sim ou...

Massuda · Answer

[quote:c88201d5b0=�Gigatel�]Estou com este velho problema......veja a fun��o completa ...[code:1:c88201d5b0]procedure T_FormContas.Button2Click(Sender: TObject);begin  if Query1.RecordCount <> 0 then...[/code:1:c88201d5b0][/quote:c88201d5b0]N�o entendo muito de BD, mas pelo que me lembro, n�o � uma boa id�ia usar RecordCount em uma query; em muitos casos, retorna zero mesmo a query tendo retornado dados. Use a fun��o SQL COUNT no lugar do RecordCount....

Rjun · Answer

Acho que seu c�digo n�o esta correto. Pelo que voc� descreveu, o correto seria :

procedure T_FormContas.Button2Click(Sender: TObject); 
begin 
  if Query1.RecordCount <> 0 then 
  begin 
    if Application.MessageBox(�J� foram geradas parcelas para este documento, deseja imprimi-las?� , �Imprimir.�, MB_ICONQUESTION + MB_YESNO) = IDYES then 
      ZReport1.Preview; 
  end
  else
  begin
    if eddata.Text =�  /  /    � then 
      Showmessage (�� requerido que o campo data esteja        preenchido�) 
    else if Label13.Caption = �N�o� then 
       showmessage(�Aten��o !!! Cr�dito bloqueado.�) 
    else 
    begin 
      Table2.Refresh; 
      Query1.Open; 
      if edvalor.text = �� then 
        GeraErroValorTotal(Sender) 
      else 
        Geraparcelas(Sender); 
    end; 
  end; 
end;

Valeu deu certinho agora...

Agora como ficaria na fun��o o caso do RecordCount ?

blz... valeu...

Gandalf.nho · Answer

Se vc s� quer ver se h� registros na query, use IsEmpty no lugar de RecordCount....

Gigatel · Answer

[quote:0412e702d6=�Rjun�]Acho que seu c�digo n�o esta correto. Pelo que voc� descreveu, o correto seria :[code:1:0412e702d6]procedure T_FormContas.Button2Click(Sender: TObject); begin   if Query1.RecordCount <> 0 then   begin     if Application.MessageBox(�J� foram geradas parcelas para este documento, deseja imprimi-las?� , �Imprimir.�, MB_ICONQUESTION + MB_YESNO) = IDYES then       ZReport1.Preview;   end  else  begin    if eddata.Text =�  /  /    � then       Showmessage (�� requerido que o campo data esteja        preenchido�)     else if Label13.Caption = �N�o� then        showmessage(�Aten��o !!! Cr�dito bloqueado.�)     else     begin       Table2.Refresh;       Query1.Open;       if edvalor.text = �� then         GeraErroValorTotal(Sender)       else         Geraparcelas(Sender);     end;   end; end; [/code:1:0412e702d6][/quote:0412e702d6]Valeu deu certinho agora...Agora como ficaria na fun��o o caso do RecordCount  ?blz... valeu......

Delphi32 · Answer

Ficaria assim:[code:1:ecb23b8973]procedure T_FormContas.Button2Click(Sender: TObject); begin   if not Query1.IsEmpty then   begin     if Application.MessageBox(�J� foram geradas parcelas para este documento, deseja imprimi-las?� , �Imprimir.�, MB_ICONQUESTION + MB_YESNO) = IDYES then       ZReport1.Preview;   end   else   begin     if eddata.Text =�  /  /    � then       Showmessage (�� requerido que o campo data esteja        preenchido�)     else if Label13.Caption = �N�o� then        showmessage(�Aten��o !!! Cr�dito bloqueado.�)     else     begin       Table2.Refresh;       Query1.Open;       if edvalor.text = �� then         GeraErroValorTotal(Sender)       else         Geraparcelas(Sender);     end;   end; end;[/code:1:ecb23b8973]At�!...

Gigatel · Answer

[quote:e07bf28703]begin   if not Query1.IsEmpty then   begin Deixa eu explicar...tenho 2 tabelas uma ligada a outra ..quando dou o insert na tabela a segunda tabela fica vazia, a� tenho um bot�o que gera iforma��es para esta 2� table � imprime, quando clico no bot�o novamente caso tenha alguma informa��o na tabela ela s� pergunta se quer imprimir...com esta fun��o parece que verifica a tabela toda, ou seja com a tabela em modo de insert a fun��o j� pergunta se quer imprimir em vez de gerar as informa��es...mais valeu mesmo, se tiver uma outra id�ia, estou abertoa qualquer sujest�o que melhore meu sistema ....muito obrigado mesmo...t+[/quote:e07bf28703]...

F�rum Problemas com IF THEN ELSE #281722