Probleme beim einfügen von neuen Datensätzen

[p80286]

Zitat von Flash68:

Was für Quellcode brauchst du denn?

Na für's erste das DM und die Zugriffe auf das DM!
Hast du mal den Debugger bemüht?
So richtig langweilig mit F7 nachvollzogen was passiert wenn?

Gruß
K-H

[Flash68]

Das Datenmodul sieht wie folgt aus:

Delphi-Quellcode:

unit Datamodul;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM_Rechner = class(TDataModule)
    CON_Rechner: TADOConnection;
    ADS_Rechner: TADODataSet;
    DS_Rechner: TDataSource;
    ADS_RechnerID: TAutoIncField;
    ADS_RechnerBezeichnung: TWideStringField;
    ADS_RechnerRechnertyp_ID: TIntegerField;
    ADS_RechnerStatus_ID: TIntegerField;
    ADS_RechnerBesonderheiten: TWideMemoField;
    ADS_RechnerGehäuse_ID: TIntegerField;
    ADS_RechnerNetzteil_ID: TIntegerField;
    ADS_RechnerMainboard_ID: TIntegerField;
    ADS_RechnerProzessor_ID: TIntegerField;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DM_Rechner: TDM_Rechner;

implementation

{$R *.dfm}

end.

Die zugriffe sehen dann wie folgt aus:

Delphi-Quellcode:

procedure TFRM_Main.But_NeuClick(Sender: TObject);
begin
  DM_Rechner.ADS_Rechner.Append;
  but_Neu.Enabled:= false; but_abbrechen.Enabled:= true; bitbtn1.Enabled:= false;
  dbe_bezeichnung.SetFocus
end;

procedure TFRM_Main.But_AbbrechenClick(Sender: TObject);
begin
  DM_Rechner.ADS_Rechner.Cancel;
  DM_Rechner.ADS_Rechner.Edit;
  but_Neu.Enabled:= true; but_abbrechen.Enabled:= false;bitbtn1.Enabled:= true
end;

Mit F7 hab ich mal durch geklickt, hab aber keine Erfahrung damit und worauf ich da achten muß. Hab jetzt so nichts gesehen.