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.