Imports System.Net.Sockets
Imports System.IO
Imports System.Text

Module DBConn

    ''Á÷Á¢ µ¥ÀÌÅͺ£À̽º¿¡ Á¢¼ÓÇÒ¶§ ¾´´Ù.
    'Public RYL_Conn As String = "server=192.168.1.55;database=Gama;uid=sa;pwd=1234"
    'Public IDBAgent As New DBAgent()

    'Åø»ç¿ëÀÚ ÁöÁ¤
    Public AdminKind As String
    Public IClientSocket As New ClientSocket()
    Public ds As New DataSet()

    '¾ÆÀÌÅ۹迭¾ò±â
    Public ItemArray() As Byte

    'TableIndex
    Public Const AdminTableIndex As Int32 = 0
    Public Const CharItemListIndex As Int32 = 1
    Public Const CharRestraintIndex As Int32 = 2
    Public Const CurrentUserIndex As Int32 = 3
    Public Const LastUserIndex As Int32 = 4

    '¼­¹ö¸®½ºÆ®
    Public Const Test As String = "Å×½ºÆ®"
    Public Const Solpis As String = "¼ÖÇǽºÆ¼¾Æ"
    Public Const Karte As String = "Ä«¸£Å׶õÆ®"
    Public Const Iranshya As String = "À̶õ»þ"
    Public Const Hiland As String = "ÇÏÀÌ·£µå"
    Public Const Aldia As String = "¾Ëµð¾Æ"
    Public Const Yunite As String = "À¯´ÏÅ×"

    '±¹°¡ÄÚµå
    Public Const Code As Integer = 949

    Public SERVER As String
    Public CHARNAME As String

    'CharItemFormType = 1 --edit
    'CharItemFormType = 0 --create
    Public CharItemFormType As Boolean

    Private Structure myData
        Dim ColumnName As String
        Dim ReadOnlyType As Boolean
    End Structure

    '¿î¿µÀÚ ±ÇÇÑ 
    Public Structure ToolAdminRight
        Dim charEdit As Boolean
        Dim charLocation As Boolean
        Dim charseeItem As Boolean
        Dim ItemCreate As Boolean
        Dim ItemEdit As Boolean
        Dim ItemDel As Boolean
        Dim RestraintReg As Boolean
        Dim RestraintRelease As Boolean
        Dim currentUserLogin As Boolean
        Dim lastUserLogin As Boolean
        Dim DoingLogout As Boolean
    End Structure


    Public Sub Initialize()

        MakeAdminTable()
        MakeCharItemTable()
        MakeCharRestraintTable()
        MakeCurrentUserTable()
        MakeLastUserTable()

    End Sub


    'Å×ÀÌºí ¸¸µé±â
    Private Sub MakeAdminTable()

        Dim myAdminTable As New DataTable("AdminSearch")
        Dim myDataColumn As New DataColumn()

        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strAdminID"
        myDataColumn.ReadOnly = True
        myAdminTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strPasswd"
        myDataColumn.ReadOnly = True
        myAdminTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strLevel"
        myDataColumn.ReadOnly = True
        myAdminTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strName"
        myDataColumn.ReadOnly = True
        myAdminTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strIp"
        myDataColumn.ReadOnly = True
        myAdminTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "dateRegit"
        myDataColumn.ReadOnly = True
        myAdminTable.Columns.Add(myDataColumn)

        ds.Tables.Add(myAdminTable)

    End Sub


    Private Sub MakeCharItemTable()

        Dim myCharItemTable As New DataTable("CharItemList")
        Dim myDataColumn As New DataColumn()

        Dim ColumnName(59) As myData

        ColumnName(0).ColumnName = "ItemIndex"
        ColumnName(0).ReadOnlyType = True
        ColumnName(1).ColumnName = "ItemTypeID"
        ColumnName(1).ReadOnlyType = True
        ColumnName(2).ColumnName = "ItemName"
        ColumnName(2).ReadOnlyType = True
        ColumnName(3).ColumnName = "ItemType"
        ColumnName(3).ReadOnlyType = True
        ColumnName(4).ColumnName = "ItemWhere"
        ColumnName(4).ReadOnlyType = True
        ColumnName(5).ColumnName = "ItemX"
        ColumnName(5).ReadOnlyType = True
        ColumnName(6).ColumnName = "ItemY"
        ColumnName(6).ReadOnlyType = True
        ColumnName(7).ColumnName = "ItemZ"
        ColumnName(7).ReadOnlyType = True

        ColumnName(8).ColumnName = "SizeX"
        ColumnName(8).ReadOnlyType = True
        ColumnName(9).ColumnName = "SizeY"
        ColumnName(9).ReadOnlyType = True
        ColumnName(10).ColumnName = "Amount"
        ColumnName(10).ReadOnlyType = True

        ColumnName(11).ColumnName = "WhetherAmount"
        ColumnName(11).ReadOnlyType = True
        ColumnName(12).ColumnName = "RuneSocket"
        ColumnName(12).ReadOnlyType = True
        ColumnName(13).ColumnName = "MaxDurability"
        ColumnName(13).ReadOnlyType = True

        ColumnName(14).ColumnName = "CurSocketNum"
        ColumnName(14).ReadOnlyType = True
        ColumnName(15).ColumnName = "MaxSocketNum"
        ColumnName(15).ReadOnlyType = True
        ColumnName(16).ColumnName = "MaterialType"
        ColumnName(16).ReadOnlyType = True

        Dim nCount As Int32
        For nCount = 17 To 24
            ColumnName(nCount).ColumnName = "Socket" + (nCount - 17).ToString
            ColumnName(nCount).ReadOnlyType = True
        Next

        For nCount = 25 To 59
            ColumnName(nCount).ColumnName = "Attribute" + (nCount - 25).ToString
            ColumnName(nCount).ReadOnlyType = True
        Next

        For nCount = 0 To 59
            myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.String")
            myDataColumn.ColumnName = ColumnName(nCount).ColumnName
            myDataColumn.ReadOnly = ColumnName(nCount).ReadOnlyType
            myCharItemTable.Columns.Add(myDataColumn)
        Next

        ds.Tables.Add(myCharItemTable)

    End Sub

    'Å×ÀÌºí ¸¸µé±â
    Private Sub MakeCharRestraintTable()

        Dim myCharRestraintTable As New DataTable("CharRestraint")
        Dim myDataColumn As New DataColumn()

        ' Create first column and add to the DataTable.
        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "UID"
        myDataColumn.ReadOnly = True
        'myDataColumn.Unique = True
        ' Add the column to the DataColumnCollection.
        myCharRestraintTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strClientID"
        myDataColumn.ReadOnly = True
        'myDataColumn.Unique = True
        ' Add the column to the DataColumnCollection.
        myCharRestraintTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strCharacterID"
        myDataColumn.ReadOnly = True
        'myDataColumn.Unique = True
        ' Add the column to the DataColumnCollection.
        myCharRestraintTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "BlockType"
        myDataColumn.ReadOnly = True
        'myDataColumn.Unique = True
        ' Add the column to the DataColumnCollection.
        myCharRestraintTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "BlockKind"
        myDataColumn.ReadOnly = True
        'myDataColumn.Unique = True
        ' Add the column to the DataColumnCollection.
        myCharRestraintTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "Blocked"
        myDataColumn.ReadOnly = True
        'myDataColumn.Unique = True
        ' Add the column to the DataColumnCollection.
        myCharRestraintTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "EndTime"
        myDataColumn.ReadOnly = True
        'myDataColumn.Unique = True
        ' Add the column to the DataColumnCollection.
        myCharRestraintTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "adminid"
        myDataColumn.ReadOnly = True

        myCharRestraintTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "discription"
        myDataColumn.ReadOnly = True
        myCharRestraintTable.Columns.Add(myDataColumn)

        ds.Tables.Add(myCharRestraintTable)
    End Sub

    'Å×ÀÌºí ¸¸µé±â
    Private Sub MakeCurrentUserTable()

        Dim myCurrentUserTable As New DataTable("CurrentUser")
        Dim myDataColumn As New DataColumn()

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strClientID"
        myDataColumn.ReadOnly = True
        myCurrentUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strIP"
        myDataColumn.ReadOnly = True
        myCurrentUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "intCRMIndex"
        myDataColumn.ReadOnly = True
        myCurrentUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "UID"
        myDataColumn.ReadOnly = True
        myCurrentUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "LoginTime"
        myDataColumn.ReadOnly = True
        myCurrentUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "ServerID"
        myDataColumn.ReadOnly = True
        myCurrentUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "BillType"
        myDataColumn.ReadOnly = True
        myCurrentUserTable.Columns.Add(myDataColumn)

        ds.Tables.Add(myCurrentUserTable)
    End Sub


    'Å×ÀÌºí ¸¸µé±â
    Private Sub MakeLastUserTable()

        Dim myLastUserTable As New DataTable("LastUser")
        Dim myDataColumn As New DataColumn()

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strClientID"
        'myDataColumn.ColumnName = "ÇÑ°ÔÀÓ°èÁ¤"
        myDataColumn.ReadOnly = True
        myLastUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "strIP"
        'myDataColumn.ColumnName = "Á¢¼ÓIP"
        myDataColumn.ReadOnly = True
        myLastUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "intCRMIndex"
        'myDataColumn.ColumnName = "Çǽùæ"
        myDataColumn.ReadOnly = True
        myLastUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "UID"
        'myDataColumn.ColumnName = "À¯ÀúÀ妽º"
        myDataColumn.ReadOnly = True
        myLastUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "LoginTime"
        'myDataColumn.ColumnName = "Á¢¼Ó½Ã°£"
        myDataColumn.ReadOnly = True
        myLastUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "LogOutTime"
        'myDataColumn.ColumnName = "¾Æ¿ô½Ã°£"
        myDataColumn.ReadOnly = True
        myLastUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "ServerID"
        'myDataColumn.ColumnName = "Á¢¼Ó¼­¹ö"
        myDataColumn.ReadOnly = True
        myLastUserTable.Columns.Add(myDataColumn)

        myDataColumn = New DataColumn()
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "BillType"
        'myDataColumn.ColumnName = "°ú±ÝÁ¾·ù"
        myDataColumn.ReadOnly = True
        myLastUserTable.Columns.Add(myDataColumn)

        ds.Tables.Add(myLastUserTable)

    End Sub

    Public Sub SetServerNames(ByRef ServerListCombobox As ComboBox)

        ServerListCombobox.Items.Add(Test)
        ServerListCombobox.Items.Add(Solpis)
        ServerListCombobox.Items.Add(Karte)
        ServerListCombobox.Items.Add(Iranshya)
        ServerListCombobox.Items.Add(Hiland)
        ServerListCombobox.Items.Add(Aldia)
        ServerListCombobox.Items.Add(Yunite)
        ServerListCombobox.SelectedIndex = 0

    End Sub





    ''------------------------------------
    ''¿¢¼¿ Ãâ·ÂÇϱ⠹öÆ°
    ''ByVal Query As String
    ''------------------------------------
    'Public Function ExcelPrint(ByVal tblCustomer As DataTable) As Boolean

    '    '¿¢¼¿ ÀÛ¾÷½ÃÀÛÇϱâ
    '    Dim excelApp As Excel.Application
    '    Dim rowIndex As Integer = 1
    '    Dim colIndex As Integer = 0

    '    'Me.Cursor.Current = Cursors.WaitCursor

    '    Try
    '        '------------------------------------------
    '        ' »õ·Î¿î ¾×¼¿ ÇÁ·Î±×·¥ ½ÃÀÛ
    '        '------------------------------------------
    '        excelApp = New Excel.Application()

    '        '------------------------------------------
    '        ' ¿¢¼¿ ½ÃÆ® Ãß°¡
    '        '------------------------------------------
    '        excelApp.Workbooks.Add()

    '        '------------------------------------------
    '        ' Customers Å×ÀÌºí ¿ÀºêÁ§Æ®¸¦ ¹Þ´Â´Ù.
    '        '------------------------------------------

    '        'strquery = tbox_query.Text
    '        'tblCustomer = Me.GetDataTable(Query, "table")

    '        '------------------------------------------
    '        ' ¾×¼¿ÀÇ Ã¹¹ø° ÇàÀ» Ä÷³¸íÀ¸·Î ä¿î´Ù
    '        '------------------------------------------
    '        Dim col As DataColumn
    '        For Each col In tblCustomer.Columns
    '            colIndex += 1
    '            excelApp.Cells(1, colIndex) = col.ColumnName
    '        Next

    '        '------------------------------------------
    '        ' ½ÇÁ¦ µ¥ÀÌÅ͸¦ ¾×¼¿¿¡ ä¿ö³Ö´Â´Ù.
    '        '------------------------------------------
    '        Dim row As DataRow
    '        For Each row In tblCustomer.Rows
    '            rowIndex += 1
    '            colIndex = 0
    '            For Each col In tblCustomer.Columns
    '                colIndex += 1
    '                excelApp.Cells(rowIndex, colIndex) = row(col).ToString
    '            Next
    '        Next

    '        excelApp.Visible = True
    '    Catch exp As Exception
    '        MessageBox.Show(exp.ToString)

    '        If Not excelApp Is Nothing Then
    '            excelApp.Application.Quit()
    '            excelApp = Nothing
    '        End If
    '    End Try

    '    'Me.Cursor.Current = Cursors.Default

    'End Function



End Module