Imports [Link].
Odbc
Public Class Form1
Dim Conn As OdbcConnection
Dim Cmd As OdbcCommand
Dim Ds As DataSet
Dim Da As OdbcDataAdapter
Dim Rd As OdbcDataReader
Dim MyDB As String
'Membuat Koneksi
Sub Koneksi()
' Memanggil database yaitu nama database kita adalah db_universitas
MyDB = "Driver={MySQL ODBC 3.51
Driver};Database=dtbs_hafiz;Server=localhost;uid=root"
Conn = New OdbcConnection(MyDB)
If [Link] = [Link] Then [Link]()
End Sub
' Memanggil Kondisi awal
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles
[Link]
Call KondisiAwal()
End Sub
' Pertama kali dipanggil dengan membuat Sub KondisiAwal()
Sub KondisiAwal()
' Textbox1, textbox2, textbox3, textbox4 kita kosongkan pertama kali
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
' Textbox1, textbox2, textbox3, [Link] = false artinya formnya kita
matikan
' Textbox1 yang berarti form nim kita maksimalkan hanya bisa 15 huruf/angka
[Link] = 15
' Button1, Button2, Button3, Button4 kita tambahkan text masing - masing yaitu
input, edit, hapus, tutup
[Link] = "INPUT"
[Link] = "EDIT"
[Link] = "HAPUS"
[Link] = "BATAL"
' Button1, Button2, Button3, Button4 kita aktifkan dengan menggunakan perintah
true
[Link] = True
[Link] = True
[Link] = True
[Link] = True
' Panggil koneksi yang sudah kita buat sub Koneksi()
Call Koneksi()
' Memanggil table yang sudah kita buat yaitu dtbs_hafiz
Da = New OdbcDataAdapter("Select * From tbl_hafiz", Conn)
Ds = New DataSet
[Link](Ds, "tbl_hafiz")
[Link] = [Link]("tbl_hafiz")
End Sub
Sub FieldAktif()
' untuk mengaktifkan form
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link]()
End Sub
' Ini adalah proses simpan
Private Sub TS_Click(ByVal sender As Object, ByVal e As EventArgs) Handles [Link]
' if [Link] yang textnya "input" maka akan berubah menjadi button "simpan"
If [Link] = "INPUT" Then
[Link] = "SIMPAN"
' lalu button2 dan button3 tidak aktif dan button4 kita ubah menjadi tulisan
"batal"
[Link] = False
[Link] = False
[Link] = "BATAL"
' lalu kita panggil FieldAktif() yang mana
textbox1,textbox2,textbox3,textbox4 akan diaktifkan
Call FieldAktif()
Else
' if textbox1, textbox2, textbox3 dan textbox3 kosong maka muncul alert
pastikan semua field terisi
' ini artinya disebut validasi
If [Link] = "" Or [Link] = "" Or [Link] = "" Or [Link] = "" Or
[Link] = "" Then
MsgBox("Pastikan semua field terisi")
Else
' Jika semua form terisi, maka kita panggil Koneksi() ke database
Call Koneksi()
' lalu kita masukan data kita ke table mahasiswa (insert into
mahasiswa .....)
Dim InputData As String = "Insert into tbl_hafiz values('" & [Link] &
"','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "')"
Cmd = New OdbcCommand(InputData, Conn)
[Link]()
MsgBox("Input data berhasil")
' lalu kita kembalikan ke KondisiAwal()
Call KondisiAwal()
End If
End If
End Sub
' Ini adalah proses EDIT
Private Sub TE_Click(ByVal sender As Object, ByVal e As EventArgs) Handles [Link]
'If Button2 edit kita klik maka dia akan berubah menjadi tulisan "update"
If [Link] = "EDIT" Then
[Link] = "UPDATE"
'TS dan TE akan kita false artinya tidak berfungsi
[Link] = False
[Link] = False
'TB kita ganti tulisan menjadi batal
[Link] = "BATAL"
' Lalu kita panggil FieldAktif() yang mana textbox1, textbox2, textbox3 dan
textbox 4 kita aktifkan
Call FieldAktif()
Else
' ini adalah validasi jika textbox1, textbox2, textbox3 dan textbox 4 tidak
terisi maka akan muncul alert ("pastikan semua terisi)
If [Link] = "" Or [Link] = "" Or [Link] = "" Or [Link] = "" Or
[Link] = "" Then
MsgBox("Pastikan semua field terisi")
Else
' jika semua terisi panggil Koneksi()
Call Koneksi()
' kita update table mahasiswa
Dim EditData As String = "Update mahasiswa set nama='" & [Link] &
"',nim='" & [Link] & "',jurusan='" & [Link] & "'alamat='" & [Link] & "'Jenis
kelamin='" & [Link] & "'"
Cmd = New OdbcCommand(EditData, Conn)
[Link]()
' jika berhasil tampilkan alert / message ("edit data berhasil")
MsgBox("Edit data berhasil")
' setelah semua sudah tolong tampilkan KondisiAwal()
Call KondisiAwal()
End If
End If
End Sub
' Button3 adalah button hapus
Private Sub TH_Click(ByVal sender As Object, ByVal e As EventArgs) Handles [Link]
' Jika [Link] yang mana textnya adalah hapus maka kita ubah texttnya
menjadi delete
If [Link] = "HAPUS" Then
[Link] = "DELETE"
' button1 non aktifkan
[Link] = False
' button2 juga kita non aktifkan, jadi dia ga bisa di klik sama sekali ketika
button hapus kita klik
[Link] = False
' [Link] kita ubah textnya dari tutup menjadi batal
[Link] = "BATAL"
' setelah itu kita aktifkan FieldAktif() yang mana artinya kita mengaktifkan
textbox1, textbox2, textbox3 dan textbox4
Call FieldAktif()
Else
' Ini adalah validasi
' jika field tidak terisi maka tidak akan bisa di hapus
If [Link] = "" Or [Link] = "" Or [Link] = "" Or [Link] = "" Or
[Link] = "" Then
MsgBox("Pastikan data yang akan dihapus terisi")
Else
' jika sudah kita isi fieldnya maka bisa kita hapus, prosesnya adalah
' kita panggil Koneksi()
Call Koneksi()
' lalu kita panggil table mahasiswa lalu dia bilang "tolongin aku dong,
aku mau hapus dengan nim xxx tolong di bantu ya. makasih:)"
Dim HapusData As String = "delete from tbl_hafiz where nim='" & [Link]
& "'"
Cmd = New OdbcCommand(HapusData, Conn)
[Link]()
' kalau berhasil kita tampilkan alert / message dengan tulisan "hapus
data berhasil"
MsgBox("Hapus data berhasil")
' lalu kita panggil kondisiAwal()
Call KondisiAwal()
End If
End If
End Sub
Private Sub TNIM_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
Handles [Link]
If [Link] = Chr(13) Then
Call Koneksi()
Cmd = New OdbcCommand("Select * from tbl_hafiz where nim='" & [Link] &
"'", Conn)
Rd = [Link]
[Link]()
If [Link] Then
[Link] = [Link]("nama")
[Link] = [Link]("alamat")
[Link] = [Link]("jenis kelamin")
[Link] = [Link]("Prodi")
Else
' Jika nim yang kita ketikan salah, maka akan menampilkan alert atau
message ("data tidak ada")
MsgBox("Data Tidak Ada")
End If
End If
End Sub
' ini adalah proses button4 yaitu tutup
Private Sub TB_Click(ByVal sender As Object, ByVal e As EventArgs) Handles [Link]
If [Link] = "TUTUP" Then
End
' namun kalau tulisannya BATAL maka kita panggil KondisiAwal()
Else
Call KondisiAwal()
End If
End Sub
Private Sub DG_CellContentClick(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim i As Integer
i = [Link]
With [Link](i)
[Link] = .Cells(0).Value
[Link] = .Cells(1).Value
[Link] = .Cells(2).Value
[Link] = .Cells(3).Value
[Link] = .Cells(4).Value
End With
End Sub
End Class