HYTOS

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>

Partial Class Mapping

    Inherits System.Windows.Forms.Form

    'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.

    <System.Diagnostics.DebuggerNonUserCode()>

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    'Windows Form 디자이너에 필요합니다.

    Private components As System.ComponentModel.IContainer

    '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.

    '수정하려면 Windows Form 디자이너를 사용하십시오.  

    '코드 편집기에서는 수정하지 마세요.

    <System.Diagnostics.DebuggerStepThrough()>

    Private Sub InitializeComponent()

        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()

        Me.TabControl_Mapping = New DevExpress.XtraTab.XtraTabPage()

        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()

        Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()

        Me.Btn_Save = New DevExpress.XtraEditors.SimpleButton()

        Me.Btn_Load = New DevExpress.XtraEditors.SimpleButton()

        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()

        Me.XtraTabControl1.SuspendLayout

        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()

        Me.PanelControl1.SuspendLayout

        Me.SuspendLayout()

        '

        'XtraTabControl1

        '

        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill

        Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom

        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 37)

        Me.XtraTabControl1.Name = "XtraTabControl1"

        Me.XtraTabControl1.SelectedTabPage = Me.TabControl_Mapping

        Me.XtraTabControl1.Size = New System.Drawing.Size(665, 496)

        Me.XtraTabControl1.TabIndex = 0

        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabControl_Mapping, Me.XtraTabPage2})

        '

        'TabControl_Mapping

        '

        Me.TabControl_Mapping.Name = "TabControl_Mapping"

        Me.TabControl_Mapping.Size = New System.Drawing.Size(659, 467)

        Me.TabControl_Mapping.Text = "XtraTabPage1"

        '

        'XtraTabPage2

        '

        Me.XtraTabPage2.Name = "XtraTabPage2"

        Me.XtraTabPage2.Size = New System.Drawing.Size(659, 467)

        Me.XtraTabPage2.Text = "XtraTabPage2"

        '

        'PanelControl1

        '

        Me.PanelControl1.Controls.Add(Me.Btn_Save)

        Me.PanelControl1.Controls.Add(Me.Btn_Load)

        Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Top

        Me.PanelControl1.Location = New System.Drawing.Point(0, 0)

        Me.PanelControl1.Name = "PanelControl1"

        Me.PanelControl1.Size = New System.Drawing.Size(665, 37)

        Me.PanelControl1.TabIndex = 1

        '

        'Btn_Save

        '

        Me.Btn_Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

        Me.Btn_Save.Location = New System.Drawing.Point(585, 9)

        Me.Btn_Save.Name = "Btn_Save"

        Me.Btn_Save.Size = New System.Drawing.Size(75, 23)

        Me.Btn_Save.TabIndex = 1

        Me.Btn_Save.Text = "Save"

        '

        'Btn_Load

        '

        Me.Btn_Load.Location = New System.Drawing.Point(12, 9)

        Me.Btn_Load.Name = "Btn_Load"

        Me.Btn_Load.Size = New System.Drawing.Size(75, 23)

        Me.Btn_Load.TabIndex = 0

        Me.Btn_Load.Text = "Load"

        '

        'Mapping

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.ClientSize = New System.Drawing.Size(665, 533)

        Me.Controls.Add(Me.XtraTabControl1)

        Me.Controls.Add(Me.PanelControl1)

        Me.Name = "Mapping"

        Me.ShowIcon = False

        Me.Text = "Mapping Table"

        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()

        Me.XtraTabControl1.ResumeLayout(False)

        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()

        Me.PanelControl1.ResumeLayout(False)

        Me.ResumeLayout(False)

    End Sub

    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl

    Friend WithEvents TabControl_Mapping As DevExpress.XtraTab.XtraTabPage

    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage

    Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl

    Friend WithEvents Btn_Save As DevExpress.XtraEditors.SimpleButton

    Friend WithEvents Btn_Load As DevExpress.XtraEditors.SimpleButton

End Class

<?xml version="1.0" encoding="utf-8"?>

