DBNavigator action abbrechen

[slai]

Hallo zusammen

Ich muss bei teils records in einer Buchhaltungstabellen, also die die automatisch vom programm erfasst worden sind, aktionen vom dbnavigator abbrechen, weil die nicht erlaubt sind. wie kann ich nun eine solche aktion wirklich abbrechen. Ausserdem funktioniert irgendwie das setzen von ReadOnly nicht Hier mal ausschnitte aus meinem code:

Code: Alles auswählen

procedure TFrmFibu.DBNavigator1BeforeAction(Sender: TObject;
  Button: TDBNavButtonType);
begin
  if Button = nbInsert then begin
     if DBGFIBU.ReadOnly then
        DBGFIBU.ReadOnly:=False;
  end;
  if (Button = nbDelete) and (DBDataMod.ZTblBU_FIBU_BUTRANSAKTIONEN.FieldByName('BOLAUTOMATISCH').AsBoolean) then begin
     //Aktion abbrechen
  end;
end;
 
 
procedure TFrmFibu.DBGFIBUColEnter(Sender: TObject);
var
   tempquery : TZQuery;
   sKontonummer : String;
begin
   if DBDataMod.ZTblBU_FIBU_BUTRANSAKTIONEN.FieldByName('BOLAUTOMATISCH').AsBoolean then begin
      DBGFIBU.ReadOnly:=True;
   end else begin
      DBGFIBU.ReadOnly:=False;
   end;  
end;

Danke schon im voraus für antworten
gruss

[slai]

Ok das mit dem readonly habe ich nun mit den options gelöst:

DBGFIBU.Options :=[dgEditing,dgTitles,dgIndicator,dgColumnResize,dgColumnMove,dgColLines,dgRowLines,dgTabs,dgAlwaysShowSelection,dgConfirmDelete,dgCancelOnExit];


das mit dem abbrechen hab ich jedoch immer noch nich herausgefunden

[Christian]

Wiso versteckst du nicht die bearebitungsbuttons bei den entsprecehnden Datensätzen. Kannst ja in OnScroll des DataSets prüfen...

[slai]

Hy christian

Das hab ich nun auch so gemacht, das problem ist einfach das wenn man nun einen neuen eintrag erfasst und dann auf den delete knopf drückt macht das dbnavigator teil einen cancelupdates auf dem table und danach fürt es den delete aus, was mir dann einen Eintrag löschen kann den man gar nich löschen will.

[Christian]

Das ist aber ein Bug, der auch berichtet werden sollte.

[slai]

ok dies kann man nun so lösen das man einfach noch den state des tables abfragt.

ich habs nun geschafft das es funktioniert, finde meine lösung jedoch ein wenig unschön, also wenn jemand weiss wie mann eine action auf einem dbnavigator abbrechen kann....

gruss

[Christian]

Muss man doch nur mal schnell in den Code schaun und der schaut so aus:

Code: Alles auswählen

if (DataSource<>nil) and (DataSource.State<>dsInactive) then begin
    if not (csDesigning in ComponentState) and Assigned(BeforeAction) then
      BeforeAction(Self,Index);
    with DataSource.DataSet do begin
      case Index of
      nbPrior:  Prior;
      nbNext:   Next;

Also no Way !!

[mr.mc.mauser]

Hallo,

ich habe auch nach einer Lösung für dieses Problem gesucht (auch wenn dieser Thread schon etwas Älter ist) und bin fündig geworden....

schaut mal hier: http://delphi.about.com/od/adptips2005/ ... 0205_3.htm

Gruß
Robert

P.S. ich hoffe ich habe mit dem Link gegen keine Forenregeln verstoßen, falls ja bitte ich um Nachsicht