Tdbnavigator komponens
Szigorúan a TDBNavigator komponens (az adatbázis-navigátor) nem adatainak megjelenítésére szolgál. Célja, hogy a programfelhasználó számára kényelmes eszközt biztosítson az ND-rekordok közötti navigáláshoz és megkönnyítse az ilyen műveleteket, mint új rekord beillesztését, valamint egy meglévő rekord szerkesztését és törlését. A navigációs adatbázis azonban csak a vizualizációs komponensekkel együtt használatos, ezért nagyon helyénvalónak tűnik számomra a leckék jellemzőinek megfontolása.
Az 1. ábrán. A 6.11 a navigátor gombjait mutatja.
Ábra. 6.11. Gombok navigátor adatbázis
Az elsőről - a kurzort az első rekordra állítja be;
A Prior-ről - a kurzort az előző rekordra állítja be;
A Következő lehetőségről - a kurzort a következő rekordra állítja be;
Az Utolsó - a kurzor az utolsó rekordra állítása;
A Beszúrás - az ND-t az új rekord beillesztési módjába helyezi;
A Törlés - törli az aktuális bejegyzést;
A Szerkesztésről - az ND szerkesztési módot mozgatja;
About Post - emlékeztet az aktuális rekordban történt változásokra;
A Mégse gombra - Törli az aktuális rekordban végrehajtott módosításokat;
Frissítésről - frissíti az ND (TQuery - csak akkor, ha a lekérdezés frissíthető).
A DataSource tulajdonság használatával az összetevő a kívánt TDataSource adatforrással van társítva - ez csak a normál működéséhez szükséges. A következő tulajdonság vezérli a párbeszédablak megjelenítését, amely megkérdezi, hogy törölni kívánja-e a bejegyzést (a tulajdonság értéke True érték):
tulajdonság ConfirmDelete: Boolean;
Ha a következő tulajdonság Igaz, a gombok laposak lesznek, különben szilárdak lesznek:
ingatlan lapos: logikai;
Egy másik tulajdonság segítségével csak azokat a navigációs gombokat jelenítheti meg, amelyekre valóban szükség van:
típus TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast,
nblnsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);
típus TButtonSet = TNavigateBtn;
Tulajdonság VisibleButtons: TButtonSet;
Például ha az ND a megszakítás nélküli lekérdezés végrehajtásának eredménye, a navigátorban csak az első 4 gomb marad.
A következő módszerrel szimulálhat egy kattintást a navigátor kívánt gombjára:
BtnClick eljárás (index: TNavigateBtn); Két összetevő határozza meg az adott összetevőt:
típus ENavClick = eljárás (Feladó: TObject;
Button: TNavigateBtn); Property BeforeAction: ENavClick; tulajdonság OnClick: ENavClick;
Az első eseménykezelő megkapja a vezérlést, mielőtt végrehajtaná a műveletet a gombra kattintva, míg az OnClick kezelő a művelet végrehajtása után.