Contoh membuat kunci system program Visual Basic 6.0
- Langkah awal untuk membuat program ini yaitu :
- Pastikan anda sudah masuk dalam program VB nya, setelah itu ikutin contoh program yang saya postingkan, ok langsung ajah kita mulai :
- Ini adalah form kunci system yang gunanya untuk mengunci program sedang kita jalankn, agar tidak bias di otak atik oleh orng lain, missal jika akan kita tinggalkan sejenak. Saya pastikan aman, karna jika ingin mengaktivkan harus memasukan password terlebih dahulu, sudah apsti kita yang tau passwordnya dong, sesuai password login program kita…..
Contoh scriptnya :
Private Sub Form_Activate()
Text1.SetFocus
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call buka_konek
Set rspengguna = New ADODB.Recordset
SQL = "select * from tbpengguna where password='" & Text1.Text & "'"
rspengguna.Open SQL, konek, adOpenStatic, adLockOptimistic
If rspengguna.EOF = False Then
Unload Me
Else
MsgBox "Password Tidak Dikenali....!!", vbCritical, "PMTP System"
Text1.SetFocus
End If
End If
End Sub
-Ket :
- PMTP System adalah nama dari contoh program yang saya buat
- rspengguna adalah dimana kita membuat password dan tempat menyimpan password kita, dan bias merubahnya..
- karna form kunci system ini berhubungan dengan form pengguna.
- contoh formnya :
Selamat mencoba
By : otnay htc
