MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/MAOJI-ERP-SYS.vb

Option Strict Off
Public Class MAOJI_ERP_SYS
    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click
        ' 建立子表單的新執行個體。
        ' 將它變成這個 MDI 表單的子表單，然後才顯示。
        Dim ChildForm As New Form With {
            .MdiParent = Me
        }
        m_ChildFormNumber += 1 : ChildForm.Text = "視窗 " & m_ChildFormNumber : ChildForm.Show()
    End Sub
    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 Sub ComboBox1下拉表單資料載入()
        SQL_公司選擇清單()
        ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("公司名")) : End While : conn.Close()
    End Sub

    Private m_ChildFormNumber As Integer
    Private Sub MaoOrange_Hongji_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '----------系統登入時抬頭資訊顯示---------------------------------------------------------------------------------------------------------------
        Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本
        ComboBox1下拉表單資料載入() : ComboBox2.SelectedIndex = 1
        '----------系統登入權限執行---------------------------------------------------------------------------------------------------------------------
        Me.資料庫系統管理ToolStripMenuItem.Enabled = CC(0) : Me.系統使用者管理ToolStripMenuItem.Enabled = CC(1) : Me.系統通用變數管理ToolStripMenuItem.Enabled = CC(2)
        Me.系統編碼規則1ToolStripMenuItem.Enabled = CC(3) : Me.系統執行檔版本管理ToolStripMenuItem.Enabled = CC(4) : Me.FTP資料夾管理ToolStripMenuItem.Enabled = CC(5)
        Me.簽名檔管理ToolStripMenuItem.Enabled = CC(33)

        '----------人事管理權限執行---------------------------------------------------------------------------------------------------------------------
        Me.人事系統管理ToolStripMenuItem.Enabled = CC(6) : Me.員工資料表ToolStripMenuItem.Enabled = CC(7) : Me.人員ID卡系統配置設定ToolStripMenuItem.Enabled = CC(8)

        '----------人事管理權限執行---------------------------------------------------------------------------------------------------------------------
        Me.總務系統管理ToolStripMenuItem.Enabled = CC(36) : Me.車輛保養紀錄表ToolStripMenuItem.Enabled = CC(37)

        '----------業務管理權限執行---------------------------------------------------------------------------------------------------------------------
        Me.業務系統管理ToolStripMenuItem.Enabled = CC(9) : Me.客戶資料管理ToolStripMenuItem.Enabled = CC(10) : Me.銷售控制表ToolStripMenuItem.Enabled = CC(17)
        Me.出貨單申請ToolStripMenuItem.Enabled = CC(17) : Me.出貨確認ToolStripMenuItem.Enabled = CC(17) : Me.訂單管理控制表ToolStripMenuItem.Enabled = CC(38)
        Me.訂單採購需求申請ToolStripMenuItem.Enabled = CC(39) : Me.訂單出貨控制表ToolStripMenuItem.Enabled = CC(40) : Me.零售客戶記錄表ToolStripMenuItem.Enabled = CC(42)

        '----------生產管理權限執行---------------------------------------------------------------------------------------------------------------------
        Me.生產系統管理ToolStripMenuItem.Enabled = CC(15) : Me.生產控制表ToolStripMenuItem.Enabled = CC(20) : Me.生產確認ToolStripMenuItem.Enabled = CC(21)
        Me.生產入庫ToolStripMenuItem.Enabled = CC(22)

        '----------採購管理權限執行---------------------------------------------------------------------------------------------------------------------
        Me.採購系統管理ToolStripMenuItem.Enabled = CC(11) : Me.供應商資料管理ToolStripMenuItem.Enabled = CC(12) : Me.採購控制表ToolStripMenuItem.Enabled = CC(23)
        Me.採購單申請ToolStripMenuItem.Enabled = CC(24) : Me.訂單採購需求申請ToolStripMenuItem1.Enabled = CC(39)

        '----------倉儲管理權限執行---------------------------------------------------------------------------------------------------------------------
        Me.倉儲系統管理ToolStripMenuItem.Enabled = CC(13) : Me.倉儲控制表ToolStripMenuItem.Enabled = CC(25) : Me.倉儲入庫驗收ToolStripMenuItem.Enabled = CC(26)
        Me.物料資料庫ToolStripMenuItem.Enabled = CC(14) : Me.倉儲分區控制表ToolStripMenuItem.Enabled = CC(34) : Me.倉儲庫存清單ToolStripMenuItem.Enabled = CC(41)
        Me.盤盈盤損控制表ToolStripMenuItem.Enabled = CC(43) : Me.盤盈坢損確認倉儲調整ToolStripMenuItem.Enabled = CC(44)

        '----------財務管理權限執行---------------------------------------------------------------------------------------------------------------------
        Me.財務系統管理ToolStripMenuItem.Enabled = CC(16) : Me.營運費用支付申請ToolStripMenuItem.Enabled = CC(27) : Me.營運費用支付審核ToolStripMenuItem.Enabled = CC(29)
        Me.營運費用支付單一覽表ToolStripMenuItem.Enabled = CC(30) : Me.營運成本收支單對帳表ToolStripMenuItem.Enabled = CC(31) : Me.營運成本收支決算表ToolStripMenuItem.Enabled = CC(32)
        Me.營運狀態彙總檢視表ToolStripMenuItem.Enabled = CC(45)
    End Sub
    Private Sub MDIParentbreak_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        LoginForm1.Close()
    End Sub
    Private Sub MDIParentbreak_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        計算機.Show() : 計算機.BringToFront()
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        PA = ComboBox2.Text : SQL_公司基本資料宣告()
        If dr.Read() Then : 公司編號 = dr("公司編號") : 公司電話 = dr("電話") : 公司統編 = dr("統編") : 公司地址 = dr("地址") : End If : conn.Close() : PA = ""
    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

    End Sub
    Private Sub 系統編碼規則1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統編碼規則1ToolStripMenuItem.Click
        PA = "" : 系統編碼規則_1.Show() : 系統編碼規則_1.BringToFront()
    End Sub
    Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理ToolStripMenuItem.Click
        PA = "" : 系統執行檔版本管理.Show() : 系統執行檔版本管理.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 人員ID卡系統配置設定ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定ToolStripMenuItem.Click
        PA = "" : 員工ID卡系統配置設定.ShowDialog()
    End Sub
    Private Sub 員工資料表ToolStripMenuItem_Click_1(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 營運成本收支單對帳表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 生產確認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 = "" : 倉儲分區控制表.ShowDialog()
    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 倉儲庫存清單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 維修單申請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 銷售退貨確認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
End Class