Problema com Botão inserir/DELPHI

Jonatan Freire · 7 de junho de 2010

Bom galera eu sou novo na area de programação

o problema é o seguinte

tenho um banco de dados no firebird 2.0

BD = LUCRO

CAMPOS:

Codigo - inteiro auto incremento

Descricao - Varchar

Data - date

Valor - float

eu fiz a conexão do banco de dados, com estes componentes

IBDatabase

IBTransacion (ligado no IBDataset)

IBQuery (Ligado no IBDataset)

IBTable (Ligado no IBDatase)

DataSorce (ligado no IBTable)

DBGrid (Ligado no TABLE)

agora é que é o problema , eu fiz o botão INSERIR OK? só que neste botão eu queria que inserise e ja atualizace e ja mostrace no DBGrid. Só que ele só atualiza e mostra no DBGrid depois que eu abro e fexo o programa, e tb só coloca no banco de dados depois que eu fechar o programa =/

vou mostra o codigo que eu usei no Botão Inserir

procedure TFormLucro.BitBtn2Click(Sender: TObject);

begin

IBQuery1.close;

IBQuery1.SQL.Text:= ' insert into lucro(descricao,data,valor) values (:p1,:p2,:p3)';

IBQuery1.ParamByName('p1').AsString := Edit1.text;

IBQuery1.ParamByName('p2').AsDate := StrToDate (Edit2.text);

IBQuery1.ParamByName('p3').AsFloat := StrToFloat(Edit3.text);

IbQuery1.execSQL;

Edit1.Text:= '';

Edit2.Text:= '';

Edit3.Text:= '';