Probleme beim einfügen von neuen Datensätzen

[Flash68]

Ich habe ein Testprogramm nur mit dem dem nötigsten(nur eine Tabelle) erstellt und auch da funktioniert es über das Datenmodul nicht. Also kann es meiner Meing nach nicht an dem Quark/ überflüssigem Programcode liegen.

Ab wievielen Elementen sollte mann denn ein neues Datenmodul benutzen?

[Iwo Asnet]

Zeig doch mal den Test, der angeblich ohne Datenmodul nicht funktioniert.

Ach ja: Verknüpfungen zwischen Datenmodul und Formular (z.B. TDataset<-TDatasource), die man mit dem Designer erstellt hat, verschwinden gerne mal zwischendurch.

Desweiteren ist die Aufrufreihenfolge von Belang. Auch hier verschwinden gerne mal Verknüpfungen.

Auf der sicheren Seite bist Du, wenn z.B. das Hauptformular das Datenmodul erstellt und anschließend die Verknüpfungen per Code einrichtet.

[Flash68]

Es funktioniert mit dem Datenmodul nicht richtig. Wenn ich die Connection, das Ado-Dataset und die DataSource in das Formular setze funktioniert es. Im Datenmodul funktioniert es dann nur über den Navigator und nicht mit append, cancel etc...

Was für Quellcode brauchst du denn?

[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.