Нэвтрэх маягт нь нууц мэдээлэл агуулсан мэдээллийн санд зайлшгүй шаардлагатай. Доорх алхмуудыг дагана уу, ингэснээр та өөрийн мэдээллийн сангаа буруу хандалтаас хамгаалахын тулд өөрийн нэвтрэх маягтыг үүсгэж болно.
Одоо Татах
Хэрэв та энэ функцийг аль болох хурдан ашиглаж эхлэхийг хүсвэл дараах зүйлсийг хийж болно:
VBA кодтой мэдээллийн сангийн дээжийг одоо татаж аваарай
Үгүй бол, хэрэв та DIY хийхийг хүсвэл доорхи агуулгыг уншиж болно.
Access дээр нэвтрэх маягт үүсгэх алхамууд
1. Нэвтрэх хүснэгт үүсгэх
Бидний хийх ёстой хамгийн эхний зүйл бол нэвтрэх бүх мэдээллийг хадгалах хүснэгт үүсгэх явдал юм.
- Шинэ хүснэгт үүсгээд үүнийг нэрлэ tbl_login.
- Хүснэгтийг дизайн хэлбэрээр нээнэ үү.
- Дараах талбаруудыг харгалзах өгөгдлийн төрлөөр нь нэмнэ үү:
| Талбайн нэр | Мэдээллийн төрөл |
| ХэрэглэгчийнID | Авто дугаар |
| Овог нэр | Богино текст |
| Овог нэр | Богино текст |
| Хэрэглэгчийн нэр | Богино текст |
| Нууц үг | Богино текст |
- Нууц үгийн оролтын маскыг дараалсан од (*) хэлбэрээр харуулахаар засна уу.
- Нууц үг талбарыг сонгоно уу.
- Ерөнхий таб > Оролтын маск > ... руу очно уу.
- Input Mask Wizard гарч ирэх үед Нууц үгээ сонгоно уу.
- Дуусгах дээр товшино уу.
- Мэдээллийн хуудасны харагдац хүснэгтийг нээгээд эхний бичлэгийг оруулна уу (таны нэвтрэх мэдээлэл).
- Хүснэгтийг хаагаад хийсэн өөрчлөлтийг хадгална уу.
2. Нэвтрэх маягтыг үүсгэ
2 текст хайрцаг, 2 тушаалын товчлуур бүхий хоосон маягт үүсгэ (доор үзүүлсэн шиг). Тушаалын товчлуурын хөтөчийг алгасах.
Бид эдгээр маягтын хяналтуудыг дараа нь коддоо дурдах тул тэдгээрийг хялбархан танихын тулд нэрийг нь өөрчилсөн нь дээр.
- txt_хэрэглэгчийн нэр
- txt_нууц үг
- cmd_нэвтрэх
- cmd_цуцлах
Дараа нь нууц үгийн текстийн хайрцагны оролтын маскыг дараалсан од (*) хэлбэрээр харуулахаар өөрчил.
- Дизайн харагдах үед нууц үгийн текстийн хайрцгийг сонгоно уу.
- Үл хөдлөх хөрөнгийн хуудсыг нээнэ үү (ALT + Enter).
- Мэдээллийн таб > Оролтын маск руу очно уу.
- Нууц үгээ сонгоод Finish дээр дарна уу.
Одоо бид маягтын зарим шинж чанарыг гоо зүйн зорилгоор, хамгийн чухал нь хэрэглэгчид зөв нэвтрэх мэдээллээ оруулалгүйгээр энэ маягтыг алгасаж чадахгүй байхын тулд өөрчлөх гэж байна.
- Дизайн харагдах үед маягтыг сонгоно уу (доор үзүүлсэн шиг).
- Property Sheet (ALT + Enter) нээгээд дараах шинж чанаруудыг шинэчилнэ үү:
- дагуу хэлбэр таб
- Гарчиг: Нэвтрэх
- Бичлэг сонгогчид: Үгүй
- Навигацийн товчлуурууд: Үгүй
- Гүйлгэх мөр: Аль нь ч биш
- Хилийн хэв маяг: Харилцах цонх
- Хаах товч: Үгүй
- дагуу Бусад таб
- Pop Up: Тийм ээ
- Модал: Тийм ээ
- Товчлолын цэс: Үгүй
- Маягтыг дараах байдлаар хадгал frm_login.
3. Кодоо нэмнэ үү
Нэвтрэх товчлуур дээр On Click үйл явдлыг нэмнэ үү.
- Дизайн харагдах үед Нэвтрэх товчийг сонгоно уу.
- Property Sheet > Event Tab > On Click > … руу очно уу.
- сонгоно уу Код бүтээгч Сонгох Builder цэснээс OK дарна уу.
- Энэ нь 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. нь засвар хийдэг програм хангамжаар хангадаг эвдэрсэн хандалт мэдээллийн сан. Таны мэдээллийн санг сэргээх боломжтой хэвээр байна.
Зохиогчийн танилцуулга:
Jayme Stack бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх болон excel сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com