Kirish formasi maxfiy ma'lumotlarni o'z ichiga olgan ma'lumotlar bazalari uchun majburiydir. Ma'lumotlar bazasini noto'g'ri kirishdan himoya qilish uchun o'z login formangizni yaratishingiz uchun quyidagi amallarni bajaring.
Hozir yuklab olmoq
Agar siz ushbu funksiyadan iloji boricha tezroq foydalanishni boshlamoqchi bo'lsangiz, quyidagilarni qilishingiz mumkin:
VBA kodlari bilan namunaviy ma'lumotlar bazasini hozir yuklab oling
Aks holda, agar siz DIY qilishni istasangiz, quyidagi tarkibni o'qishingiz mumkin.
Access-da kirish formasini yaratish bosqichlari
1. Kirish jadvalini yarating
Biz qilishimiz kerak bo'lgan birinchi narsa - barcha kirish ma'lumotlarini saqlaydigan jadval yaratish.
- Yangi jadval yarating va uni shunday nomlang tbl_login.
- Jadvalni dizayn ko'rinishida oching.
- Quyidagi maydonlarni tegishli ma'lumotlar turlari bilan qo'shing:
| Maydon nomi | Ma'lumot turi |
| Foydalanuvchiid | Avtoraqam |
| Ism | Qisqa matn |
| Familiya | Qisqa matn |
| Foydalanuvchi nomi | Qisqa matn |
| Parol | Qisqa matn |
- Parolni kiritish niqobini yulduzchalar qatori (*) ko'rinishida o'zgartiring.
- Parol maydonini tanlang.
- Umumiy yorlig'iga o'ting > Kirish niqobi > ...
- Kirish maskasi ustasi ochilganda, Parolni tanlang.
- Finish tugmachasini bosing.
- Jadvalni Data Sheet ko'rinishida oching va birinchi yozuvni kiriting (kirish ma'lumotlari).
- Jadvalni yoping va kiritilgan o'zgarishlarni saqlang.
2. Login formasini yarating
2 ta matn qutisi va 2 ta buyruq tugmasi bilan bo'sh shakl yarating (quyida ko'rsatilganidek). Buyruqlar tugmasi ustasini o'tkazib yuboring.
Keyinchalik kodimizda ushbu shakl boshqaruvlariga murojaat qilamiz, shuning uchun ularni osongina aniqlash uchun ularni qayta nomlash yaxshi bo'ladi:
- txt_username
- txt_password
- cmd_login
- cmd_cancel
Keyinchalik, parol matn maydonining kiritish niqobini o'zgartiring, shunda u yulduzcha (*) qatori sifatida ko'rsatiladi.
- Dizayn ko'rinishida parol matn maydonini tanlang.
- Xususiyatlar varaqini oching (ALT + Enter).
- Ma'lumotlar yorlig'iga o'ting > Kirish niqobi.
- Parolni tanlang va Finish tugmasini bosing.
Endi biz estetik maqsadlar uchun va eng muhimi, foydalanuvchilar to'g'ri kirish ma'lumotlarini kiritmasdan ushbu shaklni chetlab o'tolmasligiga ishonch hosil qilish uchun shaklning ba'zi xususiyatlarini o'zgartirmoqchimiz.
- Dizayn ko'rinishida shaklni tanlang (quyida ko'rsatilganidek).
- Xususiyatlar varaqini oching (ALT + Enter) va quyidagi xususiyatlarni yangilang:
- Ostida format tab
- Sarlavha: Kirish
- Yozuv tanlovchilari: Yo'q
- Navigatsiya tugmalari: Yo'q
- O'tkazish paneli: yo'q
- Chegara uslubi: dialog oynasi
- Yopish tugmasi: Yo'q
- Ostida boshqa tab
- Qalqib chiquvchi: Ha
- Modal: Ha
- Yorliqlar menyusi: Yo'q
- Shaklni shunday saqlang frm_login.
3. Kodni qo'shing
Kirish tugmasiga On Click hodisasini qo'shing.
- Dizayn ko'rinishida Kirish tugmasini tanlang.
- Xususiyatlar sahifasiga o'ting > Voqealar yorlig'i > Bosish > ...
- tanlang Kod yaratuvchisi Builder-ni tanlang va OK tugmasini bosing.
- Bu VBA muharririni ochadi.
- Quyidagi koddan nusxa oling.
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
Bu kod:
- Foydalanuvchi nomi va parol maydonlari bo'sh qolmaganligini tekshiring. Agar ular bo'lsa, so'rov paydo bo'ladi.
- Kirish ma'lumotlari to'g'ri yoki yo'qligini tizimga kirish jadvalidagi qiymatlar bilan solishtirish orqali tekshiring (tbl_login).
- Kirish ma'lumotlari tekshirilgandan so'ng, foydalanuvchini kutib olish taklifi paydo bo'ladi.
Keyingi qadam, Bekor qilish tugmasi uchun kodni qo'shishdir, shunda uni bosgandan so'ng, ma'lumotlar bazasi yopiladi.
- Bekor qilish tugmasiga On Click hodisasini qo'shing (Kirish tugmasi bilan bir xil protsedura).
- Quyidagi koddan nusxa oling.
Private Sub cmd_cancel_Click() DoCmd.Quit acQuitSaveAll End Sub
4. Kirish formasini ko'rsatish formasi sifatida o'rnating
Nihoyat, Kirish formasini foydalanuvchilar ma'lumotlar bazasini ochganda ko'radigan standart shakl sifatida o'rnating.
- Fayl > Variantlar > Joriy ma’lumotlar bazasiga o‘ting.
- Displey formasini frm_login ga o'rnating.
- OK ni bosing.
Uning qanday ishlashini ko'rish uchun ma'lumotlar bazasini yopishingiz va uni qayta ochishingiz kerak bo'ladi.
Access ma'lumotlar bazasini tiklang
Tabriklaymiz! Endi siz qimmatbaho ma'lumotlar bazasini noto'g'ri kirishdan qanday himoya qilishni bilasiz. Endi men sizga qo'shimcha maslahat beraman. Agar noxush sabablarga ko'ra ma'lumotlar bazasi buzilgan bo'lsa, vahima qo'ymang. DataNumen Inc., ma'lumotlarni tiklash texnologiyalari bo'yicha mutaxassis, ta'mirlovchi dasturiy ta'minotni taqdim etadi buzilgan Access ma'lumotlar bazasi. Ma'lumotlar bazasi hali ham tiklanishi mumkin.
Muallif kirish:
Jayme Stack - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sqlni tiklash va excel tiklash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com