Sistem login merupakan salah satu elemen yang fundamental dalam kebanyakan aplikasi dan situs web saat ini.
Penggunaan sistem login memungkinkan pengguna untuk mengakses dan menggunakan layanan atau fitur yang tersedia dengan cara yang aman dan terstruktur. Dalam konteks digital modern yang terus berkembang, sistem login menjadi pintu gerbang utama yang mengatur akses ke berbagai jenis informasi dan layanan online. Sistem login secara umum berfungsi dengan meminta pengguna untuk memasukkan kredensial yang unik, seperti nama pengguna dan kata sandi, atau metode otentikasi lainnya, seperti verifikasi dua faktor, untuk memverifikasi identitas mereka sebelum diberikan akses ke akun atau platform tertentu. Dengan menggunakan sistem ini, pengguna dapat mengelola privasi dan keamanan data pribadi mereka, serta mengontrol interaksi mereka dengan platform online.
Dalam tulisan ini, kita akan bersama mencoba untuk membuat formulir login untuk sistem access database pasien. Langkah pertama yaitu:
- Buat tabel untuk daftar data akun login lalu simpan dan berikan nama tabel sesuai keinginan Anda. Untuk dalam tulisan ini kami menggunakan Tabel Password
- Desain data field untuk tabel database seperti pada gambar di bawah:
mendesain format field tabel database untuk user - Isikan data username dan password seperti gambar di bawah sesuai kebutuhan
- Buat formulir login dan berikan nama sesuai kebutuhan. Untuk contoh dalam tulisan ini kami menggunakan nama login2.
- Desain formulir dengan menambahkan field Combo box, text, dan button. Untuk combobox pilihan datanya diambil dari tabel database, untuk text dihubungkan dengan bagian field User Password di tabel password. Untuk button berikan label dengan CmdLogin untuk text login dan CmdExit untuk fungsi exit.
- Pada tombol login masukkan fungsi menggunakan coding VBA. Adapun baris koding yang diisikan ditampilkan pada gambar di bawah.
- Sesuaikan beberapa baris koding yang ditanda merah pada gambar di bawah dengan field yang sudah dibarikan label nama.
Berikut kode lengkapnya, bisa langsung dicopas saja ya
Private Sub CmdLogin_Click()If IsNull(Me.CboNama) Or Me.CboNama = "" ThenMsgBox "Pilih Username terlebih dahulu", vbOKOnly, "Masukkan Username"Me.CboNama.SetFocusExit SubEnd IfIf IsNull(Me.TxtPword) Or Me.TxtPword = "" ThenMsgBox "Masukkan Passwordnya...", vbOKOnly, "Masukkan Password"Me.TxtPword.SetFocusExit SubEnd IfIf Me.TxtPword.Value = DLookup("UserPassword", "Tabel password", "[UserID]=" & Me.CboNama.Value) Then' MyUserID = Me.Cbo.ValueMsgBox "Login anda berhasil", vbOKOnly, "Konfirmasi"DoCmd.Close acForm, "LOGIN2", acSaveNoDoCmd.OpenForm "input_data"ElseMsgBox "Password yang anda masukkan salah", vbCritical, "Konfirmasi"Me.TxtPword.SetFocusEnd IfEnd Sub
Demikian tutorial ini, selamat mencoba dan jika ada yang ingin didiskusikan bisa kirim komentar di bawah ya.