WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/10、基本資料管理系統/DELIVERY_ADDRESS__資料管...

Option Strict Off
Public Class DELIVERY_ADDRESS__資料管理
    Private ReadOnly ds As New DataSet
    Private Sub Set_DELIVERYADDRESS清單()
        主表單_dgv.DataSource = Nothing : ds.Clear()
        主表單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主表單_dgv.ColumnHeadersHeight = 25
        主表單_dgv.AllowUserToAddRows = False
        SQL_DELIVERYADDRESS清單()
        da.Fill(ds) : 主表單_dgv.DataSource = ds.Tables(0) : conn.Close()

        主表單_dgv.Columns(0).Width = 310 : 主表單_dgv.Columns(1).Width = 1000
    End Sub
    Private Sub DELIVERY_ADDRESS__資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
        Set_DELIVERYADDRESS清單()
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 主表單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            Remark_tb.Text = 主表單_dgv(0, e.RowIndex).Value.ToString : 地址_tb.Text = 主表單_dgv(1, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If Remark_tb.Text <> "" Then
            SQL_查詢REMARK()
            If dr.Read() Then
                conn.Close() : MsgBox("資料重複")
            Else
                SQL_查詢REMARK1()
                If dr.Read() Then
                    conn.Close() : MsgBox("資料重複")
                Else
                    SQL_新增DELIVERYADDRESS() : conn.Close()
                    Set_DELIVERYADDRESS清單() : MsgBox("新增完成")
                End If
            End If
        Else
            MsgBox("Key index 不可空白")
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If Remark_tb.Text <> "" Then
            SQL_REMARK地址()
            If dr.Read() Then
                conn.Close() : MsgBox("資料重複")
            Else
                SQL_修改REMARK地址() : conn.Close()
                Set_DELIVERYADDRESS清單() : MsgBox("修改完成")
            End If
        Else
            MsgBox("Key index 不可空白")
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_刪除DELIVERYADDRESS() : conn.Close()
            Set_DELIVERYADDRESS清單()
            MsgBox("刪除完成")
        End If
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click
        Me.Close()
    End Sub
End Class