Jumat, 13 Januari 2017

Membuat Aplikasi Perpustakaan dengan Visual Studio 2012



Assalammualaikum pada postingan kali ini gue bakal bikin program di Visual Studio dan program ini akan terhubung ke database (Ms.Access), Program ini tentang aplikasi untuk administrator perpustakaan bukan itu saja si di program ini juga bisa dipakai oleh pengunjung untuk melihat dimata letak buku yg mereka ingin baca atau pinjam, Cukup penjelasan dan basa-basinya kita langsung saja ke pembuataannya oke.
Pertama kalian harus membuat beberapa form disini gue membuat 11 form dan yg akan terhubung dengan database ada 3 form, oke pertama buat form seperti ini :













Oke desain sudah sekarang kita buat databasenya dahulu, Disini gue akan buat satu database dan dalam database itu terdiri dari 3 table (table member, table peminjam, table buku) kegunaan table itu berbeda beda sesuai dengan namanya ga usah dijelasin lagi kan kegunaan tablenya udah jelas si dari namanya hehe, Oke buka Ms.Accessnya -> new -> Desain view lalu buat seperti ini :





Oke gimana ? udah kan ? Kalo sudah pilih data sheet view lalu isikan database tadi seperti ini :

 





Gimana ? Lancar ? Belom pusing kan ? Belom lah ya source codenya kan belom hehe, Lanjutin ya desain sudah, database sudah, sekarang kita ke source code deh. source code yg gue kasih bakal ngurut kaya desain form diatas, Oke nih Source codenya :

Form 1

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        form2.Show()
        Me.Hide()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim x = MsgBox("Are You Sure?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmation")
        If x = vbYes Then
            Me.Close()
            form2.Close()
            Form3.Close()
            'End
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form4.Show()
        Me.Hide()
    End Sub
End Class

Form 2

Public Class form2
    Dim id, pw
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        id = TextBox1.Text = "admin"
        pw = TextBox2.Text = "123456"
        If id = True And pw = True Then
            Form3.Show()
            Me.Close()
        Else
            id = False Or pw = False
            MessageBox.Show("ID ATAU PASSWORD YANG ANDA MASUKAN SALAH !!", "Warning", MessageBoxButtons.OK)
            TextBox1.Focus()
            TextBox1.Clear()
            TextBox2.Clear()
        End If
    End Sub
End Class

Form 3

Public Class Form3

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        MessageBox.Show("See You Next Time", " ", MessageBoxButtons.OK)
            Me.Close()
        Form1.Show()
            'End
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form10.Show()
        Me.Hide()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form11.Show()
        Me.Hide()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form7.Show()
        Me.Hide()
    End Sub
End Class

Form 4

Public Class Form4

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Focus()
    End Sub

    Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged
        Me.Close()
        Form1.Show()
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        Me.Close()
        Form5.Show()
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        Me.Close()
        Form6.Show()
    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
        Me.Close()
        Form9.Show()
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        Me.Close()
        Form8.Show()
    End Sub
End Class

Form 5

Public Class Form5

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form4.Show()
    End Sub
End Class

Form 6
 Public Class Form6

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form4.Show()
    End Sub
End Class
Form 7
 Public Class Form7
    Dim simpan As String

    Private Sub jalankansql(ByVal sQl As String)
        konek()
        Dim objcmd As New OleDb.OleDbCommand
        Try
            objcmd.Connection = conn
            objcmd.CommandType = CommandType.Text
            objcmd.CommandText = sQl
            objcmd.ExecuteNonQuery()
            objcmd.Dispose()
            MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
        Catch ex As Exception
            MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
        End Try
    End Sub

    Private Sub ShowData()
        konek()
        Dim str As String = "Select Kode_Buku as [Kode Buku], Tipe_Buku as [Tipe Buku], Nama_Buku as [Nama Buku] from table_buku ORDER By Kode_Buku"
        DA = New OleDb.OleDbDataAdapter(str, conn)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "table_buku")
        DataGridView1.DataSource = DS.Tables("table_buku")
        DA.Dispose()
        DS.Dispose()
        conn.Close()
    End Sub

    Public Sub clear()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox1.Text = ""
        ShowData()
    End Sub

    Private Sub isiTextBox()
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        TextBox3.Text = DataGridView1.Item(0, i).Value
        TextBox1.Text = DataGridView1.Item(1, i).Value
        TextBox2.Text = DataGridView1.Item(2, i).Value
    End Sub
    Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("KMK")
        ComboBox1.Items.Add("NVL")
        ComboBox1.Items.Add("SJH")
        ComboBox1.Items.Add("HRR")

        ShowData()
        konek()
        isiTextBox()
        clear()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "KMK"
                TextBox1.Text = "Komik"
                TextBox3.Text = "KMK"
            Case "NVL"
                TextBox1.Text = "Novel"
                TextBox3.Text = "NVL"
            Case "SJH"
                TextBox1.Text = "Sejarah"
                TextBox3.Text = "SJH"
            Case "HRR"
                TextBox1.Text = "Horror"
                TextBox3.Text = "HRR"
        End Select
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form3.Show()
    End Sub

    Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        isiTextBox()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        conn.Close()
        conn.Open()
        If TextBox3.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Then
            MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
            Exit Sub
        End If

        simpan = "INSERT INTO table_buku (Kode_Buku, Tipe_Buku, Nama_Buku) VALUES ('" & TextBox3.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "') "
        jalankansql(simpan)
        ShowData()
        clear()
        Exit Sub
    End Sub
