tata cara pembuatan login VB pada program apotik

Program Login Untuk Apotik

Pertama dalam mendesain form login kita harus membuat sebuah form baru dari vb 2010 adapun yang kita butuhkan :

1. label sebanyak 1 buah

2. textbox sebanyak 2

3. button sebanyak 1 buah

4. insert gambar sebanyak 2 buah

atur sedemikian rupa sehingga membentuk seperti yang ada digambar. setelah itu atur warnanya untuk lebih menarik.

setelah mendesain buatlah sebuah file akses untuk menyimpan password dan username kemudian buat table untuk kedua objek tersebut. dengan nama table tblUser. untuk source codenya sebagai berikut :

Imports System.Data.OleDb
Public Class Form1
Private Conns As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.AppDomain.CurrentDomain.BaseDirectory & "\apotek.mdb;Persist Security Info=false"

Private Conn As New OleDbConnection

Public Function akses() As OleDbConnection

Dim conect As New OleDbConnection(Conns)

conect.Open()

Return conect
End Function

-----------------------------------------------------------------------------------------

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim login As String

login = "select * from tblUser where username = '" & TextBox1.Text & "'and password= '" & TextBox2.Text & "'"

Dim perintah As New OleDbCommand(login, akses)

Dim baca As OleDbDataReader = perintah.ExecuteReader

If baca.Read Then

Me.Hide()

progress.Show()

Else

MessageBox.Show("Nama Pengguna atau Pasword tidak benar", "PERINGATAN!", MessageBoxButtons.OK, MessageBoxIcon.Hand)

TextBox1.Focus()

End If

End Sub

End Class

Kemudian tekan tombol f5 untuk menjalankan program.