Ajudinha em SQL.

Delphi

20/03/2003

O código abaixo serve para fazer uma pesquisa SQL, utiizando ADOQuery com bd Access, e retornar o resultado em um rel. QReport.

Ocorre que preciso digitar em todos os campos da pesquisa, com todas as letras do registro para aparecer o resultado especificado no QReport.

Ocorre que eu preciso obter o relatório, filtrando por apenas um ou alguns campos:

procedure TF_Pesq.btnImprimirClick(Sender: TObject);
var
i: Integer;
begin
i:= rgOrdem.ItemIndex;
with Modulo.qryListaPr do
begin
Close;
with SQL do
begin
if cTodos.Checked then
begin
Clear;
Add(´SELECT Protocolo, DV, Dependencia, Cliente, DataDaEntrada,´
+´ DataDaSaida, Valor, LnCredito, Situacao, Funcionario, Area´); //Selecionar os campos
Add(´FROM TBL_OPERACAO´); //Selecionar a tabela
Add(´ORDER BY ´ + rgOrdem.Items[i]); //Selecionar a ordem
end
else
begin
Clear;
Add(´SELECT Protocolo, DV, Dependencia, Cliente, DataDaEntrada,´
+´DataDaSaida, Valor, LnCredito, Situacao, Funcionario, Area´); //Selecionar os campos
Add(´FROM TBL_OPERACAO´); //Selecionar a tabela
Add(´WHERE (Cliente = :CLI)´
+´ AND (Funcionario = :FUNCI)´
+´ AND (LnCredito = :LNCRED)´
+´ AND (Situacao = :SITU)´
+´ AND (Area = :AR)´
+´ AND (Dependencia = :AG)´
+´ AND (DataDaEntrada BETWEEN :ENTI AND :ENTF)´
+´ AND (DataDaSaida BETWEEN :SAI AND :SAF)´);
Add(´ORDER BY ´ + rgOrdem.Items[i]); //Selecionar a ordem
Parameters[0].Value:= Edit1.Text;
ParameterS[1].Value:= lkeFunci.Text;
Parameters[2].Value:= lkeLnCred.Text;
Parameters[3].Value:= lkeSituacao.Text;
Parameters[4].Value:= cbArea.Text;
Parameters[5].Value:= lkeDep.Text;
Parameters[6].Value:= deEntradaI.Text;
Parameters[7].Value:= deEntradaF.Text;
Parameters[8].Value:= deSaidaI.Text;
Parameters[9].Value:= deSaidaF.Text;
end;
end;
Open;
end;
Application.CreateForm(TQR_ListaPr, QR_ListaPr); //Carrega form na memória
QR_ListaPr.Preview; //Mostra form em modo exclusivo
QR_ListaPr.Free; //Libera Memória
with Modulo do
qryListaPr.Close; //Fecha a ADOQuery
end;


Como devo proceder?

Desde já, obrigado pela atenção e desculpe-me pela mensagem longa.


Vega.x

Vega.x

Curtidas 0

Respostas

Vega.x

Vega.x

20/03/2003

Continuação...

Ouvi falar nos caracteres curinga ´¬´. Como devo usá-los, se for o caso?


GOSTEI 0
POSTAR