End Class
Form 8
 Public Class Form8

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form4.Show()
    End Sub
End Class
Form 9
 Public Class Form9

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form4.Show()
    End Sub
End Class
Form 10
 Imports System.Data.OleDb
Public Class Form10
    Dim simpan As String

    Private Sub jalankansql(ByVal sQl As String)
        konek()
        Dim objcmd As New OleDb.OleDbCommand
        Try
            objcmd.Connection = conn
            objcmd.CommandType = CommandType.Text
            objcmd.CommandText = sQl
            objcmd.ExecuteNonQuery()
            objcmd.Dispose()
            MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
        Catch ex As Exception
            MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
        End Try
    End Sub

    Private Sub ShowData()
        konek()
        Dim str As String = "Select ID_Peminjam as [ID Peminjam], Nama_Peminjam as [Nama Peminjam], Tanggal_Peminjaman as [Tanggal Peminjaman], Tanggal_Pengembalian as [Tanggal Pengembalian] from table_peminjam ORDER By ID_Peminjam"
        DA = New OleDb.OleDbDataAdapter(str, conn)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "table_peminjam")
        DataGridView1.DataSource = DS.Tables("table_peminjam")
        DA.Dispose()
        DS.Dispose()
        conn.Close()
    End Sub

    Public Sub clear()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        ComboBox4.Text = ""
        ComboBox5.Text = ""
        ComboBox6.Text = ""
        ShowData()
    End Sub

    Private Sub isiTextBox()
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        TextBox1.Text = DataGridView1.Item(0, i).Value
        TextBox2.Text = DataGridView1.Item(1, i).Value
        TextBox4.Text = DataGridView1.Item(2, i).Value
        TextBox5.Text = DataGridView1.Item(3, i).Value
    End Sub

    Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For a = 1 To 31
            ComboBox1.Items.Add(a)
            ComboBox6.Items.Add(a)

        Next
        For b = 1 To 12
            ComboBox2.Items.Add(b)
            ComboBox5.Items.Add(b)

        Next
        For c = 2000 To 2020
            ComboBox3.Items.Add(c)
            ComboBox4.Items.Add(c)

        Next

        ShowData()
        konek()
        isiTextBox()
        clear()
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        Select Case ComboBox2.Text
            Case 1
                TextBox7.Text = "January"
            Case 2
                TextBox7.Text = "February"
            Case 3
                TextBox7.Text = "March"
            Case 4
                TextBox7.Text = "April"
            Case 5
                TextBox7.Text = "May"
            Case 6
                TextBox7.Text = "June"
            Case 7
                TextBox7.Text = "July"
            Case 8
                TextBox7.Text = "August"
            Case 9
                TextBox7.Text = "September"
            Case 10
                TextBox7.Text = "October"
            Case 11
                TextBox7.Text = "November"
            Case 12
                TextBox7.Text = "December"
        End Select
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case 1
                TextBox6.Text = "1"
            Case 2
                TextBox6.Text = "2"
            Case 3
                TextBox6.Text = "3"
            Case 4
                TextBox6.Text = "4"
            Case 5
                TextBox6.Text = "5"
            Case 6
                TextBox6.Text = "6"
            Case 7
                TextBox6.Text = "7"
            Case 8
                TextBox6.Text = "8"
            Case 9
                TextBox6.Text = "9"
            Case 10
                TextBox6.Text = "10"
            Case 11
                TextBox6.Text = "11"
            Case 12
                TextBox6.Text = "12"
            Case 13
                TextBox6.Text = "13"
            Case 14
                TextBox6.Text = "14"
            Case 15
                TextBox6.Text = "15"
            Case 16
                TextBox6.Text = "16"
            Case 17
                TextBox6.Text = "17"
            Case 18
                TextBox6.Text = "18"
            Case 19
                TextBox6.Text = "19"
            Case 20
                TextBox6.Text = "20"
            Case 21
                TextBox6.Text = "21"
            Case 22
                TextBox6.Text = "22"
            Case 23
                TextBox6.Text = "23"
            Case 24
                TextBox6.Text = "24"
            Case 25
                TextBox6.Text = "25"
            Case 26
                TextBox6.Text = "26"
            Case 27
                TextBox6.Text = "27"
            Case 28
                TextBox6.Text = "28"
            Case 29
                TextBox6.Text = "29"
            Case 30
                TextBox6.Text = "30"
            Case 31
                TextBox6.Text = "31"
        End Select
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        Select Case ComboBox3.Text
            Case 2001
                TextBox8.Text = "2001"
            Case 2002
                TextBox8.Text = "2002"
            Case 2003
                TextBox8.Text = "2003"
            Case 2004
                TextBox8.Text = "2004"
            Case 2005
                TextBox8.Text = "2005"
            Case 2006
                TextBox8.Text = "2006"
            Case 2007
                TextBox8.Text = "2007"
            Case 2008
                TextBox8.Text = "2008"
            Case 2009
                TextBox8.Text = "2009"
            Case 2010
                TextBox8.Text = "2010"
            Case 2011
                TextBox8.Text = "2011"
            Case 2012
                TextBox8.Text = "2012"
            Case 2013
                TextBox8.Text = "2013"
            Case 2014
                TextBox8.Text = "2014"
            Case 2015
                TextBox8.Text = "2015"
            Case 2016
                TextBox8.Text = "2016"
            Case 2017
                TextBox8.Text = "2017"
            Case 2018
                TextBox8.Text = "2018"
            Case 2019
                TextBox8.Text = "2019"
            Case 2020
                TextBox8.Text = "2020"
        End Select

        TextBox4.Text = TextBox6.Text + "-" + Strings.Left(TextBox7.Text, 3) + "-" + TextBox8.Text
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
        Select Case ComboBox4.Text
            Case 2001
                TextBox11.Text = "2001"
            Case 2002
                TextBox11.Text = "2002"
            Case 2003
                TextBox11.Text = "2003"
            Case 2004
                TextBox11.Text = "2004"
            Case 2005
                TextBox11.Text = "2005"
            Case 2006
                TextBox11.Text = "2006"
            Case 2007
                TextBox11.Text = "2007"
            Case 2008
                TextBox11.Text = "2008"
            Case 2009
                TextBox11.Text = "2009"
            Case 2010
                TextBox11.Text = "2010"
            Case 2011
                TextBox11.Text = "2011"
            Case 2012
                TextBox11.Text = "2012"
            Case 2013
                TextBox11.Text = "2013"
            Case 2014
                TextBox11.Text = "2014"
            Case 2015
                TextBox11.Text = "2015"
            Case 2016
                TextBox11.Text = "2016"
            Case 2017
                TextBox11.Text = "2017"
            Case 2018
                TextBox11.Text = "2018"
            Case 2019
                TextBox11.Text = "2019"
            Case 2020
                TextBox11.Text = "2020"
        End Select

        TextBox5.Text = TextBox9.Text + "-" + Strings.Left(TextBox10.Text, 3) + "-" + TextBox11.Text
    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
        Select Case ComboBox5.Text
            Case 1
                TextBox10.Text = "January"
            Case 2
                TextBox10.Text = "February"
            Case 3
                TextBox10.Text = "March"
            Case 4
                TextBox10.Text = "April"
            Case 5
                TextBox10.Text = "May"
            Case 6
                TextBox10.Text = "June"
            Case 7
                TextBox10.Text = "July"
            Case 8
                TextBox10.Text = "August"
            Case 9
                TextBox10.Text = "September"
            Case 10
                TextBox10.Text = "October"
            Case 11
                TextBox10.Text = "November"
            Case 12
                TextBox10.Text = "December"
        End Select
    End Sub

    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
        Select Case ComboBox6.Text
            Case 1
                TextBox9.Text = "1"
            Case 2
                TextBox9.Text = "2"
            Case 3
                TextBox9.Text = "3"
            Case 4
                TextBox9.Text = "4"
            Case 5
                TextBox9.Text = "5"
            Case 6
                TextBox9.Text = "6"
            Case 7
                TextBox9.Text = "7"
            Case 8
                TextBox9.Text = "8"
            Case 9
                TextBox9.Text = "9"
            Case 10
                TextBox9.Text = "10"
            Case 11
                TextBox9.Text = "11"
            Case 12
                TextBox9.Text = "12"
            Case 13
                TextBox9.Text = "13"
            Case 14
                TextBox9.Text = "14"
            Case 15
                TextBox9.Text = "15"
            Case 16
                TextBox9.Text = "16"
            Case 17
                TextBox9.Text = "17"
            Case 18
                TextBox9.Text = "18"
            Case 19
                TextBox9.Text = "19"
            Case 20
                TextBox9.Text = "20"
            Case 21
                TextBox9.Text = "21"
            Case 22
                TextBox9.Text = "22"
            Case 23
                TextBox9.Text = "23"
            Case 24
                TextBox9.Text = "24"
            Case 25
                TextBox9.Text = "25"
            Case 26
                TextBox9.Text = "26"
            Case 27
                TextBox9.Text = "27"
            Case 28
                TextBox9.Text = "28"
            Case 29
                TextBox9.Text = "29"
            Case 30
                TextBox9.Text = "30"
            Case 31
                TextBox9.Text = "31"
        End Select
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form3.Show()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        conn.Close()
        conn.Open()
        If TextBox2.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
            MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
            Exit Sub
        End If

        simpan = "INSERT INTO table_peminjam (Nama_Peminjam, Tanggal_Peminjaman, Tanggal_Pengembalian) VALUES ('" & TextBox2.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "') "
        jalankansql(simpan)
        ShowData()
        clear()
        Exit Sub
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim hapussql As String
        Dim pesan
        pesan = MsgBox("Apakah Anda Yakin Akan Menghapus ID_Peminjam " + TextBox1.Text + " ? ", vbExclamation + vbYesNo, "Attention!")
        If pesan = vbNo Then Exit Sub
        hapussql = "DELETE FROM table_peminjam WHERE ID_Peminjam = " & TextBox1.Text & ""
        jalankansql(hapussql)
        Me.Cursor = Cursors.WaitCursor
        clear()
        ShowData()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        isiTextBox()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim x As String = TextBox1.Text
        conn.Close()
        conn.Open()

        CMD = New OleDbCommand("SELECT * FROM table_peminjam where ID_Peminjam like '%" + x + "%'", conn)
        RD = CMD.ExecuteReader
        RD.Read()
        If RD.HasRows Then
            DA = New OleDbDataAdapter("select * from table_peminjam where ID_Peminjam like '%" + x + "%'", conn)
            DS = New DataSet
            DA.Fill(DS, "Ketemu")
            DataGridView1.DataSource = DS.Tables("Ketemu")
            DataGridView1.ReadOnly = True
            TextBox1.Text = ""
            TextBox1.Focus()
        Else
            TextBox1.Text = "Data Tidak Ada"
            TextBox1.Text = ""
            TextBox1.Focus()
        End If
        RD.Close()
    End Sub
