Program Visual Basic Login

Tampilan :

Tabel User/Database:

Untuk Menampilakan DBGrid : Klik Kanan Pada Toolbox Kemudian Pilih Components Kemudian Pilih Microsoft Data Bound Grid Contorl 5.0(SP3)


Listing/Coding :


Option Explicit

Private Sub cmdlogin_Click()
On Error GoTo a
Data1.Recordset.Index = "xuser"
Data1.Recordset.Seek "=", txtuser
If Data1.Recordset!Password <> txtpass Then
MsgBox "Anda Salah Memasukkan Password", , "Info"
Else
Me.Hide
File_Master.Show
End If
Exit Sub
a:
MsgBox "Data Tidak Ada", , "Info"
txtuser.Text = ""
txtpass.Text = ""
End Sub

Private Sub cmdkeluar_Click()
Dim x As String
x = MsgBox("Are Your Sure To Exit..?!?", vbQuestion + vbYesNoCancel, "Informasi")
If x = vbYes Then
End
End If
End Sub

Read More