Membuat Password

Tutorial Cara Membuat Form Login di MS Access - Selamat berjumpa kembali sobat blog-pns. Pada tutorial kali ini saya akan membagikan Tutorial Cara Membuat Form Login di MS Access. Form login biasanya ditampilkan saat aplikasi pertama kali dijalankan. Form login ini berfungsi sebagai proses autentifikasi bagi user atau pengguna ketika menjalankan suatu aplikasi, walaupun pada kenyataannya tidak semua aplikasi dilengkapi/memakai dengan  form login.

Contoh Form Login seperti gambar berikut

Sebelumnya pasti sobat sudah membaca artikel saya yang lalu, yaitu artikel yang berjudul Tutorial Membuat Aplikasi dengan MS Access Bagian – 1 dan artikel Tutorial Membuat Aplikasi dengan MS Access Bagian – 2. Pada artikel tersebut  saya sudah menjelaskan tentang cara membuat form, cara membuat command button, cara membuat tabel, membuat textbox, membuat query dan sebagainya. Jadi saya anggap sobat sudah memahaminya dengan baik.

1.    Pertama-tama buatlah sebuah tabel dengan struktur field seperti gambar di bawah. Jangan lupa di save dan beri nama tbl_user.

2.    Klik dua (2) kali pada tabel tbl_user  yang telah anda buat, inputlah kata "admin" pada kolom user dan "xx" pada kolom password. Pada kolom password nilainya terlihat sebagai simbol "**". Ini berfungsi agar password yang diinput nanti tidak akan kelihatan. Karena sudah diatur pada property Input Maskdiisi dengan Password.

3.    Buat juga sebuah form seperti gambar di bawah ini, tambahkan dua buah textbox dan dua buah command button. Jangan lupa di save dan beri nama frm_LOGIN. 

4.    Klik kotak pada sudut kanan atas frm_login  yang dilingkari merah, selanjutnya pada Record Source di Property sheet, klik tanda yang dilingkari merah untuk membuat query pada frm_LOGIN. Jika sudah selesai tutup kotak query builder dan save.

5.    Kembali pada form frm_LOGIN, tambahkan  2 (dua) buah textbox dan pada property All beri nama text3 dengan name = userx, text4 dengan name = password. Sesuaikan juga dengan Control Source masing-masing yaitu text3 control source = User, text4 = Password.

Kedua textbox ini berfungsi untuk mengambil nilai pada tabel tbl_user yang telah diisi sebelumnya dan membandingkannya dengan nilai yang diinput pada Nama User dan Password yang diminta. Jika nilainya cocok maka akan dieksekusi. Jika tidak cocok maka akan ditolak atau aplikasi tidak akan melanjutkan ke form berikutnya.

6.    Selanjutnya agar kedua textbox yang baru dibuat tidak dimunculkan pada saat form frm_LOGIN dijalankan, aturlah agar kedua texbox tersebut dalam keadaan tersembunyi dengan memilih No padaVisible.

Untuk lebih jelasnya pengaturan property form seperti pada tabel berikut  :

7.    Klik kanan pada command1 yang kita sudah ganti namanya menjadi cmdLogin lalu pilih Macro builder, seperti pada gambar di bawah ini. Lakukan hal yang sama untuk cmdExit.

Selanjutnya salinlah script kode dibawah ini dan paste di dalam cmdLogin

Private Sub cmdLogin_Click()

On Error Resume Next

Dim db As Database, s As String, rs As Recordset

Set db = CurrentDb

If IsNull(Me!User) Then

    Beep

    MsgBox "Mohon Diisi dulu User Namenya....", 64, "USER"

    Me!User.SetFocus

Exit Sub

End If

If IsNull(Me!Password) Then

    Beep

    MsgBox "Mohon Diisi dulu Passwordnya....", 64, "PASSWORD"

    Me!Password.SetFocus

Exit Sub

End If

s = "SELECT tbl_User.* FROM tbl_User;"

Set rs = db.OpenRecordset(s)

If Me!Password <> Me!pass Or Me!User <> Me!userx Then

    MsgBox "Password Tidak Benar...Masukkan Password ", vbCritical, "SORRY.."

    Me!Password.SetFocus

    Else

        DoCmd.OpenForm "frm_Utama", acNormal

        DoCmd.Close acForm, "frm_login"

End If

End Sub

Pada script perintah DoCmd.OpenForm "frm_Utama",acNormal diatas akan memanggil form yang bernama frm_Utama (anda bisa mengganti namanya sesuai selera). Buatlah lebih dahulu form frm_Utama ini untuk menguji apakah script/kode ini bisa berfungsi atau tidak. 

Sedangkan script/kode DoCmd.Close acForm, "frm_login" berfungsi untuk menutup form frm_LOGIN secara otomatis jika form frm_Utama sudah dieksekusi/dijalankan.

8.    Selanjutnya klik kanan pada command2 yang kita sudah ganti namanya menjadi cmdExit lalu pilih Macro builder, seperti point nomor 7 di atas.

Private Sub cmdExit_Click()

    If MsgBox("Tutup Aplikasi ?", 33 + 256, "LOGOUT") = 1 Then

        DoCmd.Quit

    Else

    End If

End Sub

Bersambung ke artikel selanjutnya yaitu  Tutorial Cara Membuat Form Ganti Password 

Demikianlah tutorial tentang Tutorial Cara Membuat Form Login di MS Access.
Semoga bermanfaat. 

Memahami Dunia Maya

Mari Memahami .....

Dunia maya sering menjadi pertentangan dalam kehidupan ini, bukan hanya karena keberadaan ataupun kegunaannya, tapi lebih jauh lagi yaitu dampak maupun manfaatnya bagi perkembangan peradaban manusia. Peradaban manusia tidak dapat dipisahkan dari perkembangan ilmu pengetahuan dan teknologi oleh karenanya kita tidak dapat menutup mata dengan adanya dunia maya, hampir setiap saat kita selalu disibukkan dengan obrolan-obrolan kecil yang melibatkan diri kita dan orang disekitar kita melalui dunia maya, bahkan sebagaian orang beranggapan bahwa dunia maya adalah kehidupan baru, ataupun bahkan sering terlontar istilah “Yang jauh semakin dekat dan yang dekat semakin menjauh” itu semua karena kesibukan kita di dunia maya. Saya tidak ingin terlalu jauh menceritakan dampak negative dari keberadaan dunia maya, namun saya ingin kita tahu bersama dibalik keberadaannya tentu ada hal positif yang bias kita temui, sebab kita ketahui bersama bahwa tidak ada sesuatu apapun di dunia ini yang tidak memiliki manfaat. Saya ingin mengatakan bahwa dengan adanya dunia maya orang akan semakin pintar dan berani untuk mengatakan apa yang ada dalam hatinya ataupun telah mampu mengeksploitasi yang mereka miliki meskipun dalam sebuah goresan-goresan kata yang terpajang pada dinding-dinding maya.

Saat kita duduk di bangku sekolah, kita mungkin tidak asing dengan tulisan di mading atau coretan dinding atau bahkan buku harian yang merupakan goresan perasaan hati seseorang, namun semua itu kadang berlalu begitu saja tanpa memberi arti apa-apa pada orang yang membaca dan melihatnya kecuali bagi pribadi yang menggoreskannya. Namun kini keberadaan goresan di dunia maya entah sengaja dibuat untuk maksud tertentu ataupun hanya merupakan pelampiasan perasaan hati penulisnya bisa menjadi inspirasi bagi siapa saja yang membacanya. Oleh karenanya saya ingin mengatakan jangan terlalu melihat sisi negative dari keberadaan dunia maya tapi lihatlah sisi positifnya dan berusahalah untuk selalu membuat goresan-goresan kecil di dunia maya, karena bisa jadi goresan kecil itu menjadi inspirasi yang besar bagi orang yang membacanya ………….

Ayam Bangkok

Cara membedakan jenis kelamin anakan ayam bangkok usia 0-30 hari dengan tepat yaitu dengan father sexing dan vent sexing. dari kedua metode ini memiliki tingkat akurasi yang tinggi untuk usia anak ayam satu sehingga beberapa hari. 

Teori Vent Sexing Teori ini dapat dilakukan dengan cara memeriksa kloaka atau alat kelamin secara langsung dengan cara membuka kloaka apakah didalam lubang kloaka tersebut ada benjolan kecil atau tidak. Jika pada kloaka anak ayam terdapat seperti benjolan kecil meruncing maka dapat dipastikan anakan ayam tersebut berkelamin jantan, namun juka pada kloaka tidak terdapat benjolan dan hanya terlihat lubang kloaka saja maka dapat dipastikan anak ayam tersebut berkelamin betina. Teori ini mempunyai akurasi yang sangat tinggi, namun mempunyai kelemahan yaitu teori tersebut hanya bisa dilakukan pada anak ayam umur 1-2 hari saja. 

Teori Feather Sexing Teori ini lebih mudah dilakukan dari pada Teori Vent sexing, karena hanya memeriksa langsung pada bulu sayap primer dan bulu sayapkecil. Untuk membedakannya silakan anda lihat pada gambar diatas. Bulu sayap primer anak ayam jantan mengalami pertumbuhan yang lambat atau mempunyai panjang yang sama dengan bulu sayap kecil (bulu sayap atas). Sedangkan bulu sayap primer anak ayam betina mempunyai pertumbuhan yang lebih cepat dan lebih panjang dari bulu sayap atas. Teori tersebut juga mempunyai tingkat akurasi yang tinggi jika dilakukan pada anak ayam umur 1-7 hari. 

Kantor KPH Palopo

Kantor KPH Palopo