Fórum Correspondente a Query #358018
05/05/2008
0
Caros amigos, estou utilizando a seguinte rotina para filtrar registros dentro de um banco de dados com uso de uma Query:
dm_.QryBoletim.Close;
dm_.QryBoletim.SQL.Clear;
dm_.QryBoletim.SQL.Add(´Select * from Boletim WHERE (AnoDe = :iAno) and (Curso = :iCurso) and (Turno = :iTurno) and (Turma = :iTurma)´);
dm_.QryBoletim.ParamByName(´iAno´).AsString := LocAno.Text;
dm_.QryBoletim.ParamByName(´iCurso´).AsString := LocCurso.Text;
dm_.QryBoletim.ParamByName(´iTurno´).AsString := LocTurno.Text;
dm_.QryBoletim.ParamByName(´iTurma´).AsString := LocTurma.Text;
dm_.QryBoletim.Prepare;
dm_.QryBoletim.Open;
If dm_.QryBoletim.IsEmpty then
begin
ShowMessage(FMenu_.Operador.Caption+´, não existe turma com os critérios informados.´);
LocAno.SetFocus;
Exit;
end
else
begin
LancNotasBoletim_ := TLancNotasBoletim_.Create(Self);
LancNotasBoletim_.Show;
end;
Porém, estou precisando de uma filtragem com estes mesmos critérios, mas relacionando os registros em ordem alfabética para realizar alterações.
Certo da atenção de todos, antecipadamente agradeço.
Um forte abraço e fiquem com Deus e na paz do nosso Senhor Jesus Cristo.
Acredito que com Table seja possível, já que se eu utilizar o ORDER BY na Query acima citada, os registros perdem a propriedade de edição.
dm_.QryBoletim.Close;
dm_.QryBoletim.SQL.Clear;
dm_.QryBoletim.SQL.Add(´Select * from Boletim WHERE (AnoDe = :iAno) and (Curso = :iCurso) and (Turno = :iTurno) and (Turma = :iTurma)´);
dm_.QryBoletim.ParamByName(´iAno´).AsString := LocAno.Text;
dm_.QryBoletim.ParamByName(´iCurso´).AsString := LocCurso.Text;
dm_.QryBoletim.ParamByName(´iTurno´).AsString := LocTurno.Text;
dm_.QryBoletim.ParamByName(´iTurma´).AsString := LocTurma.Text;
dm_.QryBoletim.Prepare;
dm_.QryBoletim.Open;
If dm_.QryBoletim.IsEmpty then
begin
ShowMessage(FMenu_.Operador.Caption+´, não existe turma com os critérios informados.´);
LocAno.SetFocus;
Exit;
end
else
begin
LancNotasBoletim_ := TLancNotasBoletim_.Create(Self);
LancNotasBoletim_.Show;
end;
Porém, estou precisando de uma filtragem com estes mesmos critérios, mas relacionando os registros em ordem alfabética para realizar alterações.
Certo da atenção de todos, antecipadamente agradeço.
Um forte abraço e fiquem com Deus e na paz do nosso Senhor Jesus Cristo.
Acredito que com Table seja possível, já que se eu utilizar o ORDER BY na Query acima citada, os registros perdem a propriedade de edição.
Pro-luck
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)