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:

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.