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