Código
//Carrega os dados dos clientes no grid de acordo com a data predefinida
with dmCnn do
begin
with dmCnn.queryMovFinanceira do
begin
Close;
DatabaseName := 'DBExpress';
SQL.Clear;
SQL.Add('SELECT * FROM tblfinanceira ' +
'WHERE Data_mov LIKE "%' + DataCons + '" order by Cod_Mov desc');
Open;
end;
end;
except
MessageDlg('Erro ao atualizar a grade de visualização "Erro: AtualizaDados()".',mtError,[mbOK],0);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009