Izdelava lupine s krmarjenjem

V tej vadnici zgradite obrazec lupine z vrstico WklNavBar na levi in podobrazcem strani, ki zapolni preostanek; oba razporedi WklDockLayout. Vnose oblikujete brez kode, ena dogodkovna procedura zamenja stran, značka pa prikazuje število. Za vse skupaj potrebujete približno petnajst minut.

• Microsoft 365 Access ali Access Runtime, v 32- ali 64-bitni različici, z nameščenim paketom WKL Forms Object Library 1.24 ali novejšim, registriranim za trenutnega uporabnika sistema Windows (Namestitev izdanega paketa).
• Nova podatkovna zbirka na zaupanja vrednem mestu.
• Vsak kontrolnik WKL odpre svoj oblikovalnik na enak način: v pogledu načrta list z lastnostmi (F4), zavihek Drugo, vrstica Po meri, [...] (Odpiranje oblikovalnika kontrolnika).

V oknu Immediate (Ctrl+G) izvedite te vrstice, eno za drugo:

CurrentDb.Execute "CREATE TABLE tblStranke (StrankaID COUNTER PRIMARY KEY, Podjetje TEXT(50), Kraj TEXT(50))"
CurrentDb.Execute "INSERT INTO tblStranke (Podjetje, Kraj) VALUES ('Adria', 'Koper')"
CurrentDb.Execute "INSERT INTO tblStranke (Podjetje, Kraj) VALUES ('Bistra', 'Maribor')"

V podoknu za krmarjenje izberite tblStranke in izberite Ustvari › Obrazec; obrazec shranite kot frmStranke. Izberite Ustvari › Prazen obrazec, nanj postavite oznako „Dobrodošli“ in ga shranite kot frmStart. To sta strani, ki ju lupina prikazuje.

V pogledu načrta ustvarite obrazec, Privzeti pogled nastavite na Enojni obrazec, Izbirniki zapisov in Gumbi za krmarjenje na Ne ter ga shranite kot frmShell. V odseku s podrobnostmi:

1. Izberite Načrt obrazca › Kontrolniki › Kontrolniki ActiveX, označite WKL Navigation Bar, kliknite V redu in kontrolnik narišite ob celotnem levem robu, približno 6 cm širok. Poimenujte ga navMain.
2. Čez preostanek odseka narišite kontrolnik podobrazca, ga poimenujte sfPage in njegov Izvorni objekt nastavite na Form.frmStart.
3. Na enak način vstavite WKL Dock Layout, ga narišite čez oba, poimenujte Layout1 in izberite Razporedi › Pošlji na dno.

Sidra kontrolnikov navMain in sfPage pustite na Zgoraj levo. V listu z lastnostmi kontrolnika Layout1, zavihek Drugo, v vrstici Po meri kliknite [...] in na strani Območja preverite, ali je postavitev našla navMain (Levo) in sfPage (Zapolni); kliknite V redu.

Izberite navMain in v listu z lastnostmi v vrstici Po meri kliknite [...]. Na strani Vnosi:

1. Kliknite Vnos. V poljih pod seznamom nastavite Ključ start in Napis Začetek, nato kliknite Izberi … ob Simbol: vnesite hiša in pritisnite Enter. Vklopite Izbrano ob odpiranju.
2. Kliknite Skupina, nastavite Ključ data in Napis Podatki.
3. Ko je skupina izbrana, kliknite Vnos: Ključ customers, Napis Stranke, simbol people (iskanje ljudje).
4. Znova kliknite Vnos, nastavite Ključ settings, Napis Nastavitve, simbol zobnik in v Mesto izberite Ob spodnjem robu.

Predogled prikaže vrstico razširjeno in kot stolpec simbolov. Kliknite V redu in shranite obrazec.

Odprite modul obrazca (Načrt obrazca › Ogled kode) in dodajte:

Private Sub navMain_Navigate(ByVal Key As String)
    Select Case Key
        Case "start": Me!sfPage.SourceObject = "Form.frmStart"
        Case "customers": Me!sfPage.SourceObject = "Form.frmStranke"
        Case "settings": MsgBox "Nastavitve"
    End Select
End Sub
 
Private Sub Form_Load()
    ' Badges are run-time values: set them whenever the form opens.
    Me!navMain.Object.SetBadge "customers", DCount("*", "tblStranke"), wskInfo
End Sub

Odprite frmShell v pogledu obrazca in preizkusite:

• Kliknite Stranke: stran prikaže stranke; vnos je označen.
• Kliknite preklopni gumb (tri črte) ali pritisnite Ctrl+B: vrstica postane stolpec simbolov, stran pa se razširi; ob ponovitvi se vrstica znova razširi. Ctrl+B deluje tudi, ko ima fokus polje na strani.
• Povlecite trak med vrstico in stranjo: razširjena vrstica postane širša.
• S tipko Tab se premaknite v vrstico ter uporabite puščične tipke in Enter.
• Zaprite obrazec in ga znova odprite: način in širina sta takšna, kot ste ju pustili.

Lupina, katere stran se spreminja glede na vnos, ki ga izbere uporabnik, vrstica, ki preklaplja med napisi in simboli ter si zapomni izbiro vsakega uporabnika, značka s številom strank in nobene kode razen procedure Navigate in značke.

• Polnjenje vrstice za krmarjenje iz tabele: ista lupina brez procedure Navigate, vnosi in strani pa so shranjeni v tabeli
• Prikaz števil na vnosih za krmarjenje
• Zadržanje uporabnika na strani z neshranjenimi spremembami
• Prekrivanje strani z vrstico za krmarjenje
• Uporaba postavitve na strani za krmarjenje
• Odpiranje obrazcev iz vrstice za krmarjenje
• WklNavBar