Delphi+firebird+sql
Tenho a seguinte Pesquisa:
dm.Qmensal.Close;dm.Qmensal.SQL.Clear;dm.Qmensal.SQL.Add('Select*from Atendimento');Dm.Qmensal.SQL.Add('Where data between :dtInicio and :Dtfim');dm.Qmensal.SQL.Add('and controle=''F''');dm.Qmensal.SQL.Add('order by data');dm.Qmensal.ParamByName('DtInicio').Value:=strtodate(datetostr(DtInicio.date));dm.Qmensal.ParamByName('Dtfim').value:=strtodate(datetostr(dtfim.date));Dm.Qmensal.open;A pesquisa funciona bl só que eu queria por mais um campo que seria depois de
dm.Qmensal.SQL.Add('and controle=''F''');Colocar para a pesquisa procurar por outro campo e não adicionar ele no dbgrid.
Eu fiz assim mas não funcionou:
Dm.qmensal.SQL.Add('and not falta=''OK'''');Este OK seria o que o usuario coloca depois de fazer a pesquisa acima...
ex:
depois da pesquisa de Fantantes(F(campo controle))ele coloca "OK "no campo falta para saber Que foi marcado um outro dia
e qdo ele pesquisar de novo não mostraria o registro do cliente com o "OK".
Discussão (13)
Carregando comentários...