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:
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
