Imports adbc.dbbase
Public Class AddEpole_SKNetworks

    '//¾Æ·¡ÀÇ ÇÑ±Û º¯¼öµéÀº ºä¼³Á¤Ã¢¿¡¼­ ¼³Á¤ÀÌ °¡´ÉÇÑ Çʵå´Ù
    Dim ÀüÁÙ°ªº¹»ç±âº»°ª As String = _
    "A1,A2,B1,B2,½Ã°øÀÏ,±Ô°Ý,½Ã°øÀÚ,¹®ÀÇÀüÈ­1,¹®ÀÇÀüÈ­2"
    Dim ÇѱÛÇʵå±âº»°ª As String = _
    "A1,A2,½Ã°øÀÚ"
    Dim ´ÙÀ½ÁÙÇʵå±âº»°ª As String = "¹®ÀÇÀüÈ­2"
    Dim ViewTag As String = "view_sknetworks"
    Dim WithEvents DT As ireaDataSet.Detail_SknetworksDataTable
    Dim Desc As String
    Dim Wt As Work_Type
    Dim Sorted As ESorted = ESorted.NULL
    Dim NewData As Boolean = False

#Region "NEW Function"
    Public Sub New(ByVal maxid As Integer, ByVal Wtype As Short, ByVal Desc1 As String)
        ' ÀÌ È£ÃâÀº Windows Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù.
        InitializeComponent()
        Dim INI As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
        Me.h_date.Enabled = True
        Me.h_name.Enabled = True
        Me.h_bigo.Enabled = True
        Me.h_id.Enabled = False
        Me.h_dan.Enabled = True
        Me.Text = Desc1 & " ÀÔ·Â(½Å±ÔÀÛ¾÷)"
        Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("°Å·¡Ã³¸íÀ» ÀÔ·ÂÇϼ¼¿ä", "½Å±ÔÀÔ·Â-°Å·¡Ã³¸í", "Çر¤±âȹ")
        Me.h_dan.Text = "0" 'InputBox("¼ö·®º° ´Ü°¡¸¦ ÀÔ·ÂÇϼ¼¿ä", "½Å±ÔÀÔ·Â-´Ü°¡", "0")
        Me.h_id.Text = maxid
        Me.h_bigo.Text = Desc1 & " Á¦ÀÛ(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")"
        Me.h_date.Text = Format(Now, "yyyy/MM/dd")
        Me.Desc = Desc1
        Wt = Wtype
        NewData = True
    End Sub
    Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String, ByVal Wtype As Short, ByVal Desc1 As String)
        ' ÀÌ È£ÃâÀº Windows Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù.
        InitializeComponent()

        Me.h_date.Text = V_DATE
        Me.h_name.Text = V_NAME
        Me.h_bigo.Text = V_BIGO
        Me.h_dan.Text = V_DAN
        Me.h_id.Text = v_id
        Me.h_date.Enabled = False
        Me.h_name.Enabled = False
        Me.h_bigo.Enabled = False
        Me.h_id.Enabled = False
        Me.h_id.Enabled = False
        Me.Text = Desc1 & " ÀÔ·Â"
        Me.Desc = Desc1
        Wt = Wtype
        NewData = False
    End Sub
#End Region

