TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/MDIParent1.vb

Public Class MDIParent1
    ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
    ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub
    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub
    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        ' 關閉父表單的所有子表單。
        For Each ChildForm As Form In Me.MdiChildren
            ChildForm.Close()
        Next
    End Sub
    Private ReadOnly m_ChildFormNumber As Integer
    Private Sub MDIParent1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本
        Me.系統管理ToolStripMenuItem.Enabled = CC(0) : Me.系統使用者管理ToolStripMenuItem.Enabled = CC(1) : Me.帳務管理ToolStripMenuItem.Enabled = CC(2)
        Me.收款報表ToolStripMenuItem.Enabled = CC(3) : Me.費用報表ToolStripMenuItem.Enabled = CC(4) : Me.量產訂單管理ToolStripMenuItem.Enabled = CC(5)
        Me.訂單控制表ToolStripMenuItem.Enabled = CC(6)  'Me.業務系統管理ToolStripMenuItem.Enabled = CC(12) : Me.帳務系統管理ToolStripMenuItem.Enabled = CC(13)
        Me.訂單明細表ToolStripMenuItem.Enabled = CC(15) : Me.業務資料庫管理ToolStripMenuItem.Enabled = CC(22) : Me.TENDENZASTYLEToolStripMenuItem.Enabled = CC(18)
        Me.DELIVERYADDRESSToolStripMenuItem.Enabled = CC(19) : Me.Factory資料管理ToolStripMenuItem.Enabled = CC(20) : Me.訂單資料匯入ToolStripMenuItem.Enabled = CC(21)
        Me.成本管理ToolStripMenuItem.Enabled = CC(23) : Me.訂單價格利潤明細表ToolStripMenuItem.Enabled = CC(24) : Me.貨款匯入出款明細表ToolStripMenuItem.Enabled = CC(26)
        Me.ReportToolStripMenuItem.Enabled = CC(27) : Me.Report1ToolStripMenuItem.Enabled = CC(28) : Me.Report2ToolStripMenuItem.Enabled = CC(29)
        Me.Report3ToolStripMenuItem.Enabled = CC(30) : Me.CXL清單ToolStripMenuItem.Enabled = CC(31) : Me.出貨明細表ToolStripMenuItem.Enabled = CC(32)
        Me.鞋盒訂單紀錄表ToolStripMenuItem.Enabled = CC(33) : Me.皮料資料紀錄表ToolStripMenuItem.Enabled = CC(34) : Me.周進度表ToolStripMenuItem.Enabled = CC(35)
        Me.DeadlineReportToolStripMenuItem.Enabled = CC(39) : Me.測試報告新配色管理ToolStripMenuItem1.Enabled = CC(40) : Me.測試報告ToolStripMenuItem.Enabled = CC(41)
        Me.測試報告控制表ToolStripMenuItem1.Enabled = CC(42) : Me.圖片資料庫管理ToolStripMenuItem.Enabled = CC(43) : Me.鞋型圖片導入資料庫ToolStripMenuItem.Enabled = CC(44)
        Me.圖片資料庫ToolStripMenuItem.Enabled = CC(45) : Me.樣品訂單管理ToolStripMenuItem.Enabled = CC(46) : Me.生產進度表ToolStripMenuItem.Enabled = CC(47)
        'Me.樣品系統管理ToolStripMenuItem.Enabled = CC(48)
        Me.樣品資料庫管理ToolStripMenuItem.Enabled = CC(49) : Me.開發樣品中文樣品單.Enabled = CC(50)
        Me.開發樣品掛牌管理ToolStripMenuItem.Enabled = CC(51) : Me.確認樣品ToolStripMenuItem.Enabled = CC(52) : Me.確認樣品確認通知單ToolStripMenuItem1.Enabled = CC(53)
        Me.確認樣品掛牌管理ToolStripMenuItem.Enabled = CC(54) : Me.量產樣品ToolStripMenuItem.Enabled = CC(55) : Me.量產樣品訂單出貨紀錄表ToolStripMenuItem1.Enabled = CC(56)
        Me.量產樣品控制表ToolStripMenuItem1.Enabled = CC(57) : Me.量產樣品明細表ToolStripMenuItem1.Enabled = CC(58) : Me.量產樣品訂單匯入ToolStripMenuItem1.Enabled = CC(59)
        Me.帳務資料庫管理ToolStripMenuItem.Enabled = CC(60) : Me.收款報表批量輸入ToolStripMenuItem.Enabled = CC(61) : Me.包裝確認與業務備註ToolStripMenuItem.Enabled = CC(63)
        Me.中文樣品單清單ToolStripMenuItem.Enabled = CC(65) : Me.SAMPLETRACKERToolStripMenuItem.Enabled = CC(66) : Me.鞋盒資料控制表ToolStripMenuItem.Enabled = CC(71)
        Me.現有訂單鞋盒資訊查詢ToolStripMenuItem.Enabled = CC(72) : Me.驗貨報告圖片導入資料庫ToolStripMenuItem1.Enabled = CC(73) : Me.驗貨報告資料庫ToolStripMenuItem1.Enabled = CC(74)
        Me.CustomerInformation資料管理ToolStripMenuItem.Enabled = CC(75) : Me.製鞋技術資料管理ToolStripMenuItem.Enabled = CC(76) : Me.成本資料庫管理ToolStripMenuItem.Enabled = CC(77)
        Me.NewUnitComparisonToolStripMenuItem.Enabled = CC(78) : Me.楦頭規格表ToolStripMenuItem.Enabled = CC(79) : Me.楦頭圖片導入資料庫ToolStripMenuItem.Enabled = CC(81)
        Me.楦頭圖片資料庫ToolStripMenuItem.Enabled = CC(82) : Me.保證書出貨統計資料ToolStripMenuItem1.Enabled = CC(83) : Me.TENDENZASTYLE資料管理1ToolStripMenuItem.Enabled = CC(18)
        Me.TENDENZASTYLE資料管理2ToolStripMenuItem.Enabled = CC(84) : Me.周進度表T1ToT4ToolStripMenuItem.Enabled = CC(35) : Me.FTP資料夾管理ToolStripMenuItem.Enabled = CC(89)
        Me.系統執行檔版本管理ToolStripMenuItem.Enabled = CC(90)
        Me.TENDENZASTYLE形體下單數量統計ToolStripMenuItem.Enabled = CC(91)
    End Sub
    Private Sub MDIParent1_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        LoginForm1vb.Close()
    End Sub
    Private Sub MDIParent1_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize, MyBase.Resize
        If screenWidth = 1920 And screenHeight = 1080 Then : Me.BackgroundImage = My.Resources._1980X1010
        ElseIf screenWidth = 1366 And screenHeight = 768 Then : Me.BackgroundImage = My.Resources._1366X719
        ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.BackgroundImage = My.Resources._1440X828
        ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.BackgroundImage = My.Resources._1280X956
        ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.BackgroundImage = My.Resources._1601X896
        End If
        Me.BackgroundImageLayout = 3
    End Sub
    Private Sub 使用者管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統使用者管理ToolStripMenuItem.Click
        PA = "" : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
    End Sub
    Private Sub 收款報表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 收款報表ToolStripMenuItem.Click
        PA = "" : 收款報表.Show() : 收款報表.BringToFront()
    End Sub
    Private Sub 費用報表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 費用報表ToolStripMenuItem.Click
        PA = "" : 費用報表.Show() : 費用報表.BringToFront()
    End Sub
    Private Sub 訂單控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 訂單控制表ToolStripMenuItem.Click
        PA = "" : 訂單控制表.Show() : 訂單控制表.BringToFront()
    End Sub
    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
        PA = "" : 帳號管理.Show() : 帳號管理.BringToFront()
    End Sub
    Private Sub 訂單明細表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 訂單明細表ToolStripMenuItem.Click
        PA = InputBox("請輸入天盾流水號")
        訂單明細表.Show() : 訂單明細表.BringToFront()
    End Sub
    Private Sub 訂單資料匯入ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 訂單資料匯入ToolStripMenuItem.Click
        PA = "" : 訂單資料匯入.Show() : 訂單資料匯入.BringToFront()
    End Sub
    Private Sub TENDENZASTYLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TENDENZASTYLEToolStripMenuItem.Click
        PA = "" : TENDENZA_STYLE_資料管理.Show() : TENDENZA_STYLE_資料管理.BringToFront()
    End Sub
    Private Sub DELIVERYADDRESSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DELIVERYADDRESSToolStripMenuItem.Click
        PA = "" : DELIVERY_ADDRESS__資料管理.Show() : DELIVERY_ADDRESS__資料管理.BringToFront()
    End Sub
    Private Sub Factory資料管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Factory資料管理ToolStripMenuItem.Click
        PA = "" : FACTORY_資料管理.Show() : FACTORY_資料管理.BringToFront()
    End Sub
    Private Sub 業務資料庫除錯ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 業務資料庫管理ToolStripMenuItem.Click
        PA = "" : 業務資料庫管理.Show() : 業務資料庫管理.BringToFront()
    End Sub
    Private Sub 訂單價格利潤明細表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 訂單價格利潤明細表ToolStripMenuItem.Click
        PA = "" : 訂單價格利潤明細表.Show() : 訂單價格利潤明細表.BringToFront()
    End Sub
    Private Sub 鞋盒訂單紀錄表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 鞋盒訂單紀錄表ToolStripMenuItem.Click
        PA = "" : 鞋盒訂單紀錄表.Show() : 鞋盒訂單紀錄表.BringToFront()
    End Sub
    Private Sub 皮料資料紀錄表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 皮料資料紀錄表ToolStripMenuItem.Click
        PA = "" : 皮料資料紀錄表.Show() : 皮料資料紀錄表.BringToFront()
    End Sub
    Private Sub CXL清單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CXL清單ToolStripMenuItem.Click
        PA = "" : CXL訂單紀錄表.Show() : CXL訂單紀錄表.BringToFront()
    End Sub
    Private Sub Report1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Report1ToolStripMenuItem.Click
        PA = "" : 訂單分析報表一.Show() : 訂單分析報表一.BringToFront()
    End Sub
    Private Sub Report2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Report2ToolStripMenuItem.Click
        PA = "" : 訂單分析報表二.Show() : 訂單分析報表二.BringToFront()
    End Sub
    Private Sub Report3ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Report3ToolStripMenuItem.Click
        PA = "" : 訂單分析報表三.Show() : 訂單分析報表三.BringToFront()
    End Sub
    Private Sub 出貨明細表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 出貨明細表ToolStripMenuItem.Click
        PA = "" : 出貨明細表.Show() : 出貨明細表.BringToFront()
    End Sub
    Private Sub 帳務資料庫管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 帳務資料庫管理ToolStripMenuItem.Click
        PA = "" : 帳務資料庫管理.Show() : 帳務資料庫管理.BringToFront()
    End Sub
    Private Sub 周進度表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 周進度表ToolStripMenuItem.Click
        PA = "" : 周進度表.Show() : 周進度表.BringToFront()
    End Sub
    Private Sub 生產進度表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 生產進度表ToolStripMenuItem.Click
        PA = "" : 生產進度表.Show() : 生產進度表.BringToFront()
    End Sub
    Private Sub 收款報表批量輸入ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 收款報表批量輸入ToolStripMenuItem.Click
        PA = "" : 收款報表批量輸入.Show() : 收款報表批量輸入.BringToFront()
    End Sub
    Private Sub 鞋型圖片導入資料庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 鞋型圖片導入資料庫ToolStripMenuItem.Click
        PA = "" : 鞋型圖片導入資料庫.Show() : 鞋型圖片導入資料庫.BringToFront()
    End Sub
    Private Sub 圖片資料庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 圖片資料庫ToolStripMenuItem.Click
        PA = "" : 鞋型圖片資料庫.Show() : 鞋型圖片資料庫.BringToFront()
    End Sub
    Private Sub 測試報告新配色管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 測試報告新配色管理ToolStripMenuItem1.Click
        PA = "" : 測試報告新配色管理.Show() : 測試報告新配色管理.BringToFront()
    End Sub
    Private Sub 測試報告ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 測試報告ToolStripMenuItem.Click
        PA = "" : 測試報告報告到期管理.Show() : 測試報告報告到期管理.BringToFront()
    End Sub
    Private Sub 測試報告控制表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 測試報告控制表ToolStripMenuItem1.Click
        PA = "" : 測試報告控制表.Show() : 測試報告控制表.BringToFront()
    End Sub
    Private Sub 開發樣品中文樣品單_Click(sender As Object, e As EventArgs) Handles 開發樣品中文樣品單.Click
        If (開發部門 = False And 確認部門 = False) Or (開發部門 = True And 確認部門 = False) Then
            開發部門 = True : 確認部門 = False
            PA = "" : 中文樣品單.Show() : 中文樣品單.BringToFront()
        ElseIf 開發部門 = False And 確認部門 = True Then
            MsgBox("請先關閉--確認樣品系列頁面--")
        End If
    End Sub
    Private Sub 開發樣品掛牌管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開發樣品掛牌管理ToolStripMenuItem.Click
        If (開發部門 = False And 確認部門 = False) Or (開發部門 = True And 確認部門 = False) Then
            開發部門 = True : 確認部門 = False
            PA = "" : 樣品吊牌管理.Show() : 樣品吊牌管理.BringToFront()
        ElseIf 開發部門 = False And 確認部門 = True Then
            MsgBox("請先關閉--確認樣品系列頁面--")
        End If
    End Sub
    Private Sub 確認樣品ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 確認樣品ToolStripMenuItem.Click
        If (開發部門 = False And 確認部門 = False) Or (開發部門 = False And 確認部門 = True) Then
            開發部門 = False : 確認部門 = True
            PA = "" : 中文樣品單.Show() : 中文樣品單.BringToFront()
        ElseIf 開發部門 = True And 確認部門 = False Then
            MsgBox("請先關閉--開發樣品系列頁面--")
        End If
    End Sub
    Private Sub 確認樣品確認通知單ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 確認樣品確認通知單ToolStripMenuItem1.Click
        PA = "" : 確認樣品確認通知單.Show() : 確認樣品確認通知單.BringToFront()
    End Sub
    Private Sub 確認樣品掛牌管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 確認樣品掛牌管理ToolStripMenuItem.Click
        If (開發部門 = False And 確認部門 = False) Or (開發部門 = False And 確認部門 = True) Then
            開發部門 = False : 確認部門 = True
            PA = "" : 樣品吊牌管理.Show() : 樣品吊牌管理.BringToFront()
        ElseIf 開發部門 = True And 確認部門 = False Then
            MsgBox("請先關閉--開發樣品系列頁面--")
        End If
    End Sub
    Private Sub 量產樣品訂單匯入ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 量產樣品訂單匯入ToolStripMenuItem1.Click
        PA = "" : 量產樣品訂單匯入.Show() : 量產樣品訂單匯入.BringToFront()
    End Sub
    Private Sub 量產樣品明細表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 量產樣品明細表ToolStripMenuItem1.Click
        PA = InputBox("請輸入 [PD] 開頭的量產樣品單號")
        PA = "" : 量產樣品明細表.Show() : 量產樣品明細表.BringToFront()
    End Sub
    Private Sub 量產樣品控制表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 量產樣品控制表ToolStripMenuItem1.Click
        PA = "" : 量產樣品控制表.Show() : 量產樣品控制表.BringToFront()
    End Sub
    Private Sub 量產樣品訂單出貨紀錄表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 量產樣品訂單出貨紀錄表ToolStripMenuItem1.Click
        PA = "" : 量產樣品訂單出貨紀錄表.Show() : 量產樣品訂單出貨紀錄表.BringToFront()
    End Sub
    Private Sub 量產樣品ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 量產樣品ToolStripMenuItem.Click
        PA = "" : 量產樣品訂單CXL紀錄表.Show() : 量產樣品訂單CXL紀錄表.BringToFront()
    End Sub
    Private Sub 樣品系統管理ToolStripMenuItem_Click_1(sender As Object, e As EventArgs)

    End Sub
    Private Sub 樣品資料庫管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 樣品資料庫管理ToolStripMenuItem.Click
        PA = "" : 樣品資料庫管理.Show() : 樣品資料庫管理.BringToFront()
    End Sub
    Private Sub DeadlineReportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeadlineReportToolStripMenuItem.Click
        PA = "" : 訂單分析報表四.Show() : 訂單分析報表四.BringToFront()
    End Sub
    Private Sub 包裝確認與業務備註ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 包裝確認與業務備註ToolStripMenuItem.Click
        PA = "" : 包裝確認與業務備註.Show() : 包裝確認與業務備註.BringToFront()
    End Sub
    Private Sub 中文樣品單清單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 中文樣品單清單ToolStripMenuItem.Click
        PA = "" : 中文樣品單清單.Show() : 中文樣品單清單.BringToFront()
    End Sub
    Private Sub SAMPLETRACKERToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SAMPLETRACKERToolStripMenuItem.Click
        PA = "" : SAMPLE_TRACKER.Show() : SAMPLE_TRACKER.BringToFront()
    End Sub
    Private Sub CustomerInformation資料管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CustomerInformation資料管理ToolStripMenuItem.Click
        PA = "" : Customer_Information_資料管理.Show() : Customer_Information_資料管理.BringToFront()
    End Sub
    Private Sub INVOICE確認部門ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles INVOICE確認部門ToolStripMenuItem.Click
        PA = "" : INVOICE_確認部門.Show() : INVOICE_確認部門.BringToFront()
    End Sub
    Private Sub 鞋盒資料控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 鞋盒資料控制表ToolStripMenuItem.Click
        PA = "" : 鞋盒資料控制表.Show() : 鞋盒資料控制表.BringToFront()
    End Sub
    Private Sub 現有訂單鞋盒資訊查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 現有訂單鞋盒資訊查詢ToolStripMenuItem.Click
        PA = "" : 現有訂單鞋盒資訊查詢.Show() : 現有訂單鞋盒資訊查詢.BringToFront()
    End Sub
    Private Sub NewUnitComparisonToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewUnitComparisonToolStripMenuItem.Click
        PA = "" : 訂單分析報表五.Show() : 訂單分析報表五.BringToFront()
    End Sub
    Private Sub 成本資料庫管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 成本資料庫管理ToolStripMenuItem.Click
        PA = "" : 成本資料庫管理.Show() : 成本資料庫管理.BringToFront()
    End Sub
    Private Sub 楦頭規格表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 楦頭規格表ToolStripMenuItem.Click
        PA = "" : 楦頭規格表.Show() : 楦頭規格表.BringToFront()
    End Sub
    Private Sub 楦頭圖片導入資料庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 楦頭圖片導入資料庫ToolStripMenuItem.Click
        PA = "" : 楦頭圖片導入資料庫.Show() : 楦頭圖片導入資料庫.BringToFront()
    End Sub
    Private Sub 楦頭圖片資料庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 楦頭圖片資料庫ToolStripMenuItem.Click
        PA = "" : 楦頭圖片資料庫.Show() : 楦頭圖片資料庫.BringToFront()
    End Sub
    Private Sub TENDENZASTYLE資料管理1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TENDENZASTYLE資料管理1ToolStripMenuItem.Click
        PA = "" : TENDENZA_STYLE_資料管理.Show() : TENDENZA_STYLE_資料管理.BringToFront()
    End Sub
    Private Sub TENDENZASTYLE資料管理2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TENDENZASTYLE資料管理2ToolStripMenuItem.Click
        PA = "" : TENDENZA_STYLE_資料管理_對應訂單.Show() : TENDENZA_STYLE_資料管理_對應訂單.BringToFront()
    End Sub
    Private Sub 周進度表T1ToT4ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 周進度表T1ToT4ToolStripMenuItem.Click
        PA = "" : 周進度表T1_T4.Show() : 周進度表T1_T4.BringToFront()
    End Sub
    Private Sub FTP資料夾管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理ToolStripMenuItem.Click
        PA = "" : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
    End Sub
    Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理ToolStripMenuItem.Click
        PA = "" : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
    End Sub
    Private Sub TENDENZASTYLE形體下單數量統計ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TENDENZASTYLE形體下單數量統計ToolStripMenuItem.Click
        PA = "" : TENDENZA_STYLE_形體下單數量統計.Show() : TENDENZA_STYLE_形體下單數量統計.BringToFront()
    End Sub
    Private Sub POReportDataReconciliationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles POReportDataReconciliationToolStripMenuItem.Click
        PA = "" : 訂單分析報表六.ShowDialog() : 訂單分析報表六.BringToFront()
    End Sub
    Private Sub 驗貨報告圖片導入資料庫ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 驗貨報告圖片導入資料庫ToolStripMenuItem1.Click
        PA = "" : 驗貨報告圖片導入資料庫.Show() : 驗貨報告圖片導入資料庫.BringToFront()
    End Sub
    Private Sub 驗貨報告資料庫ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 驗貨報告資料庫ToolStripMenuItem1.Click
        PA = "" : 驗貨報告資料庫.Show() : 驗貨報告資料庫.BringToFront()
    End Sub
    Private Sub 保證書出貨統計資料ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 保證書出貨統計資料ToolStripMenuItem1.Click
        PA = "" : 保證書出貨統計資料.Show() : 保證書出貨統計資料.BringToFront()
    End Sub




    Private Sub 人員ID卡系統配置設定ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定ToolStripMenuItem1.Click
        PA = "" : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.BringToFront()
    End Sub
    Private Sub 驗貨報告資料庫修正ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 驗貨報告資料庫修正ToolStripMenuItem.Click
        PA = "" : 驗貨報告資料庫修正.ShowDialog()
    End Sub
    Private Sub 訂單改量差異查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 訂單改量差異查詢ToolStripMenuItem.Click
        PA = "" : 訂單改量差異查詢.Show() : 訂單改量差異查詢.BringToFront()
    End Sub
    Private Sub ProductSalesProfitAnalysisTableToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProductSalesProfitAnalysisTableToolStripMenuItem.Click
        PA = "" : 訂單分析報表七.Show() : 訂單分析報表七.BringToFront()
    End Sub
End Class