Fórum Procedure !!! #198252

Ola amigo estive dando uma olhada em seu codigo e acredito que a mensagem de erro que esta recebendo é devido a nao declaracao da [color=blue:ace58638db]StdCtrls[/color:ace58638db] na uses desse form coloque la e veja no que da....

Obs: Ha eu fiz uma pq modificao no seu codigo de uma olhada.




Procedure Gravar_entradas_combustivel(Formulario :Tform;Commando :TADOCommand);
begin
Commando.CommandText :=(´Insert Into Entrada_combustivel (Data,Nf) Values(´ + QuotedStr(Formulario.Edit1.text) + ´,´ +
QuotedStr(Formulario.edit2.text) + ´)´);
commando.execute;
end;