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é