Option Strict Off Public Class MAOJI_ERP_SYS Dim ZX1, ZY1, ZX2(50), ZY2(50), SX1(50), SY1(50), AX2(50), AY2(50), XX1(50), XY1(50), QX2(10), QY2(10), WX1(10), WY1(10) As Double Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click 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_公司選擇清單() 公司名稱_cb.Items.Clear() : While (dr.Read()) : 公司名稱_cb.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 ZX1 = 流程空間_p.Size.Width : ZY1 = 流程空間_p.Size.Height ZX2(0) = 訂單管理控制表_bt.Size.Width : ZY2(0) = 訂單管理控制表_bt.Size.Height : SX1(0) = 訂單管理控制表_bt.Location.X : SY1(0) = 訂單管理控制表_bt.Location.Y ZX2(1) = 銷售控制表_bt.Size.Width : ZY2(1) = 銷售控制表_bt.Size.Height : SX1(1) = 銷售控制表_bt.Location.X : SY1(1) = 銷售控制表_bt.Location.Y ZX2(2) = 出貨單申請_bt.Size.Width : ZY2(2) = 出貨單申請_bt.Size.Height : SX1(2) = 出貨單申請_bt.Location.X : SY1(2) = 出貨單申請_bt.Location.Y ZX2(3) = 訂單出貨控制表_bt.Size.Width : ZY2(3) = 訂單出貨控制表_bt.Size.Height : SX1(3) = 訂單出貨控制表_bt.Location.X : SY1(3) = 訂單出貨控制表_bt.Location.Y ZX2(4) = 客戶資料管理_bt.Size.Width : ZY2(4) = 客戶資料管理_bt.Size.Height : SX1(4) = 客戶資料管理_bt.Location.X : SY1(4) = 客戶資料管理_bt.Location.Y ZX2(5) = 訂單採購需求申請_bt.Size.Width : ZY2(5) = 訂單採購需求申請_bt.Size.Height : SX1(5) = 訂單採購需求申請_bt.Location.X : SY1(5) = 訂單採購需求申請_bt.Location.Y ZX2(6) = 出貨確認_bt.Size.Width : ZY2(6) = 出貨確認_bt.Size.Height : SX1(6) = 出貨確認_bt.Location.X : SY1(6) = 出貨確認_bt.Location.Y ZX2(7) = 銷售退貨確認_bt.Size.Width : ZY2(7) = 銷售退貨確認_bt.Size.Height : SX1(7) = 銷售退貨確認_bt.Location.X : SY1(7) = 銷售退貨確認_bt.Location.Y ZX2(8) = 零售客戶記錄表_bt.Size.Width : ZY2(8) = 零售客戶記錄表_bt.Size.Height : SX1(8) = 零售客戶記錄表_bt.Location.X : SY1(8) = 零售客戶記錄表_bt.Location.Y ZX2(9) = 維修單申請_bt.Size.Width : ZY2(9) = 維修單申請_bt.Size.Height : SX1(9) = 維修單申請_bt.Location.X : SY1(9) = 維修單申請_bt.Location.Y ZX2(10) = 維修單出庫確認_bt.Size.Width : ZY2(10) = 維修單出庫確認_bt.Size.Height : SX1(10) = 維修單出庫確認_bt.Location.X : SY1(10) = 維修單出庫確認_bt.Location.Y ZX2(11) = 銷售退貨申請_bt.Size.Width : ZY2(11) = 銷售退貨申請_bt.Size.Height : SX1(11) = 銷售退貨申請_bt.Location.X : SY1(11) = 銷售退貨申請_bt.Location.Y ZX2(12) = 銷售退貨清單_bt.Size.Width : ZY2(12) = 銷售退貨清單_bt.Size.Height : SX1(12) = 銷售退貨清單_bt.Location.X : SY1(12) = 銷售退貨清單_bt.Location.Y ZX2(13) = Button14.Size.Width : ZY2(13) = Button14.Size.Height : SX1(13) = Button14.Location.X : SY1(13) = Button14.Location.Y ZX2(14) = 倉儲控制表_bt.Size.Width : ZY2(14) = 倉儲控制表_bt.Size.Height : SX1(14) = 倉儲控制表_bt.Location.X : SY1(14) = 倉儲控制表_bt.Location.Y ZX2(15) = 物料資料庫_bt.Size.Width : ZY2(15) = 物料資料庫_bt.Size.Height : SX1(15) = 物料資料庫_bt.Location.X : SY1(15) = 物料資料庫_bt.Location.Y ZX2(16) = 倉儲分區控制表_bt.Size.Width : ZY2(16) = 倉儲分區控制表_bt.Size.Height : SX1(16) = 倉儲分區控制表_bt.Location.X : SY1(16) = 倉儲分區控制表_bt.Location.Y ZX2(17) = 倉儲庫存清單_bt.Size.Width : ZY2(17) = 倉儲庫存清單_bt.Size.Height : SX1(17) = 倉儲庫存清單_bt.Location.X : SY1(17) = 倉儲庫存清單_bt.Location.Y ZX2(18) = 盤盈盤損控制表_bt.Size.Width : ZY2(18) = 盤盈盤損控制表_bt.Size.Height : SX1(18) = 盤盈盤損控制表_bt.Location.X : SY1(18) = 盤盈盤損控制表_bt.Location.Y ZX2(19) = 倉儲入庫驗收_bt.Size.Width : ZY2(19) = 倉儲入庫驗收_bt.Size.Height : SX1(19) = 倉儲入庫驗收_bt.Location.X : SY1(19) = 倉儲入庫驗收_bt.Location.Y ZX2(20) = 採購退貨審核_bt.Size.Width : ZY2(20) = 採購退貨審核_bt.Size.Height : SX1(20) = 採購退貨審核_bt.Location.X : SY1(20) = 採購退貨審核_bt.Location.Y ZX2(21) = 採購退貨清單_bt.Size.Width : ZY2(21) = 採購退貨清單_bt.Size.Height : SX1(21) = 採購退貨清單_bt.Location.X : SY1(21) = 採購退貨清單_bt.Location.Y ZX2(22) = 採購需求申請_bt.Size.Width : ZY2(22) = 採購需求申請_bt.Size.Height : SX1(22) = 採購需求申請_bt.Location.X : SY1(22) = 採購需求申請_bt.Location.Y ZX2(23) = 供應商資料管理_bt.Size.Width : ZY2(23) = 供應商資料管理_bt.Size.Height : SX1(23) = 供應商資料管理_bt.Location.X : SY1(23) = 供應商資料管理_bt.Location.Y ZX2(24) = 採購控制表_bt.Size.Width : ZY2(24) = 採購控制表_bt.Size.Height : SX1(24) = 採購控制表_bt.Location.X : SY1(24) = 採購控制表_bt.Location.Y ZX2(25) = 採購退貨申請_bt.Size.Width : ZY2(25) = 採購退貨申請_bt.Size.Height : SX1(25) = 採購退貨申請_bt.Location.X : SY1(25) = 採購退貨申請_bt.Location.Y ZX2(26) = 採購單申請_bt.Size.Width : ZY2(26) = 採購單申請_bt.Size.Height : SX1(26) = 採購單申請_bt.Location.X : SY1(26) = 採購單申請_bt.Location.Y ZX2(27) = 生產控制表_bt.Size.Width : ZY2(27) = 生產控制表_bt.Size.Height : SX1(27) = 生產控制表_bt.Location.X : SY1(27) = 生產控制表_bt.Location.Y ZX2(28) = 生產領料_bt.Size.Width : ZY2(28) = 生產領料_bt.Size.Height : SX1(28) = 生產領料_bt.Location.X : SY1(28) = 生產領料_bt.Location.Y ZX2(29) = 完工入庫_bt.Size.Width : ZY2(29) = 完工入庫_bt.Size.Height : SX1(29) = 完工入庫_bt.Location.X : SY1(29) = 完工入庫_bt.Location.Y ZX2(30) = 員工資料表_bt.Size.Width : ZY2(30) = 員工資料表_bt.Size.Height : SX1(30) = 員工資料表_bt.Location.X : SY1(30) = 員工資料表_bt.Location.Y ZX2(31) = ID卡配置設定_bt.Size.Width : ZY2(31) = ID卡配置設定_bt.Size.Height : SX1(31) = ID卡配置設定_bt.Location.X : SY1(31) = ID卡配置設定_bt.Location.Y ZX2(32) = 支票收支單申請_bt.Size.Width : ZY2(32) = 支票收支單申請_bt.Size.Height : SX1(32) = 支票收支單申請_bt.Location.X : SY1(32) = 支票收支單申請_bt.Location.Y ZX2(33) = 現金收支單申請_bt.Size.Width : ZY2(33) = 現金收支單申請_bt.Size.Height : SX1(33) = 現金收支單申請_bt.Location.X : SY1(33) = 現金收支單申請_bt.Location.Y ZX2(34) = 票務控制表_bt.Size.Width : ZY2(34) = 票務控制表_bt.Size.Height : SX1(34) = 票務控制表_bt.Location.X : SY1(34) = 票務控制表_bt.Location.Y ZX2(35) = 財務收支單審核_bt.Size.Width : ZY2(35) = 財務收支單審核_bt.Size.Height : SX1(35) = 財務收支單審核_bt.Location.X : SY1(35) = 財務收支單審核_bt.Location.Y ZX2(36) = 收支單一覽表_bt.Size.Width : ZY2(36) = 收支單一覽表_bt.Size.Height : SX1(36) = 收支單一覽表_bt.Location.X : SY1(36) = 收支單一覽表_bt.Location.Y ZX2(37) = 收支單對帳表_bt.Size.Width : ZY2(37) = 收支單對帳表_bt.Size.Height : SX1(37) = 收支單對帳表_bt.Location.X : SY1(37) = 收支單對帳表_bt.Location.Y ZX2(38) = 財務收支決算表_bt.Size.Width : ZY2(38) = 財務收支決算表_bt.Size.Height : SX1(38) = 財務收支決算表_bt.Location.X : SY1(38) = 財務收支決算表_bt.Location.Y ZX2(39) = 司機佣金計算_bt.Size.Width : ZY2(39) = 司機佣金計算_bt.Size.Height : SX1(39) = 司機佣金計算_bt.Location.X : SY1(39) = 司機佣金計算_bt.Location.Y ZX2(40) = 業務佣金計算_bt.Size.Width : ZY2(40) = 業務佣金計算_bt.Size.Height : SX1(40) = 業務佣金計算_bt.Location.X : SY1(40) = 業務佣金計算_bt.Location.Y ZX2(41) = 應付賬款控制表_bt.Size.Width : ZY2(41) = 應付賬款控制表_bt.Size.Height : SX1(41) = 應付賬款控制表_bt.Location.X : SY1(41) = 應付賬款控制表_bt.Location.Y ZX2(42) = 營運狀態檢視表_bt.Size.Width : ZY2(42) = 營運狀態檢視表_bt.Size.Height : SX1(42) = 營運狀態檢視表_bt.Location.X : SY1(42) = 營運狀態檢視表_bt.Location.Y ZX2(43) = 應收帳款控制表_bt.Size.Width : ZY2(43) = 應收帳款控制表_bt.Size.Height : SX1(43) = 應收帳款控制表_bt.Location.X : SY1(43) = 應收帳款控制表_bt.Location.Y ZX2(44) = 車輛保養紀錄表_bt.Size.Width : ZY2(44) = 車輛保養紀錄表_bt.Size.Height : SX1(44) = 車輛保養紀錄表_bt.Location.X : SY1(44) = 車輛保養紀錄表_bt.Location.Y ZX2(45) = 系統使用者管理_bt.Size.Width : ZY2(45) = 系統使用者管理_bt.Size.Height : SX1(45) = 系統使用者管理_bt.Location.X : SY1(45) = 系統使用者管理_bt.Location.Y ZX2(46) = 系統通用變數管理_bt.Size.Width : ZY2(46) = 系統通用變數管理_bt.Size.Height : SX1(46) = 系統通用變數管理_bt.Location.X : SY1(46) = 系統通用變數管理_bt.Location.Y ZX2(47) = 系統編碼規則1_bt.Size.Width : ZY2(47) = 系統編碼規則1_bt.Size.Height : SX1(47) = 系統編碼規則1_bt.Location.X : SY1(47) = 系統編碼規則1_bt.Location.Y ZX2(48) = 系統執行檔版本管理_bt.Size.Width : ZY2(48) = 系統執行檔版本管理_bt.Size.Height : SX1(48) = 系統執行檔版本管理_bt.Location.X : SY1(48) = 系統執行檔版本管理_bt.Location.Y ZX2(49) = 簽名檔管理_bt.Size.Width : ZY2(49) = 簽名檔管理_bt.Size.Height : SX1(49) = 簽名檔管理_bt.Location.X : SY1(49) = 簽名檔管理_bt.Location.Y ZX2(50) = 盤盈盤損審核_bt.Size.Width : ZY2(50) = 盤盈盤損審核_bt.Size.Height : SX1(50) = 盤盈盤損審核_bt.Location.X : SY1(50) = 盤盈盤損審核_bt.Location.Y AX2(0) = 訂單管理控制表_pb.Size.Width : AY2(0) = 訂單管理控制表_pb.Size.Height : XX1(0) = 訂單管理控制表_pb.Location.X : XY1(0) = 訂單管理控制表_pb.Location.Y AX2(1) = 銷售控制表_pb.Size.Width : AY2(1) = 銷售控制表_pb.Size.Height : XX1(1) = 銷售控制表_pb.Location.X : XY1(1) = 銷售控制表_pb.Location.Y AX2(2) = 出貨單申請_pb.Size.Width : AY2(2) = 出貨單申請_pb.Size.Height : XX1(2) = 出貨單申請_pb.Location.X : XY1(2) = 出貨單申請_pb.Location.Y AX2(3) = 訂單出貨控制表_pb.Size.Width : AY2(3) = 訂單出貨控制表_pb.Size.Height : XX1(3) = 訂單出貨控制表_pb.Location.X : XY1(3) = 訂單出貨控制表_pb.Location.Y AX2(4) = 客戶資料管理_pb.Size.Width : AY2(4) = 客戶資料管理_pb.Size.Height : XX1(4) = 客戶資料管理_pb.Location.X : XY1(4) = 客戶資料管理_pb.Location.Y AX2(5) = 訂單採購需求申請_pb.Size.Width : AY2(5) = 訂單採購需求申請_pb.Size.Height : XX1(5) = 訂單採購需求申請_pb.Location.X : XY1(5) = 訂單採購需求申請_pb.Location.Y AX2(6) = 出貨確認_pb.Size.Width : AY2(6) = 出貨確認_pb.Size.Height : XX1(6) = 出貨確認_pb.Location.X : XY1(6) = 出貨確認_pb.Location.Y AX2(7) = 銷售退貨確認_pb.Size.Width : AY2(7) = 銷售退貨確認_pb.Size.Height : XX1(7) = 銷售退貨確認_pb.Location.X : XY1(7) = 銷售退貨確認_pb.Location.Y AX2(8) = 零售客戶記錄表_pb.Size.Width : AY2(8) = 零售客戶記錄表_pb.Size.Height : XX1(8) = 零售客戶記錄表_pb.Location.X : XY1(8) = 零售客戶記錄表_pb.Location.Y AX2(9) = 維修單申請_pb.Size.Width : AY2(9) = 維修單申請_pb.Size.Height : XX1(9) = 維修單申請_pb.Location.X : XY1(9) = 維修單申請_pb.Location.Y AX2(10) = 維修單出庫確認_pb.Size.Width : AY2(10) = 維修單出庫確認_pb.Size.Height : XX1(10) = 維修單出庫確認_pb.Location.X : XY1(10) = 維修單出庫確認_pb.Location.Y AX2(11) = 銷售退貨申請_pb.Size.Width : AY2(11) = 銷售退貨申請_pb.Size.Height : XX1(11) = 銷售退貨申請_pb.Location.X : XY1(11) = 銷售退貨申請_pb.Location.Y AX2(12) = 銷售退貨清單_pb.Size.Width : AY2(12) = 銷售退貨清單_pb.Size.Height : XX1(12) = 銷售退貨清單_pb.Location.X : XY1(12) = 銷售退貨清單_pb.Location.Y AX2(13) = PictureBox14.Size.Width : AY2(13) = PictureBox14.Size.Height : XX1(13) = PictureBox14.Location.X : XY1(13) = PictureBox14.Location.Y AX2(14) = 倉儲控制表_pb.Size.Width : AY2(14) = 倉儲控制表_pb.Size.Height : XX1(14) = 倉儲控制表_pb.Location.X : XY1(14) = 倉儲控制表_pb.Location.Y AX2(15) = 物料資料庫_pb.Size.Width : AY2(15) = 物料資料庫_pb.Size.Height : XX1(15) = 物料資料庫_pb.Location.X : XY1(15) = 物料資料庫_pb.Location.Y AX2(16) = 倉儲分區控制表_pb.Size.Width : AY2(16) = 倉儲分區控制表_pb.Size.Height : XX1(16) = 倉儲分區控制表_pb.Location.X : XY1(16) = 倉儲分區控制表_pb.Location.Y AX2(17) = 倉儲庫存清單_pb.Size.Width : AY2(17) = 倉儲庫存清單_pb.Size.Height : XX1(17) = 倉儲庫存清單_pb.Location.X : XY1(17) = 倉儲庫存清單_pb.Location.Y AX2(18) = 盤盈盤損控制表_pb.Size.Width : AY2(18) = 盤盈盤損控制表_pb.Size.Height : XX1(18) = 盤盈盤損控制表_pb.Location.X : XY1(18) = 盤盈盤損控制表_pb.Location.Y AX2(19) = 倉儲入庫驗收_pb.Size.Width : AY2(19) = 倉儲入庫驗收_pb.Size.Height : XX1(19) = 倉儲入庫驗收_pb.Location.X : XY1(19) = 倉儲入庫驗收_pb.Location.Y AX2(20) = 採購退貨審核_pb.Size.Width : AY2(20) = 採購退貨審核_pb.Size.Height : XX1(20) = 採購退貨審核_pb.Location.X : XY1(20) = 採購退貨審核_pb.Location.Y AX2(21) = 採購退貨清單_pb.Size.Width : AY2(21) = 採購退貨清單_pb.Size.Height : XX1(21) = 採購退貨清單_pb.Location.X : XY1(21) = 採購退貨清單_pb.Location.Y AX2(22) = 採購需求申請_pb.Size.Width : AY2(22) = 採購需求申請_pb.Size.Height : XX1(22) = 採購需求申請_pb.Location.X : XY1(22) = 採購需求申請_pb.Location.Y AX2(23) = 供應商資料管理_pb.Size.Width : AY2(23) = 供應商資料管理_pb.Size.Height : XX1(23) = 供應商資料管理_pb.Location.X : XY1(23) = 供應商資料管理_pb.Location.Y AX2(24) = 採購控制表_pb.Size.Width : AY2(24) = 採購控制表_pb.Size.Height : XX1(24) = 採購控制表_pb.Location.X : XY1(24) = 採購控制表_pb.Location.Y AX2(25) = 採購退貨申請_pb.Size.Width : AY2(25) = 採購退貨申請_pb.Size.Height : XX1(25) = 採購退貨申請_pb.Location.X : XY1(25) = 採購退貨申請_pb.Location.Y AX2(26) = 採購單申請_pb.Size.Width : AY2(26) = 採購單申請_pb.Size.Height : XX1(26) = 採購單申請_pb.Location.X : XY1(26) = 採購單申請_pb.Location.Y AX2(27) = 生產控制表_pb.Size.Width : AY2(27) = 生產控制表_pb.Size.Height : XX1(27) = 生產控制表_pb.Location.X : XY1(27) = 生產控制表_pb.Location.Y AX2(28) = 生產領料_pb.Size.Width : AY2(28) = 生產領料_pb.Size.Height : XX1(28) = 生產領料_pb.Location.X : XY1(28) = 生產領料_pb.Location.Y AX2(29) = 完工入庫_pb.Size.Width : AY2(29) = 完工入庫_pb.Size.Height : XX1(29) = 完工入庫_pb.Location.X : XY1(29) = 完工入庫_pb.Location.Y AX2(30) = 員工資料表_pb.Size.Width : AY2(30) = 員工資料表_pb.Size.Height : XX1(30) = 員工資料表_pb.Location.X : XY1(30) = 員工資料表_pb.Location.Y AX2(31) = ID卡配置設定_pb.Size.Width : AY2(31) = ID卡配置設定_pb.Size.Height : XX1(31) = ID卡配置設定_pb.Location.X : XY1(31) = ID卡配置設定_pb.Location.Y AX2(32) = 支票收支單申請_pb.Size.Width : AY2(32) = 支票收支單申請_pb.Size.Height : XX1(32) = 支票收支單申請_pb.Location.X : XY1(32) = 支票收支單申請_pb.Location.Y AX2(33) = 現金收支單申請_pb.Size.Width : AY2(33) = 現金收支單申請_pb.Size.Height : XX1(33) = 現金收支單申請_pb.Location.X : XY1(33) = 現金收支單申請_pb.Location.Y AX2(34) = 票務控制表_pb.Size.Width : AY2(34) = 票務控制表_pb.Size.Height : XX1(34) = 票務控制表_pb.Location.X : XY1(34) = 票務控制表_pb.Location.Y AX2(35) = 財務收支單審核_pb.Size.Width : AY2(35) = 財務收支單審核_pb.Size.Height : XX1(35) = 財務收支單審核_pb.Location.X : XY1(35) = 財務收支單審核_pb.Location.Y AX2(36) = 財務收支單一覽表_pb.Size.Width : AY2(36) = 財務收支單一覽表_pb.Size.Height : XX1(36) = 財務收支單一覽表_pb.Location.X : XY1(36) = 財務收支單一覽表_pb.Location.Y AX2(37) = 收支單對帳表_pb.Size.Width : AY2(37) = 收支單對帳表_pb.Size.Height : XX1(37) = 收支單對帳表_pb.Location.X : XY1(37) = 收支單對帳表_pb.Location.Y AX2(38) = 財務收支決算表_pb.Size.Width : AY2(38) = 財務收支決算表_pb.Size.Height : XX1(38) = 財務收支決算表_pb.Location.X : XY1(38) = 財務收支決算表_pb.Location.Y AX2(39) = 司機佣金計算_pb.Size.Width : AY2(39) = 司機佣金計算_pb.Size.Height : XX1(39) = 司機佣金計算_pb.Location.X : XY1(39) = 司機佣金計算_pb.Location.Y AX2(40) = 業務佣金計算_pb.Size.Width : AY2(40) = 業務佣金計算_pb.Size.Height : XX1(40) = 業務佣金計算_pb.Location.X : XY1(40) = 業務佣金計算_pb.Location.Y AX2(41) = 應付賬款控制表_pb.Size.Width : AY2(41) = 應付賬款控制表_pb.Size.Height : XX1(41) = 應付賬款控制表_pb.Location.X : XY1(41) = 應付賬款控制表_pb.Location.Y AX2(42) = 營運狀態檢視表_pb.Size.Width : AY2(42) = 營運狀態檢視表_pb.Size.Height : XX1(42) = 營運狀態檢視表_pb.Location.X : XY1(42) = 營運狀態檢視表_pb.Location.Y AX2(43) = 應收帳款控制表_pb.Size.Width : AY2(43) = 應收帳款控制表_pb.Size.Height : XX1(43) = 應收帳款控制表_pb.Location.X : XY1(43) = 應收帳款控制表_pb.Location.Y AX2(44) = 車輛保養紀錄表_pb.Size.Width : AY2(44) = 車輛保養紀錄表_pb.Size.Height : XX1(44) = 車輛保養紀錄表_pb.Location.X : XY1(44) = 車輛保養紀錄表_pb.Location.Y AX2(45) = 系統使用者管理_pb.Size.Width : AY2(45) = 系統使用者管理_pb.Size.Height : XX1(45) = 系統使用者管理_pb.Location.X : XY1(45) = 系統使用者管理_pb.Location.Y AX2(46) = 系統通用變數管理_pb.Size.Width : AY2(46) = 系統通用變數管理_pb.Size.Height : XX1(46) = 系統通用變數管理_pb.Location.X : XY1(46) = 系統通用變數管理_pb.Location.Y AX2(47) = 系統編碼規則1_pb.Size.Width : AY2(47) = 系統編碼規則1_pb.Size.Height : XX1(47) = 系統編碼規則1_pb.Location.X : XY1(47) = 系統編碼規則1_pb.Location.Y AX2(48) = 系統執行檔版本管理_pb.Size.Width : AY2(48) = 系統執行檔版本管理_pb.Size.Height : XX1(48) = 系統執行檔版本管理_pb.Location.X : XY1(48) = 系統執行檔版本管理_pb.Location.Y AX2(49) = 簽名檔管理_pb.Size.Width : AY2(49) = 簽名檔管理_pb.Size.Height : XX1(49) = 簽名檔管理_pb.Location.X : XY1(49) = 簽名檔管理_pb.Location.Y AX2(50) = 盤盈盤損審核_pb.Size.Width : AY2(50) = 盤盈盤損審核_pb.Size.Height : XX1(50) = 盤盈盤損審核_pb.Location.X : XY1(50) = 盤盈盤損審核_pb.Location.Y QX2(0) = Label1.Size.Width : QY2(0) = Label1.Size.Height : WX1(0) = Label1.Location.X : WY1(0) = Label1.Location.Y QX2(1) = Label2.Size.Width : QY2(1) = Label2.Size.Height : WX1(1) = Label2.Location.X : WY1(1) = Label2.Location.Y QX2(2) = Label3.Size.Width : QY2(2) = Label3.Size.Height : WX1(2) = Label3.Location.X : WY1(2) = Label3.Location.Y QX2(3) = Label4.Size.Width : QY2(3) = Label4.Size.Height : WX1(3) = Label4.Location.X : WY1(3) = Label4.Location.Y QX2(4) = Label5.Size.Width : QY2(4) = Label5.Size.Height : WX1(4) = Label5.Location.X : WY1(4) = Label5.Location.Y QX2(5) = Label6.Size.Width : QY2(5) = Label6.Size.Height : WX1(5) = Label6.Location.X : WY1(5) = Label6.Location.Y QX2(6) = Label7.Size.Width : QY2(6) = Label7.Size.Height : WX1(6) = Label7.Location.X : WY1(6) = Label7.Location.Y QX2(7) = Label8.Size.Width : QY2(7) = Label8.Size.Height : WX1(7) = Label8.Location.X : WY1(7) = Label8.Location.Y QX2(8) = Label9.Size.Width : QY2(8) = Label9.Size.Height : WX1(8) = Label9.Location.X : WY1(8) = Label9.Location.Y QX2(9) = Label10.Size.Width : QY2(9) = Label10.Size.Height : WX1(9) = Label10.Location.X : WY1(9) = Label10.Location.Y QX2(10) = Label11.Size.Width : QY2(10) = Label11.Size.Height : WX1(10) = Label11.Location.X : WY1(10) = Label11.Location.Y '----------系統登入時抬頭資訊顯示--------------------------------------------------------------------------------------------------------------- Me.Text = Me.Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本 ComboBox1下拉表單資料載入() : 公司名稱_cb.SelectedIndex = 1 NewWindowToolStripMenuItem.Visible = False '----------系統登入權限執行--------------------------------------------------------------------------------------------------------------------- 資料庫系統管理_tsm.Enabled = CC(0) 系統使用者管理_tsm.Enabled = CC(1) : 系統使用者管理_bt.Enabled = CC(1) : 系統通用變數管理_tsm.Enabled = CC(2) : 系統通用變數管理_bt.Enabled = CC(2) 系統編碼規則1_tsm.Enabled = CC(3) : 系統編碼規則1_bt.Enabled = CC(3) : 系統執行檔版本管理_tsm.Enabled = CC(4) : 系統執行檔版本管理_bt.Enabled = CC(4) 簽名檔管理_tsm.Enabled = CC(33) : 簽名檔管理_bt.Enabled = CC(33) '----------人事管理權限執行--------------------------------------------------------------------------------------------------------------------- 人事系統管理_tsm.Enabled = CC(6) 員工資料表_tsm.Enabled = CC(7) : 員工資料表_bt.Enabled = CC(7) : ID卡配置設定_tsm.Enabled = CC(8) : ID卡配置設定_bt.Enabled = CC(8) '----------人事管理權限執行--------------------------------------------------------------------------------------------------------------------- 總務系統管理_tsm.Enabled = CC(36) 車輛保養紀錄表_tsm.Enabled = CC(37) : 車輛保養紀錄表_bt.Enabled = CC(37) '----------業務管理權限執行--------------------------------------------------------------------------------------------------------------------- 業務系統管理_tsm.Enabled = CC(9) 客戶資料管理_tsm.Enabled = CC(10) : 客戶資料管理_bt.Enabled = CC(10) : 銷售控制表_tsm.Enabled = CC(17) : 銷售控制表_bt.Enabled = CC(17) 出貨單申請_tsm.Enabled = CC(17) : 出貨單申請_bt.Enabled = CC(17) : 出貨確認_tsm.Enabled = CC(17) : 出貨確認_bt.Enabled = CC(17) 訂單管理控制表_tsm.Enabled = CC(38) : 訂單管理控制表_bt.Enabled = CC(38) : 訂單採購需求申請_tsm.Enabled = CC(39) : 訂單採購需求申請_bt.Enabled = CC(39) 訂單出貨控制表_tsm.Enabled = CC(40) : 訂單出貨控制表_bt.Enabled = CC(40) : 零售客戶記錄表_tsm.Enabled = CC(42) : 零售客戶記錄表_bt.Enabled = CC(42) 維修單申請_tsm.Enabled = CC(48) : 維修單申請_bt.Enabled = CC(48) : 維修單出庫確認_tsm.Enabled = CC(49) : 維修單出庫確認_bt.Enabled = CC(49) 銷售退貨申請_tsm.Enabled = CC(53) : 銷售退貨申請_bt.Enabled = CC(53) : 銷售退貨清單_tsm.Enabled = CC(54) : 銷售退貨清單_bt.Enabled = CC(54) 銷售退貨確認_tsm.Enabled = CC(55) : 銷售退貨確認_bt.Enabled = CC(55) '----------生產管理權限執行--------------------------------------------------------------------------------------------------------------------- 生產系統管理_tsm.Enabled = CC(15) 生產控制表_tsm.Enabled = CC(20) : 生產控制表_bt.Enabled = CC(20) : 生產領料_tsm.Enabled = CC(21) : 生產領料_bt.Enabled = CC(21) 完工入庫_tsm.Enabled = CC(22) : 完工入庫_bt.Enabled = CC(22) '----------採購管理權限執行--------------------------------------------------------------------------------------------------------------------- 採購系統管理_tsm.Enabled = CC(11) 供應商資料管理_tsm.Enabled = CC(12) : 供應商資料管理_bt.Enabled = CC(12) : 採購控制表_tsm.Enabled = CC(23) : 採購控制表_bt.Enabled = CC(23) 採購單申請_tsm.Enabled = CC(24) : 採購單申請_bt.Enabled = CC(24) : 採購需求申請_tsm.Enabled = CC(39) : 採購需求申請_bt.Enabled = CC(39) 採購退貨申請_tsm.Enabled = CC(50) : 採購退貨申請_bt.Enabled = CC(50) : 採購退貨清單_tsm.Enabled = CC(51) : 採購退貨清單_bt.Enabled = CC(51) 採購退貨審核_tsm.Enabled = CC(52) : 採購退貨審核_bt.Enabled = CC(52) '----------倉儲管理權限執行--------------------------------------------------------------------------------------------------------------------- 倉儲系統管理_tsm.Enabled = CC(13) 倉儲控制表_tsm.Enabled = CC(25) : 倉儲控制表_bt.Enabled = CC(25) : 倉儲入庫驗收_tsm.Enabled = CC(26) : 倉儲入庫驗收_bt.Enabled = CC(26) 物料資料庫_tsm.Enabled = CC(14) : 物料資料庫_bt.Enabled = CC(14) : 倉儲分區控制表_tsm.Enabled = CC(34) : 倉儲分區控制表_bt.Enabled = CC(34) 倉儲庫存清單_tsm.Enabled = CC(41) : 倉儲庫存清單_bt.Enabled = CC(41) : 盤盈盤損控制表_tsm.Enabled = CC(43) : 盤盈盤損控制表_bt.Enabled = CC(43) 盤盈盤損審核_tsm.Enabled = CC(44) : 盤盈盤損審核_bt.Enabled = CC(44) '----------財務管理權限執行--------------------------------------------------------------------------------------------------------------------- 財務系統管理_tsm.Enabled = CC(16) 現金收支單申請_tsm.Enabled = CC(27) : 現金收支單申請_bt.Enabled = CC(27) : 財務收支單審核_tsm.Enabled = CC(29) : 財務收支單審核_bt.Enabled = CC(29) 收支單一覽表_tsm.Enabled = CC(30) : 收支單一覽表_bt.Enabled = CC(30) : 收支單對帳表_tsm.Enabled = CC(31) : 收支單對帳表_bt.Enabled = CC(31) 財務收支決算表_tsm.Enabled = CC(32) : 財務收支決算表_bt.Enabled = CC(32) : 營運狀態檢視表_tsm.Enabled = CC(45) : 營運狀態檢視表_bt.Enabled = CC(45) 業務佣金計算_tsm.Enabled = CC(46) : 業務佣金計算_bt.Enabled = CC(46) : 司機佣金計算_tsm.Enabled = CC(47) : 司機佣金計算_bt.Enabled = CC(47) 應收帳款控制表_tsm.Enabled = CC(56) : 應收帳款控制表_bt.Enabled = CC(56) : 應付賬款控制表_tsm.Enabled = CC(57) : 應付賬款控制表_bt.Enabled = CC(57) 支票收支單申請_tsm.Enabled = CC(58) : 支票收支單申請_bt.Enabled = CC(58) : 票務控制表_tsm.Enabled = CC(59) : 票務控制表_bt.Enabled = CC(59) End Sub Private Sub MaoOrange_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown If g_conn_type = "測試伺服器" Then MsgBox("請注意，你現在登入的是測試的伺服器，如果您多次嘗試都無法登入 [雲端伺服器] ，請聯繫系統管理員為您排查!!") End If 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 If ZX1 = 0 Or ZY1 = 0 Or ZX2(0) = 0 Or ZY2(0) = 0 Then : Else : 流程空間_p.BackgroundImage = Nothing Dim WX As Double = 流程空間_p.Size.Width : Dim WY As Double = 流程空間_p.Size.Height 訂單管理控制表_bt.Size = New Size(WX * ZX2(0) / ZX1, WY * ZY2(0) / ZY1) : 訂單管理控制表_bt.Location = New Point(WX * SX1(0) / ZX1, WY * SY1(0) / ZY1) 銷售控制表_bt.Size = New Size(WX * ZX2(1) / ZX1, WY * ZY2(1) / ZY1) : 銷售控制表_bt.Location = New Point(WX * SX1(1) / ZX1, WY * SY1(1) / ZY1) 出貨單申請_bt.Size = New Size(WX * ZX2(2) / ZX1, WY * ZY2(2) / ZY1) : 出貨單申請_bt.Location = New Point(WX * SX1(2) / ZX1, WY * SY1(2) / ZY1) 訂單出貨控制表_bt.Size = New Size(WX * ZX2(3) / ZX1, WY * ZY2(3) / ZY1) : 訂單出貨控制表_bt.Location = New Point(WX * SX1(3) / ZX1, WY * SY1(3) / ZY1) 客戶資料管理_bt.Size = New Size(WX * ZX2(4) / ZX1, WY * ZY2(4) / ZY1) : 客戶資料管理_bt.Location = New Point(WX * SX1(4) / ZX1, WY * SY1(4) / ZY1) 訂單採購需求申請_bt.Size = New Size(WX * ZX2(5) / ZX1, WY * ZY2(5) / ZY1) : 訂單採購需求申請_bt.Location = New Point(WX * SX1(5) / ZX1, WY * SY1(5) / ZY1) 出貨確認_bt.Size = New Size(WX * ZX2(6) / ZX1, WY * ZY2(6) / ZY1) : 出貨確認_bt.Location = New Point(WX * SX1(6) / ZX1, WY * SY1(6) / ZY1) 銷售退貨確認_bt.Size = New Size(WX * ZX2(7) / ZX1, WY * ZY2(7) / ZY1) : 銷售退貨確認_bt.Location = New Point(WX * SX1(7) / ZX1, WY * SY1(7) / ZY1) 零售客戶記錄表_bt.Size = New Size(WX * ZX2(8) / ZX1, WY * ZY2(8) / ZY1) : 零售客戶記錄表_bt.Location = New Point(WX * SX1(8) / ZX1, WY * SY1(8) / ZY1) 維修單申請_bt.Size = New Size(WX * ZX2(9) / ZX1, WY * ZY2(9) / ZY1) : 維修單申請_bt.Location = New Point(WX * SX1(9) / ZX1, WY * SY1(9) / ZY1) 維修單出庫確認_bt.Size = New Size(WX * ZX2(10) / ZX1, WY * ZY2(10) / ZY1) : 維修單出庫確認_bt.Location = New Point(WX * SX1(10) / ZX1, WY * SY1(10) / ZY1) 銷售退貨申請_bt.Size = New Size(WX * ZX2(11) / ZX1, WY * ZY2(11) / ZY1) : 銷售退貨申請_bt.Location = New Point(WX * SX1(11) / ZX1, WY * SY1(11) / ZY1) 銷售退貨清單_bt.Size = New Size(WX * ZX2(12) / ZX1, WY * ZY2(12) / ZY1) : 銷售退貨清單_bt.Location = New Point(WX * SX1(12) / ZX1, WY * SY1(12) / ZY1) Button14.Size = New Size(WX * ZX2(13) / ZX1, WY * ZY2(13) / ZY1) : Button14.Location = New Point(WX * SX1(13) / ZX1, WY * SY1(13) / ZY1) 倉儲控制表_bt.Size = New Size(WX * ZX2(14) / ZX1, WY * ZY2(14) / ZY1) : 倉儲控制表_bt.Location = New Point(WX * SX1(14) / ZX1, WY * SY1(14) / ZY1) 物料資料庫_bt.Size = New Size(WX * ZX2(15) / ZX1, WY * ZY2(15) / ZY1) : 物料資料庫_bt.Location = New Point(WX * SX1(15) / ZX1, WY * SY1(15) / ZY1) 倉儲分區控制表_bt.Size = New Size(WX * ZX2(16) / ZX1, WY * ZY2(16) / ZY1) : 倉儲分區控制表_bt.Location = New Point(WX * SX1(16) / ZX1, WY * SY1(16) / ZY1) 倉儲庫存清單_bt.Size = New Size(WX * ZX2(17) / ZX1, WY * ZY2(17) / ZY1) : 倉儲庫存清單_bt.Location = New Point(WX * SX1(17) / ZX1, WY * SY1(17) / ZY1) 盤盈盤損控制表_bt.Size = New Size(WX * ZX2(18) / ZX1, WY * ZY2(18) / ZY1) : 盤盈盤損控制表_bt.Location = New Point(WX * SX1(18) / ZX1, WY * SY1(18) / ZY1) 倉儲入庫驗收_bt.Size = New Size(WX * ZX2(19) / ZX1, WY * ZY2(19) / ZY1) : 倉儲入庫驗收_bt.Location = New Point(WX * SX1(19) / ZX1, WY * SY1(19) / ZY1) 採購退貨審核_bt.Size = New Size(WX * ZX2(20) / ZX1, WY * ZY2(20) / ZY1) : 採購退貨審核_bt.Location = New Point(WX * SX1(20) / ZX1, WY * SY1(20) / ZY1) 採購退貨清單_bt.Size = New Size(WX * ZX2(21) / ZX1, WY * ZY2(21) / ZY1) : 採購退貨清單_bt.Location = New Point(WX * SX1(21) / ZX1, WY * SY1(21) / ZY1) 採購需求申請_bt.Size = New Size(WX * ZX2(22) / ZX1, WY * ZY2(22) / ZY1) : 採購需求申請_bt.Location = New Point(WX * SX1(22) / ZX1, WY * SY1(22) / ZY1) 供應商資料管理_bt.Size = New Size(WX * ZX2(23) / ZX1, WY * ZY2(23) / ZY1) : 供應商資料管理_bt.Location = New Point(WX * SX1(23) / ZX1, WY * SY1(23) / ZY1) 採購控制表_bt.Size = New Size(WX * ZX2(24) / ZX1, WY * ZY2(24) / ZY1) : 採購控制表_bt.Location = New Point(WX * SX1(24) / ZX1, WY * SY1(24) / ZY1) 採購退貨申請_bt.Size = New Size(WX * ZX2(25) / ZX1, WY * ZY2(25) / ZY1) : 採購退貨申請_bt.Location = New Point(WX * SX1(25) / ZX1, WY * SY1(25) / ZY1) 採購單申請_bt.Size = New Size(WX * ZX2(26) / ZX1, WY * ZY2(26) / ZY1) : 採購單申請_bt.Location = New Point(WX * SX1(26) / ZX1, WY * SY1(26) / ZY1) 生產控制表_bt.Size = New Size(WX * ZX2(27) / ZX1, WY * ZY2(27) / ZY1) : 生產控制表_bt.Location = New Point(WX * SX1(27) / ZX1, WY * SY1(27) / ZY1) 生產領料_bt.Size = New Size(WX * ZX2(28) / ZX1, WY * ZY2(28) / ZY1) : 生產領料_bt.Location = New Point(WX * SX1(28) / ZX1, WY * SY1(28) / ZY1) 完工入庫_bt.Size = New Size(WX * ZX2(29) / ZX1, WY * ZY2(29) / ZY1) : 完工入庫_bt.Location = New Point(WX * SX1(29) / ZX1, WY * SY1(29) / ZY1) 員工資料表_bt.Size = New Size(WX * ZX2(30) / ZX1, WY * ZY2(30) / ZY1) : 員工資料表_bt.Location = New Point(WX * SX1(30) / ZX1, WY * SY1(30) / ZY1) ID卡配置設定_bt.Size = New Size(WX * ZX2(31) / ZX1, WY * ZY2(31) / ZY1) : ID卡配置設定_bt.Location = New Point(WX * SX1(31) / ZX1, WY * SY1(31) / ZY1) 支票收支單申請_bt.Size = New Size(WX * ZX2(32) / ZX1, WY * ZY2(32) / ZY1) : 支票收支單申請_bt.Location = New Point(WX * SX1(32) / ZX1, WY * SY1(32) / ZY1) 現金收支單申請_bt.Size = New Size(WX * ZX2(33) / ZX1, WY * ZY2(33) / ZY1) : 現金收支單申請_bt.Location = New Point(WX * SX1(33) / ZX1, WY * SY1(33) / ZY1) 票務控制表_bt.Size = New Size(WX * ZX2(34) / ZX1, WY * ZY2(34) / ZY1) : 票務控制表_bt.Location = New Point(WX * SX1(34) / ZX1, WY * SY1(34) / ZY1) 財務收支單審核_bt.Size = New Size(WX * ZX2(35) / ZX1, WY * ZY2(35) / ZY1) : 財務收支單審核_bt.Location = New Point(WX * SX1(35) / ZX1, WY * SY1(35) / ZY1) 收支單一覽表_bt.Size = New Size(WX * ZX2(36) / ZX1, WY * ZY2(36) / ZY1) : 收支單一覽表_bt.Location = New Point(WX * SX1(36) / ZX1, WY * SY1(36) / ZY1) 收支單對帳表_bt.Size = New Size(WX * ZX2(37) / ZX1, WY * ZY2(37) / ZY1) : 收支單對帳表_bt.Location = New Point(WX * SX1(37) / ZX1, WY * SY1(37) / ZY1) 財務收支決算表_bt.Size = New Size(WX * ZX2(38) / ZX1, WY * ZY2(38) / ZY1) : 財務收支決算表_bt.Location = New Point(WX * SX1(38) / ZX1, WY * SY1(38) / ZY1) 司機佣金計算_bt.Size = New Size(WX * ZX2(39) / ZX1, WY * ZY2(39) / ZY1) : 司機佣金計算_bt.Location = New Point(WX * SX1(39) / ZX1, WY * SY1(39) / ZY1) 業務佣金計算_bt.Size = New Size(WX * ZX2(40) / ZX1, WY * ZY2(40) / ZY1) : 業務佣金計算_bt.Location = New Point(WX * SX1(40) / ZX1, WY * SY1(40) / ZY1) 應付賬款控制表_bt.Size = New Size(WX * ZX2(41) / ZX1, WY * ZY2(41) / ZY1) : 應付賬款控制表_bt.Location = New Point(WX * SX1(41) / ZX1, WY * SY1(41) / ZY1) 營運狀態檢視表_bt.Size = New Size(WX * ZX2(42) / ZX1, WY * ZY2(42) / ZY1) : 營運狀態檢視表_bt.Location = New Point(WX * SX1(42) / ZX1, WY * SY1(42) / ZY1) 應收帳款控制表_bt.Size = New Size(WX * ZX2(43) / ZX1, WY * ZY2(43) / ZY1) : 應收帳款控制表_bt.Location = New Point(WX * SX1(43) / ZX1, WY * SY1(43) / ZY1) 車輛保養紀錄表_bt.Size = New Size(WX * ZX2(44) / ZX1, WY * ZY2(44) / ZY1) : 車輛保養紀錄表_bt.Location = New Point(WX * SX1(44) / ZX1, WY * SY1(44) / ZY1) 系統使用者管理_bt.Size = New Size(WX * ZX2(45) / ZX1, WY * ZY2(45) / ZY1) : 系統使用者管理_bt.Location = New Point(WX * SX1(45) / ZX1, WY * SY1(45) / ZY1) 系統通用變數管理_bt.Size = New Size(WX * ZX2(46) / ZX1, WY * ZY2(46) / ZY1) : 系統通用變數管理_bt.Location = New Point(WX * SX1(46) / ZX1, WY * SY1(46) / ZY1) 系統編碼規則1_bt.Size = New Size(WX * ZX2(47) / ZX1, WY * ZY2(47) / ZY1) : 系統編碼規則1_bt.Location = New Point(WX * SX1(47) / ZX1, WY * SY1(47) / ZY1) 系統執行檔版本管理_bt.Size = New Size(WX * ZX2(48) / ZX1, WY * ZY2(48) / ZY1) : 系統執行檔版本管理_bt.Location = New Point(WX * SX1(48) / ZX1, WY * SY1(48) / ZY1) 簽名檔管理_bt.Size = New Size(WX * ZX2(49) / ZX1, WY * ZY2(49) / ZY1) : 簽名檔管理_bt.Location = New Point(WX * SX1(49) / ZX1, WY * SY1(49) / ZY1) 盤盈盤損審核_bt.Size = New Size(WX * ZX2(50) / ZX1, WY * ZY2(50) / ZY1) : 盤盈盤損審核_bt.Location = New Point(WX * SX1(50) / ZX1, WY * SY1(50) / ZY1) 訂單管理控制表_pb.Size = New Size(WX * AX2(0) / ZX1, WY * AY2(0) / ZY1) : 訂單管理控制表_pb.Location = New Point(WX * XX1(0) / ZX1, WY * XY1(0) / ZY1) 銷售控制表_pb.Size = New Size(WX * AX2(1) / ZX1, WY * AY2(1) / ZY1) : 銷售控制表_pb.Location = New Point(WX * XX1(1) / ZX1, WY * XY1(1) / ZY1) 出貨單申請_pb.Size = New Size(WX * AX2(2) / ZX1, WY * AY2(2) / ZY1) : 出貨單申請_pb.Location = New Point(WX * XX1(2) / ZX1, WY * XY1(2) / ZY1) 訂單出貨控制表_pb.Size = New Size(WX * AX2(3) / ZX1, WY * AY2(3) / ZY1) : 訂單出貨控制表_pb.Location = New Point(WX * XX1(3) / ZX1, WY * XY1(3) / ZY1) 客戶資料管理_pb.Size = New Size(WX * AX2(4) / ZX1, WY * AY2(4) / ZY1) : 客戶資料管理_pb.Location = New Point(WX * XX1(4) / ZX1, WY * XY1(4) / ZY1) 訂單採購需求申請_pb.Size = New Size(WX * AX2(5) / ZX1, WY * AY2(5) / ZY1) : 訂單採購需求申請_pb.Location = New Point(WX * XX1(5) / ZX1, WY * XY1(5) / ZY1) 出貨確認_pb.Size = New Size(WX * AX2(6) / ZX1, WY * AY2(6) / ZY1) : 出貨確認_pb.Location = New Point(WX * XX1(6) / ZX1, WY * XY1(6) / ZY1) 銷售退貨確認_pb.Size = New Size(WX * AX2(7) / ZX1, WY * AY2(7) / ZY1) : 銷售退貨確認_pb.Location = New Point(WX * XX1(7) / ZX1, WY * XY1(7) / ZY1) 零售客戶記錄表_pb.Size = New Size(WX * AX2(8) / ZX1, WY * AY2(8) / ZY1) : 零售客戶記錄表_pb.Location = New Point(WX * XX1(8) / ZX1, WY * XY1(8) / ZY1) 維修單申請_pb.Size = New Size(WX * AX2(9) / ZX1, WY * AY2(9) / ZY1) : 維修單申請_pb.Location = New Point(WX * XX1(9) / ZX1, WY * XY1(9) / ZY1) 維修單出庫確認_pb.Size = New Size(WX * AX2(10) / ZX1, WY * AY2(10) / ZY1) : 維修單出庫確認_pb.Location = New Point(WX * XX1(10) / ZX1, WY * XY1(10) / ZY1) 銷售退貨申請_pb.Size = New Size(WX * AX2(11) / ZX1, WY * AY2(11) / ZY1) : 銷售退貨申請_pb.Location = New Point(WX * XX1(11) / ZX1, WY * XY1(11) / ZY1) 銷售退貨清單_pb.Size = New Size(WX * AX2(12) / ZX1, WY * AY2(12) / ZY1) : 銷售退貨清單_pb.Location = New Point(WX * XX1(12) / ZX1, WY * XY1(12) / ZY1) PictureBox14.Size = New Size(WX * AX2(13) / ZX1, WY * AY2(13) / ZY1) : PictureBox14.Location = New Point(WX * XX1(13) / ZX1, WY * XY1(13) / ZY1) 倉儲控制表_pb.Size = New Size(WX * AX2(14) / ZX1, WY * AY2(14) / ZY1) : 倉儲控制表_pb.Location = New Point(WX * XX1(14) / ZX1, WY * XY1(14) / ZY1) 物料資料庫_pb.Size = New Size(WX * AX2(15) / ZX1, WY * AY2(15) / ZY1) : 物料資料庫_pb.Location = New Point(WX * XX1(15) / ZX1, WY * XY1(15) / ZY1) 倉儲分區控制表_pb.Size = New Size(WX * AX2(16) / ZX1, WY * AY2(16) / ZY1) : 倉儲分區控制表_pb.Location = New Point(WX * XX1(16) / ZX1, WY * XY1(16) / ZY1) 倉儲庫存清單_pb.Size = New Size(WX * AX2(17) / ZX1, WY * AY2(17) / ZY1) : 倉儲庫存清單_pb.Location = New Point(WX * XX1(17) / ZX1, WY * XY1(17) / ZY1) 盤盈盤損控制表_pb.Size = New Size(WX * AX2(18) / ZX1, WY * AY2(18) / ZY1) : 盤盈盤損控制表_pb.Location = New Point(WX * XX1(18) / ZX1, WY * XY1(18) / ZY1) 倉儲入庫驗收_pb.Size = New Size(WX * AX2(19) / ZX1, WY * AY2(19) / ZY1) : 倉儲入庫驗收_pb.Location = New Point(WX * XX1(19) / ZX1, WY * XY1(19) / ZY1) 採購退貨審核_pb.Size = New Size(WX * AX2(20) / ZX1, WY * AY2(20) / ZY1) : 採購退貨審核_pb.Location = New Point(WX * XX1(20) / ZX1, WY * XY1(20) / ZY1) 採購退貨清單_pb.Size = New Size(WX * AX2(21) / ZX1, WY * AY2(21) / ZY1) : 採購退貨清單_pb.Location = New Point(WX * XX1(21) / ZX1, WY * XY1(21) / ZY1) 採購需求申請_pb.Size = New Size(WX * AX2(22) / ZX1, WY * AY2(22) / ZY1) : 採購需求申請_pb.Location = New Point(WX * XX1(22) / ZX1, WY * XY1(22) / ZY1) 供應商資料管理_pb.Size = New Size(WX * AX2(23) / ZX1, WY * AY2(23) / ZY1) : 供應商資料管理_pb.Location = New Point(WX * XX1(23) / ZX1, WY * XY1(23) / ZY1) 採購控制表_pb.Size = New Size(WX * AX2(24) / ZX1, WY * AY2(24) / ZY1) : 採購控制表_pb.Location = New Point(WX * XX1(24) / ZX1, WY * XY1(24) / ZY1) 採購退貨申請_pb.Size = New Size(WX * AX2(25) / ZX1, WY * AY2(25) / ZY1) : 採購退貨申請_pb.Location = New Point(WX * XX1(25) / ZX1, WY * XY1(25) / ZY1) 採購單申請_pb.Size = New Size(WX * AX2(26) / ZX1, WY * AY2(26) / ZY1) : 採購單申請_pb.Location = New Point(WX * XX1(26) / ZX1, WY * XY1(26) / ZY1) 生產控制表_pb.Size = New Size(WX * AX2(27) / ZX1, WY * AY2(27) / ZY1) : 生產控制表_pb.Location = New Point(WX * XX1(27) / ZX1, WY * XY1(27) / ZY1) 生產領料_pb.Size = New Size(WX * AX2(28) / ZX1, WY * AY2(28) / ZY1) : 生產領料_pb.Location = New Point(WX * XX1(28) / ZX1, WY * XY1(28) / ZY1) 完工入庫_pb.Size = New Size(WX * AX2(29) / ZX1, WY * AY2(29) / ZY1) : 完工入庫_pb.Location = New Point(WX * XX1(29) / ZX1, WY * XY1(29) / ZY1) 員工資料表_pb.Size = New Size(WX * AX2(30) / ZX1, WY * AY2(30) / ZY1) : 員工資料表_pb.Location = New Point(WX * XX1(30) / ZX1, WY * XY1(30) / ZY1) ID卡配置設定_pb.Size = New Size(WX * AX2(31) / ZX1, WY * AY2(31) / ZY1) : ID卡配置設定_pb.Location = New Point(WX * XX1(31) / ZX1, WY * XY1(31) / ZY1) 支票收支單申請_pb.Size = New Size(WX * AX2(32) / ZX1, WY * AY2(32) / ZY1) : 支票收支單申請_pb.Location = New Point(WX * XX1(32) / ZX1, WY * XY1(32) / ZY1) 現金收支單申請_pb.Size = New Size(WX * AX2(33) / ZX1, WY * AY2(33) / ZY1) : 現金收支單申請_pb.Location = New Point(WX * XX1(33) / ZX1, WY * XY1(33) / ZY1) 票務控制表_pb.Size = New Size(WX * AX2(34) / ZX1, WY * AY2(34) / ZY1) : 票務控制表_pb.Location = New Point(WX * XX1(34) / ZX1, WY * XY1(34) / ZY1) 財務收支單審核_pb.Size = New Size(WX * AX2(35) / ZX1, WY * AY2(35) / ZY1) : 財務收支單審核_pb.Location = New Point(WX * XX1(35) / ZX1, WY * XY1(35) / ZY1) 財務收支單一覽表_pb.Size = New Size(WX * AX2(36) / ZX1, WY * AY2(36) / ZY1) : 財務收支單一覽表_pb.Location = New Point(WX * XX1(36) / ZX1, WY * XY1(36) / ZY1) 收支單對帳表_pb.Size = New Size(WX * AX2(37) / ZX1, WY * AY2(37) / ZY1) : 收支單對帳表_pb.Location = New Point(WX * XX1(37) / ZX1, WY * XY1(37) / ZY1) 財務收支決算表_pb.Size = New Size(WX * AX2(38) / ZX1, WY * AY2(38) / ZY1) : 財務收支決算表_pb.Location = New Point(WX * XX1(38) / ZX1, WY * XY1(38) / ZY1) 司機佣金計算_pb.Size = New Size(WX * AX2(39) / ZX1, WY * AY2(39) / ZY1) : 司機佣金計算_pb.Location = New Point(WX * XX1(39) / ZX1, WY * XY1(39) / ZY1) 業務佣金計算_pb.Size = New Size(WX * AX2(40) / ZX1, WY * AY2(40) / ZY1) : 業務佣金計算_pb.Location = New Point(WX * XX1(40) / ZX1, WY * XY1(40) / ZY1) 應付賬款控制表_pb.Size = New Size(WX * AX2(41) / ZX1, WY * AY2(41) / ZY1) : 應付賬款控制表_pb.Location = New Point(WX * XX1(41) / ZX1, WY * XY1(41) / ZY1) 營運狀態檢視表_pb.Size = New Size(WX * AX2(42) / ZX1, WY * AY2(42) / ZY1) : 營運狀態檢視表_pb.Location = New Point(WX * XX1(42) / ZX1, WY * XY1(42) / ZY1) 應收帳款控制表_pb.Size = New Size(WX * AX2(43) / ZX1, WY * AY2(43) / ZY1) : 應收帳款控制表_pb.Location = New Point(WX * XX1(43) / ZX1, WY * XY1(43) / ZY1) 車輛保養紀錄表_pb.Size = New Size(WX * AX2(44) / ZX1, WY * AY2(44) / ZY1) : 車輛保養紀錄表_pb.Location = New Point(WX * XX1(44) / ZX1, WY * XY1(44) / ZY1) 系統使用者管理_pb.Size = New Size(WX * AX2(45) / ZX1, WY * AY2(45) / ZY1) : 系統使用者管理_pb.Location = New Point(WX * XX1(45) / ZX1, WY * XY1(45) / ZY1) 系統通用變數管理_pb.Size = New Size(WX * AX2(46) / ZX1, WY * AY2(46) / ZY1) : 系統通用變數管理_pb.Location = New Point(WX * XX1(46) / ZX1, WY * XY1(46) / ZY1) 系統編碼規則1_pb.Size = New Size(WX * AX2(47) / ZX1, WY * AY2(47) / ZY1) : 系統編碼規則1_pb.Location = New Point(WX * XX1(47) / ZX1, WY * XY1(47) / ZY1) 系統執行檔版本管理_pb.Size = New Size(WX * AX2(48) / ZX1, WY * AY2(48) / ZY1) : 系統執行檔版本管理_pb.Location = New Point(WX * XX1(48) / ZX1, WY * XY1(48) / ZY1) 簽名檔管理_pb.Size = New Size(WX * AX2(49) / ZX1, WY * AY2(49) / ZY1) : 簽名檔管理_pb.Location = New Point(WX * XX1(49) / ZX1, WY * XY1(49) / ZY1) 盤盈盤損審核_pb.Size = New Size(WX * AX2(50) / ZX1, WY * AY2(50) / ZY1) : 盤盈盤損審核_pb.Location = New Point(WX * XX1(50) / ZX1, WY * XY1(50) / ZY1) Label1.Size = New Size(WX * QX2(0) / ZX1, WY * QY2(0) / ZY1) : Label1.Location = New Point(WX * WX1(0) / ZX1, WY * WY1(0) / ZY1) Label2.Size = New Size(WX * QX2(1) / ZX1, WY * QY2(1) / ZY1) : Label2.Location = New Point(WX * WX1(1) / ZX1, WY * WY1(1) / ZY1) Label3.Size = New Size(WX * QX2(2) / ZX1, WY * QY2(2) / ZY1) : Label3.Location = New Point(WX * WX1(2) / ZX1, WY * WY1(2) / ZY1) Label4.Size = New Size(WX * QX2(3) / ZX1, WY * QY2(3) / ZY1) : Label4.Location = New Point(WX * WX1(3) / ZX1, WY * WY1(3) / ZY1) Label5.Size = New Size(WX * QX2(4) / ZX1, WY * QY2(4) / ZY1) : Label5.Location = New Point(WX * WX1(4) / ZX1, WY * WY1(4) / ZY1) Label6.Size = New Size(WX * QX2(5) / ZX1, WY * QY2(5) / ZY1) : Label6.Location = New Point(WX * WX1(5) / ZX1, WY * WY1(5) / ZY1) Label7.Size = New Size(WX * QX2(6) / ZX1, WY * QY2(6) / ZY1) : Label7.Location = New Point(WX * WX1(6) / ZX1, WY * WY1(6) / ZY1) Label8.Size = New Size(WX * QX2(7) / ZX1, WY * QY2(7) / ZY1) : Label8.Location = New Point(WX * WX1(7) / ZX1, WY * WY1(7) / ZY1) Label9.Size = New Size(WX * QX2(8) / ZX1, WY * QY2(8) / ZY1) : Label9.Location = New Point(WX * WX1(8) / ZX1, WY * WY1(8) / ZY1) Label10.Size = New Size(WX * QX2(9) / ZX1, WY * QY2(9) / ZY1) : Label10.Location = New Point(WX * WX1(9) / ZX1, WY * WY1(9) / ZY1) Label11.Size = New Size(WX * QX2(10) / ZX1, WY * QY2(10) / ZY1) : Label11.Location = New Point(WX * WX1(10) / ZX1, WY * WY1(10) / ZY1) End If : 流程空間_p.BackgroundImage = My.Resources.SOP : 流程空間_p.BackgroundImageLayout = 3 End Sub Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 公司名稱_cb.SelectedIndexChanged PA = 公司名稱_cb.Text : SQL_公司基本資料宣告() If dr.Read() Then : 公司編號 = dr("公司編號") : 公司電話 = dr("電話") : 公司統編 = dr("統編") : 公司地址 = dr("地址") : End If : conn.Close() : PA = "" End Sub Private Sub 虛擬桌面隱藏() 流程空間_p.Visible = False End Sub Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 系統使用者管理.Show() : 系統使用者管理.BringToFront() End Sub Private Sub 系統使用者管理_bt_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_bt.Click 系統使用者管理_tsm.PerformClick() End Sub Private Sub 系統通用變數管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront() End Sub Private Sub 系統通用變數管理_bt_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_bt.Click 系統通用變數管理_tsm.PerformClick() End Sub Private Sub 系統編碼規則1_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼規則1_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 系統編碼規則_1.Show() : 系統編碼規則_1.BringToFront() End Sub Private Sub 系統編碼規則1_bt_Click(sender As Object, e As EventArgs) Handles 系統編碼規則1_bt.Click 系統編碼規則1_tsm.PerformClick() End Sub Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click PA = "" : 系統執行檔版本管理.ShowDialog() End Sub Private Sub 系統執行檔版本管理_bt_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_bt.Click 系統執行檔版本管理_tsm.PerformClick() End Sub Private Sub 人員ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡配置設定_tsm.Click PA = "" : 員工ID卡系統配置設定.ShowDialog() End Sub Private Sub ID卡配置設定_bt_Click(sender As Object, e As EventArgs) Handles ID卡配置設定_bt.Click ID卡配置設定_tsm.PerformClick() End Sub Private Sub 員工資料表_tsm_Click_1(sender As Object, e As EventArgs) Handles 員工資料表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 員工資料表.Show() : 員工資料表.BringToFront() End Sub Private Sub 員工資料表_bt_Click(sender As Object, e As EventArgs) Handles 員工資料表_bt.Click 員工資料表_tsm.PerformClick() End Sub Private Sub 客戶資料管理_tsm_Click(sender As Object, e As EventArgs) Handles 客戶資料管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 客戶資料管理.Show() : 客戶資料管理.BringToFront() End Sub Private Sub 客戶資料管理_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料管理_bt.Click 客戶資料管理_tsm.PerformClick() End Sub Private Sub 供應商資料管理_tsm_Click(sender As Object, e As EventArgs) Handles 供應商資料管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 供應商資料管理.Show() : 供應商資料管理.BringToFront() End Sub Private Sub 供應商資料管理_bt_Click(sender As Object, e As EventArgs) Handles 供應商資料管理_bt.Click 供應商資料管理_tsm.PerformClick() End Sub Private Sub 物料資料庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料資料庫_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 物料資料庫.Show() : 物料資料庫.BringToFront() End Sub Private Sub 物料資料庫_bt_Click(sender As Object, e As EventArgs) Handles 物料資料庫_bt.Click 物料資料庫_tsm.PerformClick() End Sub Private Sub 營運成本支付申請_tsm_Click(sender As Object, e As EventArgs) Handles 現金收支單申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 現金收支單申請.Show() : 現金收支單申請.BringToFront() End Sub Private Sub 現金收支單申請_bt_Click(sender As Object, e As EventArgs) Handles 現金收支單申請_bt.Click 現金收支單申請_tsm.PerformClick() End Sub Private Sub 營運費用支付審核_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支單審核_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 財務收支單審核.Show() : 財務收支單審核.BringToFront() End Sub Private Sub 財務收支單審核_bt_Click(sender As Object, e As EventArgs) Handles 財務收支單審核_bt.Click 財務收支單審核_tsm.PerformClick() End Sub Private Sub 營運費用支付單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 收支單一覽表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 財務收支單一覽表.Show() : 財務收支單一覽表.BringToFront() End Sub Private Sub 收支單一覽表_bt_Click(sender As Object, e As EventArgs) Handles 收支單一覽表_bt.Click 收支單一覽表_tsm.PerformClick() End Sub Private Sub 營運成本收支單對帳表_tsm_Click(sender As Object, e As EventArgs) Handles 收支單對帳表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 財務收支單_對帳表.Show() : 財務收支單_對帳表.BringToFront() End Sub Private Sub 收支單對帳表_bt_Click(sender As Object, e As EventArgs) Handles 收支單對帳表_bt.Click 收支單對帳表_tsm.PerformClick() End Sub Private Sub 採購單申請_tsm_Click(sender As Object, e As EventArgs) Handles 採購單申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 採購單申請.Show() : 採購單申請.BringToFront() End Sub Private Sub 採購單申請_bt_Click(sender As Object, e As EventArgs) Handles 採購單申請_bt.Click 採購單申請_tsm.PerformClick() End Sub Private Sub 倉儲入庫驗收_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 倉儲入庫驗收.Show() : 倉儲入庫驗收.BringToFront() End Sub Private Sub 倉儲入庫驗收_bt_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_bt.Click 倉儲入庫驗收_tsm.PerformClick() End Sub Private Sub 倉儲控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 倉儲控制表.Show() : 倉儲控制表.BringToFront() End Sub Private Sub 倉儲控制表_bt_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_bt.Click 倉儲控制表_tsm.PerformClick() End Sub Private Sub 出貨單申請_tsm_Click(sender As Object, e As EventArgs) Handles 出貨單申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 出貨單申請.Show() : 出貨單申請.BringToFront() End Sub Private Sub 出貨單申請_bt_Click(sender As Object, e As EventArgs) Handles 出貨單申請_bt.Click 出貨單申請_tsm.PerformClick() End Sub Private Sub 出貨確認_tsm_Click(sender As Object, e As EventArgs) Handles 出貨確認_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 出貨確認.Show() : 出貨確認.BringToFront() End Sub Private Sub 出貨確認_bt_Click(sender As Object, e As EventArgs) Handles 出貨確認_bt.Click 出貨確認_tsm.PerformClick() End Sub Private Sub 銷售控制表_tsm_Click(sender As Object, e As EventArgs) Handles 銷售控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 銷售控制表.Show() : 銷售控制表.BringToFront() End Sub Private Sub 銷售控制表_bt_Click(sender As Object, e As EventArgs) Handles 銷售控制表_bt.Click 銷售控制表_tsm.PerformClick() End Sub Private Sub 生產確認_tsm1_Click(sender As Object, e As EventArgs) Handles 生產領料_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 生產確認.Show() : 生產確認.BringToFront() End Sub Private Sub 生產領料_bt_Click(sender As Object, e As EventArgs) Handles 生產領料_bt.Click 生產領料_tsm.PerformClick() End Sub Private Sub 生產控制表_tsm_Click(sender As Object, e As EventArgs) Handles 生產控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 生產控制表.Show() : 生產控制表.BringToFront() End Sub Private Sub 生產控制表_bt_Click(sender As Object, e As EventArgs) Handles 生產控制表_bt.Click 生產控制表_tsm.PerformClick() End Sub Private Sub 採購控制表_tsm_Click(sender As Object, e As EventArgs) Handles 採購控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 採購控制表.Show() : 採購控制表.BringToFront() End Sub Private Sub 採購控制表_bt_Click(sender As Object, e As EventArgs) Handles 採購控制表_bt.Click 採購控制表_tsm.PerformClick() End Sub Private Sub 生產入庫_tsm_Click(sender As Object, e As EventArgs) Handles 完工入庫_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 生產入庫.Show() : 生產入庫.BringToFront() End Sub Private Sub 完工入庫_bt_Click(sender As Object, e As EventArgs) Handles 完工入庫_bt.Click 完工入庫_tsm.PerformClick() End Sub Private Sub 營運報表_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支決算表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 營運成本收支_決算表.Show() : 營運成本收支_決算表.BringToFront() End Sub Private Sub 財務收支決算表_bt_Click(sender As Object, e As EventArgs) Handles 財務收支決算表_bt.Click 財務收支決算表_tsm.PerformClick() End Sub Private Sub 簽名檔管理_tsm_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_tsm.Click PA = "" : 簽名檔管理.ShowDialog() End Sub Private Sub 簽名檔管理_bt_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_bt.Click 簽名檔管理_tsm.PerformClick() End Sub Private Sub 倉儲分區控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_tsm.Click PA = "" : 倉儲分區控制表.ShowDialog() End Sub Private Sub 倉儲分區控制表_bt_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_bt.Click 倉儲分區控制表_tsm.PerformClick() End Sub Private Sub 車輛保養紀錄表_tsm_Click(sender As Object, e As EventArgs) Handles 車輛保養紀錄表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 車輛保養紀錄表.Show() : 車輛保養紀錄表.BringToFront() End Sub Private Sub 車輛保養紀錄表_bt_Click(sender As Object, e As EventArgs) Handles 車輛保養紀錄表_bt.Click 車輛保養紀錄表_tsm.PerformClick() End Sub Private Sub 訂單資料輸入_tsm_Click(sender As Object, e As EventArgs) Handles 訂單管理控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 訂單管理控制表.Show() : 訂單管理控制表.BringToFront() End Sub Private Sub 訂單管理控制表_bt_Click(sender As Object, e As EventArgs) Handles 訂單管理控制表_bt.Click 訂單管理控制表_tsm.PerformClick() End Sub Private Sub 訂單採購需求申請_tsm_Click(sender As Object, e As EventArgs) Handles 訂單採購需求申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 訂單採購需求申請.Show() : 訂單採購需求申請.BringToFront() End Sub Private Sub 訂單採購需求申請_bt_Click(sender As Object, e As EventArgs) Handles 訂單採購需求申請_bt.Click 訂單採購需求申請_tsm.PerformClick() End Sub Private Sub 訂單採購需求申請_tsm1_Click(sender As Object, e As EventArgs) Handles 採購需求申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 訂單採購需求申請.Show() : 訂單採購需求申請.BringToFront() End Sub Private Sub 採購需求申請_bt_Click(sender As Object, e As EventArgs) Handles 採購需求申請_bt.Click 採購需求申請_tsm.PerformClick() End Sub Private Sub 訂單控制表_tsm_Click(sender As Object, e As EventArgs) Handles 訂單出貨控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 訂單出貨控制表.Show() : 訂單出貨控制表.BringToFront() End Sub Private Sub 訂單出貨控制表_bt_Click(sender As Object, e As EventArgs) Handles 訂單出貨控制表_bt.Click 訂單出貨控制表_tsm.PerformClick() End Sub Private Sub 倉儲庫存清單_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲庫存清單_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 倉儲庫存清單.Show() : 倉儲庫存清單.BringToFront() End Sub Private Sub 倉儲庫存清單_bt_Click(sender As Object, e As EventArgs) Handles 倉儲庫存清單_bt.Click 倉儲庫存清單_tsm.PerformClick() End Sub Private Sub 零售客戶記錄表_tsm_Click(sender As Object, e As EventArgs) Handles 零售客戶記錄表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 零售客戶記錄表.Show() : 零售客戶記錄表.BringToFront() End Sub Private Sub 零售客戶記錄表_bt_Click(sender As Object, e As EventArgs) Handles 零售客戶記錄表_bt.Click 零售客戶記錄表_tsm.PerformClick() End Sub Private Sub 盤盈盤損控制表_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 盤盈盤損控制表.Show() : 盤盈盤損控制表.BringToFront() End Sub Private Sub 盤盈盤損控制表_bt_Click(sender As Object, e As EventArgs) Handles 盤盈盤損控制表_bt.Click 盤盈盤損控制表_tsm.PerformClick() End Sub Private Sub 盤盈坢損確認倉儲調整_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 盤盈盤損確認.Show() : 盤盈盤損確認.BringToFront() End Sub Private Sub 盤盈盤損審核_bt_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_bt.Click 盤盈盤損審核_tsm.PerformClick() End Sub Private Sub 營運狀態彙總檢視表_tsm_Click(sender As Object, e As EventArgs) Handles 營運狀態檢視表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 營運狀態彙總_檢視表.Show() : 營運狀態彙總_檢視表.BringToFront() End Sub Private Sub 營運狀態檢視表_bt_Click(sender As Object, e As EventArgs) Handles 營運狀態檢視表_bt.Click 營運狀態檢視表_tsm.PerformClick() End Sub Private Sub 業務佣金計算_tsm_Click(sender As Object, e As EventArgs) Handles 業務佣金計算_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 業務佣金計算.Show() : 業務佣金計算.BringToFront() End Sub Private Sub 業務佣金計算_bt_Click(sender As Object, e As EventArgs) Handles 業務佣金計算_bt.Click 業務佣金計算_tsm.PerformClick() End Sub Private Sub 司機佣金計算_tsm_Click(sender As Object, e As EventArgs) Handles 司機佣金計算_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 司機佣金計算.Show() : 司機佣金計算.BringToFront() End Sub Private Sub 司機佣金計算_bt_Click(sender As Object, e As EventArgs) Handles 司機佣金計算_bt.Click 司機佣金計算_tsm.PerformClick() End Sub Private Sub 維修單申請_tsm_Click(sender As Object, e As EventArgs) Handles 維修單申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 維修單申請.Show() : 維修單申請.BringToFront() End Sub Private Sub 維修單申請_bt_Click(sender As Object, e As EventArgs) Handles 維修單申請_bt.Click 維修單申請_tsm.PerformClick() End Sub Private Sub 維修單出庫確認_tsm_Click(sender As Object, e As EventArgs) Handles 維修單出庫確認_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 維修單出庫確認.Show() : 維修單出庫確認.BringToFront() End Sub Private Sub 維修單出庫確認_bt_Click(sender As Object, e As EventArgs) Handles 維修單出庫確認_bt.Click 維修單出庫確認_tsm.PerformClick() End Sub Private Sub 採購退貨申請_tsm_Click(sender As Object, e As EventArgs) Handles 採購退貨申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 採購退貨申請.Show() : 採購退貨申請.BringToFront() End Sub Private Sub 採購退貨申請_bt_Click(sender As Object, e As EventArgs) Handles 採購退貨申請_bt.Click 採購退貨申請_tsm.PerformClick() End Sub Private Sub 採購退貨清單_tsm_Click(sender As Object, e As EventArgs) Handles 採購退貨清單_tsm.Click 'PA = "" : 採購退貨清單.Show() : 採購退貨清單.BringToFront() End Sub Private Sub 採購退貨清單_bt_Click(sender As Object, e As EventArgs) Handles 採購退貨清單_bt.Click 採購退貨清單_tsm.PerformClick() End Sub Private Sub 採購退貨確認_tsm_Click(sender As Object, e As EventArgs) Handles 採購退貨審核_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 採購退貨確認.Show() : 採購退貨確認.BringToFront() End Sub Private Sub 採購退貨審核_bt_Click(sender As Object, e As EventArgs) Handles 採購退貨審核_bt.Click 採購退貨審核_tsm.PerformClick() End Sub Private Sub 銷售退貨申請_tsm_Click(sender As Object, e As EventArgs) Handles 銷售退貨申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 銷售退貨申請.Show() : 銷售退貨申請.BringToFront() End Sub Private Sub 銷售退貨申請_bt_Click(sender As Object, e As EventArgs) Handles 銷售退貨申請_bt.Click 銷售退貨申請_tsm.PerformClick() End Sub Private Sub 銷售退貨清單_tsm_Click(sender As Object, e As EventArgs) Handles 銷售退貨清單_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 銷售退貨清單.Show() : 銷售退貨清單.BringToFront() End Sub Private Sub 銷售退貨清單_bt_Click(sender As Object, e As EventArgs) Handles 銷售退貨清單_bt.Click 銷售退貨清單_tsm.PerformClick() End Sub Private Sub 銷售退貨確認_tsm_Click(sender As Object, e As EventArgs) Handles 銷售退貨確認_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 銷售退貨確認.Show() : 銷售退貨確認.BringToFront() End Sub Private Sub 銷售退貨確認_bt_Click(sender As Object, e As EventArgs) Handles 銷售退貨確認_bt.Click 銷售退貨確認_tsm.PerformClick() End Sub Private Sub 應付賬款_tsm_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 應付賬款控制表.Show() : 應付賬款控制表.BringToFront() End Sub Private Sub 應付賬款控制表_bt_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表_bt.Click 應付賬款控制表_tsm.PerformClick() End Sub Private Sub 應收帳款_tsm_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 應收帳款控制表.Show() : 應收帳款控制表.BringToFront() End Sub Private Sub 應收帳款控制表_bt_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表_bt.Click 應收帳款控制表_tsm.PerformClick() End Sub Private Sub 支票收支單申請_tsm_Click(sender As Object, e As EventArgs) Handles 支票收支單申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 支票收支單申請.Show() : 支票收支單申請.BringToFront() End Sub Private Sub 支票收支單申請_bt_Click(sender As Object, e As EventArgs) Handles 支票收支單申請_bt.Click 支票收支單申請_tsm.PerformClick() End Sub Private Sub 票務控制表_tsm_Click(sender As Object, e As EventArgs) Handles 票務控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : PA = "" : 票務控制表.Show() : 票務控制表.BringToFront() End Sub Private Sub 票務控制表_bt_Click(sender As Object, e As EventArgs) Handles 票務控制表_bt.Click 票務控制表_tsm.PerformClick() End Sub End Class