Imports System.Data.SqlClient

Public Class SortForm
    Inherits System.Windows.Forms.Form

#Region " Windows 窗體設計器生成的代碼 "

    Public Sub New()
        MyBase.New()

        '該調用是 Windows 窗體設計器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 調用之后添加任何初始化

    End Sub

    '窗體重寫 dispose 以清理組件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗體設計器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下過程是 Windows 窗體設計器所必需的
    '可以使用 Windows 窗體設計器修改此過程。
    '不要使用代碼編輯器修改它。
    Friend WithEvents DataGridTableStyle1 As System.Windows.Forms.DataGridTableStyle
    Friend WithEvents DataGridTextBoxColumn1 As System.Windows.Forms.DataGridTextBoxColumn
    Friend WithEvents DataGridTextBoxColumn2 As System.Windows.Forms.DataGridTextBoxColumn
    Friend WithEvents DataGridTextBoxColumn3 As System.Windows.Forms.DataGridTextBoxColumn
    Friend WithEvents btCancel As System.Windows.Forms.Button
    Friend WithEvents btBack As System.Windows.Forms.Button
    Friend WithEvents btOK As System.Windows.Forms.Button
    Friend WithEvents dgSort As System.Windows.Forms.DataGrid
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.dgSort = New System.Windows.Forms.DataGrid
        Me.DataGridTableStyle1 = New System.Windows.Forms.DataGridTableStyle
        Me.DataGridTextBoxColumn1 = New System.Windows.Forms.DataGridTextBoxColumn
        Me.DataGridTextBoxColumn2 = New System.Windows.Forms.DataGridTextBoxColumn
        Me.DataGridTextBoxColumn3 = New System.Windows.Forms.DataGridTextBoxColumn
        Me.btCancel = New System.Windows.Forms.Button
        Me.btBack = New System.Windows.Forms.Button
        Me.btOK = New System.Windows.Forms.Button
        CType(Me.dgSort, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'dgSort
        '
        Me.dgSort.DataMember = ""
        Me.dgSort.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgSort.Location = New System.Drawing.Point(10, 10)
        Me.dgSort.Name = "dgSort"
        Me.dgSort.Size = New System.Drawing.Size(374, 310)
        Me.dgSort.TabIndex = 0
        Me.dgSort.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.DataGridTableStyle1})
        '
        'DataGridTableStyle1
        '
        Me.DataGridTableStyle1.DataGrid = Me.dgSort
        Me.DataGridTableStyle1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.DataGridTextBoxColumn1, Me.DataGridTextBoxColumn2, Me.DataGridTextBoxColumn3})
        Me.DataGridTableStyle1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGridTableStyle1.MappingName = ""
        '
        'DataGridTextBoxColumn1
        '
        Me.DataGridTextBoxColumn1.Format = ""
        Me.DataGridTextBoxColumn1.FormatInfo = Nothing
        Me.DataGridTextBoxColumn1.HeaderText = "類別編號"
        Me.DataGridTextBoxColumn1.MappingName = "SORTNO"
        Me.DataGridTextBoxColumn1.Width = 50
        '
        'DataGridTextBoxColumn2
        '
        Me.DataGridTextBoxColumn2.Format = ""
        Me.DataGridTextBoxColumn2.FormatInfo = Nothing
        Me.DataGridTextBoxColumn2.HeaderText = "類別名"
        Me.DataGridTextBoxColumn2.MappingName = "SORTNAME"
        Me.DataGridTextBoxColumn2.Width = 75
        '
        'DataGridTextBoxColumn3
        '
        Me.DataGridTextBoxColumn3.Format = ""
        Me.DataGridTextBoxColumn3.FormatInfo = Nothing
        Me.DataGridTextBoxColumn3.HeaderText = "備注"
        Me.DataGridTextBoxColumn3.MappingName = "REMARK"
        Me.DataGridTextBoxColumn3.Width = 200
        '
        'btCancel
        '
        Me.btCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btCancel.Location = New System.Drawing.Point(320, 328)
        Me.btCancel.Name = "btCancel"
        Me.btCancel.Size = New System.Drawing.Size(56, 23)
        Me.btCancel.TabIndex = 6
        Me.btCancel.Text = "退出"
        '
        'btBack
        '
        Me.btBack.Location = New System.Drawing.Point(256, 328)
        Me.btBack.Name = "btBack"
        Me.btBack.Size = New System.Drawing.Size(56, 23)
        Me.btBack.TabIndex = 5
        Me.btBack.Text = "還原"
        '
        'btOK
        '
        Me.btOK.Location = New System.Drawing.Point(192, 328)
        Me.btOK.Name = "btOK"
        Me.btOK.Size = New System.Drawing.Size(56, 23)
        Me.btOK.TabIndex = 4
        Me.btOK.Text = "更新"
        '
        'SortForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(392, 366)
        Me.Controls.Add(Me.btCancel)
        Me.Controls.Add(Me.btBack)
        Me.Controls.Add(Me.btOK)
        Me.Controls.Add(Me.dgSort)
        Me.Name = "SortForm"
        Me.Text = "類別管理"
        CType(Me.dgSort, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private dtNew As DataTable
    Private SqlAda As New SqlDataAdapter
    Private SqlCmd As New SqlCommand("SELECT * FROM SORT", Sample02.SqlCon)

    Private ds As New DataSet
    Private dt_Row As Int16
    Private dt_Col As Int16

    Private s As Boolean = False

    Private Sub FacForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BindDg()
    End Sub

    Private Sub btOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOK.Click

        Dim flag As Boolean = True

        If dt_Row < ds.Tables(0).Rows.Count Then
            Dim No_New As String = String.Empty
            No_New = Convert.ToString(Me.dgSort.Item(dt_Row, 0)).Trim()
            If No_New = String.Empty Then
                MessageBox.Show("新增編號不能為空")
                Me.dgSort.CurrentCell = New DataGridCell(dt_Row, 0)
                flag = False
            Else
                For i As Int16 = 0 To dt_Row - 1
                    If No_New = Convert.ToString(Me.dgSort.Item(i, 0)).Trim() Then
                        MessageBox.Show("新增編號與第" + (i + 1).ToString().Trim() + "行編號重復")
                        Me.dgSort.CurrentCell = New DataGridCell(dt_Row, 0)
                        flag = False
                    End If
                Next
            End If
        End If

        If flag Then

            Try
                Dim SqlBuilder As New SqlCommandBuilder(SqlAda)
                SqlAda.Update(ds.Tables(0))
                MessageBox.Show("更新成功")
            Catch ex As Exception
                Sample02.WriteErr(ex)
                MessageBox.Show("更新失敗")
            End Try

            Me.BindDg()
        End If
    End Sub

    Private Sub btBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBack.Click
        Me.BindDg()
    End Sub


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

    Private Sub BindDg()
        Try
            SqlAda.SelectCommand = SqlCmd
            ds.Clear()
            SqlAda.Fill(ds)

            Me.dgSort.TableStyles(0).MappingName = ds.Tables(0).TableName.Trim()
            Me.dgSort.DataSource = ds.Tables(0)
            Me.dgSort.CurrentCell = New DataGridCell(0, 1)

            dt_Row = ds.Tables(0).Rows.Count
            dt_Col = ds.Tables(0).Columns.Count

            s = False
        Catch ex As Exception
            Sample02.WriteErr(ex)
        End Try
    End Sub

    Private Sub dgSort_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgSort.CurrentCellChanged
        Dim Cell As DataGridCell = Me.dgSort.CurrentCell

        Dim Row As Int16 = Cell.RowNumber
        Dim Col As Int16 = Cell.ColumnNumber

        If Row < dt_Row And Col = 0 And s Then
            MessageBox.Show("編號不能修改")
            Me.dgSort.CurrentCell = New DataGridCell(Row, 1)
        ElseIf Row = dt_Row + 1 Then
            MessageBox.Show("一次只能添加一條記錄")
            Me.dgSort.CurrentCell = New DataGridCell(dt_Row, 0)
        End If

        s = True
    End Sub

End Class