Membuat Tabel Menggunakan DGV pada Visual Basic

Kodingnya kawan…

Imports System.IO

Imports System.IO.File

Public Class Form2

    Const PATH As String = "D:\supplier.txt"

    Const TEMP As String = "D:\temp.txt"

    Dim kode, nama, alamat, telepon As String

    Dim reader As StreamReader

    Dim writer As StreamWriter

    Dim r As BinaryReader

    Sub tampil()

        Me.dgvTampil.Rows.Clear()

        reader = File.OpenText(PATH)

        Dim i As Integer = 0

        While Not reader.EndOfStream

            Me.dgvTampil.Rows.Add()

            With Me.dgvTampil.Rows(i)

                .Cells(0).Value = reader.ReadLine

                .Cells(1).Value = reader.ReadLine

                .Cells(2).Value = reader.ReadLine

                .Cells(3).Value = reader.ReadLine

            End With

            i += 1

        End While

        reader.Close()

    End Sub

    Sub bersih()

        Me.txtTelepon.Clear()

        Me.txtAlamat.Clear()

        Me.txtNama.Clear()

        Me.txtKode.Clear()

        Me.txtKode.Focus()

    End Sub

    Function periksaSupplier(ByVal kodeCari As String) As Boolean

        reader = File.OpenText(PATH)

        While Not reader.EndOfStream

            If kodeCari.ToUpper = reader.ReadLine.ToString.ToUpper Then

                reader.Close()

                Return True

            End If

        End While

        reader.Close()

        Return False

    End Function

    Function koleksiSupplier(ByVal kodeCari As String) As ArrayList

        Dim supp As New ArrayList

        reader = File.OpenText(PATH)

        While Not reader.EndOfStream

            kode = reader.ReadLine

            nama = reader.ReadLine

            alamat = reader.ReadLine

            telepon = reader.ReadLine

            If kodeCari.ToUpper = kode.ToUpper Then

                supp.Add(nama)

                supp.Add(alamat)

                supp.Add(telepon)

                reader.Close()

                Return supp

            End If

        End While

        reader.Close()

        Return Nothing

    End Function

    Function periksaInput(ByVal kodeInput As String, ByVal namaInput As String, ByVal alamatInput As String, ByVal teleponInput As String) As Boolean

        If kodeInput.Trim.Length = 0 Then

            MsgBox("Kode harus diisi")

            Return False

        ElseIf namaInput.Trim.Length = 0 Then

            MsgBox("Nama harus diisi")

            Return False

        ElseIf alamatInput.Trim.Length = 0 Then

            MsgBox("Alamat harus diisi")

            Return False

        ElseIf teleponInput.Trim.Length = 0 Then

            MsgBox("Telepon harus diisi")

            Return False

        End If

        Return True

    End Function

    Sub rename(ByVal oldName As String, ByVal newName As String)

        File.Delete(newName)

        File.Copy(oldName, newName)

        File.Delete(oldName)

    End Sub

    Sub tambah()

        If periksaSupplier(Me.txtKode.Text) = True Then

            MsgBox("Supplier sudah ada")

            Exit Sub

        End If

        If periksaInput(Me.txtKode.Text, Me.txtNama.Text, Me.txtAlamat.Text, Me.txtTelepon.Text) = False Then

            Exit Sub

        End If

        writer = File.AppendText(PATH)

        writer.WriteLine(Me.txtKode.Text)

        writer.WriteLine(Me.txtNama.Text)

        writer.WriteLine(Me.txtAlamat.Text)

        writer.WriteLine(Me.txtTelepon.Text)

        writer.Close()

        End Sub

    Sub ubah()

        If periksaSupplier(Me.txtKode.Text) = False Then

            MsgBox("Supplier belum ada")

            Exit Sub

        End If

        If periksaInput(Me.txtKode.Text, Me.txtNama.Text, Me.txtAlamat.Text, Me.txtTelepon.Text) = False Then

            Exit Sub

        End If

        reader = File.OpenText(PATH)

        writer = File.AppendText(TEMP)

        While Not reader.EndOfStream

            kode = reader.ReadLine

            nama = reader.ReadLine

            alamat = reader.ReadLine

            telepon = reader.ReadLine

            If kode.ToUpper = Me.txtKode.Text.ToUpper Then

                writer.WriteLine(Me.txtKode.Text)

                writer.WriteLine(Me.txtNama.Text)

                writer.WriteLine(Me.txtAlamat.Text)

                writer.WriteLine(Me.txtTelepon.Text)

            Else

                writer.WriteLine(kode)

                writer.WriteLine(nama)

                writer.WriteLine(alamat)