Cara Menampilkan Data Pada ComboBox Menggunakan Konsep OOP

Haahh.. menyempatkan diri berbagi diselah-selah kesibukan dikantor..

pada tulisan sebelumnya telah saya coba share bagaimana cara menampilkan data pada ComboBox dari database yang ada, namun cara tersebut masih cara terstruktur. berikut adalah cara yang dapat saya eksplorasi menggunakan konsep OOP. disini akan menggunakan beberapa class (Entity, Control, Boundary). dimana itu akan memperjelas penggunaan proses pada pemrograman dan tentunya UML yang akan dikoneksikan dengan program aplikasi.

berikut caranya ::

1. Buat sebuah Class Entity

Public Class GRUPUSERAKSESEntityClass
    Private _IdGrupUser As String
    Private _NamaGrupUser As String

    Public Sub New(ByVal IdGrupUser As String, ByVal NamaGrupUser As String)
        _IdGrupUser = IdGrupUser
        _NamaGrupUser = NamaGrupUser
    End Sub

    Public Property IdGrupUser() As String
        Get
            Return _IdGrupUser
        End Get
        Set(ByVal value As String)
            _IdGrupUser = value
        End Set
    End Property

    Public Property NamaGrupUser() As String
        Get
            Return _NamaGrupUser
        End Get
        Set(ByVal value As String)
            _NamaGrupUser = value
        End Set
    End Property
End Class

Buat sebuah Class Control

Public Class AKSESSISTEMControlClass
    Dim MeKONEKSI As New CONNECTIONClass

Public Overridable Function ISI_COMBO() As List(Of GRUPUSERAKSESEntityClass)
        Dim ItemS = New List(Of GRUPUSERAKSESEntityClass)
        MeKONEKSI.TUTUPKONEKSI()
        COMMAND = New SqlCommand("SELECT * FROM GrupUserTabel ORDER BY IdGrupUser ASC", MeKONEKSI.BUKAKONEKSI)
        DTR = COMMAND.ExecuteReader
        If DTR.HasRows = True Then
            While DTR.Read
                ItemS.Add(New GRUPUSERAKSESEntityClass(DTR("IdGrupUser"), DTR("IdGrupUser") & " ## " & DTR("NamaGrupUser")))
            End While
        End If
        Return ItemS
    End Function

End Class

Buatlah sebuah Class Boundary / Buatlah sebuah form

Public Class SISTEMAKSES

Dim MeAksesControl As New AKSESSISTEMControlClass

 Private Sub SISTEMAKSES_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, MyBase.Activated
                Call COMBOBOX()
    End Sub

Private Sub COMBOBOX()
        CmbGRUPUSER.DataSource = MeAksesControl.ISI_COMBO
        CmbGRUPUSER.DisplayMember = "NamaGrupUser"
    End Sub

End Class