PERTEMUAN 18

RUMUS : CONECTION DATABASE KELASKU

Public Class Kelasku
Public Shared koneksi As New SqlClient.SqlConnection
Public Shared perintahSQL As New SqlClient.SqlCommand
Public Shared ds As New DataSet
Public Shared da As New SqlClient.SqlDataAdapter
Public Shared ketemu As SqlClient.SqlDataReader

Public Shared Sub bukaDATABASE()
Try
koneksi.ConnectionString = "Data Source=202-04;Initial Catalog=dbKaryawan;Integrated Security=True"
koneksi.Open()
perintahSQL.Connection = koneksi
Catch ex As Exception
MsgBox("GAGAL Koneksi Ke database" & Chr(13) & ex.Message, MsgBoxStyle.Exclamation, "ERROR")
End Try
End Sub
Public Shared Sub tutupDATABASE()
koneksi.Close()
koneksi.ConnectionString = Nothing
End Sub

End Class

rumus login :

Public Class FormLogin

Private Sub BtnMasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMasuk.Click
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "select*from TbUser where username = '" & TxtUsername.Text & "' and pass = '" & TxtPassword.Text & "'"
Kelasku.ketemu = Kelasku.perintahSQL.ExecuteReader

If Kelasku.ketemu.Read Then
MsgBox("Ligin Anda BERHASIL", MsgBoxStyle.Information, "SUKSES")
FormMenuUtama.Show()
Me.Hide()
Else
MsgBox("Login Anda GAGAL, Username dan password tidak ditemukan", MsgBoxStyle.Exclamation, "GAGAL")
TxtUsername.Text = ""
TxtPassword.Text = ""
TxtUsername.Focus()
End If
Kelasku.tutupDATABASE()
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
If MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo, "KELUAR") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub
End Class

DATA ADMIN BARU

RUMUS :

Public Class FormTambahAdmin
Dim a, b, c As String

Private Sub BtnDaftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDaftar.Click
a = TxtUsernameBaru.Text
b = TxtPasswordBaru.Text
c = TxtUlangiPassword.Text

If b = c Then
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "Insert into tbuser values ('" & a & "', '" & b & "')"
Kelasku.perintahSQL.ExecuteNonQuery()
Kelasku.tutupDATABASE()

MsgBox("Data Admin Baru sudah tersimpan!" & Chr(13) & "Silahkan mencoba Login dengan data yang dimasukan.", MsgBoxStyle.Information, "SUKSES")

TxtUsernameBaru.Text = ""
TxtPasswordBaru.Text = ""
TxtUlangiPassword.Text = ""
TxtUsernameBaru.Focus()

Else
MsgBox("Password dan Ulangi Password tidak cocok!" & Chr(13) & "Silahkan ulangi input data admin yang benar.", MsgBoxStyle.Information, "GAGAL")
End If
End Sub

Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
Refresh()
End Sub

Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
FormMenuUtama.Enabled = True
Me.Close()


End Sub
End Class