Membuat Buton tambah, Ubah, hapus dan Keluar dalam koneksi Database

PERTEMUAN KE 11 DAN 12

AGENDA  :   Membuat  Koneksi  Database  dengan perintah   

1. Tambah

2. Ubah

3. Hapus

4. Keluar

Perintah Pertama

Pada Class Form 2 ,

1. kita membuat  Sub Kosong ()  yang fungsinya   Mebersihkan  TextBox1 dan TextBox2 dan Membuat sub netral  yang fungsinya Menetralkan Button keposisi semula

Public Class Form2

    Sub Kosong()           'membersihkan Text box 1 dan Text box 2

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox1.Focus()

    End Sub

    Sub netral()                ' Menetralkan Buton keposisi semula

2. Kemudian  kita membuat Nama Button  dalam Properties  Design dengan  perintah:

   BtTAMBAH  sebagai   Nama button  yang harus  dideklarasikan  dan  sifatnya  harus  konsisten dalam  proses  membuat Program  dari awal  sampai akhir

        BtTAMBAH.Text = "&TAMBAH"        ' BtTAMBAH adalah Nama Button  adalah deklarasi harus  konsisten

        BtUBAH.Text = "&UBAH"

        BtHAPUS.Text = "&HAPUS"

        BtKELUAR.Text = "&KELUAR"

        BtTAMBAH.Enabled = True

        BtUBAH.Enabled = True       ' Enable  tidak aktif

        BtHAPUS.Enabled = True

        TextBox1.Enabled = True

    End Sub

3. Disini kita  membuat Sub  cekrecord() dan Call Koneksi()  

              yang fungsinya  melakukan Cek record  dan memanggil Methode  Koneksi 

   sehingga  bisa menampilkan  Koneksi Database  dengan perintah  select .

Demikian Source Codenya:

    Sub cekrecord()

        Call Koneksi()

        Tampil.Connection = S1TI4AK

        Tampil.CommandType = CommandType.Text

        Tampil.CommandText = "select * from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"

        Tampilkan = Tampil.ExecuteReader            ' disini harus ditambahkan  perintah Tampil.Executereader

        If Tampilkan.HasRows = True Then

            hasilcek = True         ' check record ada atau tidak HAS row"

        Else

            hasilcek = False            'tidak ada hasil

        End If

    End Sub

Proses Penamaaan BtTAMBAH  pada Button TAMBAH

Source Code:

    Private Sub BtTAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtTAMBAH.Click

        Call simpankelompok()

    End Sub

    Sub SIMPANkelompok()

        If BtTAMBAH.Text = "&TAMBAH" Then

            TextBox1.Text = ""

            BtTAMBAH.Text = "SIMPAN"

            BtUBAH.Enabled = False

            BtHAPUS.Enabled = False

            BtKELUAR.Text = "&BATAL"

            'TextBox1.Enabled = False

            TextBox1.Focus()

        Else

            If TextBox1.Text = "" Then Exit Sub

            If TextBox2.Text = "" Then Exit Sub

            Call cekrecord()

            Try

                If hasilcek = "False" Then

                    Call Koneksi()

                    Tampil.Connection = S1TI4AK

                    Tampil.CommandType = CommandType.Text

                    Tampil.CommandText = "Insert into Jurusan (kdjur,nmjur)values""('" & TextBox1.Text & "','" & TextBox2.Text & "')"

                    Tampil.ExecuteNonQuery()             

Pada perintah  disini harus ditambahkan  perintah Tampil.Execute non query

                  Call Kosong()            ' memanggil metod e kosong  text box  1  dan text box 2

                Else

                    MsgBox("DATA SUDAH  ADA , SILHKAN  CEK DATA  YANG DINPUT")

                    MsgBox("INPUT DATA")

                    TextBox1.Focus()

                End If

            Catch ex As Exception

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

    Private Sub BtUBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUBAH.Click

        Call BtUBAHkelompok()

    End Sub

    Sub BtUBAHkelompok()

        If BtUBAH.Text = "&UBAH" Then

            TextBox1.Text = ""

            BtUBAH.Text = "SIMPAN"

            BtTAMBAH.Enabled = False

            BtHAPUS.Enabled = False

            BtKELUAR.Text = "&BATAL"

            TextBox1.Focus()

        Else

            If TextBox1.Text = "" Then Exit Sub

            If TextBox2.Text = "" Then Exit Sub

            Try

                Call Koneksi()

                Tampil.Connection = S1TI4AK

                Tampil.CommandType = CommandType.Text

                Tampil.CommandText = "update Jurusan set nmjur ='" & Trim(TextBox2.Text) & ""

                ' where kdjur='" & Trim(TextBox1.Text) & "'"

                Tampil.ExecuteNonQuery()

                Call Kosong()

                TextBox1.Focus()

            Catch ex As Exception

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

    Private Sub BtHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHAPUS.Click

        Call BtHAPUSkelompok()

    End Sub

    Sub BtHAPUSkelompok()

        If BtHAPUS.Text = "&HAPUS" Then

            TextBox1.Text = ""

            BtHAPUS.Text = "Ok"

            BtTAMBAH.Enabled = False

            BtUBAH.Enabled = False

            BtKELUAR.Text = "&Batal"

            TextBox1.Focus()

        Else

            If TextBox1.Text = "" Then Exit Sub

            If TextBox2.Text = "" Then Exit Sub

            Try

                Call Koneksi()

                Tampil.Connection = S1TI4AK

                Tampil.CommandType = CommandType.Text

                Tampil.CommandText = "Delete from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"

                Tampil.ExecuteNonQuery()

                Call Kosong()

                TextBox1.Focus()

            Catch ex As Exception

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

    Private Sub BtKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtKELUAR.Click

        If BtKELUAR.Text = "&KELUAR" Then

            Me.Close()              ' keluar  untuk diri sendiri , dianggap sebagai  form entry

        Else

            Call Kosong()

            Call netral()

        End If

    End Sub

Menampilkan  Fungsi  KeyPress  pada TextBox1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(Keys.Enter) Then

            If BtTAMBAH.Text = "SIMPAN" Then

                Call cekrecord()

                If hasilcek = False Then

                    TextBox2.Focus()

                Else

                    MsgBox("KODE SUDAH ADA , SILAHKAN GANTI KODE LAIN", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "INFORMASI")

                    TextBox1.Focus()

                End If

            Else

                Call Koneksi()

                Tampil.Connection = S1TI4AK

                Tampil.CommandType = CommandType.Text

                Tampil.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"

                Tampilkan = Tampil.ExecuteReader

                If Tampilkan.HasRows = True Then

                    While Tampilkan.Read()

                        If IsDBNull(Tampilkan("kdjur")) Then

                            TextBox1.Focus()

                        Else

                            TextBox2.Text = Tampilkan("nmjur")

                            TextBox2.Focus()

                        End If

                    End While

                Else

                    MsgBox("DATA  TIDAK  DITEMUKAN", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "TAMBAH DATA")

                End If

            End If

        End If

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        Call Koneksi()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Call Koneksi()

    End Sub

End Class