Cara Melindungi Data Sensitif Anda dengan Borang Log Masuk di Akses

Penyelesaian Akses 29 September 2025
Kongsi Sekarang:

Borang log masuk adalah mustahak untuk pangkalan data yang mengandungi maklumat sensitif. Ikuti langkah-langkah di bawah ini sehingga anda dapat membuat borang log masuk anda sendiri untuk melindungi pangkalan data anda dari akses yang tidak sah.

Muat Turun Sekarang

Jika anda ingin mula menggunakan ciri ini secepat mungkin, anda boleh:

Muat turun Contoh Pangkalan Data dengan Kod VBA Sekarang

Jika tidak, jika anda mahu DIY, anda boleh membaca kandungannya di bawah.

Langkah-langkah Membuat Borang Log Masuk di Akses

1. Buat jadual log masuk

Perkara pertama yang perlu kita lakukan ialah membuat jadual yang akan menyimpan semua maklumat log masuk.

  1. Buat jadual baru dan namakan sebagai tbl_login.
  2. Buka jadual dalam paparan reka bentuk.
  3. Tambahkan medan berikut dengan jenis data yang sesuai:
Nama Field Jenis data
ID Pengguna AutoNumber
FirstName Teks Ringkas
LastName Teks Ringkas
UserName Teks Ringkas
Kata Laluan Teks Ringkas

 

  1. Edit topeng input kata laluan sehingga ia akan ditampilkan sebagai rangkaian tanda bintang (*).Edit Topeng Input Kata Laluan
  • Pilih medan Kata Laluan.
  • Pergi ke tab Umum> Masker Input>…
  • Apabila Wizard Masker Input muncul, pilih Kata Laluan.
  • Klik Selesai.
  1. Buka jadual dalam paparan Lembaran Data dan masukkan rekod pertama (maklumat masuk anda).Masukkan Maklumat Log Masuk Anda
  2. Tutup jadual dan simpan perubahan yang dibuat.

2. Buat borang Login

Buat borang kosong dengan 2 kotak teks dan 2 butang arahan (seperti gambar di bawah). Langkau wizard butang arahan.Buat Borang Log Masuk

Kami akan merujuk kepada kawalan borang ini dalam kod kami nanti jadi lebih baik untuk menamakannya semula supaya dapat dikenali dengan mudah:

  • txt_nama pengguna
  • txt_kata laluan
  • cmd_log masuk
  • cmd_cancel

Seterusnya, ubah topeng input kotak teks kata laluan sehingga ia juga akan dipaparkan sebagai rangkaian tanda bintang (*).

  1. Semasa dalam paparan reka bentuk, pilih kotak teks kata laluan.
  2. Buka Helaian Harta (ALT + Enter).
  3. Pergi ke tab Data> Masker Input.
  4. Pilih Kata Laluan dan klik Selesai.

Sekarang, kita akan mengubah beberapa sifat borang untuk tujuan estetik dan yang paling penting, untuk memastikan pengguna tidak boleh memintas borang ini tanpa memasukkan butiran log masuk yang betul.

  1. Semasa dalam paparan reka bentuk, pilih bentuk (seperti gambar di bawah).Pilih Borang
  2. Buka Helaian Properti (ALT + Enter) dan kemas kini sifat berikut:
  • Di bawah format tab
    • Kapsyen: Log masuk
    • Pemilih Rekod: Tidak
    • Butang Navigasi: Tidak
    • Bar Tatal: Tidak
    • Gaya Sempadan: Dialog
    • Butang Tutup: Tidak
  • Di bawah Lain-lain tab
    • Muncul: Ya
    • Modal: Ya
    • Menu Pintasan: Tidak
  1. Simpan borang sebagai frm_login.

3. Tambahkan kod

Tambahkan acara On Click ke butang Login.

  1. Semasa dalam paparan reka bentuk, pilih butang Masuk.
  2. Pergi ke Lembaran Harta> Tab Peristiwa> Pada Klik>…
  3. pilih Pembina Kod dari menu Select Builder dan klik OK.
  4. Ini akan membuka Editor VBA.
  5. Salin kod di bawah.
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

Kod ini akan:

  1. Periksa sama ada medan nama pengguna dan kata laluan tidak dibiarkan kosong. Sekiranya ada, arahan akan muncul.
  2. Periksa sama ada maklumat masuk betul dengan membandingkannya dengan nilai dalam jadual log masuk (tbl_login).
  3. Setelah maklumat masuk disahkan, arahan akan muncul menyambut pengguna.

Langkah seterusnya adalah menambahkan kod untuk butang Batal sehingga setelah diklik, pangkalan data akan ditutup.

  1. Tambahkan acara On Click ke butang Batal (prosedur yang sama dengan butang Login).
  2. Salin kod di bawah.
Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Tetapkan Borang Masuk sebagai Borang Paparan

Akhirnya, tetapkan Borang Log Masuk sebagai bentuk lalai yang akan dilihat pengguna semasa membuka pangkalan data.

  1. Pergi ke Fail> Pilihan> Pangkalan Data Semasa.
  2. Tetapkan Borang Paparan ke frm_login.
  3. Klik OK.

Anda harus menutup pangkalan data dan membukanya semula untuk melihat bagaimana ia berfungsi.

Pulihkan Pangkalan Data Akses Anda

Tahniah! Anda kini tahu cara melindungi pangkalan data berharga anda dari akses yang tidak sah. Sekarang, saya akan memberi anda petua tambahan. Sekiranya, atas sebab yang tidak diingini, pangkalan data anda telah rosak, JANGAN panik. DataNumen Inc., pakar dalam teknologi pemulihan data, menyediakan perisian yang dapat diperbaiki Akses rosak pangkalan data. Pangkalan data anda masih boleh dipulihkan.

Pengenalan Pengarang:

Jayme Stack adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan produk perisian pemulihan yang unggul. Untuk maklumat lebih lanjut, lawati www.datanumen.com

Kongsi Sekarang:

Ruangan komen telah ditutup.