tenho um cadastro de fornecedores em um form e uma busca desses fornecedores em um grid em outro form...
para gravar um registro na tabela de fornecedores, uso uma tabela tblCadForn:
dm.tblCadForn.Post;
dm.tblCadForn.Last;
e para buscar o fornecedor em outro form, uso um grid, um datasource e uma query.
O Grid está ligado ao Datasource
O Datasource está ligado à Query
A Query está ligada ao alias e sua propriedade SQL seleciona tudo da tabela de funcionarios.
Ao ser criado, o form de busca executa o seguinte:
procedure TfrmLocalForn.FormCreate(Sender: TObject);
begin
With QueryLocalForn Do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM FINAFOR.dbf ORDER BY FORFAN');
Open;
end;
GridLocalForn.Columns[0].Width := 87;
GridLocalForn.Columns[1].Width := 391;
GridLocalForn.Columns[0].Title.Caption := 'CÓDIGO';
GridLocalForn.Columns[1].Title.Caption := 'NOME FANTASIA';
end;
A busca dinamica é feita desta maneira:
procedure TfrmLocalForn.txtLocalForn_NomeFantasiaChange(Sender: TObject);
begin
With QueryLocalForn Do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM FINAFOR.dbf');
SQL.Add('WHERE FORFAN');
SQL.Add('LIKE '''+txtLocalForn_NomeFantasia.Text+'%''');
SQL.Add('ORDER BY FORFAN');
Open;
end;
end;
PROBLEMA: Quando estou cadastrando os fornecedores e depois abro o form de busca, os fornecedores cadastrados agora ainda não estão no grid, eles só vão aparecer se eu fechar todo o programa e abrir de novo.
Pergunta
Gabriel Cabral
Bom dia...
estou com um problemão aqui...
tenho um cadastro de fornecedores em um form e uma busca desses fornecedores em um grid em outro form...
para gravar um registro na tabela de fornecedores, uso uma tabela tblCadForn:
e para buscar o fornecedor em outro form, uso um grid, um datasource e uma query. O Grid está ligado ao Datasource O Datasource está ligado à Query A Query está ligada ao alias e sua propriedade SQL seleciona tudo da tabela de funcionarios. Ao ser criado, o form de busca executa o seguinte:procedure TfrmLocalForn.FormCreate(Sender: TObject); begin With QueryLocalForn Do begin Close; SQL.Clear; SQL.Add('SELECT * FROM FINAFOR.dbf ORDER BY FORFAN'); Open; end; GridLocalForn.Columns[0].Width := 87; GridLocalForn.Columns[1].Width := 391; GridLocalForn.Columns[0].Title.Caption := 'CÓDIGO'; GridLocalForn.Columns[1].Title.Caption := 'NOME FANTASIA'; end;A busca dinamica é feita desta maneira:procedure TfrmLocalForn.txtLocalForn_NomeFantasiaChange(Sender: TObject); begin With QueryLocalForn Do begin Close; SQL.Clear; SQL.Add('SELECT * FROM FINAFOR.dbf'); SQL.Add('WHERE FORFAN'); SQL.Add('LIKE '''+txtLocalForn_NomeFantasia.Text+'%'''); SQL.Add('ORDER BY FORFAN'); Open; end; end;PROBLEMA: Quando estou cadastrando os fornecedores e depois abro o form de busca, os fornecedores cadastrados agora ainda não estão no grid, eles só vão aparecer se eu fechar todo o programa e abrir de novo.
O que tem de errado aí??
Ficarei muitíssimo grato a quem puder me ajudar
Editado por Gabriel CabralLink para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.