<root>

  <!-- 

    Microsoft ResX Schema 

    Version 2.0

    The primary goals of this format is to allow a simple XML format 

    that is mostly human readable. The generation and parsing of the 

    various data types are done through the TypeConverter classes 

    associated with the data types.

    Example:

    ... ado.net/XML headers & schema ...

    <resheader name="resmimetype">text/microsoft-resx</resheader>

    <resheader name="version">2.0</resheader>

    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>

    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>

    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>

    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>

    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">

        <value>[base64 mime encoded serialized .NET Framework object]</value>

    </data>

    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>

        <comment>This is a comment</comment>

    </data>

    There are any number of "resheader" rows that contain simple 

    name/value pairs.

    Each data row contains a name, and value. The row also contains a 

    type or mimetype. Type corresponds to a .NET class that support 

    text/value conversion through the TypeConverter architecture. 

    Classes that don't support this are serialized and stored with the 

    mimetype set.

    The mimetype is used for serialized objects, and tells the 

    ResXResourceReader how to depersist the object. This is currently not 

    extensible. For a given mimetype the value must be set accordingly:

    Note - application/x-microsoft.net.object.binary.base64 is the format 

    that the ResXResourceWriter will generate, however the reader can 

    read any of the formats listed below.

    mimetype: application/x-microsoft.net.object.binary.base64

    value   : The object must be serialized with 

            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter

            : and then encoded with base64 encoding.

    mimetype: application/x-microsoft.net.object.soap.base64

    value   : The object must be serialized with 

            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter

            : and then encoded with base64 encoding.

    mimetype: application/x-microsoft.net.object.bytearray.base64

    value   : The object must be serialized into a byte array 

            : using a System.ComponentModel.TypeConverter

            : and then encoded with base64 encoding.

    -->

  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">

    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />

    <xsd:element name="root" msdata:IsDataSet="true">

      <xsd:complexType>

        <xsd:choice maxOccurs="unbounded">

          <xsd:element name="metadata">

            <xsd:complexType>

              <xsd:sequence>

                <xsd:element name="value" type="xsd:string" minOccurs="0" />

              </xsd:sequence>

              <xsd:attribute name="name" use="required" type="xsd:string" />

              <xsd:attribute name="type" type="xsd:string" />

              <xsd:attribute name="mimetype" type="xsd:string" />

              <xsd:attribute ref="xml:space" />

            </xsd:complexType>

          </xsd:element>

          <xsd:element name="assembly">

            <xsd:complexType>

              <xsd:attribute name="alias" type="xsd:string" />

              <xsd:attribute name="name" type="xsd:string" />

            </xsd:complexType>

          </xsd:element>

          <xsd:element name="data">

            <xsd:complexType>

              <xsd:sequence>

                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />

                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />

              </xsd:sequence>

              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />

              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />

              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />

              <xsd:attribute ref="xml:space" />

            </xsd:complexType>

          </xsd:element>

          <xsd:element name="resheader">

            <xsd:complexType>

              <xsd:sequence>

                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />

              </xsd:sequence>

              <xsd:attribute name="name" type="xsd:string" use="required" />

            </xsd:complexType>

          </xsd:element>

        </xsd:choice>

      </xsd:complexType>

    </xsd:element>

  </xsd:schema>

  <resheader name="resmimetype">

    <value>text/microsoft-resx</value>

  </resheader>

  <resheader name="version">

    <value>2.0</value>

  </resheader>

  <resheader name="reader">

    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

  </resheader>

  <resheader name="writer">

    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

  </resheader>

</root>



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

    <Compile Include="Mapping.Designer.vb">

      <DependentUpon>Mapping.vb</DependentUpon>

    </Compile>

    <Compile Include="Mapping.vb">

      <SubType>Form</SubType>

    </Compile>

    <EmbeddedResource Include="Mapping.resx">

      <DependentUpon>Mapping.vb</DependentUpon>

    </EmbeddedResource>