HYTOS



Imports DevExpress.XtraEditors.Repository

Public Class Mapping

    Dim oPidSymbolCombobox As DevExpress.XtraEditors.Repository.RepositoryItemComboBox

    Dim _PID_Ds As DataSet

    Dim _PIDSymbol_Dt As DataTable = New DataTable

    Dim _Gembox As New CGembox()

    Sub New(ByVal oDt As DataTable)

        ' 디자이너에서 이 호출이 필요합니다.

        InitializeComponent()

        _PIDSymbol_Dt = oDt

        LoadSymbolLibrary()

        ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하세요.

    End Sub

    Private Function LoadSymbolDataset() As DataSet

        Dim oPID_Ds As DataSet

        _Gembox.isLoadFile(My.Settings.SymbolLibrary)

        oPID_Ds = _Gembox.LoadFileFunc()

        Return oPID_Ds

    End Function

    Private Sub LoadSymbolLibrary()

        _Gembox.isLoadFile(My.Settings.SymbolLibrary)

        _PID_Ds = _Gembox.LoadFileFunc()

        XtraTabControl1.TabPages.Clear()

        For Each oDt As DataTable In _PID_Ds.Tables

            Dim bCheckImageColumn As Boolean = False

            'Image Pid ComboBox 추가

            For Each oColumn As DataColumn In oDt.Columns

                If oColumn.ColumnName = _Column_ImageSymbol Then

                    bCheckImageColumn = True

                End If

            Next

            If bCheckImageColumn = False Then

                Try

                    Dim iIndex As Integer = oDt.Columns(oDt.Columns.Count - 1).Namespace + 1

                    Dim oAddCol As DataColumn = oDt.Columns.Add(_Column_ImageSymbol)

                    oAddCol.Namespace = iIndex

                Catch ex As Exception

                End Try

            End If

            Dim oTabPage As New DevExpress.XtraTab.XtraTabPage

            oTabPage.Name = oDt.TableName

            oTabPage.Text = oDt.TableName

            Dim oGridControl As New DevExpress.XtraGrid.GridControl

            Dim oGridview As New DevExpress.XtraGrid.Views.Grid.GridView

            '   oGridview.CustomRowCellEdit += New DevExpress.XtraGrid.Views.Grid.CustomRowCellEditEventHandler(GridView_Mapping_CustomRowCellEdit);

            oGridControl.ViewCollection.Add(oGridview)

            oGridControl.MainView = oGridview

            oGridControl.DataSource = oDt

            oGridControl.BindingContext = New BindingContext()

            oGridControl.ForceInitialize()

            oGridview.Columns(_Column_ImageSymbol).ColumnEdit = GetComboEdit(oDt.TableName)

            oGridview.OptionsView.BestFitMode = DevExpress.XtraGrid.Views.Grid.GridBestFitMode.Full

            oGridview.OptionsView.ColumnAutoWidth = False

            oGridview.BestFitColumns()

            oGridControl.Dock = DockStyle.Fill

            oTabPage.Controls.Add(oGridControl)

            XtraTabControl1.TabPages.Add(oTabPage)

        Next

    End Sub

    Private Function GetComboEdit(ByVal sType As String) As RepositoryItemComboBox

        Dim oSymbolCombo As New RepositoryItemComboBox()

        oSymbolCombo.DropDownRows = 30

        If _PIDSymbol_Dt IsNot Nothing Then

            Dim oDataRows() As DataRow = _PIDSymbol_Dt.Select("category = '" & sType & "'")

            For Each oRow In oDataRows

                Dim sCategory As String = oRow("name").ToString()

                oSymbolCombo.Items.Add(sCategory)

            Next

        End If

        Return oSymbolCombo

    End Function

    Private Sub GridView_Mapping_CustomRowCellEdit(ByVal oObject As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.CustomRowCellEditEventArgs)

        If e.Column.FieldName = _Column_ImageSymbol Then

            e.RepositoryItem = oPidSymbolCombobox

        Else

            Return

        End If

    End Sub

    Private Sub TabControl_Mapping_Paint(sender As Object, e As PaintEventArgs) Handles TabControl_Mapping.Paint

    End Sub

    Private Sub TabControl_Mapping_MouseDown(sender As Object, e As MouseEventArgs) Handles TabControl_Mapping.MouseDown

    End Sub

    Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click

        'Dim oSaveFileDialog As New SaveFileDialog

        'oSaveFileDialog.Filter = "xlsx Files (*.xlsx)|*.xlsx"

        'If oSaveFileDialog.ShowDialog() = DialogResult.OK Then

        '    If oSaveFileDialog.FileName <> "" Then

        '    End If

        'End If

        If _PID_Ds IsNot Nothing Then

            Dim iAddColCnt As Integer = 0

            Dim oPidSymbol_Dt As DataTable = _Gembox.AddImageLibrary(_PID_Ds, _PIDSymbol_Dt)

            For Each oDt As DataTable In _PID_Ds.Tables

                'Dim oGembox As New CGembox

                _Gembox.SaveSymbolLibrary(oDt, oPidSymbol_Dt)

                '_Gembox.outputToExcelFile(oDt, oDt.TableName, oSaveFileDialog.FileName)

                _Gembox.SetSaveFile(My.Settings.SymbolLibrary)

            Next

            MessageBox.Show("저장 완료")

            '  System.Diagnostics.Process.Start(My.Settings.SymbolLibrary)

        Else

            MessageBox.Show("Symbol DB가 없습니다.")

        End If

    End Sub

    Private Sub Btn_Load_Click(sender As Object, e As EventArgs) Handles Btn_Load.Click

    End Sub

End Class