Құпия ақпараты бар мәліметтер базасы үшін кіру формасы міндетті болып табылады. Дерекқорды жарамсыз кіруден қорғау үшін өзіңіздің кіру формаңызды жасау үшін төмендегі қадамдарды орындаңыз.
Енді жүктеп
Егер сіз бұл мүмкіндікті мүмкіндігінше тезірек пайдалана бастағыңыз келсе, онда сіз:
VBA кодтары бар дерекқор үлгісін қазір жүктеп алыңыз
Әйтпесе, егер сіз өзіңіздің қолыңызбен жасағыңыз келсе, төмендегі мазмұнды оқи аласыз.
Access бағдарламасында кіру формасын құру қадамдары
1. Кіру кестесін құрыңыз
Біріншіден, біз кіру туралы барлық ақпаратты сақтайтын кесте құруымыз керек.
- Жаңа кесте құрыңыз және оны атаңыз tbl_login.
- Кестені дизайн көрінісінде ашыңыз.
- Сәйкес деректер түрлерімен келесі өрістерді қосыңыз:
| Өріс атауы | Деректер түрі |
| Қолданушының ID | Автонөмір |
| Аты | Қысқа мәтін |
| Тегі | Қысқа мәтін |
| Пайдаланушы аты | Қысқа мәтін |
| пароль | Қысқа мәтін |
- Құпия сөзді енгізу маскасын өңдеңіз, ол жұлдызша (*) сериясы ретінде көрсетіледі.
- Құпия сөз өрісін таңдаңыз.
- Жалпы қойындысына өтіңіз> Енгізу маскасы>…
- Енгізу маскасы шебері ашылғанда, Құпия сөзді таңдаңыз.
- Аяқтау түймесін басыңыз.
- Кестені деректер парағының көрінісінде ашыңыз және бірінші жазбаны енгізіңіз (кіру мәліметтері).
- Кестені жабыңыз және енгізілген өзгертулерді сақтаңыз.
2. Кіру формасын жасаңыз
2 мәтіндік жәшігі мен 2 командалық батырмасы бар бос пішінді жасаңыз (төменде көрсетілгендей). Пәрмен батырмасының шеберін өткізіп жіберіңіз.
Біз бұл кодты басқару элементтеріне кейінірек сілтеме жасаймыз, сондықтан оларды оңай анықтауға болатындай етіп олардың атын өзгерту жақсы болар еді:
- txt_username
- txt_password
- cmd_login
- cmd_cancel
Әрі қарай, құпия сөз мәтін ұясының енгізу маскасын өзгертіңіз, ол жұлдызша (*) сериясы ретінде көрсетіледі.
- Дизайн көрінісінде құпия сөз мәтін ұясын таңдаңыз.
- Меншік парағын ашыңыз (ALT + Enter).
- Деректер қойындысына> Енгізу бүркенішіне өтіңіз.
- Құпия сөзді таңдап, Дайын түймесін басыңыз.
Енді біз форманың кейбір қасиеттерін эстетикалық мақсаттар үшін және ең бастысы, пайдаланушылардың дұрыс кіру деректерін енгізбестен бұл форманы айналып өте алмауын қамтамасыз ету үшін өзгертеміз.
- Дизайн көрінісінде пішінді таңдаңыз (төменде көрсетілгендей).
- Сипаттар парағын ашыңыз (ALT + Enter) және келесі сипаттарды жаңартыңыз:
- Астында формат қойындысы
- Тақырып: Кіру
- Жазуды таңдаушылар: Жоқ
- Жылжу түймелері: Жоқ
- Айналдыру жолақтары: Ешқайсысы
- Шекараның стилі: диалог
- Жабу түймесі: Жоқ
- Астында басқа қойындысы
- Қалқымалы терезе: Иә
- Модель: Иә
- Мәзір: Жоқ
- Пішінді келесідей сақтаңыз frm_login.
3. Кодты қосыңыз
Кіру түймесіне On Click оқиғасын қосыңыз.
- Дизайн көрінісінде Кіру түймесін таңдаңыз.
- Меншік парағына өтіңіз> Оқиғалар қойындысы> Басу кезінде> ...
- таңдау Код құрастырушы Құрушы таңдау мәзірінен ОК түймесін басыңыз.
- Бұл VBA редакторын ашады.
- Төмендегі кодты көшіріңіз.
Private Sub cmd_login_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
If Trim(Me.txt_username.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Username should not be left blank.", buttons:=vbInformation, title:="Username Required"
Me.txt_username.SetFocus
Exit Sub
End If
If Trim(Me.txt_password.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Password should not be left blank.", buttons:=vbInformation, title:="Password Required"
Me.txt_password.SetFocus
Exit Sub
End If
'query to check if login details are correct
strSQL = "SELECT FirstName FROM tbl_login WHERE Username = """ & Me.txt_username.Value & """ AND Password = """ & Me.txt_password.Value & """"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
If rst.EOF Then
MsgBox prompt:="Incorrect username/password. Try again.", buttons:=vbCritical, title:="Login Error"
Me.txt_username.SetFocus
Else
MsgBox prompt:="Hello, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
DoCmd.Close acForm, "frm_login", acSaveYes
End If
Set db = Nothing
Set rst = Nothing
End Sub
Бұл код болады:
- Пайдаланушы аты мен құпия сөз өрістері бос қалдырылмағанын тексеріңіз. Егер олар болса, шақыру пайда болады.
- Кіру кестесіндегі мәндермен салыстыру арқылы кіру мәліметтерінің дұрыстығын тексеріңіз (tbl_login).
- Кіру мәліметтері тексерілгеннен кейін пайдаланушыны қарсы алатын шақыру пайда болады.
Келесі қадам - Болдырмау батырмасының кодын қосу, ол басылғаннан кейін мәліметтер базасы жабылады.
- Болдырмау түймесіне On Click оқиғасын қосыңыз (кіру түймесімен бірдей рәсім).
- Төмендегі кодты көшіріңіз.
Private Sub cmd_cancel_Click() DoCmd.Quit acQuitSaveAll End Sub
4. Кіру формасын дисплей формасы ретінде орнатыңыз
Соңында, кіру формасын пайдаланушылар дерекқорды ашқан кезде көретін әдепкі пішін ретінде орнатыңыз.
- Файл> Параметрлер> Ағымдағы деректер қорына өтіңіз.
- Дисплей формасын frm_login мәніне орнатыңыз.
- OK түймешігін басыңыз.
Дерекқорды жабу және оның қалай жұмыс істейтінін көру үшін оны қайта ашу қажет болады.
Қол жетімділік деректер қорын қалпына келтіріңіз
Құттықтаймын! Сіз енді құнды дерекқорды жарамсыз кіруден қалай қорғауға болатынын білесіз. Енді мен сізге қосымша кеңес беремін. Егер қандай да бір себеппен сіздің деректер базаңыз бүлінген болса, дүрбелең ЖҰМЫСЫҢЫЗ. DataNumen Inc., деректерді қалпына келтіру технологияларының маманы, жөндейтін бағдарламалық қамтамасыз етуді ұсынады бұзылған Access дерекқор. Сіздің дерекқорды әлі де қалпына келтіруге болады.
Автордың кіріспесі:
Джейм Стек - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL қалпына келтіру және excel қалпына келтіру бағдарламалық жасақтама өнімдері. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com