mesagem

Delphi

03/04/2003

OLÁ, ALGUÉM PODE ME INFORMAR COMO USO UMA CAIXA DE MENSAGEM DIZENDO QUE NÃO FOI ENCONTRADO O NOME DO INSCRITO. EX.: USO UMA QUERY ASSIM E GOSTARIA DE QUE QUANDO NÃO ENCONTRASSE O DESEJADO, ELE ME DESSE UMA MENSAGEM NA TELA DIZENDO QUE NÃO FOI ENCONTRADO O ITEM.


BEGIN
IF RADIOGROUP1.ITEMINDEX=0 THEN
begin
QUERY1.Close;
QUERY1.SQL.Clear;
QUERY1.SQL.Add(´SELECT CODINSCRICAO, MATRICULA, NOME, ORGAO, TELEFONE, CURSO, LOCAL, CONCLUSAO, DATAINICIAL, DATAFINAL, NUMERODATURMA, TURNO FROM INSCRICAO´);
QUERY1.SQL.Add(´WHERE CONCLUSAO=:ID´);

QUERY1.ParamByName(´ID´).VALUE:=EDIT1.Text;

QUERY1.OPEN;
end;
IF RADIOGROUP1.ITEMINDEX=1 THEN
begin
QUERY1.Close;
QUERY1.SQL.Clear;
QUERY1.SQL.Add(´SELECT CODINSCRICAO, MATRICULA, NOME, ORGAO, TELEFONE, CURSO, LOCAL, CONCLUSAO, DATAINICIAL, DATAFINAL, NUMERODATURMA, TURNO FROM INSCRICAO´);
QUERY1.SQL.Add(´WHERE NOME=:ID´);

QUERY1.ParamByName(´ID´).VALUE:=EDIT1.Text;

QUERY1.OPEN;
end;

Favor postar o título em minúsculas
Moderador


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

03/04/2003

Putz! Mina! Vc não leu as regras!
Não escreva em caixa alta.


GOSTEI 0
Anonymous

Anonymous

03/04/2003

Application.MessageBox (´Item não encontrado´,´Aviso´,mb_OK);


GOSTEI 0
Anonymous

Anonymous

03/04/2003

if Query1.RecordCount <= 0 then
MessageDlg(´Usuario não cadastrado´,mtinformation,[mbOk],0);
end;

Qualquer coisa me manda um e-mail ...
fhcesar@hotmail.com
Até mais !!!


GOSTEI 0
POSTAR