HX-PGS-ERP-SYS-SIU/03、倉儲管理系統/倉儲基本控制/倉儲分區控制表.vb

Option Strict Off
Public Class 倉儲分區控制表
    ReadOnly ds12 As New DataSet
    DIM 對話框(5) As String
    Private Sub Set_清單1()
        Dim ds As New DataSet : 倉儲區域_dgv.DataSource = Nothing : ds.Clear()
        倉儲區域_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        倉儲區域_dgv.ColumnHeadersHeight = 25 : 倉儲區域_dgv.AllowUserToAddRows = False : 倉儲區域_dgv.RowTemplate.Height = 25

        SQL_倉儲分區控制表_清單() : 列印用SQL = SQL1
        da.Fill(ds) : 倉儲區域_dgv.DataSource = ds.Tables(0) : conn.Close()
        倉儲區域_dgv.Columns(0).ReadOnly = True : 倉儲區域_dgv.Columns(1).ReadOnly = True : 倉儲區域_dgv.Columns(2).ReadOnly = True : 倉儲區域_dgv.Columns(3).ReadOnly = True
        倉儲區域_dgv.Columns(0).FillWeight = 90 : 倉儲區域_dgv.Columns(1).FillWeight = 90 : 倉儲區域_dgv.Columns(2).FillWeight = 350 : 倉儲區域_dgv.Columns(3).FillWeight = 60
        倉儲區域_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    End Sub
    Private Sub Set_清單2()
        Dim ds2 As New DataSet : 入庫無指定_dgv.DataSource = Nothing : ds2.Clear()
        入庫無指定_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        入庫無指定_dgv.ColumnHeadersHeight = 25 : 入庫無指定_dgv.AllowUserToAddRows = False : 入庫無指定_dgv.RowTemplate.Height = 25

        SQL_入庫申請無指定()
        da.Fill(ds2) : 入庫無指定_dgv.DataSource = ds2.Tables(0) : conn.Close()
        入庫無指定_dgv.Columns(1).Visible = False : 入庫無指定_dgv.Columns(3).Visible = False
        入庫無指定_dgv.Columns(0).FillWeight = 300
    End Sub
    Private Sub 編號推進()
        SQL_倉儲分區控制表_最後一筆()
        If dr.Read() Then
            倉名編號_tb.Text = dr("倉名編號")
            If Val(Strings.Right(倉名編號_tb.Text, 2)) < 10 Then
                倉名編號_tb.Text = "N0" & Val(Strings.Right(倉名編號_tb.Text, 2)) + 1
            Else
                倉名編號_tb.Text = "N" & Val(Strings.Right(倉名編號_tb.Text, 2)) + 1
            End If
        Else
            倉名編號_tb.Text = "N01"
        End If : conn.Close()
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds12.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds12) : 語言_dgv.DataSource = ds12.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "倉儲分區控制表" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "倉級_lb" Then : 倉級_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "倉名編號_lb" Then : 倉名編號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "倉名_lb" Then : 倉名_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改_bt" Then : 修正_tb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉級" Then : 表頭(68) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉名編號" Then : 表頭(69) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉名" Then : 表頭(70) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "文字_lb" Then : 文字_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "文字1_lb" Then : 文字1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
        Next
        If 系統語言 = "繁體中文" Then
            ToolTip1.ToolTipTitle = "系統說明"
        Else
            ToolTip1.ToolTipTitle = "illustrate"
        End If
    End Sub
    Private Sub 倉儲分區控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(528) = True : 介面 = "H528" : 語言轉換讀取() : 顯示說明(999, False)
        Set_清單1() : Set_清單2()
        倉名編號_tb.Enabled = False
        If Val(登入人級別) <= 1 Then
            修改_bt.Enabled = True : 刪除_bt.Enabled = True
        Else
            修改_bt.Enabled = True : 刪除_bt.Enabled = False
        End If
        編號推進()
        MyMod.清單字體大小調整()
        倉儲區域_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        入庫無指定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 倉儲分區控制表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyMod.清單字體大小調整()
        倉儲區域_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        入庫無指定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 倉儲領料申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(528) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H528" : 語言轉換讀取() : Set_清單1() : Set_清單2()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 入庫無指定_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 入庫無指定_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            單號_bt.Text = 入庫無指定_dgv.Rows(e.RowIndex).Cells(0).Value : 倉級1_tb.Text = 入庫無指定_dgv.Rows(e.RowIndex).Cells(2).Value
            倉編_tb.Text = 入庫無指定_dgv.Rows(e.RowIndex).Cells(4).Value
        End If
    End Sub
    Private Sub 倉儲區域_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 倉儲區域_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            倉級_tb.Text = 倉儲區域_dgv(0, e.RowIndex).Value.ToString : 倉名編號_tb.Text = 倉儲區域_dgv(1, e.RowIndex).Value.ToString
            倉級1_tb.Text = 倉儲區域_dgv.Rows(e.RowIndex).Cells(0).Value : 倉編_tb.Text = 倉儲區域_dgv.Rows(e.RowIndex).Cells(1).Value
            倉名_tb.Text = 倉儲區域_dgv(2, e.RowIndex).Value.ToString : CXL_ch.Checked = 倉儲區域_dgv.Rows(e.RowIndex).Cells(3).Value
        End If
    End Sub
    Private Sub 修正_tb_Click(sender As Object, e As EventArgs) Handles 修正_tb.Click
        If 單號_bt.Text = "" Or 倉級1_tb.Text = "" Or 倉編_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : 通知訊息 = "修正資料不可空白!!" : Else : 通知訊息 = "Data koreksi tidak boleh kosong!!" : End If
            訊息類型 = "1" : 通知視窗.ShowDialog()
        Else : PA1 = 單號_bt.Text : PA2 = 倉級1_tb.Text : PA3 = 倉編_tb.Text : SQL_倉儲明細表修正入庫資料() : Set_清單2() : Set_清單1() : End If
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If 倉級_tb.Text = "" Or 倉名_tb.Text = "" Then
            MGB(對話框(0),1)
        Else
            編號推進()
            SQL_倉儲分區控制表_倉名查詢()
            If dr.Read() Then
                conn.Close() : MGB(對話框(1),1)
            Else
                SQL_倉儲分區控制表_不重複查詢()
                If dr.Read() Then
                    conn.Close() : MGB(對話框(1),1)
                Else
                    SQL_倉儲分區控制表_新增() : conn.Close()
                    MGB(對話框(2),1) : 編號推進() : 倉名_tb.Text = "" : Set_清單1()
                End If
            End If
        End If
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 倉級_tb.Text = "" Or 倉名_tb.Text = "" Then
            MGB(對話框(0),1)
        Else
            SQL_倉儲分區控制表_倉名查詢()
            If dr.Read() Then
                conn.Close() : MGB(對話框(1),1)
            Else
                SQL_倉儲分區控制表_不重複查詢()
                If dr.Read() Then
                    conn.Close() : MGB(對話框(1),1)
                Else
                    SQL_倉儲分區控制表_修改() : conn.Close()
                    MGB(對話框(3),1) : Set_清單1()
                End If
            End If
        End If
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        MGB(對話框(4),2)
        If 訊息回應 = "YES" Then
            SQL_倉儲分區控制表_刪除() : conn.Close()
            MGB(對話框(5),1) : 編號推進() : 倉名_tb.Text = "" : Set_清單1()
        End If
    End Sub
    Private Sub 倉級_tb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉級_tb.SelectedIndexChanged
        If 系統分區控制 = True And 倉級_tb.Text = "3" Then
            If Val(登入人級別) <= 1 Then
                新增_bt.Enabled = True : 修改_bt.Enabled = True : 刪除_bt.Enabled = True
            Else
                新增_bt.Enabled = True : 修改_bt.Enabled = True : 刪除_bt.Enabled = False
            End If
        ElseIf 系統分區控制 = True And 倉級_tb.Text <> "3" Then
            新增_bt.Enabled = False : 修改_bt.Enabled = False : 刪除_bt.Enabled = False
        Else
            If Val(登入人級別) <= 1 Then
                新增_bt.Enabled = True : 修改_bt.Enabled = True : 刪除_bt.Enabled = True
            Else
                新增_bt.Enabled = True : 修改_bt.Enabled = True : 刪除_bt.Enabled = False
            End If
        End If
    End Sub
    Private Sub 新增資料_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
        If 系統語言 = "繁體中文" Then : ToolTip1.SetToolTip(Me.新增_bt, "新增") : Else : ToolTip1.SetToolTip(Me.新增_bt, "Menambahkan informasi") : End If
    End Sub
    Private Sub 存檔_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter
        If 系統語言 = "繁體中文" Then : ToolTip1.SetToolTip(Me.修改_bt, "修改") : Else : ToolTip1.SetToolTip(Me.修改_bt, "Save") : End If
    End Sub
    Private Sub 刪除_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        If 系統語言 = "繁體中文" Then : ToolTip1.SetToolTip(Me.刪除_bt, "刪除") : Else : ToolTip1.SetToolTip(Me.刪除_bt, "Delete") : End If
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control

            文字1_lb.ForeColor = Color.Blue : 文字_lb.ForeColor = Color.Blue : 倉級_lb.ForeColor = Color.Black
            倉名_lb.ForeColor = Color.Black : 倉名編號_lb.ForeColor = Color.Black : CXL_ch.ForeColor = Color.Black

            倉名編號_tb.BackColor = Color.White : 倉名編號_tb.ForeColor = Color.Black : 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black
            倉名_tb.BackColor = Color.White : 倉名_tb.ForeColor = Color.Black : 單號_bt.BackColor = Color.White : 單號_bt.ForeColor = Color.Black
            倉級1_tb.BackColor = Color.White : 倉級1_tb.ForeColor = Color.Black : 倉編_tb.BackColor = Color.White : 倉編_tb.ForeColor = Color.Black
            修正_tb.BackColor = Color.White : 修正_tb.ForeColor = Color.Green

            新增_bt.BackColor = Color.White : 修改_bt.BackColor = Color.White : 刪除_bt.BackColor = Color.White

            倉儲區域_dgv.EnableHeadersVisualStyles = True : 倉儲區域_dgv.BackgroundColor = Color.White : 倉儲區域_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            倉儲區域_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
            倉儲區域_dgv.DefaultCellStyle.BackColor = Color.White : 倉儲區域_dgv.DefaultCellStyle.ForeColor = Color.Black
            入庫無指定_dgv.EnableHeadersVisualStyles = True : 入庫無指定_dgv.BackgroundColor = Color.White : 入庫無指定_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            入庫無指定_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            入庫無指定_dgv.DefaultCellStyle.BackColor = Color.White : 入庫無指定_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black

            文字1_lb.ForeColor = Color.LightBlue : 文字_lb.ForeColor = Color.LightBlue : 倉級_lb.ForeColor = Color.White
            倉名_lb.ForeColor = Color.White : 倉名編號_lb.ForeColor = Color.White : CXL_ch.ForeColor = Color.White

            倉名編號_tb.BackColor = Color.DimGray : 倉名編號_tb.ForeColor = Color.White : 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White
            倉名_tb.BackColor = Color.DimGray : 倉名_tb.ForeColor = Color.White : 單號_bt.BackColor = Color.DimGray : 單號_bt.ForeColor = Color.White
            倉級1_tb.BackColor = Color.DimGray : 倉級1_tb.ForeColor = Color.White : 倉編_tb.BackColor = Color.DimGray : 倉編_tb.ForeColor = Color.White
            修正_tb.BackColor = Color.DimGray : 修正_tb.ForeColor = Color.LightGreen

            新增_bt.BackColor = Color.DimGray : 修改_bt.BackColor = Color.DimGray : 刪除_bt.BackColor = Color.DimGray

            倉儲區域_dgv.EnableHeadersVisualStyles = False : 倉儲區域_dgv.BackgroundColor = Color.DimGray : 倉儲區域_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            倉儲區域_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 倉儲區域_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            倉儲區域_dgv.DefaultCellStyle.BackColor = Color.Black : 倉儲區域_dgv.DefaultCellStyle.ForeColor = Color.White
            入庫無指定_dgv.EnableHeadersVisualStyles = False : 入庫無指定_dgv.BackgroundColor = Color.DimGray : 入庫無指定_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            入庫無指定_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 入庫無指定_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            入庫無指定_dgv.DefaultCellStyle.BackColor = Color.Black : 入庫無指定_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class