Componenta tdbnavigator

În mod strict, componenta TDBNavigator (navigatorul bazei de date) nu este proiectată să afișeze date. Scopul său este de a oferi utilizatorului programului un mijloc convenabil de a naviga prin înregistrările ND și de a facilita astfel de acțiuni precum introducerea unei noi înregistrări, precum și editarea și ștergerea unei înregistrări existente. Cu toate acestea, baza de date navigator este utilizată numai împreună cu componentele de vizualizare, deci mi se pare adecvat să ia în considerare caracteristicile sale în această lecție.







În Fig. 6.11 afișează butoanele navigatorului.

Componenta tdbnavigator

Fig. 6.11. Butoanele bazei de date navigator

Despre primul - setează cursorul la prima înregistrare;

Despre Prior - setează cursorul la înregistrarea anterioară;

Despre Următorul - setează cursorul la următoarea înregistrare;

Despre Ultima - setează cursorul la ultima înregistrare;

Despre Inserare - pune ND în modul insert al noii înregistrări;

Despre Ștergere - șterge intrarea curentă;

Despre Editare - Mută ​​ND în modul de editare;







Despre postare - își amintește modificările efectuate în înregistrarea curentă;

Despre Cancel - anulează modificările efectuate în înregistrarea curentă;

Despre Actualizare - actualizează ND (pentru TQuery - numai dacă interogarea este actualizabilă).

Folosind proprietatea DataSource, componenta este asociată cu sursa de date TDataSource dorită - aceasta este tot ceea ce este necesar pentru funcționarea normală. Următoarea proprietate controlează afișarea dialogului care vă întreabă dacă doriți să ștergeți intrarea (Valoarea reală a acestei proprietăți afișează fereastra):

proprietate ConfirmDelete: Boolean;

Dacă următoarea proprietate este True, butoanele vor fi plane, altfel ele vor fi solide:

proprietate Plat: Boolean;

Cu ajutorul unei alte proprietăți, puteți afișa numai acele butoane de navigare care sunt într-adevăr necesare:

tip TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast,

nblnsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);

tip TButtonSet = set de TNavigateBtn;

proprietate VisibleButtons: TButtonSet;

De exemplu, dacă ND este rezultatul executării unei interogări nemotivate, în navigator este logic să lăsați doar primele 4 butoane.

Folosind următoarea metodă, puteți simula un clic pe butonul dorit al navigatorului:

procedura BtnClick (Index: TNavigateBtn); Două evenimente specifice sunt definite pentru o componentă:

tip ENavClick = procedura (Expeditor: TObject;

Button: TNavigateBtn) de obiect; proprietate Înainte de acțiune: ENavClick; proprietate OnClick: ENavClick;

Primul handler de evenimente primește control înainte de a executa acțiunea asociată cu clic pe butonul Buton, în timp ce handlerul OnClick este după executarea acțiunii.







Articole similare

Pagina anterioară

Pagina următoare

Trimiteți-le prietenilor: