Cara Membuat Form Lupa Password di Form Login tanpa Database
Pada artikel sebelumnya atau tepatnya kemarin tanggal 1 Januari 2023 Saya sudah membahas bagaimana cara membua form login tanpa database tahap 1, dimana pada tahap 1 kemaren saya hanya membuat Form Login saja, tapi kali ini sesuai artikel yang kemarin bahwa kita akan membuat 3 Form yaitu Form Login, Form Lupa Password dan Form Edit Password. Kini kita sudah memasuki tahap yang kedua yaitu membuat Form untuk Lupa Password.
Berikut adalah dibawah ini adalah gambar Form Login yang sudah kita buat dengan disertai link Lupa Password
 |
| Form Login |
Pada gambar diatas terdapat label yang bertuliskan Lupa Password (yang ditandai kotak merah) dimana pada saat user lupa akan passwordnya maka si User bisa menggunakan bantuan link tersebut untuk mengganti user name dan password yang baru.
Berikut adalah langkah-langakah cara membuat Form Lupa Password pada Form login
1. Buka Form VB6 pilih Standar EXE
2. Pilih File >> Open Project >> dan buka File yang Anda sudah buat kemarin yaitu membuat Form Login, kemudian..
3. Tambahkan Form baru yaitu Form 2. Pada Form 1 kita sudah buat kemarin (untuk yang belum mengerjakan Form 1 silahkan buka cara membuat form login tanpa Database terlebih dahulu
4. Tambahkan 2 Label, 2 Textbox dan 1 Commandbutton di Form 2. Desainlah Form seperti gambar dibawah ini :
 |
| Desain Form Lupa Password |
Setelah mendesain Form seperti gambar diatas lalu ketik kode dibawah ini :
Dim strName As String
Dim strPass As String
Private Sub Command1_Click()
If Command1.Caption = "Close" Then
Form2.Hide
Else
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Data harus diisi", vbOKOnly, "Perhatian"
Text1.SetFocus
Else
Open App.Path & "\pass.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1
MsgBox "User Name dan Password telah dibuat..!!!", vbOKOnly, "Berhasil...!!!"
End If
End If
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
'kosongkan textbox
Text1.Text = ""
Text2.Text = ""
'ambil data file .TXT
Open App.Path & "\pass.txt" For Input As #1
Input #1, strName
Input #1, strPass
Close #1
'membuat form slalu tampil ditengan
Dim Atas As Long
Dim Kiri As Long
Atas = (Screen.Height - Me.Height) / 2
Kiri = (Screen.Width - Me.Width) / 2
Me.Move Kiri, Atas
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'penekanan tombol Enter
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_Change()
If Text2.Text = "" Then
Command1.Caption = "Close"
Else
Command1.Caption = "Buat"
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
'penekanan tombl Enter
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Setelah mengetikan kode, jalankan program Anda dan hasil Formnya akan seperti gambar dibawah ini :
 |
| Form Buat Password |
Cara Pengoperasian Form :
Masukan User Name dan Password baru pada kedua Textbox kosong, ketika Anda mulai mengetikan Password baru tombol Close berubah menjadi tombol Buat jika ingin membatalkan kosongkan kolom Password tekan saja Close.Jika ingin membuat user name dan password baru tekan Buat.
Contoh keamrin saya sudah menbuat form login dengan user name : admin1 dan password : admin1 anggap saja saya lupa password atau lupa nama user, kali ini saya akan mengganti user name menjadi “admin” dan passwordnya “root” lalu saya akan menekan “Buat”, berikut adalah gambar ilustrasinya :
 |
| Ganti Password |
Sealin itu nama User Name dan Password yang tersimpan di Notepad pun otomatis jadi berubah
Dan ini adalah langkah terakhir yang sangat penting yan tidak boleh terlewatkan :
Penting:
Buka Form 1 lalu lalu dobel klik "Label Lupa/ganti Password" pilih "Event Click" ketik kodenya seperti dibawah ini :
Form2.Show
maka ketika anda menjalankan Form1 lalu mengklik "Lupa/GntiPassword" maka form Pembuatan Password baru akan muncul dalam hal ini Form2
Demikinalah artikel dari saya Cara Membuat Form Lupa Password di Form Login tanpa Database,kita akan lanjutkan kembali untuk membuat Form ke 3 yaitu Form Edit Password pada artikel selanjutnya. Semoga artikel ini bermanfaat buat kita semua.Amin..
Selamt mencoba semoga berhasil
No comments:
Post a Comment