Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte databázu v programe Access 2007 a pridať novú tabuľku s názvom " tblFailedAttempts . " Táto tabuľka bude mať počet pokusov o prihlásenie , že niekto má v aktuálnej relácii . Kliknite na záložku " Vytvoriť " a potom " Tabuľka " . Vytvoriť tabuľku v návrhovom zobrazení . Dajte tabuľke troch oblastiach : " AttemptID " ako " Automatické číslo " dátový typ , " prihlásenie " s " Text " typ dát a " attempt_time " ako " Date /Time " dátový typ . Uložte a zatvorte tabuľku . 
 2 
 Prejsť na prihlasovací formulár , ktorý práve používate , a zobrazenie kódu pre formulár . Kliknite na záložku " Databáza Nástroje " a potom kliknite na " Visual Basic " . Dvakrát kliknite na názov pre formuláre v zozname objektov v ľavej strane editore jazyka Visual Basic . 
 3 
 Pridať tento kód do kódu jazyka Visual Basic už prezentovať na formulár . Kód sa otvorí " tblFailedAttempts " tabuľku a uvidíte , koľko pokusov , že osoba už . To tiež zvýši počet neúspešných pokusov o každom , že človek sa snaží prihlásiť . V neposlednom rade , bude kód zablokovať osobu , a po svojom treťom neúspešnom pokuse . 
 
 " Nastaviť rst1 = db.OpenRecordset ( " tblFailedAttempts " , dbOpenDynaset ) 
 
S rst1 Zavrieť databáze
 . AddNew 
 
 ! [ computer_login ] = Me.txtUser_hidden 
 
 . Aktualizácia 
 
 End With 
 
 MsgBox " Zadali ste nesprávne používateľské meno alebo heslo . " & Chr ( 13 ) & _ 
 
 " Prosím , zadajte správne užívateľské meno a heslo , alebo " & Chr ( 13 ) & _ 
 
 " kontaktujte databázy Adminstrator o pomoc . " vbOKOnly + vbCritical , " Odopretie prihlásenie " 
 
 " To sa počíta , koľkokrát užívateľ zadal v zlom ID užívateľa /heslo combo . Po troch pokusoch užívateľ 
 
 " pozastavená z DB , a nemožno získať prístup , kým sa ich účtu resetovať Admin 
 
 cnt = cnt + 1 " prírastok pult , ak zle zadané heslo 
 
 Ak cnt = 3 Then ' Nastavenie počtu pokusov 
 
 " Display Message Box 
 
 MsgBox " porušenie prístupu Program bude teraz ukončený " , " porušenie Detected " 
 
 DoCmd.OpenForm " frmPWChangeCheck " , , , , , acHidden 
 
 ' zmeniť frmPWChangeCheck na názov vášho prihlasovacieho formulára 
 
 [ Forms ] ! [ frmPWChangeCheck ] ! [ Active] = False 
 
 DoCmd.Quit " ukončiť aplikáciu a blízky prístup 
 
 End If " 
 4 
 Kliknite na ikonu " Uložiť " v editore jazyka Visual Basic na uloženie zmien do kódu a zatvorte editor . Kliknite na " Uložiť " v hlavnom okne programu Access na karte " Domov " pre uloženie zmien do databázy . 
              
Copyright © počítačové znalosti Všetky práva vyhradené