AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Mit Datenmodul arbeiten

Ein Thema von Walter Landwehr · begonnen am 26. Apr 2016 · letzter Beitrag vom 26. Apr 2016
Antwort Antwort
Seite 1 von 2  1 2      
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
405 Beiträge
 
Delphi 10.4 Sydney
 
#1

Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 14:56
Hallo, ich glaube das mit dem Datenmodul habe ich noch nicht richtig gecheckt.

Also ich habe ein Formular nennen wir es frmMitglieder ( die Unit heißt: Mitglieder ) Dazu habe ich einen Datenmodul dmMitglieder (Unitname: Datamod_Mitglieder).

auf dem Formular frmMitglieder habe ich ein Label lblAlter. Nun möchte ich beim OnChange Ereignis die Farbe des Labels wechseln. Leider bekomme ich eine Zugriffsverletzung weil mein frmMitglieder Nil ist. Weis jemand was ich machen muss damit es funktioniert.

Hier mal der Code aus dem Datamodul:
Delphi-Quellcode:
unit Datamod_Mitglieder;

interface

uses
  System.SysUtils, System.Classes, Data.DB, IBODataset, Vcl.Graphics;

type
  TdmMitglieder = class(TDataModule)
    LookupQry: TIBOQuery;
    LookupSrc: TDataSource;
    MitgliederQry: TIBOQuery;
    dscMitglieder: TDataSource;
    AnredeQry: TIBOQuery;
    dscAnrede: TDataSource;
    dscTitel: TDataSource;
    dscBerufe: TDataSource;
    BerufeQry: TIBOQuery;
    TitelQry: TIBOQuery;
    PLZQry: TIBOQuery;
    procedure dscMitgliederDataChange(Sender: TObject; Field: TField);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  dmMitglieder: TdmMitglieder;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

uses Mitglieder, ToolsOperation;

{$R *.dfm}

procedure TdmMitglieder.dscMitgliederDataChange(Sender: TObject; Field: TField);
begin
   if MitgliederQry.FieldByName('GEBURTSDATUM').AsString <> 'then
    frmMitglieder.lblAlter.Caption := 'Alter: ' + IntToStr(ToolsOperation.CalcYearsInPeriod(MitgliederQry.FieldByName('GEBURTSDATUM').AsDateTime, Date));
  if CalcBirthday(dmMitglieder.MitgliederQry.FieldByName('GEBURTSDATUM').AsDateTime) then
    frmMitglieder.lblAlter.Font.Color := clRed
  else
    frmMitglieder.lblAlter.Font.Color := clBlack;
  if (MitgliederQry.FieldByName('GEBURTSDATUM').AsString <> '') then
    frmMitglieder.lblAlter.Visible := True
  else
    frmMitglieder.lblAlter.Visible := False;
end;

end.
Das Datenmodul wird im OnCreate des Formulars frmMitglieder erzeugt.
Delphi-Quellcode:
procedure TfrmMitglieder.FormCreate(Sender: TObject);
begin
  dmMitglieder := TdmMitglieder.Create(frmMitglieder);
  ToolsForm.RestoreWindowPosition(Self);
end;

Wer weiß Abhilfe.
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.809 Beiträge
 
Delphi 12 Athens
 
#2

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 15:03
Dein Datenmodul soll Daten bereitstellen, und soll/darf/muss alle anderen Units des Projekts gar nicht kennen. Änderungsereignisse werden demzufolge klassischerweise in der Form-Unit abgehandelt.

Sherlock
Oliver
Geändert von Sherlock (Morgen um 16:78 Uhr) Grund: Weil ich es kann
  Mit Zitat antworten Zitat
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
405 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 15:23
Wie soll man denn auf ein OnChange Ereignis reagieren? Das Formular bekommt dies ja nicht mit.
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat
Bentissimo

Registriert seit: 25. Apr 2006
Ort: Friedenfels
82 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 15:35
Ich vermute hier liegt ein kleines Missverständnis vor. Ein OnChange-Event wird typischerweise von GUI-Controls erzeugt, hier geht es aber wohl eher um ein OnDataChange-Event einer DataSource.

