GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/10、背景程式與對話�.../倉儲分區選擇.vb

Public Class 倉儲分區選擇
    Private Sub 倉儲分區選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 倉儲分區選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If 系統語言 = "繁體中文" Then : 總部_cb.Text = "總部" : 區域_cb.Text = "區域" : 工地_cb.Text = "工地"
        ElseIf 系統語言 = "English" Then : 總部_cb.Text = "Headquarters" : 區域_cb.Text = "Area" : 工地_cb.Text = "Construction Site"
        ElseIf 系統語言 = "Indonesian" Then : 總部_cb.Text = "Markas Besar" : 區域_cb.Text = "Daerah" : 工地_cb.Text = "Lokasi Konstruksi" : End If
    End Sub
    Private Sub 總部_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 總部_cb.Click
        總部_cb.Checked = True : 區域_cb.Checked = False : 工地_cb.Checked = False : 倉儲倉級2 = "1" : 倉儲倉級1 = "1" : 倉儲倉級3 = "1"
        倉儲倉級4 = "1" : 倉儲倉級5 = "1" : 倉儲倉級6 = "1" : 倉儲倉級7 = "1" : 倉儲倉級8 = "1" : 倉儲倉級9 = "1"
    End Sub
    Private Sub 區域_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 區域_cb.Click
        總部_cb.Checked = False : 區域_cb.Checked = True : 工地_cb.Checked = False : 倉儲倉級2 = "2" : 倉儲倉級1 = "2" : 倉儲倉級3 = "2"
        倉儲倉級4 = "2" : 倉儲倉級5 = "2" : 倉儲倉級6 = "2" : 倉儲倉級7 = "2" : 倉儲倉級8 = "2" : 倉儲倉級9 = "2"
    End Sub
    Private Sub 工地_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 工地_cb.Click
        總部_cb.Checked = False : 區域_cb.Checked = False : 工地_cb.Checked = True : 倉儲倉級2 = "3" : 倉儲倉級1 = "3" : 倉儲倉級3 = "3"
        倉儲倉級4 = "3" : 倉儲倉級5 = "3" : 倉儲倉級6 = "3" : 倉儲倉級7 = "3" : 倉儲倉級8 = "3" : 倉儲倉級9 = "3"
    End Sub
    Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
        If 總部_cb.Checked = False And 區域_cb.Checked = False And 工地_cb.Checked = False Then
            If 系統語言 = "繁體中文" Then : MsgBox("請先選擇倉儲層級!!")
            ElseIf 系統語言 = "English" Then : MsgBox("Please select a storage tier first!!")
            ElseIf 系統語言 = "Indonesian" Then : MsgBox("Silakan pilih tingkat penyimpanan terlebih dahulu!!") : End If
        Else : Me.Close() : End If
    End Sub
End Class