Array
(
)

Recurso de auto completar com sonsulta SQL em campo

Warhjr
   - 12 jan 2006

Ola gostaria de uma ajuda estou tentando fazer autocompletar em um campo atravez de uma consulta e não estou conseguindo simplesmente não faz consulta senhuma será o Key do teclado ?
eis o código:

#Código

procedure TfrmConsPedido.edtNomeClienteKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
If Key = 113 then begin
DSCliente.DataSet.Close;
If edtNomeCliente.Text <> ´´ then
TQuery(DSCliente.DataSet).SQL[3]:=´ AND PESSOA.PES_NM LIKE ´´´
+ edtNomeCliente.TExt + ´¬´´´
Else
TQuery(DSCliente.DataSet).SQL[3]:=´´;
DSCliente.DataSet.Open;
frmGrid:=TFrmGrid.Create(Self);
frmGrid.DBGrid1.DataSource:=DSCliente;
If (frmGrid.ShowModal=mrOk) and (Not DSCliente.DataSet.IsEmpty)
then begin
TEdit(Sender).Text:=DSCliente.DataSet[´PES_NM´];
edtCodCliente.Text:=DSCliente.DataSet.FieldByName(´PES_CD´).AsString;
end;
end;
end;

preciso de ajuda se puderem me ajudar ? :(