'SatuanManager.vb
Option Strict On
Option Explicit On
 
Imports TradingStudio.BLL.Structures
Imports TradingStudio.BLL.Interfaces
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
 
Public Class SatuanManager
 
    'Inherits MarshalByRefObject
 
    Implements ISatuan
 
    Public Sub Delete_Record(ByVal intUID As Integer) Implements BLL.Interfaces.ISatuan.Delete_Record
 
    End Sub
 
    Public Function Loading_Data() As BLL.DataSet_Satuan Implements BLL.Interfaces.ISatuan.Loading_Data
        Dim ta As New DAL.DataSet_SatuanTableAdapters.UnitTableAdapter
        Dim Satuan As New BLL.DataSet_Satuan
 
        ta.FillByFlag(Satuan.Unit)
 
        Return Satuan
    End Function
 
    Public Function Loading_Record(ByVal intUID As Integer) As BLL.Structures.Structure_Satuan Implements BLL.Interfaces.ISatuan.Loading_Record
 
    End Function
 
    Public Sub Save_Record(ByVal StrucSatuan As BLL.Structures.Structure_Satuan, ByRef intUID As Integer) Implements BLL.Interfaces.ISatuan.Save_Record
 
    End Sub
 
#Region "Private Attributes"
    Private paUnitUID As Integer
    Private paUnitID As String
    Private paUnitName As String
    Private paUnitModerator As String
    Private paUnitFlag As Boolean
    Private paUnitModified As Date
#End Region
 
    Public ReadOnly Property UnitUID() As Integer
        Get
            Return paUnitUID
        End Get
    End Property
 
    Public ReadOnly Property UnitFlag() As Boolean
        Get
            Return paUnitFlag
        End Get
    End Property
 
    Public ReadOnly Property UnitModified() As Date
        Get
            Return paUnitModified
        End Get
    End Property
 
    Public Property UnitID() As String
        Get
            Return paUnitID
        End Get
        Set(ByVal value As String)
            paUnitID = value
        End Set
    End Property
 
    Public Property UnitName() As String
        Get
            Return paUnitName
        End Get
        Set(ByVal value As String)
            paUnitName = value
        End Set
    End Property
 
    Public Property UnitModerator() As String
        Get
            Return paUnitModerator
        End Get
        Set(ByVal value As String)
            paUnitModerator = value
        End Set
    End Property
 
End Class

'Interfaces.vb
Option Strict On
Option Explicit On
 
Imports TradingStudio.BLL
 
Namespace Interfaces
 
    Public Interface ISatuan
        Function Loading_Data() As DataSet_Satuan
        Function Loading_Record(ByVal intUID As Integer) As Structures.Structure_Satuan
        Sub Save_Record(ByVal StrucSatuan As Structures.Structure_Satuan, ByRef intUID As Integer)
        Sub Delete_Record(ByVal intUID As Integer)
    End Interface
 
End Namespace

'Structures.vb
Option Strict On
Option Explicit On
 
Namespace Structures
 
    <Serializable()> Public Structure Structure_Satuan
        'Public Structure Structure_Satuan
        Public UnitUID As Integer
        Public UnitID As String
        Public UnitName As String
        Public Moderator As String 'Sama Dengan Operator
        Public Flag As Boolean
        Public Modified As Date 'bisa juga dengan menggunakan byte()
    End Structure
 
End Namespace

'UI_Form.vb
Imports TradingStudio.BLL
Imports TradingStudio.DAL
 
Public Class Satuan_Main
 
    Private Sub Satuan_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim DataSatuan As New DAL.SatuanManager
 
        Me.DataGridView1.DataSource = DataSatuan.Loading_Data.Unit
 
        With Me.DataGridView1
            .Columns("UnitUID").Visible = False
            .Columns("Flag").Visible = False
            .Columns("Modified").Visible = False
            .ReadOnly = True
        End With
 
    End Sub
End Class

Public Class MySQL
    Public Function CreateMySQLConnectionADODB(ByVal Server, ByVal Database, ByVal UserName, ByVal Password) As ADODB.Connection
        Dim cnn As New ADODB.Connection
        cnn.ConnectionString = _
        "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=" & Server & ";" & _
        "DATABASE=" & Database & ";" & _
        "UID=" & UserName & ";" & _
        "PWD=" & Password
        CreateMySQLConnectionADODB = cnn
    End Function
    Public Function CreateMySQLConnectionRDO(ByVal Server, ByVal Database, ByVal UserName, ByVal Password) As RDO.rdoConnection
        Dim _cnnRDOMySQL As New RDO.rdoConnection
        Dim _qryRDOMySQL As New RDO.rdoQuery
        _cnnRDOMySQL.Connect = "uid=root;pwd=" & Password & ";server=" & Server & ";driver={MySQL ODBC 3.51 Driver}; database=" & Database & ";dsn=;"
        _cnnRDOMySQL.CursorDriver = RDO.CursorDriverConstants.rdUseOdbc
        _cnnRDOMySQL.EstablishConnection()
        Return _cnnRDOMySQL
    End Function
End Class

Public Class MyHardware
    Sub GetCDROMInfo(ByVal __CDROM As String)
        Dim alldrives() As DriveInfo = DriveInfo.GetDrives
        Dim _FreeSpace = Format(alldrives(3).TotalFreeSpace / 1024 / 1024 / 1024, "#0.0")
    End Sub
End Class