TUGAS VB

TAMPILAN DESAIN










KODING MODULE

Imports System.Data.OleDb
Module Module1
    Public cn As New OleDbConnection
    Sub BukaKoneksi()
        AppDomain.CurrentDomain.SetData("DataDirectory", System.IO.Directory.GetParent(AppDomain.CurrentDomain.BaseDirectory).Parent.Parent.FullName)
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\AZHARAMIN.mdb"
        cn.Open()
    End Sub
End Module

KODING DI FORM



Imports System.Data.OleDb
Public Class Form1
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Close()
    End Sub
    Sub Batal()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
    End Sub
    Sub IsiListView()
        Try
            Using Koneksi As New OleDbConnection(cn.ConnectionString)
                Using Cmd As New OleDbCommand("Select * From BIODATADIRI", Koneksi)
                    Koneksi.Open()
                    Using Data As OleDbDataReader = Cmd.ExecuteReader
                        Dim x As Integer = 0
                        Dim Nmr As Integer = 1
                        ListView1.Items.Clear()
                        If Data.HasRows = True Then
                            While Data.Read
                                ListView1.Items.Add(Nmr)
                                ListView1.Items(x).SubItems.Add(Data("NIRM"))
                                ListView1.Items(x).SubItems.Add(Data("NAMA"))
                                ListView1.Items(x).SubItems.Add(Data("ALAMAT"))
                                ListView1.Items(x).SubItems.Add(Data("JENISKELAMIN"))
                                ListView1.Items(x).SubItems.Add(Data("AGAMA"))
                                ListView1.Items(x).SubItems.Add(Data("KODEPOS"))
                                Nmr = Nmr + 1
                                x = x + 1
                            End While
                        End If
                    End Using
                End Using
            End Using
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Using koneksi As New OleDbConnection(cn.ConnectionString)
                Using cmd As New OleDbCommand("select * from BIODATADIRI where NIRM like '%" & TextBox1.Text & "%'", koneksi)
                    koneksi.Open()
                    Using Data As OleDbDataReader = cmd.ExecuteReader
                        Dim x As Integer = 0
                        Dim nmr As Integer = 1
                        ListView1.Items.Clear()
                        If Data.HasRows = True Then
                            While Data.Read
                                ListView1.Items.Add(nmr)
                                ListView1.Items(x).SubItems.Add(Data("NIRM"))
                                ListView1.Items(x).SubItems.Add(Data("NAMA"))
                                ListView1.Items(x).SubItems.Add(Data("ALAMAT"))
                                ListView1.Items(x).SubItems.Add(Data("JENISKELAMIN"))
                                ListView1.Items(x).SubItems.Add(Data("AGAMA"))
                                ListView1.Items(x).SubItems.Add(Data("KODEPOS"))
                                nmr = nmr + 1
                                x = x + 1
                            End While
                        Else
                            ListView1.Items.Clear()
                            MsgBox("Maaf, Parameter Tidak Cocok, Data Tidak Ditemukan", MsgBoxStyle.Information, "Pesan Pencarian")
                        End If
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Using Koneksi As New OleDbConnection(cn.ConnectionString)
                Using cmd As New OleDbCommand("select * from BIODATADIRI Where NIRM='" & TextBox1.Text & "'", Koneksi)
                    Koneksi.Open()
                    Using Data As OleDbDataReader = cmd.ExecuteReader
                        If Data.Read = True Then
                            MsgBox("Data Sudah Ada", MsgBoxStyle.Critical, "Warning")
                        Else
                            Dim mycmd As New OleDbCommand("insert into BIODATADIRI values('" & TextBox1.Text & "', '" & TextBox2.Text & _
                                                          "', '" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & _
                                                          "', '" & TextBox6.Text & "')", Koneksi)
                            mycmd.ExecuteNonQuery()
                            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Penting")
                            Batal()
                            IsiListView()
                        End If
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            Exit Sub
            TextBox1.Focus()
        End If
        Dim Ubah = "update BIODATADIRI set NIRM = '" & TextBox1.Text & "',NAMA = '" & TextBox2.Text & "',ALAMAT = '" & TextBox3.Text & "',JENISKELAMIN = '" & TextBox4.Text & "',AGAMA = '" & TextBox5.Text & "',KODEPOS = '" & TextBox6.Text & "' where NIRM = '" & TextBox1.Text & "'"
        Using koneksi As New OleDbConnection(cn.ConnectionString)
            koneksi.Open()
            Using Diubah As New OleDbCommand(Ubah, koneksi)
                Diubah.ExecuteNonQuery()
            End Using
        End Using
        Batal()
        MsgBox("Data Berhasil Diubah", MsgBoxStyle.Information, "Informasi")
        IsiListView()
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            Using koneksi As New OleDbConnection(cn.ConnectionString)
                Using cmd As New OleDbCommand("Delete * From [BIODATADIRI] where NIRM='" & TextBox1.Text & "'", koneksi)
                    koneksi.Open()
                    If TextBox1.Text = "" Then
                        TextBox1.Focus()
                        Exit Sub
                    End If
                    cmd.CommandType = CommandType.Text
                    cmd.ExecuteNonQuery()
                    MsgBox("Data Berhasil Dihapus", MsgBoxStyle.Critical, "Informasi")
                    Batal()
                    IsiListView()
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Batal()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BukaKoneksi()
        IsiListView()
    End Sub
    Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
        If ListView1.Items.Count > 0 Then
            TextBox1.Text = ListView1.SelectedItems(0).SubItems(1).Text
            TextBox2.Text = ListView1.SelectedItems(0).SubItems(2).Text
            TextBox3.Text = ListView1.SelectedItems(0).SubItems(3).Text
            TextBox4.Text = ListView1.SelectedItems(0).SubItems(4).Text
            TextBox5.Text = ListView1.SelectedItems(0).SubItems(5).Text
            TextBox6.Text = ListView1.SelectedItems(0).SubItems(6).Text
        End If
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Using koneksi As New OleDbConnection(cn.ConnectionString)
                Using cmd As New OleDbCommand("Delete * From [BIODATADIRI] where NIRM='" & TextBox1.Text & "'", koneksi)
                    koneksi.Open()
                    If TextBox1.Text = "" Then
                        TextBox1.Focus()
                        Exit Sub
                    End If
                    cmd.CommandType = CommandType.Text
                    cmd.ExecuteNonQuery()
                    MsgBox("Data Berhasil Dihapus", MsgBoxStyle.Critical, "Informasi")
                    Batal()
                    IsiListView()
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
    End Sub
End Class






SAAT DIJALANKAN

Tweet