GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/04-倉儲系統管理/倉儲分區控制表.vb

Option Strict Off
Public Class 倉儲分區控制表
    ReadOnly ds12 As New DataSet
    ReadOnly 對話框(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 : 新增_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改_bt" Then : 修改_bt.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 = "刪除_bt" Then : 刪除_bt.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
    End Sub
    Private Sub 倉儲分區控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        H(528) = True : 介面 = "H528" : 語言轉換讀取()
        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
        編號推進()
        MyModule1.清單字體大小調整()
        倉儲區域_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
        入庫無指定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 倉儲分區控制表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyModule1.清單字體大小調整()
        倉儲區域_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
        入庫無指定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 倉儲領料申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(528) = False
    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 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_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
            MsgBox("修正資料不可空白")
        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
            MsgBox(對話框(0))
        Else
            編號推進()
            SQL_倉儲分區控制表_倉名查詢()
            If dr.Read() Then
                conn.Close() : MsgBox(對話框(1))
            Else
                SQL_倉儲分區控制表_不重複查詢()
                If dr.Read() Then
                    conn.Close() : MsgBox(對話框(1))
                Else
                    SQL_倉儲分區控制表_新增() : conn.Close()
                    MsgBox(對話框(2)) : 編號推進() : 倉名_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
            MsgBox(對話框(0))
        Else
            SQL_倉儲分區控制表_倉名查詢()
            If dr.Read() Then
                conn.Close() : MsgBox(對話框(1))
            Else
                SQL_倉儲分區控制表_不重複查詢()
                If dr.Read() Then
                    conn.Close() : MsgBox(對話框(1))
                Else
                    SQL_倉儲分區控制表_修改() : conn.Close()
                    MsgBox(對話框(3)) : Set_清單1()
                End If
            End If
        End If
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult = MsgBox(對話框(4), MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_倉儲分區控制表_刪除() : conn.Close()
            MsgBox(對話框(5)) : 編號推進() : 倉名_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
End Class