#Region "ÀÚÁÖ»ç¿ëÇÏÁö¾ÊÀ½"
    Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
        Dim NEwrow As DataRow = e.Row
        Dim Newid As Integer = CInt(Me.Get_NewNumber)
        NEwrow("rowid") = System.Guid.NewGuid
        NEwrow("°ü¸®ID") = CInt(Me.h_id.Text)
        NEwrow("¹øÈ£") = Newid
        NEwrow("Ãâ·Â") = True
        NEwrow("Á¤·Ä¹øÈ£") = "1" & Format(NewId, "0000") & "1000"
    End Sub

    Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.CHk_Modify()
        MakeList.bt_find.PerformClick()
    End Sub
    Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.view1.ASetting_Load(False, ViewTag)
        Me.view1.AViewSetting_Load(ÀüÁÙ°ªº¹»ç±âº»°ª, ÇѱÛÇʵå±âº»°ª, ´ÙÀ½ÁÙÇʵå±âº»°ª, ViewTag)
        Me.view1.ACheckBox_ColIndex = Me.view1.Column2("¼±ÅÃ").Index
        Me.view1.ANextRow_ColIndex = Me.view1.Column2(Me.view1.´ÙÀ½ÁÙÇʵå¸í).Index
        Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        DT = Me.ds.Detail_Sknetworks : AddHandler DT.TableNewRow, AddressOf NewRowAddToDataTable
        Me.SETTOOLTIP()
        ''''''''µ¥ÀÌÅͺ¸¿©ÁÖ±â
        Display_Data()
    End Sub

    Private Sub SETTOOLTIP()
        Dim TMSG As New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("¿À¸¥ÂÊ Å¬¸¯½Ã ±âŸ¸Þ´º°¡ Ç¥½ÃµË´Ï´Ù")
        TMSG.AppendLine()
        TMSG.AppendLine("<´ÜÃàÅ° : ENTER:´ÙÀ½Ä­ , SHIFT+TAB:ÀÌÀüÄ­>")
        TMSG.AppendLine("<´ÜÃàÅ° : DELETE:ÇöÀçÄ­ Áö¿ì±â , SHIFT+DELETE ÇöÀçÁÙ »èÁ¦>")
        TMSG.AppendLine("<´ÜÃàÅ° : F2:ÇöÀçÄ­Áö¿ì°í ÆíÁý>")
        TMSG.AppendLine("<´ÜÃàÅ° : SPACE-BAR/F3:ÇöÀçÄ­ ÆíÁý>")
        TMSG.AppendLine("<´ÜÃàÅ° : CTRL + ¸¶¿ì½ºÈÙ : È­¸éÅ©±â¸¦ Á¶ÀýÇÕ´Ï´Ù>")
        TMSG.AppendLine()
        Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString)

    End Sub
    Private Sub SetFarPoint()
        '  Me.view1.AEnterToNextItem()
        Me.view1.DataSource = Me.bs
    End Sub

    Private Function Get_NewNumber() As Integer
        Dim maxCnt As Integer = 0
        For i As Integer = 0 To Me.view1_Sheet1.RowCount - 1
            If Me.view1_Sheet1.Cells(i, 2).Value > maxCnt Then maxCnt = Me.view1_Sheet1.Cells(i, 2).Value
        Next
        Return maxCnt + 1
    End Function
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.bt_commit.PerformClick() '//ÀúÀåÇÒ°ÔÀÕÀ¸¸é ´Ù ÀúÀåÇÑ´Ù.
        Dim A As New XLSImport(Me.ds, Me.h_id.Text, Wt)
        A.ShowDialog()
        Me.CHk_Modify(False)
        Me.Display_Data()
    End Sub
    Private Sub Check_Sorted()
        If Me.Sorted = ESorted.NULL Then  '//¾ÆÁ÷ °Ë»öÀ̵ȰÇÁö È®ÀξÈÇØ”f´Ù
            Me.Sorted = ESorted.No
            For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1)
                If NVL(DT.Rows(i)("Á¤·Ä¹øÈ£")) <> "" AndAlso NVL(DT.Rows(i)("Á¤·Ä¹øÈ£")) <> "È÷È÷È÷000000000" AndAlso NVL(DT.Rows(i)("Á¤·Ä¹øÈ£")) <> "È÷" Then '//µ¥ÀÌÅÍ°¡ÀÖ´Ù¸é
                    Me.Sorted = ESorted.YES
                    Exit For
                End If
            Next
        End If
    End Sub
    Private Sub Make_Index()
        Work_Form("À妽º¸¦ »ý¼ºÇÏ°í ÀÖ½À´Ï´Ù")
        Form_Work.ProgressBar1.Minimum = 0
        Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count
        Dim Num As Short
        For i As Integer = 0 To Me.DT.Rows.Count - 1
            Form_Work.pval = i
            Num = Me.DT.Rows(i)("¹øÈ£")
            Me.DT.Rows(i)("Á¤·Ä¹øÈ£") = "1" & Format(Num, "0000") & "1000"
        Next
        Form_Work.Close()  '//ÀÛ¾÷⠴ݱâ
        Me.Sorted = ESorted.YES
    End Sub
    Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click
        ' Me.view1.AInsertNewRow()    '//¹øÈ£¹®Á¦µµÀÖ´Ù.
        '//ÇöÀçÁÙ ¹Ù·ÎÀ§¿¡ ÇÑÁÙÀ»»ðÀÔÇÑ´Ù.
        '//»õ·Î¿îID´Â ÀüÁÙÀÇID+1 À̸ç
        Me.bs.EndEdit()

        '//À§¿¡¼­ºÎÅÍ 5°³¶Ç´Â ¸¶Áö¸·±îÁö ÀÌ°Ô Á¤·ÄµÈµ¥ÀÌÅÍÀÎÁö È®ÀÎÇÕ´Ï´Ù.
        If Me.Sorted = ESorted.NULL Then Check_Sorted()
        If Me.Sorted = ESorted.No Then Make_Index() '//À妽º¸¦ »ý¼ºÇÑ´Ù.

        Dim NR As ireaDataSet.Detail_SknetworksRow = Me.DT.NewDetail_SknetworksRow   '//»ðÀÔÀº ÇöÀçÁÙ À§¿¡ »ðÀÔÇϴ°ÍÀÌ´Ù. ÇöÀçÁÙÀÇ À妽º¹øÈ£°¡ ¼ýÀÚÇüŶó¸é Á¤·ÄÀ̾ȵȵ¥ÀÌÅÍ´Ù
        Dim Á¤·Ä¹øÈ£ As String = bs.Current("Á¤·Ä¹øÈ£")
        Dim NÁ¤·Ä¹øÈ£ As String
        If IsNumeric(Á¤·Ä¹øÈ£) AndAlso Á¤·Ä¹øÈ£.Length >= 8 Then  '//¼ýÀÚ¶ó¸é À妽ºÁ¤·Ä¹ýÀÌ´Ù.
            Dim MN As String = Á¤·Ä¹øÈ£.Substring(0, 5)
            Dim SN As Short = Á¤·Ä¹øÈ£.Substring(5)
            'NR.¹øÈ£ = bs.Current("¹øÈ£") - 1 '//¹øÈ£´Â -1ÇÏ°í
            'If NR.¹øÈ£ < 1 Then NR.¹øÈ£ = 0
            NÁ¤·Ä¹øÈ£ = MN & Format(SN - 1, "0000") '//ÇöÀç ÀϷùøÈ£¿¡ -À» Çؼ­ ³Ö´À´Ù.  À̺κРº¯°æÇÏÀÚ..º¯°æÇÑÀ̸§ÀÌ ÀÖÀ»°æ¿ì ÇØ´çÀ§·ÎÀÇ ¼ýÀÚ¸¦ -1ÇؾßÇÑ´Ù.

            '//»õ·Î¿ì Á¤·Ä¹øÈ£¶û °°Àº°ÍµéÀº -1ÇØÁØ´Ù.
            For Each DR As DataRow In Me.DT.Select("Á¤·Ä¹øÈ£ like '" & MN & "%' and Á¤·Ä¹øÈ£ <= '" & NÁ¤·Ä¹øÈ£ & "'")
                MN = DR("Á¤·Ä¹øÈ£").Substring(0, 5)
                SN = DR("Á¤·Ä¹øÈ£").Substring(5)
                DR("Á¤·Ä¹øÈ£") = MN & Format(SN - 1, "0000")   '//¿ø·¡¹øÈ£-1ÇØÁØ´Ù.
            Next
            '//
            NR.Á¤·Ä¹øÈ£ = NÁ¤·Ä¹øÈ£
            Dim AR As Integer = Me.view1.ActiveSheet.ActiveRowIndex
            Me.DT.AddDetail_SknetworksRow(NR)
            Me.view1.ActiveSheet.ActiveRowIndex = AR
        Else   '//ÀüÁÖ¹øÈ£Á¤·Ä¹ýÀÌ´Ù ÀÌ°ÍÀº Á¤·ÄÀÌ º°µµ·Î Á¸ÀçÇÑ´Ù.
            MsgBox("¹øÈ£Çü½ÄÀ¸·Î Á¤·ÄµÇ¾îÀÖ´Â µ¥ÀÌÅÍÀÔ´Ï´Ù" & "À̵¥ÀÌÅÍ´Â [ÇÑÁÙ»ðÀÔ]ÀÌ µÇÁö¾Ê½À´Ï´Ù.", MsgBoxStyle.Information, "È®ÀÎ")
            Me.bt_addrow.PerformClick()   '//ÇÑÁÙÃß°¡È­·²¤·()
        End If
    End Sub
    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click
        'Me.view1.AAddNewRow()
        Me.bs.AddNew()
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click
        '//¾ð¹Ù¿îµåµÈ ¿­À» ¿©±â¼­ ¹Ù¿îµå½ÃÄѺдÙ.
        'Me.view1.Attach_Ubound(3)
        Me.bs.EndEdit()

        If bs.Count > 0 Then
            Dim Drv As DataRowView
            Drv = bs.Item(bs.Count - 1)
            If NVL(Drv("±¸°£¸í1"), "") = "" AndAlso NVL(Drv("ÀüÁÖ¹øÈ£1"), "") = "" AndAlso NVL(Drv("±Ô°Ý"), "") = "" AndAlso _
             NVL(Drv("Áß°è±â¸í"), "") = "" AndAlso NVL(Drv("½Ã°øÀÏ"), "") = "" AndAlso NVL(Drv("½Ã°øÀÚ"), "") = "" AndAlso NVL(Drv("ÀüÁÖ¹øÈ£2"), "") = "" Then
                Drv.Delete()
            End If
        End If

        If Not Me.ds.HasChanges Then
            NOTICE("º¯°æµÈ µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        Me.bt_find.PerformClick()
    End Sub
    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
        Me.bs.EndEdit()
        If Me.ds.HasChanges Then
            Me.ds.RejectChanges()
            NOTICE("º¯°æµÈ ³»¿ëÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù.", Me.lb_msg)
        Else
            NOTICE("º¯°æ³»¿ªÀÌ ¾ø½À´Ï´Ù", Me.lb_msg)
        End If
    End Sub
    Private Sub olStripMenuItem1tripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem1.Click
        Me.view1.ASelect()
    End Sub

    Private Sub lStripMenuItem2ipMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem2.Click
        Me.view1.AUnselect()
    End Sub

    Private Sub gfsdlStripMenuItem2MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdlStripMenuItem2.Click
        Me.view1.AReverse()
    End Sub
    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
        If Me.view1.ActiveSheet.Rows.Count > 0 Then
            Me.view1.ActiveSheet.ActiveRow.Remove()
            NOTICE("ÇöÀçÁÙÀÌ »èÁ¦µÇ¾ú½À´Ï´Ù", Me.lb_msg)
        Else
            MsgBox("´õÀÌ»ó »èÁ¦ÇÒ ÁÙÀÌ ¾ø½À´Ï´Ù")
        End If
    End Sub

    Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.Arin_Before_EditModeOff
        With Me.view1.ActiveSheet
            Select Case .ActiveColumn.Label
                Case "½Ã°øÀÏ"
                    If .ActiveCell.Text <> "" AndAlso .ActiveCell.Text.IndexOf(".") = -1 Then    '//¹º°¡Àִµ¥ .À̾ø¸é
                        If .ActiveCell.Text.Length = 6 Then
                            .ActiveCell.Text = .ActiveCell.Text.Substring(0, 4) & "." & .ActiveCell.Text.Substring(4)
                        ElseIf .ActiveCell.Text.Length = 8 Then
                            .ActiveCell.Text = .ActiveCell.Text.Substring(0, 4) & "." & .ActiveCell.Text.Substring(4, 2) & "." & .ActiveCell.Text.Substring(6)
                        End If
                    End If
                Case "±Ô°Ý"
                    If IsNumeric(.ActiveCell.Text) AndAlso Me.chk_m.Checked Then
                        .ActiveCell.Text = .ActiveCell.Text & "M"
                    End If
            End Select
        End With
    End Sub
    Private Sub oolStripMenuItemipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oolStripMenuItem.Click
        Me.ToolStripButton2.PerformClick()
    End Sub

    Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        Me.Close()
    End Sub
    Private Sub BtsavecolsizeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsize.Click
        Me.view1.ASetting_Save(False, Me.ViewTag)
    End Sub
    Private Sub bt_chkdel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkdel.Click
        For i As Integer = Me.view1.ActiveSheet.RowCount - 1 To 0 Step -1
            If Me.view1.ActiveSheet.Cells(i, Me.view1.ACheckBox_ColIndex).Value = True Then Me.view1.ActiveSheet.Rows(i).Remove()
        Next
    End Sub
    Private Sub out_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles out.Click
        If Check_auth() = False Then
            MsgBox("Àӽûç¿ëÀÚ´Â ³»º¸³»±â¸¦ ÇÒ ¼ö ¾ø½À´Ï´Ù", MsgBoxStyle.Information, "È®ÀÎ")
            Return
        End If
        Me.view1.Excel_Save(Me.Desc & "³»º¸³»±â.xls")
    End Sub
    Private Sub servoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_findview.Click
        Dim Frow, Fcol As Integer
        Me.view1.Search(Me.view1.ActiveSheetIndex, InputBox("¼±ÅÃµÈ ¿­¿¡¼­ °Ë»öÇÒ ¹®ÀÚ¸¦ ÀÔ·ÂÇϼ¼¿ä.", "°Ë»ö¹®ÀÚ¸¦ ÀÔ·ÂÇϼ¼¿ä"), False, False, False, True, True, False, False, 0, 0, Frow, Fcol)
        If Frow >= 0 AndAlso Fcol >= 0 Then '//°Ë»öµÌ´Ù¸é
            Me.view1.ActiveSheet.SetActiveCell(Frow, Fcol)
            SendKeys.Send("{ENTER}")
        End If
    End Sub
    Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click
        ReNum(Me.DT, "¹øÈ£", Me.pbar)
    End Sub
    Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click
        For Each A As DataRow In Me.DT.Rows
            A("Ãâ·Â") = True
        Next
    End Sub
    Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click
        For Each A As DataRow In Me.DT.Rows
            A("Ãâ·Â") = False
        Next
    End Sub
    Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click
        For Each A As DataRow In Me.DT.Rows
            A("Ãâ·Â") = Not A("Ãâ·Â")
        Next
    End Sub

    Private Sub AddEpoleJJ_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated
        Me.view1.Focus()
        Me.view1.Focus()
    End Sub
    Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click
        CHk_Modify()
        Display_Data()
    End Sub

    Private Sub mbt_viewSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_viewSetup.Click
        Dim Frm As New Frm_ViewSetup(Me.view1.ÀüÁÙ°ªº¹»ç, Me.view1.ÇѱÛÇʵå, Me.view1.´ÙÀ½ÁÙÇʵå¸í, Me.view1.±âº»½ºÅ¸ÀÏÀ妽º)
        If Frm.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.view1.AViewSetting_Save(Frm.tb_nulltext.Text, Frm.tb_hangul.Text, Frm.tb_nextrow.Text, Frm.tb_defstyleidx.Text, Me.ViewTag)
            Me.view1.AViewSetting_Load(Me.ÀüÁÙ°ªº¹»ç±âº»°ª, Me.ÇѱÛÇʵå±âº»°ª, Me.´ÙÀ½ÁÙÇʵå±âº»°ª, Me.ViewTag)
            Me.view1.ACheckBox_ColIndex = Me.view1.Column2("¼±ÅÃ").Index
            Me.view1.ANextRow_ColIndex = Me.view1.Column2(Me.view1.´ÙÀ½ÁÙÇʵå¸í).Index
            MsgBox("ºä¼³Á¤ÀÌ ÀúÀåµÇ¾ú½À´Ï´Ù", MsgBoxStyle.Information, "È®ÀÎ")
        End If
    End Sub
#End Region

    Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True)
        Me.bs.EndEdit()
        If bs.Count > 0 Then
            Dim Drv As DataRowView
            Drv = bs.Item(bs.Count - 1)
            If NVL(Drv("±¸°£¸í1"), "") = "" AndAlso NVL(Drv("ÀüÁÖ¹øÈ£1"), "") = "" AndAlso NVL(Drv("±Ô°Ý"), "") = "" AndAlso _
             NVL(Drv("Áß°è±â¸í"), "") = "" AndAlso NVL(Drv("½Ã°øÀÏ"), "") = "" AndAlso NVL(Drv("½Ã°øÀÚ"), "") = "" AndAlso NVL(Drv("ÀüÁÖ¹øÈ£2"), "") = "" Then
                Drv.Delete()
            End If
        End If

        If Not Me.ds.HasChanges Then
            NOTICE("º¯°æµÈ ³»¿ëÀÌ ¾ø½À´Ï´Ù", Me.lb_msg)
            Return
        End If

        If prompt Then
            If MsgBox("º¯°æµÈ µ¥ÀÌÅ͸¦ ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ÀúÀåÈ®ÀÎ") <> MsgBoxResult.Ok Then Return
        End If

        Try
            Me.ta.Update(Me.ds.Detail_Sknetworks)   '//Commit insert/update/delete
            Me.DT.AcceptChanges()    '//Set All Green

            Try
                Dim SQl As String = "insert into ÀüÁÖ°ü¸®(id,³¯Â¥,°Å·¡Ã³¸í,ºñ°í,ÃѼö·®,´Ü°¡,±Ý¾×,¹øÈ£Âû±¸ºÐ) values(:1,:2,:3,:4,:5,:6,:7,:8)"
                If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open()
                Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection)
                Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text)
                Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim)
                Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text
                Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text
                Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.DT.Rows.Count 'Me.view1_Sheet1.RowCount
                Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text)
                Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount
                Cmd.Parameters.Add(":8", OleDbType.Currency).Value = Wt
                Cmd.ExecuteNonQuery()
            Catch ex As Exception
                Dim SQl As String = "update ÀüÁÖ°ü¸® set ³¯Â¥=:2,°Å·¡Ã³¸í=:3,ºñ°í=:4,ÃѼö·®=:5,´Ü°¡=:6,±Ý¾×=:7,¹øÈ£Âû±¸ºÐ=:8 where id=:1"
                If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open()
                Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection)
                Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim)
                Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text
                Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text
                Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.DT.Rows.Count
                Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text)
                Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount
                Cmd.Parameters.Add(":8", OleDbType.Currency).Value = Wt
                Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text)
                Cmd.ExecuteNonQuery()
            Finally
                'MakeList.bt_find.PerformClick()
                'Display_Data(True)
                Dim INI As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
                INI.Write("main", "lastkname1", Me.h_name.Text)
                NOTICE("ÀúÀåµÇ¾ú½À´Ï´Ù", Me.lb_msg)
                My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
                'MakeList.Display_Data() '//ÀÌ°Ç bt_find ¿¡¼­ ÀçÈ£ÃâµÈ´Ù.
            End Try

        Catch ex As Exception
            MsgBox("µ¥ÀÌÅͺ£À̽º ¾÷µ¥ÀÌÆ®Áß ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-")
            Me.ds.Detail_tongsin.RejectChanges()
            NOTICE("ÀúÀå ½ÇÆÐ!", Me.lb_msg)
        Finally
            view1.ActiveSheet.GetDataView(True) '//È­¸éÀ» °»½ÅÇÑ´Ù.
        End Try
    End Sub
    Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False)   '//ºä¿¡µ¥ÀÌÅ͸¦ Ç¥½ÃÇÑ´Ù.
        Me.bs.Sort = "Á¤·Ä¹øÈ£,¹øÈ£"   '//Á¤·ÄµÈ°ÍµéÀº Á¤·ÄµÈä·Î º¸¿©ÁØ´Ù.
        If NewData Then
            Me.ta.DeleteQuery(Me.h_id.Text)
            NewData = False
        End If
        Me.ta.Fill(Me.ds.Detail_Sknetworks, Me.h_id.Text)   '//°ü¸®id¸¦ ÅëÇؼ­ µ¥ÀÌÅ͸¦ ä¿î´Ù.
        SetFarPoint()  '//¿©±â¼­ ÆÄÆ÷ÀÎÆ®¸¦ ¹ÙÀεù ¼Ò½º¿Í ¿¬°á½ÃŲ´Ù(¹ÙÀεù ¼Ò½º´Â Å×ÀÌºí¿¡ ¿¬°áµÇ¾îÀÖ´Ù)
        If Me.DT.Rows.Count <= 0 Then
            NOTICE("µ¥ÀÌÅÍ°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù", Color.Red, Me.lb_msg)
            Me.bt_addrow.PerformClick()  '//1°³ÁÙ ÀÚµ¿Áõ°¡
            Return
        End If
        NOTICE(Me.view1.ActiveSheet.RowCount & "°³ÀÇ µ¥ÀÌÅÍ°¡ °Ë»öµÇ¾ú½À´Ï´Ù", Me.lb_msg)
    End Sub
    Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Me.bs.EndEdit()
        If Me.view1.Cells("Ãâ·Â").Value = False Then
            MsgBox("ÇöÀç ¼±ÅÃµÈ ÁÙÀº Ãâ·ÂÀÌ µÇÁö¾Êµµ·Ï ¼³Á¤µÇ¾îÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
            Return
        End If
        'If UserInfo.Type = E_AuthType.Demo Then
        '    MsgBox("ÇöÀç ±ÇÇÑÀº Àӽûç¿ëÀÚÀÔ´Ï´Ù" & vbCrLf & "ÀÌ ¸Þ¼¼Áö´Â Àӽûç¿ëÀÚ¸¸ Ãâ·ÂµË´Ï´Ù", MsgBoxStyle.Information, "È®ÀÎ")
        'End If
        Dim Aa As New Cls_SkNetworks.PrintForm(Me.DT, IIf(Admin, True, False), Me.view1.±âº»½ºÅ¸ÀÏÀ妽º, CType(Me.bs.Current, DataRowView))
        Aa.Show()

    End Sub
    Private Sub bt_dchk3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_dchk3.Click
        '''''°Ë»ö¹æ¹ýÀº 1¹ø°³Ã¼ºÎÅÍ ¸¶Áö¸·°³Ã¼±îÁö Ç®·çÇÁ¸¦ µ¹¸é¼­ µ¿ÀÏÇÑ ³ðÀ» ã´Â´Ù.
        If Check_auth() = False Then
            MsgBox("Àӽûç¿ëÀÚ´Â »ç¿ëÇÒ ¼ö ¾ø½À´Ï´Ù", MsgBoxStyle.Information, "È®ÀÎ")
            Return
        End If

        Dim ¿øº»() As Short = New Short() {5, 6} ', ´ë»ó As String 'New System.Text.StringBuilder
        Dim fcnt As ArrayList

        Me.pbar.Value = 0
        Me.pbar.Minimum = 0
        Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount

        NOTICE("Áߺ¹µÇ´Â µ¥ÀÌÅ͸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.view1.ADupCheck(0, Me.view1.ActiveSheet.RowCount - 1, ¿øº», ¿øº», Me.view1.ColIndex2("¼±ÅÃ"))
        NOTICE("Áߺ¹°Ë»ç ¿Ï·á(" & fcnt.Count & "°³ÀÇ µ¥ÀÌÅ͸¦ ã¾Ò½À´Ï´Ù)", Me.lb_msg)
    End Sub


    Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Me.out.PerformClick()
    End Sub

   

    Private Sub view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.Arin_Before_KeyDown

        Select Case e.KeyCode
            Case Keys.F
                If e.Control Then Me.bt_findview.PerformClick()
            Case Keys.Insert '//»ðÀÔ
                Me.bt_insertrow.PerformClick()

            Case Keys.Enter
                e.Handled = True
                e.SuppressKeyPress = False

                With Me.view1.ActiveSheet
                    '//ÀüÁÙ°ª º¹»çÇÒ°Ô ÀÖÀ¸¸éº¹»çÇÑ´Ù.
                    If Array.IndexOf(Me.view1.ÀüÁÙ°ªº¹»ç, .ActiveColumn.Label) >= 0 AndAlso .ActiveCell.Text = "" Then
                        .ActiveCell.Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text
                    End If

                    '//»ç¿ëÀÚ°¡ Á÷Á¢ ¶óº§¸íÀ» ÀÌ¿ëÇؼ­ ÀüÁÙ°ªÀ» º¹»çÇÏ°íÀÚÇÒ‹š »ç¿ëÇÑ´Ù.
                    Select Case .ActiveColumn.Label

                    End Select
                End With
        End Select
    End Sub


    Private Sub ToolStripMenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem23.Click
        If MsgBox("¸ðµç Á¤·ÄÅ°¸¦ »èÁ¦ÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then Return
        Work_Form("¸ðµç Á¤·ÄÅ°¸¦ »èÁ¦ÇÕ´Ï´Ù.")
        Form_Work.ProgressBar1.Minimum = 0
        Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count
        'Dim Num As Short
        For i As Integer = 0 To Me.DT.Rows.Count - 1
            Form_Work.pval = i
            'Num = Me.DT.Rows(i)("¹øÈ£")
            Me.DT.Rows(i)("Á¤·Ä¹øÈ£") = ""
        Next
        Me.Sorted = ESorted.No
        Form_Work.Close()  '//ÀÛ¾÷⠴ݱâ
    End Sub

    Private Sub ToolStripMenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem24.Click
        '//¾ø´Â µ¥ÀÌÅ͸¸ Àç»ý¼º
        If MsgBox("ºñ¾îÀÖ´Â Á¤·ÄÅ°¸¸»ý¼ºÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then Return
        Work_Form("ºñ¾îÀÖ´Â Á¤·ÄÅ°¸¦ »ý¼ºÇÕ´Ï´Ù.")
        Form_Work.ProgressBar1.Minimum = 0
        Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count
        Dim Num As Short
        For i As Integer = 0 To Me.DT.Rows.Count - 1
            Form_Work.pval = i
            If NVL(DT.Rows(i)("Á¤·Ä¹øÈ£"), "") = "" Then
                Num = Me.DT.Rows(i)("¹øÈ£")
                Me.DT.Rows(i)("Á¤·Ä¹øÈ£") = "1" & Format(Num, "0000") & "1000"
            End If
        Next
        Me.Sorted = ESorted.YES
        Form_Work.Close()  '//ÀÛ¾÷⠴ݱâ
    End Sub

    Private Sub ToolStripMenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem25.Click
        If MsgBox("¸ðµç Á¤·ÄÅ°¸¦ »èÁ¦ÇÏ°í ´Ù½Ã »ý¼ºÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then Return
        '//¾ø´Â µ¥ÀÌÅ͸¸ Àç»ý¼º
        Work_Form("¸ðµç Á¤·ÄÅ°¸¦ »ý¼ºÇÕ´Ï´Ù.")
        Form_Work.ProgressBar1.Minimum = 0
        Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count
        Dim Num As Short
        For i As Integer = 0 To Me.DT.Rows.Count - 1
            Form_Work.pval = i
            Num = Me.DT.Rows(i)("¹øÈ£")
            Me.DT.Rows(i)("Á¤·Ä¹øÈ£") = "1" & Format(Num, "0000") & "1000"
        Next
        Me.Sorted = ESorted.YES
        Form_Work.Close()  '//ÀÛ¾÷⠴ݱâ
    End Sub
End Class