Fórum Conexão FireDAC #513667
14/03/2015
0
Djean Figueira
Curtir tópico
+ 0Posts
15/03/2015
William
Gostei + 0
15/03/2015
Djean Figueira
/chamar o form medidas
if F_CAME = nil then
begin
F_CAME := TF_CAME.Create(Self);
F_CAME.ShowModal;
End;
/Form medidas
procedure TF_CAME.FormCreate(Sender: TObject);
begin
DM_Principal.SQL_Medidas.Open();
end;
procedure TF_CAME.txt_buscaKeyPress(Sender: TObject; var Key: Char);
begin
// Fazer pesquisa
if Key = #13 then
begin
with DM_Principal.SQL_Medidas do
begin
Open(); //Estava close;
// SQL.Clear;
SQL.Add('select * from cb008');
SQL.Add('where cb008_medida like :medida');
ParamByName('medida').Value := txt_busca.Text + '%';
Open;
if RecordCount =0 then
ShowMessage('Registro não localizado!');
end;
end;
end;//Fim do Key press
Mais uma vez obrigado.
Gostei + 0
16/03/2015
Thiago Santana
DM_Principal.SQL_Medidas.Open();
O erro pode estar no momento da criação do DM_Principal!
Você pode alterar quem deve ser criado no Menu Project - Options (Shift + Crtl + F11)
O seu DM_principal deverá está antes do formulário!
Gostei + 0
16/03/2015
Djean Figueira
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)