![]() |
AW: Probleme beim einfügen von neuen Datensätzen
Das Datenmodul sieht wie folgt aus:
Delphi-Quellcode:
Die zugriffe sehen dann wie folgt aus:
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.
Delphi-Quellcode:
Mit F7 hab ich mal durch geklickt, hab aber keine Erfahrung damit und worauf ich da achten muß. Hab jetzt so nichts gesehen.
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz