Script Ganti Password Menggunakan VB6

Diposting pada

Hahaha VB yang saat ini sedang di ambang kepunahan khususnya VB jadul masih dibahas. Hahahaha  postingan ini bisa dibilang postingan yang gak bermutu, abaikan saja. Tapi tak apa-apa, pasalnya di beberapa kampus IT di Indonesia VB6 masih dipelajari, entah karena otak mereka ditaruh di dengkul atau di pantat Saya tak tahu.

Karena memang sebelumnya Saya pernah terpaksa membuat program menggunakan VB6 karena tuntutan tugas kampus, maka sedikit banyak saya akan share disini, siapa tau bermanfaat bagi adik-adik kelas yang saat ini sedang dipusingkan dengan tugas pembuatan program menggunakan VB “Bosok” :D.

Jika dibandingkan dengan web programming, untuk membuat script ganti password cukuplah rumit, namun tidak di VB6, membuat Script ganti password menggunakan VB6 amatlah mudah. Script ganti password yang saya buat menggunakan VB6 sudah termasuk validasi passwordnya, jika pada web programming membuat script ganti password beserta validasinya bisa memakan banyak code, tetapi di VB6 kode yang tertulis hanyalah sedikit.
pass

Berikut scriptnya:
Public kon As New ADODB.Connection
Sub dataupdate()
kon.ConnectionString = “driver=mysql odbc 3.51 driver;server=localhost;uid=root;pwd=passwordanda;db=penjualan;”
kon.Open
perbarui = “update adminlogin set password = ‘” & retypepass & “‘ where nip = ‘” & nip & “‘”
kon.Execute perbarui
kon.Close
End Sub
Private Sub cancel_Click()
editpassadmin.Hide
End Sub
Private Sub change_Click()
If oldpass.Text = “” Then
oldpass.BackColor = &H80FFFF
oldpassmsg.Caption = “Password lama harus diisi!”
ElseIf newpass.Text = “” Then
newpass.BackColor = &H80FFFF
newpassmsg.Caption = “Password baru harus diisi!”
ElseIf retypepass.Text = “” Then
retypepass.BackColor = &H80FFFF
retypepassmsg.Caption = “Konfirmasi password baru harus diisi!”
ElseIf oldpass.Text <> rsuser!password Then
MsgBox “Password yang Anda masukkan Tidak sesuai”
ElseIf newpass.Text <> retypepass.Text Then
MsgBox “Password yang Anda masukkan Tidak sesuai”
ElseIf retypepass.Text = newpass.Text Then
Call dataupdate
MsgBox “Password Anda berhasil diganti”
End If
End Sub
Private Sub Form_Activate()
nama.Caption = rsuser!namauser
nip.Caption = rsuser!nip
End Sub
Private Sub newpass_KeyPress(keyascii As Integer)
If Not newpass.Text = Empty Then
newpassmsg.Caption = “”
newpass.BackColor = &H80000005
End If
End Sub
Private Sub oldpass_KeyPress(keyascii As Integer)
If Not oldpass.Text = Empty Then
oldpassmsg.Caption = “”
oldpass.BackColor = &H80000005
End If
End Sub
Private Sub retypepass_KeyPress(keyascii As Integer)
If Not retypepass.Text = Empty Then
retypepassmsg.Caption = “”
retypepass.BackColor = &H80000005
End If
End Sub

Baca juga:  Untuk Menjadi Programmer Haruskah Kuliah

tHat’s it!

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *