UAS Pemrograman Bisnis 2 - Sistem Informasi Distribusi KTP

Untuk UAS Mata Kuliah Pemrograman Bisnis ini saya membuat Sistem Informasi Distribusi KTP.

Dalam sistem informasi ini menggunakan Visual Studio 2008 yang terhubung dengan database dari Microsoft Access 2007.

Tampilan form login:

Tampilan menu utama:

 

Tampilan menu distribusi KTP:

Source code:
Imports System.Data.OleDb

Public Class Pengambilan
    Dim cnnOLEDB As New OleDbConnection

    Dim cmdOLEDB As New OleDbCommand

    Dim cmdInsert As New OleDbCommand

    Dim cmdUpdate As New OleDbCommand

    Dim cmdDelete As New OleDbCommand
    Dim da As New OleDbDataAdapter
    Dim dt As New DataTable
    Dim DtSet As New DataSet
    Dim strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Environment.CurrentDirectory & "\database12.mdb"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As New DataTable
        da.SelectCommand = New OleDbCommand("SELECT NoPengambilan, TglPengambilan, NamaPengambil, NoKTP, NoPendaftaran From tPengambilan", cnnOLEDB)
        da.Fill(dt)

        DataGridView1.DataSource = dt
    End Sub

    Private Sub Pengambilan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnnOLEDB.ConnectionString = strConnectionString

        cnnOLEDB.Open()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" Then

            cmdInsert.CommandText = "INSERT INTO tPengambilan (NoPengambilan, TglPengambilan, NamaPengambil, NoKTP, NoPendaftaran) VALUES ('" & TextBox1.Text & "', '" & DateTimePicker1.Value.ToShortDateString & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "')"

            cmdInsert.CommandType = CommandType.Text

            cmdInsert.Connection = cnnOLEDB

            cmdInsert.ExecuteNonQuery()

            MsgBox("Record Insert")

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""


        Else

            MsgBox("Masukan data yang diperlukan:" & vbNewLine & "1.NoPengambilan" & vbNewLine & "2.TanggalPengambilan" & vbNewLine & "3. NamaPengambil" & vbNewLine & "4.No KTP" & vbNewLine & "5. NoPendaftaran")

        End If

        cmdInsert.Dispose()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" Then

            cmdUpdate.CommandText = "UPDATE tPengambilan SET NamaPengambil = '" & TextBox2.Text & "' , TglPengambilan = '" & DateTimePicker1.Value.ToShortDateString & "', NoKTP = '" & TextBox3.Text & "' , NoPendaftaran = '" & TextBox4.Text & "' WHERE NoPengambilan = " & TextBox1.Text & ";"

            cmdUpdate.CommandType = CommandType.Text

            cmdUpdate.Connection = cnnOLEDB

            cmdUpdate.ExecuteNonQuery()

            MsgBox("Record updated.")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""



        Else

            MsgBox("Masukan data yang diperlukan:" & vbNewLine & "1.NoPengambilan" & vbNewLine & "2.TanggalPengambilan" & vbNewLine & "3. NamaPengambil" & vbNewLine & "4.No KTP" & vbNewLine & "5. NoPendaftaran")

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text <> "" Then

            cmdDelete.CommandText = "DELETE FROM tPengambilan WHERE NoPengambilan= " & TextBox1.Text & ";"

            cmdDelete.CommandType = CommandType.Text

            cmdDelete.Connection = cnnOLEDB

            cmdDelete.ExecuteNonQuery()

            MsgBox("Record deleted.")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""

            cmdDelete.Dispose()

        Else

            MsgBox("Masukan data yang diperlukan:" & vbNewLine & "1. NoPengambilan")

        End If

        cmdDelete.Dispose()
    End Sub


    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        SaveFileDialog1.Filter = "Access files (*.mdb)|*.mdb|All Files|*.*"
        SaveFileDialog1.ShowDialog()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

    End Sub
End Class