End Class
Form 11

Imports System.Data.OleDb
Public Class Form11
    Dim simpan As String

    Private Sub jalankansql(ByVal sQl As String)
        konek()
        Dim objcmd As New OleDb.OleDbCommand
        Try
            objcmd.Connection = conn
            objcmd.CommandType = CommandType.Text
            objcmd.CommandText = sQl
            objcmd.ExecuteNonQuery()
            objcmd.Dispose()
            MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
        Catch ex As Exception
            MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
        End Try
    End Sub

    Private Sub ShowData()
        konek()
        Dim str As String = "Select ID_Anggota as [ID Anggota], Nama_Anggota as [Nama Anggota], Tanggal_Lahir as [Tanggal Lahir] from table_member ORDER By ID_Anggota"
        DA = New OleDb.OleDbDataAdapter(str, conn)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "table_member")
        DataGridView1.DataSource = DS.Tables("table_member")
        DA.Dispose()
        DS.Dispose()
        conn.Close()
    End Sub

    Public Sub clear()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox4.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        ShowData()
    End Sub

    Private Sub isiTextBox()
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        TextBox1.Text = DataGridView1.Item(0, i).Value
        TextBox2.Text = DataGridView1.Item(1, i).Value
        TextBox4.Text = DataGridView1.Item(2, i).Value
    End Sub

    Private Sub Form11_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For a = 1 To 31
            ComboBox1.Items.Add(a)

        Next
        For c = 2016 To 1940 Step -1
            ComboBox3.Items.Add(c)

        Next

        ComboBox2.Items.Add("January")
        ComboBox2.Items.Add("February")
        ComboBox2.Items.Add("March")
        ComboBox2.Items.Add("April")
        ComboBox2.Items.Add("May")
        ComboBox2.Items.Add("June")
        ComboBox2.Items.Add("July")
        ComboBox2.Items.Add("August")
        ComboBox2.Items.Add("September")
        ComboBox2.Items.Add("October")
        ComboBox2.Items.Add("November")
        ComboBox2.Items.Add("December")

        ShowData()
        konek()
        isiTextBox()
        clear()
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        TextBox4.Text = ComboBox1.Text + "-" + Strings.Left(ComboBox2.Text, 3) + "-" + ComboBox3.Text
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form3.Show()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        conn.Close()
        conn.Open()
        If TextBox2.Text = "" Or TextBox4.Text = "" Then
            MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
            Exit Sub
        End If

        simpan = "INSERT INTO table_member (Nama_Anggota, Tanggal_Lahir) VALUES ('" & TextBox2.Text & "','" & TextBox4.Text & "') "
        jalankansql(simpan)
        ShowData()
        clear()
        Exit Sub
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim hapussql As String
        Dim pesan
        pesan = MsgBox("Apakah Anda Yakin Akan Menghapus ID_Anggota " + TextBox1.Text + " ? ", vbExclamation + vbYesNo, "Attention!")
        If pesan = vbNo Then Exit Sub
        hapussql = "DELETE FROM table_member WHERE ID_Anggota = " & TextBox1.Text & ""
        jalankansql(hapussql)
        Me.Cursor = Cursors.WaitCursor
        clear()
        ShowData()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        isiTextBox()
    End Sub
