Fórum mesagem #151740
03/04/2003
0
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
Curtir tópico
+ 0Posts
03/04/2003
Anonymous
Não escreva em caixa alta.
Gostei + 0
03/04/2003
Anonymous
Gostei + 0
03/04/2003
Anonymous
MessageDlg(´Usuario não cadastrado´,mtinformation,[mbOk],0);
end;
Qualquer coisa me manda um e-mail ...
fhcesar@hotmail.com
Até mais !!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)