Pessoal, fiz conforme dica de um amigo, mas est� dando erro, algu�m tem outra solu��o?[code]procedure TFrmCadTurDisc.VerificaChecks(var Msg: TMsg; var Handled: Boolean);begin if msg.message = 514...

F�rum Como enviar mensagem para o usu�rio nesse caso? #470312

17/02/2014

Pessoal, fiz conforme dica de um amigo, mas est� dando erro, algu�m tem outra solu��o?

procedure TFrmCadTurDisc.VerificaChecks(var Msg: TMsg; var Handled: Boolean);
begin
 if msg.message = 514 then
  if (((DmDados.IBQryAlunoTurmaTRANSFERIDO.AsString   = 'True') or
     (DmDados.IBQryAlunoTurmaDESISTENTE.AsString      = 'True' ) or
     (DmDados.IBQryAlunoTurmaFALECIDO.AsString        = 'True' ) or
     (DmDados.IBQryAlunoTurmaABANDONO.AsString        = 'True' )) and

     ((DmDados.IBQryAlunoTurmaSAIU_1SEMESTRE.AsString = 'False') and
     (DmDados.IBQryAlunoTurmaSAIU_1SEMESTRE.IsNull            ) and
     (DmDados.IBQryAlunoTurmaSAIU_2SEMESTRE.AsString = 'False') and
     (DmDados.IBQryAlunoTurmaSAIU_2SEMESTRE.IsNull           ))) then
 if (msg.HWND <> CB_1Semestre.Handle) and (msg.HWND <> CB_2Semestre.Handle) then
  begin
    PcAluno2.ActivePageIndex := 2;
    MessageBox(0, '� necess�rio que o 1� Semestre ou 2� Semestre sejam habilitados, ou n�o foi clicado no bot�o salvar!' , 'Aten��o', mb_Ok);
    Msg.message := 0;
  end;
end;

Osmar

Curtir t�pico

+ 0

Responder

Posts

17/02/2014

Osmar

Pessoal, fiz conforme dica de um amigo, mas est� dando erro, algu�m tem outra solu��o? s�o 6 DBCheckbox:

1 TRANSFERIDO
2 DESISTENTE
3 FALECIDO
4 ABANDONO

Se o usu�rio selecionar qualquer um DBCheckbox acima, obrigatoriamente ele tem que selecionar o 5 ou 6 DBCheckbox

5 SAIU_1SEMESTRE
6 SAIU_2SEMESTRE

Veja como est� o c�digo:

procedure TFrmCadTurDisc.VerificaChecks(var Msg: TMsg; var Handled: Boolean);
begin
 if msg.message = 514 then
  if (((DmDados.IBQryAlunoTurmaTRANSFERIDO.AsString   = ''True'') or
     (DmDados.IBQryAlunoTurmaDESISTENTE.AsString      = ''True'' ) or
     (DmDados.IBQryAlunoTurmaFALECIDO.AsString        = ''True'' ) or
     (DmDados.IBQryAlunoTurmaABANDONO.AsString        = ''True'' )) and

     ((DmDados.IBQryAlunoTurmaSAIU_1SEMESTRE.AsString = ''False'') and
     (DmDados.IBQryAlunoTurmaSAIU_1SEMESTRE.IsNull            ) and
     (DmDados.IBQryAlunoTurmaSAIU_2SEMESTRE.AsString = ''False'') and
     (DmDados.IBQryAlunoTurmaSAIU_2SEMESTRE.IsNull           ))) then
 if (msg.HWND <> CB_1Semestre.Handle) and (msg.HWND <> CB_2Semestre.Handle) then
  begin
    PcAluno2.ActivePageIndex := 2;
    MessageBox(0, ''� necess�rio que o 1� Semestre ou 2� Semestre sejam habilitados, ou n�o foi clicado no bot�o salvar!'' , ''Aten��o'', mb_Ok);
    Msg.message := 0;
  end;
end;

Responder

Gostei + 0

17/02/2014

Alan Souza

((DmDados.IBQryAlunoTurmaSAIU_1SEMESTRE.AsString = ''False'') and
     (DmDados.IBQryAlunoTurmaSAIU_1SEMESTRE.IsNull            ) and
     (DmDados.IBQryAlunoTurmaSAIU_2SEMESTRE.AsString = ''False'') and
     (DmDados.IBQryAlunoTurmaSAIU_2SEMESTRE.IsNull           ))

a condi��o (string = 'False') AND (IsNull) vai ser sempre falsa.

Responder

Gostei + 0

17/02/2014

Osmar

no banco tanto tem False como IsNull, mas se o usu�rio selecionar o 5 ou 6 DBCheckbox a� recebe True, n�o sei se entendi o que voc� quis dizer.

Responder

Gostei + 0

17/02/2014

Alan Souza

se � nulo n�o tem conte�do no campo, ent�o quando voc� faz o IsNull AND campo.asstring = 'TRUE', essa condi��o vai sempre retornar Falso, ent�o nunca passar� no c�digo que vc colocou dentro do if...

Responder

Gostei + 0

27/05/2014

Nelson Santos

Desenvolva softwares 3D em Delphi 7
www.3dsistemas.com.br

Responder

Gostei + 0