Correspondente a Query

Delphi

05/05/2008

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.


Pro-luck

Pro-luck

Curtidas 0
POSTAR