Hello,
I am new i Lazarzus.
I'm using tbufdataset to acumulate some data and then to write it to firebird database.
I want to see what is acumulated before I write the contents to FB.
So the thread is:
tbufdataset > tdatasource > tdbgrid
this is the procedure used to add selected data to tbufdataset:
procedure TForm1.btnAddClick(Sender: TObject);
begin
with DM1 do
begin
if bdbPOS.Active = false
then
begin
ShowMessage('bdbPOS is Inactive');
bdbPOS.Open;
end
else
begin
ShowMessage('bdbPOS is Active');
//bdbPOS.Last;
end;
bdbPOS.Append;
bdbPOS.FieldByName('Code').AsString := edProdCode.Text;
bdbPOS.FieldByName('Description').AsString := edProdName.Text;
bdbPOS.Post;
end;
end;
unfortunatelly after adding 1-st record (he is visualised well) on the 2-nd grid show 2 emty lines. There is no error, no problem but vusualitaion not work.
Did I miss something, or something is wrong.
Tank you in advance for your help!