MotlawaTech:Profile w FDBC i FC

Z Motława

Filtry

W module D_... w kreowaniu dodać (zakładamy ze istnieje filtr jako FC):

 FC.Stored_Type := 200;
 FC.Stored_IDStored := 'cdsNAZWAODPOWIEDNIA';
 FC.SaveProfileAfterDlg := True;

a na końcu kreowania:

if Assigned(Profile) then
 begin
   Profile.StoredRead_Last(FC);
 end;

Całokształt FDBC

definicja FDBC wymaga zadeklarowania:

 protected
   procedure ChldMayClose; override;
   procedure ChldMayOpen; override;
   procedure FinnalySection; override;
 public
   procedure ReadSetings; override;
   procedure WriteSetings; override;

zaś w kreatorze należy dopisać linie:

 constructor TFDBCRejestrDostaw.Create(AOwner: TComponent);
 ...
 Form_IdStored := 'FDBCNazwamodulu'; 

pozostałe procedury muszą posiadać inherited !


Jeśli profile sie nie zapisuja można wymusić zapis:

 Profile.ApplyUpdate;