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;
Podpięcie cech
FCYYY.Filters.OnCechaSettingsEvent := DoOnCechaSettingsEvent; FCYYY.Filters.Check_AddRemove_Cechy_Filters(`XXX`, `GUID`, `kkk`, ``);
procedure TXXX.DoOnCechaSettingsEvent(Sender: TObject; aIdnCechyDef: Integer); begin Eerp_cechy_Filter_Execute(TFilterItem(Sender), `XXX`, aIdnCechyDef, `Filtracja cech ...`); end;
XXX - nazwa tabeli YYY - modul kkk - alias ojca