Como Guardar en Tablas DBase?

[nefy]

Inserto y guardo con un dbnavigator pero en los eventos tengo esto, espero te srva:

procedure TDM.TApzBeforeInsert(DataSet: TDataSet);
begin
TApz.IndexName:='emp_num';
TApz.Last;
a:=DM.TApz.Fields[0].AsInteger;
end;

procedure TDM.TApzAfterPost(DataSet: TDataSet);
begin
TApz.FlushBuffers;
end;

procedure TDM.TApzAfterInsert(DataSet: TDataSet);
begin
DM.TApz.Fields[0].AsInteger:=a+1;
end;