PERTEMUAN 11

PEMBANGUNAN INTERFACE (LOGIN DAN MENU UTAMA)

CONTOH KASUS UNTUK PERUSAHAAN JASA

A. Form Login
1. Perancangan Form Login
a. Klik file  New Project.

b. Pilih Visual Basic  Windows  Windows Form Application, selanjutnya klik OK

 c. Rancang Tampilan sebagai Berikut:

txtuser Checkbox1
txtpass btnlogin
cbhak btnkeluar

Nama Objek Propertis Name Ket

Button Login Text Login
Name btnlogin
Button Keluar Text Keluar
Name btnkeluar
Textbox user Name txtuser
Textbox Password Name txtpass
CheckBox Tampilkan Name CheckBox1
Password
ComboBox Hak Akses Name cbhak
form text Login

2. Perancangan Module Koneksi Ke database

a. Klik Project  klik Add Module

b. Pada Name : isikan nama modul yang akan dibuat. Pada contoh ini nama module tidak
diubah (Module1), selanjutnya klik Add.
 d. Ketikkan program berikut:
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Module Module1
Public database As OleDb.OleDbConnection
Public Sub koneksi()
Try
database = New OleDb.OleDbConnection("Provider=SQLOledB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial catalog=SDM;data
source=PC_LAB9")
database.Open()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

Public Function connect() As SqlConnection

Dim myconnect As New SqlConnection
myconnect = New SqlConnection("server=PC23_LAB9; database=SDM;
trusted_Connection=true")
myconnect.Open()
Return (myconnect)
End Function
End Module

Catatan : Pada “data source atau server=PC23_LAB9” sesuaikan nama server pada PC
masing-masing.

3. Perancangan Class koneksi ke Database

a. Klik Project  klik Add Class
b. Pada Name : isikan nama class yang akan dibuat. Pada contoh ini nama module diubah
(classkoneksi), selanjutnya klik Add.

c. Ketikkan program berikut :

Imports Microsoft.VisualBasic
Imports System.Data.Sql
Public Class classkoneksi
Protected tbllogin = New DataTable
Protected SQL As String
Protected Cn As OleDb.OleDbConnection
Protected Cmd As OleDb.OleDbCommand
Protected Da As OleDb.OleDbDataAdapter
 Protected Ds As DataSet
Protected Dt As DataTable
Public Function OpenConn() As Boolean
Cn = New OleDb.OleDbConnection("Provider=SQLOledB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial catalog=SDM;data
source=PC_LAB9")
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub

Public Function ExecuteQuery(ByVal Query As String) As DataTable

If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access
Failed")
Return Nothing
Exit Function
End If

Cmd = New OleDb.OleDbCommand(Query, Cn)

Da = New OleDb.OleDbDataAdapter
Da.SelectCommand = Cmd

Ds = New Data.DataSet
Da.Fill(Ds)

Dt = Ds.Tables(0)
Return Dt
Dt = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function

Public Sub ExecuteNonQuery(ByVal Query As String)

If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access
Failed..!!")
Exit Sub
End If

Cmd = New OleDb.OleDbCommand

Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
 Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class

Catatan : Pada “data source=PC23_LAB9” sesuaikan nama server pada PC masing-masing.

4. Perancangan Form Login koneksi ke Database

a. Double klik Form1 pada Solution Explorer, seperti tampilan berikut:
b. Ketikkan program berikut:
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
Dim koneksi As SqlConnection
Sub bersih()
txtUser.Text = ""
txtpass.Text = ""
cbHak.Text = ""
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
Dim strKoneksi As String
strKoneksi = "Data Source=PC23_LAB9;Initial Catalog=SDM;Integrated
Security=True"

koneksi = New SqlConnection(strKoneksi)

Try
koneksi.Open()
Catch ex As Exception
MessageBox.Show("Koneksi Gagal !!!")
End Try
cbhak.SelectedIndex = 0
End Sub
End Class

c. Program “Login”
Double klik Login, selanjutnya ketikkan program berikut:

Private Sub btnlogin_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles btnlogin.Click
Dim Sql, user, pass, hak As String
Dim cmd As SqlCommand
Dim rdr As SqlDataReader

user = txtuser.Text 'Variabel user diisi nilai yang diinputkan txtUser

pass = txtpass.Text 'Variabel user diisi nilai yang diinputkan txtPass
hak = cbhak.SelectedItem 'Variabel user diisi item yang dipilih cbHak
'Cek apakah user, password dan hak akses yang telah dipilih/dimasukan ada di database
Sql = "SELECT * FROM t_user WHERE Username='" + user + "' AND
Password='" + pass + "' AND akses='" + hak + "'"
cmd = New SqlCommand(Sql, koneksi)

rdr = cmd.ExecuteReader()

If rdr.HasRows = True Then

If hak = "admin" Then

Form2.UserToolStripMenuItem.Enabled = True
Form2.JabatanToolStripMenuItem.Enabled = True
Form2.PegawaiToolStripMenuItem.Enabled = True
Form2.CloseToolStripMenuItem.Enabled = True
Form2.Show()
Me.Hide()
Else
Form2.PegawaiToolStripMenuItem.Enabled = True
Form2.CloseToolStripMenuItem.Enabled = True
Form2.Show()
Me.Hide()
End If
Else
MessageBox.Show("Kombinasi Username ,Password dan Hak Akses
Salah", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtuser.Focus()
End If

rdr.Close()
cmd.Dispose()
Call bersih()
End Sub

d. Program “Keluar”
Double klik Keluar, selanjutnya ketikkan program berikut:

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnkeluar.Click
End
End Sub

e. Program “Tampilkan Password”

Double klik Tampilkan Password, selanjutnya ketikkan program berikut:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
txtpass.PasswordChar = Nothing
Else
 txtpass.PasswordChar = "*"
End If
End Sub

f. Menambah “Hak Akses”

Klik tanda panah pada ComboBox HakAkses kemudian klik Edit Items

Tambahkan “Hak Akses, contoh : user” kemudian klik OK

B. Form Menu Utama

1. Perancangan Input Form Menu Utama
Rancangan input menu utama berfungsi untuk menampilkan tampilan utama dari user
interface.
 Menu Data

 Menu Laporan
 Menu Exit

2. Koding Program Form_Menu_Utama

Public Class FormMenu

Private Sub UserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)
FormProfil.Show()
End Sub

Private Sub ProfilToolStripMenuItem_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles DataIdentitas.Click
FormProfil.Show()
End Sub
Private Sub DataTesTertulis_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles DataTesTertulis.Click
FormDataTanggalTesTertulis.Show()
End Sub
Private Sub DataTesMedical_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles DataTesMedical.Click
FormDataTanggalTesMedical.Show()
End Sub
 Private Sub DataHasilTesTertulis_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles DataHasilTesTertulis.Click
FormHasilTesTertulis.Show()
End Sub
Private Sub DataHasilTesMedical_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles DataHasilTesMedical.Click
FormHasilTesMedical.Show()
End Sub
Private Sub FormMenuUtama_FormClosed(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
End
End Sub

3. Tampilan Form Menu Utama

Tampilan ini merupakan tampilan awal pada saat aplikasi dijalankan dan merupakan suatu
tampilan untuk menampilkan menu-menu lainnya yang ada didalam aplikasi ini.