Deixando a pesquisa do Combobox mais rápida.
Código simples mas que faz uma diferença!
No Evento OnChange
begin
FDm.QueryPacientes.SQL.Clear;
FDm.QueryPacientes.SQL.Add('SELECT NOME FROM PACIENTES where NOME like :INICIO ORDER BY NOME');
FDm.QueryPacientes.Parambyname('INICIO').Asstring:=ComboboxPacientes.text+'%';
FDm.QueryPacientes.Open;
If FDM.QueryPacientes.RecordCount > 0
THEN
begin
FDm.QueryPacientes.first;
while not FDm.QuerypACIENTES.Eof do
begin
comboboxPACIENTES.Items.Add(FDM.QueryPacientes.FieldByName('NOME').AsString);
FDm.QueryPacientes.next;
end;
end;
No Evento OnChange
begin
FDm.QueryPacientes.SQL.Clear;
FDm.QueryPacientes.SQL.Add('SELECT NOME FROM PACIENTES where NOME like :INICIO ORDER BY NOME');
FDm.QueryPacientes.Parambyname('INICIO').Asstring:=ComboboxPacientes.text+'%';
FDm.QueryPacientes.Open;
If FDM.QueryPacientes.RecordCount > 0
THEN
begin
FDm.QueryPacientes.first;
while not FDm.QuerypACIENTES.Eof do
begin
comboboxPACIENTES.Items.Add(FDM.QueryPacientes.FieldByName('NOME').AsString);
FDm.QueryPacientes.next;
end;
end;
Normann Júnior
Curtidas 0