In diesem Fall würde ich eine Message an das Formular schicken, eventuell sogar als Broadcast. Günstiger wäre aber wohl die Verlagerung der DataSource auf das Formular.
Stephan Schmahl
  Mit Zitat antworten Zitat
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
405 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 15:49
Ja das ist richtig mit dem OnChange des DataSet. Ich hatte das bisher so, das alles auf der Form lag, aber mit der Zeit ist das Formular völlig überfrachtet. Darum die Idee mit dem Datamodul. War wohl nicht so eine gute Idee oder? Wie kann ich denn eine Message an die Form schicken und darauf reagieren.
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat
Lemmy

Registriert seit: 8. Jun 2002
Ort: Berglen
2.388 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 16:01
oder du sorgst dafür, dass im Form das OnDataChange-Ereignis nach dem Erstellen mit dem DataSet auf dem DM verbunden wird. Bisher sah ich keinen Grund das nicht so zu machen.
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.008 Beiträge
 
Delphi 2009 Professional
 
#7

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 16:03
Ja das ist richtig mit dem OnChange des DataSet. Ich hatte das bisher so, das alles auf der Form lag
Es spricht - solange keine Master/Detail DataSources in den DataSets benötigt werden - nichts dagegen, die DataSource weiterhin auf dem Formular zu lassen. Sie vermittelt zwischen GUI Controls und Datenbank-Komponenten. Messages zu versenden würde bedeuten das "RAD" noch einmal zu erfinden. Und es ensteht so auch keine ("zirkuläre") Abhängigkeit des Datenmoduls vom Formular.
Michael Justin

Geändert von mjustin (26. Apr 2016 um 16:22 Uhr)
  Mit Zitat antworten Zitat
mm1256

Registriert seit: 10. Feb 2014
Ort: Wackersdorf, Bayern
642 Beiträge
 
Delphi 10.1 Berlin Professional
 
#8

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 16:40
Hallo Walter,

die Trennung macht durchaus Sinn. Wenn man es aber macht, dann bitte konsequent so wie schon mehrfach vorgeschlagen, und nicht irgend so einen Misch-Masch wo sich dann wieder Teile des Datenzugriffes auf den Formularen befinden.

Mein Vorschlag: Diese procedure gehört in das Formular

Delphi-Quellcode:
procedure TfrmMitglieder.dscMitgliederDataChange(Sender: TObject; Field: TField);
begin
  ...
end;
Beim "OnActivate" und "OnDeactivate" würde ich sie jeweils im Formular zuweisen
Delphi-Quellcode:
procedure TfrmMitglieder.FormActivate(Sender: TObject);
begin
  dmMitglieder.dscMitglieder.OnDataChange := dscMitgliederDataChange;
end;
procedure TfrmMitglieder.FormDeActivate(Sender: TObject);
begin
  dmMitglieder.dscMitglieder.OnDataChange := nil;
end;
Abgesehen davon würde ich die Datenmodule generell in der .dpr erzeugen, denn oft ist es ja so, dass bei konsequenter Anwendung der Datenmodule (absolute Trennung von Datenzugriff und GUI) dann mehrere Formulare das Datenmodul problemlos verwenden können. Unterm Strich wird zudem sogar der Bildschirmaufbau etwas schneller weil die Tabelle offen bleiben kann und das Datenmodul nicht ständig neu erzeugt werden muss.
Gruss Otto PS: Sorry wenn ich manchmal banale Fragen stelle. Ich bin Hobby-Programmierer und nicht zu faul die SuFu zu benutzen
  Mit Zitat antworten Zitat
bcvs

Registriert seit: 16. Jun 2011
722 Beiträge
 
Delphi 12 Athens
 
#9

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 17:17
Mein Vorschlag: Diese procedure gehört in das Formular

Delphi-Quellcode:
procedure TfrmMitglieder.dscMitgliederDataChange(Sender: TObject; Field: TField);
begin
  ...
end;
Das wird in diesem Fall nicht viel weiter helfen, da der TE im dscMitgliederDataChange des DataModuls auch auf andere Komponenten im Datamodul zugreift. Deshalb mein Vorschlag mit dem Event. Dadurch werden die Aktionen des DM von denen des Formulars getrennt.
  Mit Zitat antworten Zitat
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
405 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Mit Datenmodul arbeiten

  Alt 26. Apr 2016, 17:43
Hallo Otto,

Klappt, Danke
Walter Landwehr
Mfg

Walter

Geändert von Walter Landwehr (26. Apr 2016 um 19:21 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:18 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 by Thomas Breitkreuz