End Class

Pusing ? Gapapa wajar efek sampingnya itu hehe, Desain sudah, database sudah, source code sudah, et tar dulu masih ada 2 langkah tambahan lagi nih tapi tenang sebentar lagi selesai ko 2 langkah tambahan ini juga ga terlalu ribet jadi jangan nyerah dulu hehehe. Oke langkah pertama adalah menambahkan module di program visual studio kalian, caranya ? nih liat :

Kalo itu sudah lalu kaya gini :


Nah modulenya sudah ada kan ? lalu isi kan seperti ini :

Imports System.Data.OleDb
Imports System.Data
Module Module1
    Public conn As OleDbConnection
    Public CMD As OleDbCommand
    Public DS As New DataSet
    Public DA As OleDbDataAdapter
    Public RD As OleDbDataReader
    Public lokasidb As String

    Public Sub konek()
        lokasidb = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & AppPath() & "\UAS.accdb"
        'lokasidb = AppPath() & "\UAS.accdb"
        conn = New OleDbConnection(lokasidb)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub

    Public Function AppPath() As String
        Return System.AppDomain.CurrentDomain.BaseDirectory()
    End Function
End Module

Ciee tinggal satu langkah lagi nih, langsung aja oke. langkah terakhir ini adalah menambahkan database yg tadi kita buat ke dalam folder debug yg ada didalam folder projek kalian, Bingung dimana tempatnya ? nih liat :


Oke selamat kalian telah selesai hehehe, Kalo masih ada yg error kolom komentar masih setia ko dibawah.

5 komentar:

  1. mas buatkan saya aplikasi perpustakaan biar sy tinggal ngisi saja mas...mohon bantuannya

    BalasHapus
    Balasan
    1. Waduh mas maaf saya cuma mahasiswa kalo untuk pembuatan projek besar saya belum sanggup, maaf ini blog juga sudah mati jadi respon lama, silakan kunjungi blog baru saya "https://simple-mindset.blogspot.com/"

      Hapus
  2. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  3. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  4. Kak Kenapa yah kalo di run modulnya jadi eror ada teksnya berwarna kuning

    BalasHapus