MotlawaTech:Profile w FDBC i FC: Różnice pomiędzy wersjami
Z Motława
(Utworzył nową stronę „= Filtry = W module D_... w kreowaniu dodać (zakładamy ze istnieje filtr jako FC): <code> FC.Stored_Type := 200; FC.Stored_IDStored := 'cdsNAZWAODPOWIEDNIA'; F…”) |
(→Podpięcie cech) |
||
(Nie pokazano 4 pośrednich wersji utworzonych przez tego samego użytkownika) | |||
Linia 32: | Linia 32: | ||
zaś w kreatorze należy dopisać linie: | zaś w kreatorze należy dopisać linie: | ||
<code> | <code> | ||
+ | constructor TFDBCRejestrDostaw.Create(AOwner: TComponent); | ||
+ | ... | ||
Form_IdStored := 'FDBCNazwamodulu'; | Form_IdStored := 'FDBCNazwamodulu'; | ||
</code> | </code> | ||
Linia 37: | Linia 39: | ||
pozostałe procedury muszą posiadać inherited ! | pozostałe procedury muszą posiadać inherited ! | ||
− | [[Kategoria: MotlawaTech]] | + | |
+ | Jeśli profile sie nie zapisuja można wymusić zapis: | ||
+ | <code> | ||
+ | Profile.ApplyUpdate; | ||
+ | </code> | ||
+ | |||
+ | |||
+ | == 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<br> | ||
+ | YYY - modul<br> | ||
+ | kkk - alias ojca<br> | ||
+ | |||
+ | [[Kategoria: MotlawaTech|Profile w FDBC i FC]] |
Aktualna wersja na dzień 13:10, 14 sie 2013
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