informais

Boa Noite, sou iniciante em Delphi, estou com dificuldade com uma consulta, utilizo banco de dados em Access, um AdoQuery, Data Source, DbConection. Tenho uma DbGrid onde utilizo uma consulta com vários campos e duas datas, consegui com o código abaixo filtrar por vários campos, porém quando eu insiro um novo registro ele não aparece na consulta, somente os registros que ja existiam no banco. O que esta de errado com meu código? Como faço pra aparecer na consulta os novos registros? <> procedure TFrm_Cadastro.SpeedButton2Click(Sender: TObject); Begin; Frm_Cadastro.Tbl_Clientes.Close; Frm_Cadastro.Tbl_Clientes.SQL.Clear; Frm_Cadastro.Tbl_Clientes.SQL.Add('Select * from Tbl_Cad_Clientes where Cli_Nome like' + QuotedStr(txt_buscar_nome.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Duplicata like ' + QuotedStr(txt_buscar_duplicata.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Rota like'+ QuotedStr(txt_buscar_rota.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Situacao like'+QuotedStr(txt_buscar_situacao.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Cidade like'+QuotedStr(txt_buscar_cid.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Vendedor like'+QuotedStr(txt_buscar_vend.text+'%')); Frm_Cadastro.Tbl_Clientes.Sql.Add('and Cli_DataVenda Between :dataini and :datafim'); Frm_Cadastro.Tbl_Clientes.Params.ParamByName('dataini').Value :=StrToDate(MaskEdit1.text); Frm_Cadastro.Tbl_Clientes.Params.ParamByName('datafim').Value :=StrToDate(MaskEdit2.text); Frm_Cadastro.Tbl_Clientes.Open; Rel_Clientes.ShowReport(); end; <> Na primeira imagem mostra que o novo registro existe dentro do DbGrid. na segunda imagem ao aplicar o filtro mostra apenas os registros antigos

Ola sou iniciante em Delphi estou criando um sistema de cadastro usando um Data Module com AdoConection + Adoquery + Data Source, consegui fazer o relatório e filtrar com o campo que desejo digitar. Porém, gostaria de criar dois campos para filtrar entre as datas digitadas neles. Como posso fazer usando o código abaixo. procedure TFrmClientes.Button4Click(Sender: TObject); begin Dm.Tab_Clientes .Filtered := false; Dm.Tab_Clientes .Filter := 'Vendedor = ' + QuotedStr(RelVendedor.Text); Dm.Tab_Clientes .Filtered := true; FrmClientes := TFrmClientes.Create(Application); FrmRel.QuickRep1.Preview; Dm.Tab_Clientes .Filtered := false; end; Lembrando que o código filtra o campo 'Vendedor' digitando no campo RelVendedor, quero apensas implementar os campos pra digitar as datas. Alguém pode me ajudar?