HomeMengenai Blog Ini...
Blog ini saya buat untuk sharing dan pembelajaran bagi pemula yah...
Blog ini bisa di jadikan forum tanya jawab juga yah...
Untuk kemajuan IT di Indonesia ini...
Dari pada bengang bengong di rumah tak ada kerjaan mendingan anda meluangkan waktu anda untuk belajar kalau yang sudah bisa ya hiraukan saja Blog ini karena ini cuman untuk orang awam saja...
Menuntut Ilmu itu hukumnya wajib yah...
Ada sebuah hadis Rasulullah kalo gak salah begini nih...
Tuntutlah Ilmu dari Buayan sampai Liang Kubur...
begitulah betapa wajibnya menuntut Ilmu bagi Umat Islam...
Aku pun tak pandai nulis Kayak gini nih...
jadi kalo ada salah kata dimaafkan saja yah...
Membuat Login Form dengan Visual Basic
Membuat Form Login dengan VB 6
ini tulisan pertama saya, sambil iseng iseng mengisi waktu malam minggu ini, ya saya mencoba membuat artikel tentang membuat program login yah,,...
sambil ngerokok dan sambil minum kopi nih biar dapet inspirasi...
untuk membuat program ini yah pertama anda harus mempunyai program visual basic 6 dahulu... untuk pembelajaran ini memakai software visual basic 6 yang portable saja dahulu disini.
untuk Visual basic yang bukan Portable bisa anda searching sajalah di google atau beli CD nya saja biar gak lama2 nunggu...
langsung saja ke topiknya...
untuk belajar membuat program login ini anda membutuhkan :
untuk Visual basic yang bukan Portable bisa anda searching sajalah di google atau beli CD nya saja biar gak lama2 nunggu...
langsung saja ke topiknya...
untuk belajar membuat program login ini anda membutuhkan :
- 2 buah Label, yang di ganti Text nya menjadi User Name dan Password
- 2 buah textbox, yang di hapus Text nya, dan di ganti Name nya menjadi txtuser dan txtpass
- 1 buah CommandButton, yang diganti menjadi Caption nya menjadi LOGIN
- Untuk mempercantik tampilan sediakan gambar dan rubah icon program login anda yah yang menarik dan susun lah sesuai keinginan anda...
- Sediakan juga Form kosong caranya klik project add form
- di properties form1 dan form2, atur starupposition nya menjadi centerscreen.
contoh susunan program Login yang saya buat nih Bro...
Selanjutnya membuat database nya dari Microsoft Access 2003 saja yah yang mudah...
Kurasa Kalau Microsoft Office ya kalian semua sudah bisa yah...
Buat dan simpan ditempat yang sama dengan anda membuat program login diatas yah...
dengan nama Dbase.mdb yah....
setelah itu buat table dengan nama login yah di microsoft Access nya ok...
trus di dalam table login buat 2 field name yah ... filed name user and pass ok.... dengan data typenya text
setelah itu ya anda impukan lah filed name user dengan nama anda...
dan field name pass dengan password anda ok...
nah save yah sesuai prosedur diatas OK....
cara mengkoneksikan program Login ini cukup mudah yah...
anda double klik di command1 yang bertuliskan LOGIN dan copy paste kan Script Dibawah ini....
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Private Sub command1_click()
If conn.State = 1 Then conn.Close
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dbase.mdb"
If RS.State = 1 Then RS.Close
RS.Open "select * from login where user= '" & txtuser.Text & "' And pass = '" & txtpass.Text & "'", conn, 3, 3
If Not RS.EOF Then
Form1.Visible = False 'untuk menutup form1
Form2.Show 'untuk menampilkan form2
Else
MsgBox "User Name dan Password yang anda masukan salah, Coba ulangi lagi !", vbCritical, "Informasi"
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
End If
End Sub
Private Sub txtPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then command1_click 'berfungsi apabila kita sedang mengetikan password lalu di tekan enter maka akan terpijit atau tertekan tombol login
End Sub
Private Sub txtUser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtpass.SetFocus 'berfungsi apabila kita sedang mengetikan username lalu di tekan enter maka akan berpindah ke kolom password
End Sub
Save & Runningkan Program anda....
Apabila masih bingung yah ini ada Source nya bisa di download disini
Kurasa Kalau Microsoft Office ya kalian semua sudah bisa yah...
Buat dan simpan ditempat yang sama dengan anda membuat program login diatas yah...
dengan nama Dbase.mdb yah....
setelah itu buat table dengan nama login yah di microsoft Access nya ok...
trus di dalam table login buat 2 field name yah ... filed name user and pass ok.... dengan data typenya text
setelah itu ya anda impukan lah filed name user dengan nama anda...
dan field name pass dengan password anda ok...
nah save yah sesuai prosedur diatas OK....
cara mengkoneksikan program Login ini cukup mudah yah...
anda double klik di command1 yang bertuliskan LOGIN dan copy paste kan Script Dibawah ini....
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Private Sub command1_click()
If conn.State = 1 Then conn.Close
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dbase.mdb"
If RS.State = 1 Then RS.Close
RS.Open "select * from login where user= '" & txtuser.Text & "' And pass = '" & txtpass.Text & "'", conn, 3, 3
If Not RS.EOF Then
Form1.Visible = False 'untuk menutup form1
Form2.Show 'untuk menampilkan form2
Else
MsgBox "User Name dan Password yang anda masukan salah, Coba ulangi lagi !", vbCritical, "Informasi"
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
End If
End Sub
Private Sub txtPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then command1_click 'berfungsi apabila kita sedang mengetikan password lalu di tekan enter maka akan terpijit atau tertekan tombol login
End Sub
Private Sub txtUser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtpass.SetFocus 'berfungsi apabila kita sedang mengetikan username lalu di tekan enter maka akan berpindah ke kolom password
End Sub
Save & Runningkan Program anda....
Apabila masih bingung yah ini ada Source nya bisa di download disini
Langganan:
Postingan (Atom)