mesagem
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
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
Curtidas 0
Respostas
Anonymous
03/04/2003
Putz! Mina! Vc não leu as regras!
Não escreva em caixa alta.
Não escreva em caixa alta.
GOSTEI 0
Anonymous
03/04/2003
Application.MessageBox (´Item não encontrado´,´Aviso´,mb_OK);
GOSTEI 0
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 !!!
MessageDlg(´Usuario não cadastrado´,mtinformation,[mbOk],0);
end;
Qualquer coisa me manda um e-mail ...
fhcesar@hotmail.com
Até mais !!!
GOSTEI 0