Db Navigator ile kayıt silemiyorum

[muradguzel]

s.a arkadaşlar bir sicil programı üzerinde çalışmaktayım projemin son aşamasına geldim fakat dbnavigator'den kayıt silme işlemi yaptığımda pagekontrolün diğer sekmesindeki
genel viewe yansımıyor programı kapayıp açtığımda silinen kayıt ve değiştirlwen kayır aynen duruyor yani arkadaşlar kısaca silem ve güncelleme yapamıyorum kodlar aşağıda mevcuttur Yardımlarınızı bekliyorum arkadaşlar
veritabanı olarak firebird 1.5 IBExpert bağlantı elemanları olarak TIBDatabase, TIBDataset,Transaction,DataSource kullanıyorum
procedure TForm4.DbEgitimAfterDelete(DataSet: TDataSet);
begin
dqGenel.Open;
IBTransaction1.CommitRetaining;
end;

procedure TForm4.DbEgitimAfterInsert(DataSet: TDataSet);
begin
id:=DbPersonelSICIL_NO.AsString;
DbEgitimSICIL_NO.AsInteger := DbPersonelSICIL_NO.AsInteger;


end;

procedure TForm4.DbEgitimAfterPost(DataSet: TDataSet);
begin
id:=DbPersonelSICIL_NO.AsString;
DbPersonel.Open;
dqGenel.Open;
dbegitmen.Open;
dbegitimekle.Open;
IBTransaction1.CommitRetaining;
DbPersonel.Locate('sicil_no',id,[loCaseInsensitive,loPartialKey]);
end;

procedure TForm4.DbegitimekleAfterPost(DataSet: TDataSet);
begin
dbpersonel.Open;
dbegitim.Open;
dbegitmen.Open;
dbegitimekle.Open;
end;

procedure TForm4.dqGenelAfterInsert(DataSet: TDataSet);
begin
DbEgitimSICIL_NO.AsInteger:=DbPersonelSICIL_NO.AsInteger;
end;

procedure TForm4.dqGenelAfterPost(DataSet: TDataSet);
begin
IBTransaction1.Commit;
dqgenel.Open;
DbPersonel.Open;
DbEgitim.Open;
Dbegitimekle.Open;
dbegitmen.Open;

end;

procedure TForm4.dqGenelBeforePost(DataSet: TDataSet);
begin
IBTransaction1.Commit;


end;

procedure TForm4.FormCreate(Sender: TObject);
begin
cxPageControl1.ActivePageIndex:=0;
IBTransaction1.CommitRetaining;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
dbpersonel.open;
dbegitim.Open;
dqgenel.open;
dbegitmen.Open;

end;

procedure TForm4.DbPersonelAfterDelete(DataSet: TDataSet);
begin
IBTransaction1.Commit;
dbpersonel.Open;
DbEgitim.Open;
dqgenel.Open;
dbegitimekle.Open;
dbegitmen.Open;

end;

procedure TForm4.DbPersonelAfterPost(DataSet: TDataSet);
begin
id:=DbPersonelSICIL_NO.AsString;
DbPersonel.Open;
DbPersonel.Locate('sicil_no',id,[loCaseInsensitive,loPartialKey]);
dbegitim.Open;
dqgenel.Open;
IBTransaction1.Commit;


end;

procedure TForm4.DbPersonelUpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TIBUpdateAction);
begin
IBTransaction1.Commit;
dbpersonel.Open;
dbegitim.Open;
dqgenel.Open;
end;

procedure TForm4.IBDataSet1AfterPost(DataSet: TDataSet);
begin
IBTransaction1.Commit;
DbPersonel.Open;
DbEgitim.Open;
dqgenel.Open;
end;

end.