Datensatz in DBGrid löschen!

[Goldesel]

Hallo,

gibt es eine Möglichkeit, einen vorhandenen Datensatz in einer DBgrid zu löschen und zu bearbeiten. Ich benutze ein Paradox7 Datenbank.

Jannik

[Sharky]

Hai Du Goldesel *g*,

ein DBGrid ist nur die Abbildung der Daten aus dem TDataSet. Wenn du es im Grid erlaubt hast kann dort mit Ctrl-Del ein DS gelöscht werden.
Programmtechnich würde das dann so laufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.Delete; // Löscht den markierten Datensatz;
end;

Wenn Du die Daten ändern möchtest kannst Du das natürlich über .Edit machen.

[Goldesel]

Was is denn "Sharky" *g*?

danke für deine Antwort. Hab allerdings noch n Problem. Hab ne englische Version und die Abfragen aind jetzt auf Englisch. Geht das auch auf Deutsch ... für die die kein Englisch können. (Also ich kann englisch ... *g*)

Jannik

[Sharky]

Zitat von Goldesel:

...Hab ne englische Version und die Abfragen aind jetzt auf Englisch. Geht das auch auf Deutsch ...

Das geht nur durch das änern der englischen Texte in den Delphi-Sourcen. Also keine gute Lösung.
Deaktiviere doch am besten das Löschen im DB-Grid und schreibe dafür eine eigene Funktion mit einer eigenen Abfrage.

Zum Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.ReadOnly := True;
end;

function DeleteRecord(ds: TDataSet): boolean;
begin
  case MessageBox(0, 'Datensatz wirklich löschen?', 'Achtung',
      MB_ICONWARNING or MB_YESNO or MB_DEFBUTTON2) of
    idYes: begin
      ds.Delete;
      Result := True;
    end;
    idNo: begin
      Result := False
    end;
  end;
end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if Shift = [ssCtrl] then
  begin
    case Key of
      VK_DELETE: begin
        DeleteRecord((Sender as TDBGrid).DataSource.DataSet)
      end;
    end;
  end;
end;

Oder, noch einfacher Du machst es im BeforeDelete deines Datasets.