Como enviar mensagem para o usuario neste caso?
Amigos,
No formulário tem dois dbgrids um está relacionado a tabela TURMA e o outro a tabela ALUNO, supondo que esteja focada a TURMA - 1º Ano - Ensino Fundamental, então só será visualizados no dbgrid ALUNO os alunos que estão cadastrados na TURMA - 1º Ano - Ensino Fundamental, lembro que na tabela TURMA existe o CAMPO GRAU onde são gravados os graus conforme relação abaixo:
CAMPO GRAU:
Pré-Escolar
1º Ano - Ensino Fundamental
2º Ano - Ensino Fundamental
3º Ano - Ensino Fundamental
4º Ano - Ensino Fundamental
5º Ano - Ensino Fundamental
6º Ano - Ensino Fundamental
7º Ano - Ensino Fundamental
8º Ano - Ensino Fundamental
9º Ano - Ensino Fundamental
1º Ano - Ensino Médio
2º Ano - Ensino Médio
3º Ano - Ensino Médio
Ensino Superior
Supondo que esteja FOCADA no dbgrid a TURMA - 1º Ano - Ensino Fundamental e o usuário clicou no MENU/RELATÓRIO - Ficha Individual do Aluno - 3º ou 5º Ano do Ensino Fundamental, então gostaria que mandasse uma mensagem para o usuário tipo – “ O aluno e a turma selecionados não condiz com o relatório solicitado, verifique e tente novamente.”
Mazo
Osmar
Curtidas 0
Respostas
Osmar
04/11/2010
já resolvi, ficou assim o codigo:
procedure TFrmCadTurDisc.FichaIndiv1Click(Sender: TObject);
begin
if DmDados.IBQryalunoturma.RecordCount = 0 then
begin
Application.MessageBox('Não existe Aluno cadastrado na Turma!!','Atenção',mb_ok + MB_ICONWARNING);
abort;
end; if (DmDados.IBQryTurmaGRAU.AsString <> ('1º Ano - Ensino Fundamental')) and
(DmDados.IBQryTurmaGRAU.AsString <> ('2º Ano - Ensino Fundamental')) and
(DmDados.IBQryTurmaGRAU.AsString <> ('4º Ano - Ensino Fundamental')) then
begin
Application.MessageBox('Ficha Individual inválida para a Turma selecionada, verifique e tente novamente!','Atenção',mb_ok + MB_ICONWARNING);
abort;
end; Application.CreateForm(TFrmRelFichaIndiv124,FrmRelFichaIndiv124);
FrmRelFichaIndiv124.BitBtn1.Click;
FrmRelFichaIndiv124 := nil;
end;
begin
if DmDados.IBQryalunoturma.RecordCount = 0 then
begin
Application.MessageBox('Não existe Aluno cadastrado na Turma!!','Atenção',mb_ok + MB_ICONWARNING);
abort;
end; if (DmDados.IBQryTurmaGRAU.AsString <> ('1º Ano - Ensino Fundamental')) and
(DmDados.IBQryTurmaGRAU.AsString <> ('2º Ano - Ensino Fundamental')) and
(DmDados.IBQryTurmaGRAU.AsString <> ('4º Ano - Ensino Fundamental')) then
begin
Application.MessageBox('Ficha Individual inválida para a Turma selecionada, verifique e tente novamente!','Atenção',mb_ok + MB_ICONWARNING);
abort;
end; Application.CreateForm(TFrmRelFichaIndiv124,FrmRelFichaIndiv124);
FrmRelFichaIndiv124.BitBtn1.Click;
FrmRelFichaIndiv124 := nil;
end;
GOSTEI 0