Public Class MakeList
    Private Function Terminate() As Boolean
        Dim Msg As New System.Text.StringBuilder("ÇÁ·Î±×·¥À» Á¾·áÇϽðڽÀ´Ï±î?")
        If MsgBox(Msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Á¾·á") = MsgBoxResult.Ok Then
            End
        Else
            Return True
        End If
    End Function

    Private Sub MakeList_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.CHk_Modify()
        e.Cancel = Me.Terminate
        'If Not Me.IreaDataSet1.HasChanges Then Return '//º¯°æµÈ°Ô ¾øÀ¸¸é ¹Ù·Î ³ª°£´Ù.
        'If MsgBox("º¯°æµÈ µ¥ÀÌÅ͸¦ ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ÀúÀåÈ®ÀÎ") <> MsgBoxResult.Ok Then
        '    Me.IreaDataSet1.RejectChanges()
        'Else
        '    Try
        '        Me.BindingSource1.EndEdit()
        '        Me.ssableAdapter.Update(Me.IreaDataSet1.Maintable)
        '        IreaDataSet1.AcceptChanges()
        '        view1.ActiveSheet.GetDataView(True)
        '    Catch ex As Exception
        '        MsgBox("µ¥ÀÌÅͺ£À̽º ¾÷µ¥ÀÌÆ®Áß ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR")
        '        Me.BindingSource1.CancelEdit()
        '        IreaDataSet1.RejectChanges()
        '        view1.ActiveSheet.GetDataView(True)
        '    End Try
        'End If
    End Sub

    Private Sub MakeList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F12 Then
            Dim msg As String = InputBox("pass")
            If msg = "arin" Then UserInfo.Type = E_AuthType.Admin
            ShowMenu()
        End If
    End Sub

    Private Sub ShowMenu()
        For Each Obj As ToolStripMenuItem In Me.mbt_addnew.DropDownItems
            If Not Obj.Tag Is Nothing Then  '//űװ¡ÀÖ´Â ¾ÆÀÌÅÛÀÇ ±ÇÇÑÀ» È®ÀÎÇÑ´Ù.
                If UserInfo.Type = E_AuthType.Admin Then
                    Obj.Visible = True
                Else
                    Obj.Visible = False
                    For Each C As Char In UserInfo.Permission
                        ' MsgBox(C & "//" & Obj.Tag.ToString)
                        If Obj.Tag.ToString.ToUpper = C.ToString.ToUpper Then '//űװ¡°°´Ù¸é »ç¿ë°¡´É
                            Obj.Visible = True
                            Exit For
                        End If
                    Next
                End If

            End If
        Next
    End Sub

    Private Sub MakeList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '//¿À·¡µÈ ½ºÅ¸ÀÏÆÄÀÏÀ» º¯È¯ÇÕ´Ï´Ù
        Dim S As New CEpole.Frm_ConvertINI
        S.GetFileList()
        If S.GetFileCount > 0 Then
            S.ShowDialog()
            End
        End If

        Me.view1.ASetting_Load(False)

        Select Case UserInfo.Type
            Case E_AuthType.Admin
                Me.lb_auth.Text = "[°ü¸®ÀÚ]"
                Me.lb_auth.ForeColor = Color.Green
            Case E_AuthType.Demo
                Me.lb_auth.Text = "[Àӽûç¿ëÀÚ]"
                Me.lb_auth.ForeColor = Color.Blue
            Case E_AuthType.Normal
                Me.lb_auth.Text = "[Á¤»ó»ç¿ëÀÚ]"
                Me.lb_auth.ForeColor = Color.Black
        End Select

        ShowMenu()

        If UserInfo.Type = E_AuthType.Demo Then
            If DemoDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then End
        End If

        Me.Text = My.Application.Info.ProductName & " Ver. {0}.{1:00}.{2}.{3}"
        Me.Text = System.String.Format(Me.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
        Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        ' Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.Display_Data()    '//µ¥ÀÌÅ͸¦ º¸¿©ÁØ´Ù.
        Me.SETTOOLTIP()
        Me.SetFarPoint()
    End Sub
    Private Sub SETTOOLTIP()
        Dim TMSG As New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("´õºíŬ¸¯½Ã¿¡´Â ¼¼ºÎ³»¿ªÀ» Ç¥½ÃÇÕ´Ï´Ù")
        TMSG.AppendLine("[ÃѼö·®] Àº ¼¼ºÎ³»¿ªÀÇ °¹¼ö·Î ÀÚµ¿º¯°æµÇ¹Ç·Î ¼öÁ¤ÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù.")
        TMSG.AppendLine()
        TMSG.AppendLine("<´ÜÃàÅ° : ENTER:´ÙÀ½Ä­ , SHIFT+TAB:ÀÌÀüÄ­ , ALT+ENTER:À­Ä­º¹»ç>")
        TMSG.AppendLine("<´ÜÃàÅ° : DELETE:ÇöÀçÄ­ Áö¿ì±â , SHIFT+DELETE ÇöÀçÁÙ »èÁ¦>")
        TMSG.AppendLine("<´ÜÃàÅ° : SPACE-BAR:ÇöÀçÄ­ ÆíÁý>")
        TMSG.AppendLine("<´ÜÃàÅ° : CTRL + ¸¶¿ì½ºÈÙ : È­¸éÅ©±â¸¦ Á¶ÀýÇÕ´Ï´Ù>")
        TMSG.AppendLine()
        Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString)

        'TMSG = New System.Text.StringBuilder()
        'TMSG.AppendLine()
        'TMSG.AppendLine("µ¥ÀÌÅͺ£À̽ºÀÇ ³»¿ëÀ» ´Ù½Ã Á¶È¸ÇÕ´Ï´Ù.")
        'Me.bt_find.ToolTipText = TMSG.ToString
        'Me.ToolTip1.SetToolTip(Me.SortGroup1, TMSG.ToString)

        'TMSG = New System.Text.StringBuilder()
        'TMSG.AppendLine()
        'TMSG.AppendLine("°Ë»ö¹®ÀÚÀÇ ¿ì¼±¼øÀ§ : ¼ýÀÚ->¿µ¹®ÀÚ->ÇѱÛ")
        'TMSG.AppendLine("    ->0  Àº 000 º¸´Ù ¿ì¼±¼øÀ§°¡ ³ô½À´Ï´Ù.")
        'Me.ToolTip1.SetToolTip(Me.SerchGroup1, TMSG.ToString)
    End Sub

    Private Sub SetFarPoint()
        Me.view1.AEnterToNextItem()
    End Sub

    Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True)
        Dim Cnt As Integer = 0
        Me.bs.EndEdit()
        If Not Me.IreaDataSet1.HasChanges Then
            NOTICE("º¯°æµÈ ³»¿ëÀÌ ¾ø½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        If prompt Then
            If MsgBox("º¯°æµÈ µ¥ÀÌÅ͸¦ ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ÀúÀåÈ®ÀÎ") <> MsgBoxResult.Ok Then Return
        End If
        NOTICE("Àá½Ã¸¸ ±â´Ù·ÁÁÖ¼¼¿ä...(Àû¿ëÇÏ´ÂÁß)", Color.Blue, Me.lb_msg)
        Me.Refresh()

        Try

            Cnt = Me.ta_main.Update(Me.IreaDataSet1.MainTable)
            Me.ta_jju.Update(Me.IreaDataSet1.Detail_tongsin)

            Me.IreaDataSet1.AcceptChanges()
            NOTICE(Cnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ Àû¿ëµÇ¾ú½À´Ï´Ù", Color.Green, Me.lb_msg)
        Catch ex As Exception
            MsgBox("µ¥ÀÌÅͺ£À̽º º¯°æÁß ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-")
            Me.bs.CancelEdit()
            Me.IreaDataSet1.RejectChanges()
            NOTICE("Àû¿ë¿À·ù : " & ex.ToString, Color.Tomato, Me.lb_msg)
        End Try


    End Sub

    Public Sub Display_Data()   '//ºä¿¡µ¥ÀÌÅ͸¦ Ç¥½ÃÇÑ´Ù.
        NOTICE("µ¥ÀÌÅÍ Á¶È¸Áß...", Me.lb_msg)
        Dim I As Integer = 0
        Me.ta_main.Fill(Me.IreaDataSet1.MainTable)
        'Dim Dv As New DataView(Me.IreaDataSet1.Maintable, Me.SerchGroup1.GetWhere(False, False, False), Me.SortGroup1.GetSort(False), DataViewRowState.CurrentRows)

        Me.bs.DataSource = Me.IreaDataSet1.MainTable 'Dv
        NOTICE(Me.view1.ActiveSheet.RowCount & "°³ÀÇ ¸ñ·ÏÀÌ °Ë»öµÇ¾ú½À´Ï´Ù", Me.lb_msg)
    End Sub

    Private Sub Delete_itm(Optional ByVal prompt As Boolean = True)

        If Me.bs.Current Is Nothing Then Return
        Dim V_Type As Int16
        Dim A As New System.Text.StringBuilder("°æ°í : ÇØ´çµ¥ÀÌÅÍ¿Í ÇÏÀ§µ¥ÀÌÅÍ°¡ »èÁ¦µË´Ï´Ù")
        A.AppendLine()
        A.AppendLine("°è¼ÓÇϽðڽÀ´Ï±î?")

        If prompt Then
            If MsgBox(A.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "»èÁ¦È®ÀÎ") <> MsgBoxResult.Ok Then Exit Sub
        End If

        Dim DelIDX As Integer   '//°ü¸®IdÀÌ´Ù.
        With Me.view1
            DelIDX = .Cells(.ActiveRowindex, "ID").Value '//0¹ø°°ªÀº °ü¸®idÀÌ´Ù
            V_Type = .Cells(.ActiveRowindex, "¹øÈ£Âû±¸ºÐ").Value
        End With

        'MsgBox(DelIDX)
        'MsgBox(V_Type)

        'Return


        Me.bs.RemoveCurrent()    '//ÇöÀçÅÛÀ» »èÁ¦ÇÑ´Ù.
        'ÀüÁÖ¼¼ºÎÅ×ÀÌºí¿¡¼­ ÀüºÎ Á×ÀδÙ.

        Dim DelCnt As Integer = 0
        Select Case V_Type
            Case 3  '//Åë½ÅÁÖ
                Me.ta_jju.Fill(Me.IreaDataSet1.Detail_tongsin, DelIDX)
                Me.PRB1.Minimum = 0
                If Me.IreaDataSet1.Detail_tongsin.Rows.Count > 0 Then
                    Me.PRB1.Maximum = Me.IreaDataSet1.Detail_tongsin.Rows.Count - 1
                    Me.PRB1.Value = 0
                    For Each Z As DataRow In Me.IreaDataSet1.Detail_tongsin.Rows
                        Z.Delete()
                        DelCnt += 1
                        If PRB1.Value < Me.PRB1.Maximum Then Me.PRB1.Value += 1
                    Next
                End If
                NOTICE(DelCnt & "°³ÀÇ ¼¼ºÎµ¥ÀÌÅÍ°¡ »èÁ¦µÇ¾ú½À´Ï´Ù", Color.Red, Me.lb_msg)
        End Select
    End Sub

    Private Sub view_detail()
        CHk_Modify()   '//º¯°æ¿©ºÎ¸¦ ¹¯ˆf´À. Á¾·áÇÑ´Ù.
        Dim Rowindex As Short = Me.view1.ActiveSheet.ActiveRow.Index
        Dim ID, NAME, BIGO, DAN, V_DATE As String
        Dim V_Type As Work_Type

        '//µ¥ÀÌÅ͸¦ °¡Á®¿Â´Ù.
        Dim Dr As System.Data.DataRowView = Me.bs.Current
        ID = Dr("ID") '.Cells(Rowindex, 0).Value

        If Dr("³¯Â¥") Is DBNull.Value Then
            V_DATE = ""
        Else
            V_DATE = Dr("³¯Â¥") '.Cells(Rowindex, 4).Value
        End If

        If Dr("°Å·¡Ã³¸í") Is DBNull.Value Then
            NAME = ""
        Else
            NAME = Dr("°Å·¡Ã³¸í") '.Cells(Rowindex, 4).Value
        End If

        If Dr("ºñ°í") Is DBNull.Value Then
            BIGO = ""
        Else
            BIGO = Dr("ºñ°í") '.Cells(Rowindex, 4).Value
        End If

        If Dr("´Ü°¡") Is DBNull.Value Then
            DAN = ""
        Else
            DAN = Dr("´Ü°¡") '.Cells(Rowindex, 4).Value
        End If

        V_Type = Me.view1.Cells2("Á¾·ù").Value '//¹øÈ£Âû Á¾·ù 0Àº ÀÏ¹Ý 9´Â ±âŸ¹øÈ£Âû
    
        Select Case V_Type
            'Case Work_Type.tongsin    '//Åë½ÅÁÖ
            '    Dim A As New AddEpole_Tongsin(ID, V_DATE, NAME, BIGO, DAN, V_Type, "ÀϹݹøÈ£Âû") : A.Show()
            Case Work_Type.jongakdung    '//Á¤¾×µî
                Dim A As New AddEpole_jdung(ID, V_DATE, NAME, BIGO, DAN, V_Type, "Á¤¾×µî") : A.Show()
            Case Work_Type.karodung '//°¡·Îµî
                Dim A As New AddEpole_Karo(ID, V_DATE, NAME, BIGO, DAN, V_Type, "°¡·Îµî") : A.Show()
            Case Work_Type.Sknetworks  '//SK-³×Æ®¿÷½º
                Dim A As New AddEpole_SKNetworks(ID, V_DATE, NAME, BIGO, DAN, V_Type, "±âŸ¹øÈ£Âû") : A.Show()
            Case Else
                MsgBox("ÇöÀç Á¤ÀǵÇÁö¾ÊÀº Ãâ·ÂÇüÅÂÀÔ´Ï´Ù")
        End Select
    End Sub


    Private Sub CustFP1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.KeyDown
        e.Handled = True
        e.SuppressKeyPress = False

        If e.Shift AndAlso e.KeyCode = Keys.Delete Then '/delete
            e.Handled = True
            Delete_itm(True)
        End If
    End Sub

    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
        Delete_itm(True)
    End Sub

    Private Sub bt_commit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click
        If Not Me.IreaDataSet1.HasChanges Then
            NOTICE("º¯°æµÈ µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù", Color.Red, Me.lb_msg)
            Return
        Else
            CHk_Modify()
        End If
    End Sub

    Private Sub bt_cancel_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
        If Not Me.IreaDataSet1.HasChanges Then
            NOTICE("º¯°æµÈ µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù", Color.Red, Me.lb_msg)
            Return
        Else
            Me.IreaDataSet1.RejectChanges()
            NOTICE("º¯°æµÈ µ¥ÀÌÅÍ°¡ º¹¿øµÇ¾ú½À´Ï´Ù", Color.Blue, Me.lb_msg)
        End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Close()
    End Sub


    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        If Me.IreaDataSet1.HasChanges Then CHk_Modify(False)
        Delete_itm(True)

        '//»èÁ¦ÇÏ°í ¹Ù·ÎÀúÀåÇÏ°Ô
        CHk_Modify(False)

    End Sub

    Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
        CHk_Modify()
    End Sub

    Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
        If Not Me.IreaDataSet1.HasChanges Then
            NOTICE("º¯°æµÈ µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù", Color.Red, Me.lb_msg)
            Return
        Else
            Me.IreaDataSet1.RejectChanges()
            NOTICE("º¯°æµÈ µ¥ÀÌÅÍ°¡ º¹¿øµÇ¾ú½À´Ï´Ù", Color.Blue, Me.lb_msg)
        End If
    End Sub

    Private Sub bt_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_close.Click
        Me.Close()
    End Sub

    Private Sub view1_CellDoubleClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles view1.CellDoubleClick
        view_detail()
        e.Cancel = True
    End Sub

    Private Sub view1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.Enter
        NOTICE("¸ñ·ÏÀ» ´õºíŬ¸¯ÇÏ¸é ¼¼ºÎ³»¿ªÀ» º¼ ¼ö ÀÖ½À´Ï´Ù", Me.lb_msg)
    End Sub


    Private Sub bt_savecolsize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_savecolsize.Click
        Me.view1.ASetting_Save(False)
    End Sub

    Private Sub bt_refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click
        CHk_Modify()   '//º¯°æ¿©ºÎ¸¦ ¹¯ˆf´À. Á¾·áÇÑ´Ù.
        Display_Data()
    End Sub

    Private Sub mbt_config_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_config.Click
        Config.ShowDialog()
    End Sub

    Private Sub mbt_homepage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_homepage.Click
        Process.Start(HomePage)
    End Sub

    Public Function GetMaxId() As Integer

        '//ÇöÁ¦Å×À̺íÀÇ °¡ÀåÅ«°ªÀ» ã´Â´Ù.

        Dim Cmd As New OleDbCommand("select max(id) from ÀüÁÖ°ü¸®", Me.ta_main.Connection)
        If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open()
        Dim obj As Object = Cmd.ExecuteScalar
        Dim TMaxid As Integer = 0
        If obj Is DBNull.Value Then
            TMaxid = 0
        Else
            TMaxid = CInt(obj)
        End If

        Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc")
        Dim MaxId As Integer
        Try
            MaxId = A(0)(0).ToString
        Catch ex As Exception
            MaxId = 0
        End Try
        If TMaxid > MaxId Then MaxId = TMaxid
        Return MaxId
    End Function

    Private Sub mbt_newjijung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_newkaro.Click
        Dim newid As Integer = GetMaxId() + 1
        If newid < 100 Then newid = 100
        Dim f As New AddEpole_karo(newid, Work_Type.karodung, "°¡·Îµî")
        f.Show()
    End Sub

    Private Sub mbt_newjungak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_newjungak.Click
        Dim newid As Integer = GetMaxId() + 1
        If newid < 100 Then newid = 100
        Dim f As New AddEpole_jDung(newid, Work_Type.jongakdung, "Á¤¾×µî")
        f.Show()
    End Sub

    Private Sub mbt_newsknetworks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_newsknetworks.Click
        Dim newid As Integer = GetMaxId() + 1
        If newid < 100 Then newid = 100
        Dim f As New AddEpole_SKNetworks(newid, Work_Type.Sknetworks, "±âŸ¹øÈ£Âû")
        f.Show()
    End Sub

    Private Sub mbT_about_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbT_about.Click
        DemoDlg.ShowDialog()
    End Sub

    Private Sub mbt_tomail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim Version As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Revision
        Dim A As New acc.MailForm("sender@mail.com", "ÇÁ·Î±×·¥¹®ÀÇ", "¸ÞÀϺ»¹®À» ÀÔ·ÂÇϼ¼¿ä", "ÀüÁÖ¹øÈ£°ü¸®ÇÁ·Î±×·¥V3(Ver " & Version & ")", MailForm.MailType.question)
        A.ShowDialog()
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        Dim S As New CEpole.Frm_ConvertINI
        S.ShowDialog()
    End Sub

    Private Sub mbt_addnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_addnew.Click

    End Sub

    Private Sub ToolStripMenuItem5_Click(sender As System.Object, e As System.EventArgs)
        Dim a As Integer = 0
        Dim b As Integer = 32
        Dim c As Integer = b / a

    End Sub

    Private Sub bt_howto_Click(sender As Object, e As EventArgs) Handles bt_howto.Click

    End Sub
End Class