MAOJI-ERP-SYS
/
MAOJI-ERP-SYS-LEEHSIEHJUI
Bevaka 4
Stjärnmärk 0
Förgrening 0
Kod Ärenden 0 Pull-förfrågningar 0 Släpp 0 Wiki Aktiviteter
Ingen beskrivning
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 Incheckningar
1 Gren
Träd: 05bbf64c78
Grenar Taggar
${ item.name }
Skapa branchen ${ searchTerm }
från '05bbf64c78'
${ noResults }
MAOJI-ERP-SYS-LEEHSIEHJUI/MAOJI-ERP-SYS/MAOJI-ERP-SYS.vb

MAOJI-ERP-SYS.vb 72KB
Historik Rå

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688 
  1. Option Strict Off

  2. Public Class MAOJI_ERP_SYS

  3.     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

  4.     Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click

  5.         Dim ChildForm As New Form With {

  6.             .MdiParent = Me

  7.         }

  8.         m_ChildFormNumber += 1 : ChildForm.Text = "視窗 " & m_ChildFormNumber : ChildForm.Show()

  9.     End Sub

  10.     Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click

  11.         Me.Close()

  12.     End Sub

  13.     Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click

  14.         Me.LayoutMdi(MdiLayout.Cascade)

  15.     End Sub

  16.     Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click

  17.         Me.LayoutMdi(MdiLayout.TileVertical)

  18.     End Sub

  19.     Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click

  20.         Me.LayoutMdi(MdiLayout.TileHorizontal)

  21.     End Sub

  22.     Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click

  23.         Me.LayoutMdi(MdiLayout.ArrangeIcons)

  24.     End Sub

  25.     Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click

  26.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  27.     End Sub

  28.     Private Sub ComboBox1下拉表單資料載入()

  29.         SQL_公司選擇清單()

  30.         公司名稱_cb.Items.Clear() : While (dr.Read()) : 公司名稱_cb.Items.Add(dr("公司名")) : End While : conn.Close()

  31.     End Sub

  32. 

  33.     Private m_ChildFormNumber As Integer

  34.     Private Sub MaoOrange_Hongji_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  35.         ZX1 = 流程空間_p.Size.Width : ZY1 = 流程空間_p.Size.Height

  36.         ZX2(0) = 訂單管理控制表_bt.Size.Width : ZY2(0) = 訂單管理控制表_bt.Size.Height : SX1(0) = 訂單管理控制表_bt.Location.X : SY1(0) = 訂單管理控制表_bt.Location.Y

  37.         ZX2(1) = 銷售控制表_bt.Size.Width : ZY2(1) = 銷售控制表_bt.Size.Height : SX1(1) = 銷售控制表_bt.Location.X : SY1(1) = 銷售控制表_bt.Location.Y

  38.         ZX2(2) = 出貨單申請_bt.Size.Width : ZY2(2) = 出貨單申請_bt.Size.Height : SX1(2) = 出貨單申請_bt.Location.X : SY1(2) = 出貨單申請_bt.Location.Y

  39.         ZX2(3) = 訂單出貨控制表_bt.Size.Width : ZY2(3) = 訂單出貨控制表_bt.Size.Height : SX1(3) = 訂單出貨控制表_bt.Location.X : SY1(3) = 訂單出貨控制表_bt.Location.Y

  40.         ZX2(4) = 客戶資料管理_bt.Size.Width : ZY2(4) = 客戶資料管理_bt.Size.Height : SX1(4) = 客戶資料管理_bt.Location.X : SY1(4) = 客戶資料管理_bt.Location.Y

  41.         ZX2(5) = 訂單採購需求申請_bt.Size.Width : ZY2(5) = 訂單採購需求申請_bt.Size.Height : SX1(5) = 訂單採購需求申請_bt.Location.X : SY1(5) = 訂單採購需求申請_bt.Location.Y

  42.         ZX2(6) = 出貨確認_bt.Size.Width : ZY2(6) = 出貨確認_bt.Size.Height : SX1(6) = 出貨確認_bt.Location.X : SY1(6) = 出貨確認_bt.Location.Y

  43.         ZX2(7) = 銷售退貨確認_bt.Size.Width : ZY2(7) = 銷售退貨確認_bt.Size.Height : SX1(7) = 銷售退貨確認_bt.Location.X : SY1(7) = 銷售退貨確認_bt.Location.Y

  44.         ZX2(8) = 零售客戶記錄表_bt.Size.Width : ZY2(8) = 零售客戶記錄表_bt.Size.Height : SX1(8) = 零售客戶記錄表_bt.Location.X : SY1(8) = 零售客戶記錄表_bt.Location.Y

  45.         ZX2(9) = 維修單申請_bt.Size.Width : ZY2(9) = 維修單申請_bt.Size.Height : SX1(9) = 維修單申請_bt.Location.X : SY1(9) = 維修單申請_bt.Location.Y

  46.         ZX2(10) = 維修單出庫確認_bt.Size.Width : ZY2(10) = 維修單出庫確認_bt.Size.Height : SX1(10) = 維修單出庫確認_bt.Location.X : SY1(10) = 維修單出庫確認_bt.Location.Y

  47.         ZX2(11) = 銷售退貨申請_bt.Size.Width : ZY2(11) = 銷售退貨申請_bt.Size.Height : SX1(11) = 銷售退貨申請_bt.Location.X : SY1(11) = 銷售退貨申請_bt.Location.Y

  48.         ZX2(12) = 銷售退貨清單_bt.Size.Width : ZY2(12) = 銷售退貨清單_bt.Size.Height : SX1(12) = 銷售退貨清單_bt.Location.X : SY1(12) = 銷售退貨清單_bt.Location.Y

  49.         ZX2(13) = Button14.Size.Width : ZY2(13) = Button14.Size.Height : SX1(13) = Button14.Location.X : SY1(13) = Button14.Location.Y

  50.         ZX2(14) = 倉儲控制表_bt.Size.Width : ZY2(14) = 倉儲控制表_bt.Size.Height : SX1(14) = 倉儲控制表_bt.Location.X : SY1(14) = 倉儲控制表_bt.Location.Y

  51.         ZX2(15) = 物料資料庫_bt.Size.Width : ZY2(15) = 物料資料庫_bt.Size.Height : SX1(15) = 物料資料庫_bt.Location.X : SY1(15) = 物料資料庫_bt.Location.Y

  52.         ZX2(16) = 倉儲分區控制表_bt.Size.Width : ZY2(16) = 倉儲分區控制表_bt.Size.Height : SX1(16) = 倉儲分區控制表_bt.Location.X : SY1(16) = 倉儲分區控制表_bt.Location.Y

  53.         ZX2(17) = 倉儲庫存清單_bt.Size.Width : ZY2(17) = 倉儲庫存清單_bt.Size.Height : SX1(17) = 倉儲庫存清單_bt.Location.X : SY1(17) = 倉儲庫存清單_bt.Location.Y

  54.         ZX2(18) = 盤盈盤損控制表_bt.Size.Width : ZY2(18) = 盤盈盤損控制表_bt.Size.Height : SX1(18) = 盤盈盤損控制表_bt.Location.X : SY1(18) = 盤盈盤損控制表_bt.Location.Y

  55.         ZX2(19) = 倉儲入庫驗收_bt.Size.Width : ZY2(19) = 倉儲入庫驗收_bt.Size.Height : SX1(19) = 倉儲入庫驗收_bt.Location.X : SY1(19) = 倉儲入庫驗收_bt.Location.Y

  56.         ZX2(20) = 採購退貨審核_bt.Size.Width : ZY2(20) = 採購退貨審核_bt.Size.Height : SX1(20) = 採購退貨審核_bt.Location.X : SY1(20) = 採購退貨審核_bt.Location.Y

  57.         ZX2(21) = 採購退貨清單_bt.Size.Width : ZY2(21) = 採購退貨清單_bt.Size.Height : SX1(21) = 採購退貨清單_bt.Location.X : SY1(21) = 採購退貨清單_bt.Location.Y

  58.         ZX2(22) = 採購需求申請_bt.Size.Width : ZY2(22) = 採購需求申請_bt.Size.Height : SX1(22) = 採購需求申請_bt.Location.X : SY1(22) = 採購需求申請_bt.Location.Y

  59.         ZX2(23) = 供應商資料管理_bt.Size.Width : ZY2(23) = 供應商資料管理_bt.Size.Height : SX1(23) = 供應商資料管理_bt.Location.X : SY1(23) = 供應商資料管理_bt.Location.Y

  60.         ZX2(24) = 採購控制表_bt.Size.Width : ZY2(24) = 採購控制表_bt.Size.Height : SX1(24) = 採購控制表_bt.Location.X : SY1(24) = 採購控制表_bt.Location.Y

  61.         ZX2(25) = 採購退貨申請_bt.Size.Width : ZY2(25) = 採購退貨申請_bt.Size.Height : SX1(25) = 採購退貨申請_bt.Location.X : SY1(25) = 採購退貨申請_bt.Location.Y

  62.         ZX2(26) = 採購單申請_bt.Size.Width : ZY2(26) = 採購單申請_bt.Size.Height : SX1(26) = 採購單申請_bt.Location.X : SY1(26) = 採購單申請_bt.Location.Y

  63.         ZX2(27) = 生產控制表_bt.Size.Width : ZY2(27) = 生產控制表_bt.Size.Height : SX1(27) = 生產控制表_bt.Location.X : SY1(27) = 生產控制表_bt.Location.Y

  64.         ZX2(28) = 生產領料_bt.Size.Width : ZY2(28) = 生產領料_bt.Size.Height : SX1(28) = 生產領料_bt.Location.X : SY1(28) = 生產領料_bt.Location.Y

  65.         ZX2(29) = 完工入庫_bt.Size.Width : ZY2(29) = 完工入庫_bt.Size.Height : SX1(29) = 完工入庫_bt.Location.X : SY1(29) = 完工入庫_bt.Location.Y

  66.         ZX2(30) = 員工資料表_bt.Size.Width : ZY2(30) = 員工資料表_bt.Size.Height : SX1(30) = 員工資料表_bt.Location.X : SY1(30) = 員工資料表_bt.Location.Y

  67.         ZX2(31) = ID卡配置設定_bt.Size.Width : ZY2(31) = ID卡配置設定_bt.Size.Height : SX1(31) = ID卡配置設定_bt.Location.X : SY1(31) = ID卡配置設定_bt.Location.Y

  68.         ZX2(32) = 支票收支單申請_bt.Size.Width : ZY2(32) = 支票收支單申請_bt.Size.Height : SX1(32) = 支票收支單申請_bt.Location.X : SY1(32) = 支票收支單申請_bt.Location.Y

  69.         ZX2(33) = 現金收支單申請_bt.Size.Width : ZY2(33) = 現金收支單申請_bt.Size.Height : SX1(33) = 現金收支單申請_bt.Location.X : SY1(33) = 現金收支單申請_bt.Location.Y

  70.         ZX2(34) = 票務控制表_bt.Size.Width : ZY2(34) = 票務控制表_bt.Size.Height : SX1(34) = 票務控制表_bt.Location.X : SY1(34) = 票務控制表_bt.Location.Y

  71.         ZX2(35) = 財務收支單審核_bt.Size.Width : ZY2(35) = 財務收支單審核_bt.Size.Height : SX1(35) = 財務收支單審核_bt.Location.X : SY1(35) = 財務收支單審核_bt.Location.Y

  72.         ZX2(36) = 收支單一覽表_bt.Size.Width : ZY2(36) = 收支單一覽表_bt.Size.Height : SX1(36) = 收支單一覽表_bt.Location.X : SY1(36) = 收支單一覽表_bt.Location.Y

  73.         ZX2(37) = 收支單對帳表_bt.Size.Width : ZY2(37) = 收支單對帳表_bt.Size.Height : SX1(37) = 收支單對帳表_bt.Location.X : SY1(37) = 收支單對帳表_bt.Location.Y

  74.         ZX2(38) = 財務收支決算表_bt.Size.Width : ZY2(38) = 財務收支決算表_bt.Size.Height : SX1(38) = 財務收支決算表_bt.Location.X : SY1(38) = 財務收支決算表_bt.Location.Y

  75.         ZX2(39) = 司機佣金計算_bt.Size.Width : ZY2(39) = 司機佣金計算_bt.Size.Height : SX1(39) = 司機佣金計算_bt.Location.X : SY1(39) = 司機佣金計算_bt.Location.Y

  76.         ZX2(40) = 業務佣金計算_bt.Size.Width : ZY2(40) = 業務佣金計算_bt.Size.Height : SX1(40) = 業務佣金計算_bt.Location.X : SY1(40) = 業務佣金計算_bt.Location.Y

  77.         ZX2(41) = 應付賬款控制表_bt.Size.Width : ZY2(41) = 應付賬款控制表_bt.Size.Height : SX1(41) = 應付賬款控制表_bt.Location.X : SY1(41) = 應付賬款控制表_bt.Location.Y

  78.         ZX2(42) = 營運狀態檢視表_bt.Size.Width : ZY2(42) = 營運狀態檢視表_bt.Size.Height : SX1(42) = 營運狀態檢視表_bt.Location.X : SY1(42) = 營運狀態檢視表_bt.Location.Y

  79.         ZX2(43) = 應收帳款控制表_bt.Size.Width : ZY2(43) = 應收帳款控制表_bt.Size.Height : SX1(43) = 應收帳款控制表_bt.Location.X : SY1(43) = 應收帳款控制表_bt.Location.Y

  80.         ZX2(44) = 車輛保養紀錄表_bt.Size.Width : ZY2(44) = 車輛保養紀錄表_bt.Size.Height : SX1(44) = 車輛保養紀錄表_bt.Location.X : SY1(44) = 車輛保養紀錄表_bt.Location.Y

  81.         ZX2(45) = 系統使用者管理_bt.Size.Width : ZY2(45) = 系統使用者管理_bt.Size.Height : SX1(45) = 系統使用者管理_bt.Location.X : SY1(45) = 系統使用者管理_bt.Location.Y

  82.         ZX2(46) = 系統通用變數管理_bt.Size.Width : ZY2(46) = 系統通用變數管理_bt.Size.Height : SX1(46) = 系統通用變數管理_bt.Location.X : SY1(46) = 系統通用變數管理_bt.Location.Y

  83.         ZX2(47) = 系統編碼規則1_bt.Size.Width : ZY2(47) = 系統編碼規則1_bt.Size.Height : SX1(47) = 系統編碼規則1_bt.Location.X : SY1(47) = 系統編碼規則1_bt.Location.Y

  84.         ZX2(48) = 系統執行檔版本管理_bt.Size.Width : ZY2(48) = 系統執行檔版本管理_bt.Size.Height : SX1(48) = 系統執行檔版本管理_bt.Location.X : SY1(48) = 系統執行檔版本管理_bt.Location.Y

  85.         ZX2(49) = 簽名檔管理_bt.Size.Width : ZY2(49) = 簽名檔管理_bt.Size.Height : SX1(49) = 簽名檔管理_bt.Location.X : SY1(49) = 簽名檔管理_bt.Location.Y

  86.         ZX2(50) = 盤盈盤損審核_bt.Size.Width : ZY2(50) = 盤盈盤損審核_bt.Size.Height : SX1(50) = 盤盈盤損審核_bt.Location.X : SY1(50) = 盤盈盤損審核_bt.Location.Y

  87. 

  88.         AX2(0) = 訂單管理控制表_pb.Size.Width : AY2(0) = 訂單管理控制表_pb.Size.Height : XX1(0) = 訂單管理控制表_pb.Location.X : XY1(0) = 訂單管理控制表_pb.Location.Y

  89.         AX2(1) = 銷售控制表_pb.Size.Width : AY2(1) = 銷售控制表_pb.Size.Height : XX1(1) = 銷售控制表_pb.Location.X : XY1(1) = 銷售控制表_pb.Location.Y

  90.         AX2(2) = 出貨單申請_pb.Size.Width : AY2(2) = 出貨單申請_pb.Size.Height : XX1(2) = 出貨單申請_pb.Location.X : XY1(2) = 出貨單申請_pb.Location.Y

  91.         AX2(3) = 訂單出貨控制表_pb.Size.Width : AY2(3) = 訂單出貨控制表_pb.Size.Height : XX1(3) = 訂單出貨控制表_pb.Location.X : XY1(3) = 訂單出貨控制表_pb.Location.Y

  92.         AX2(4) = 客戶資料管理_pb.Size.Width : AY2(4) = 客戶資料管理_pb.Size.Height : XX1(4) = 客戶資料管理_pb.Location.X : XY1(4) = 客戶資料管理_pb.Location.Y

  93.         AX2(5) = 訂單採購需求申請_pb.Size.Width : AY2(5) = 訂單採購需求申請_pb.Size.Height : XX1(5) = 訂單採購需求申請_pb.Location.X : XY1(5) = 訂單採購需求申請_pb.Location.Y

  94.         AX2(6) = 出貨確認_pb.Size.Width : AY2(6) = 出貨確認_pb.Size.Height : XX1(6) = 出貨確認_pb.Location.X : XY1(6) = 出貨確認_pb.Location.Y

  95.         AX2(7) = 銷售退貨確認_pb.Size.Width : AY2(7) = 銷售退貨確認_pb.Size.Height : XX1(7) = 銷售退貨確認_pb.Location.X : XY1(7) = 銷售退貨確認_pb.Location.Y

  96.         AX2(8) = 零售客戶記錄表_pb.Size.Width : AY2(8) = 零售客戶記錄表_pb.Size.Height : XX1(8) = 零售客戶記錄表_pb.Location.X : XY1(8) = 零售客戶記錄表_pb.Location.Y

  97.         AX2(9) = 維修單申請_pb.Size.Width : AY2(9) = 維修單申請_pb.Size.Height : XX1(9) = 維修單申請_pb.Location.X : XY1(9) = 維修單申請_pb.Location.Y

  98.         AX2(10) = 維修單出庫確認_pb.Size.Width : AY2(10) = 維修單出庫確認_pb.Size.Height : XX1(10) = 維修單出庫確認_pb.Location.X : XY1(10) = 維修單出庫確認_pb.Location.Y

  99.         AX2(11) = 銷售退貨申請_pb.Size.Width : AY2(11) = 銷售退貨申請_pb.Size.Height : XX1(11) = 銷售退貨申請_pb.Location.X : XY1(11) = 銷售退貨申請_pb.Location.Y

  100.         AX2(12) = 銷售退貨清單_pb.Size.Width : AY2(12) = 銷售退貨清單_pb.Size.Height : XX1(12) = 銷售退貨清單_pb.Location.X : XY1(12) = 銷售退貨清單_pb.Location.Y

  101.         AX2(13) = PictureBox14.Size.Width : AY2(13) = PictureBox14.Size.Height : XX1(13) = PictureBox14.Location.X : XY1(13) = PictureBox14.Location.Y

  102.         AX2(14) = 倉儲控制表_pb.Size.Width : AY2(14) = 倉儲控制表_pb.Size.Height : XX1(14) = 倉儲控制表_pb.Location.X : XY1(14) = 倉儲控制表_pb.Location.Y

  103.         AX2(15) = 物料資料庫_pb.Size.Width : AY2(15) = 物料資料庫_pb.Size.Height : XX1(15) = 物料資料庫_pb.Location.X : XY1(15) = 物料資料庫_pb.Location.Y

  104.         AX2(16) = 倉儲分區控制表_pb.Size.Width : AY2(16) = 倉儲分區控制表_pb.Size.Height : XX1(16) = 倉儲分區控制表_pb.Location.X : XY1(16) = 倉儲分區控制表_pb.Location.Y

  105.         AX2(17) = 倉儲庫存清單_pb.Size.Width : AY2(17) = 倉儲庫存清單_pb.Size.Height : XX1(17) = 倉儲庫存清單_pb.Location.X : XY1(17) = 倉儲庫存清單_pb.Location.Y

  106.         AX2(18) = 盤盈盤損控制表_pb.Size.Width : AY2(18) = 盤盈盤損控制表_pb.Size.Height : XX1(18) = 盤盈盤損控制表_pb.Location.X : XY1(18) = 盤盈盤損控制表_pb.Location.Y

  107.         AX2(19) = 倉儲入庫驗收_pb.Size.Width : AY2(19) = 倉儲入庫驗收_pb.Size.Height : XX1(19) = 倉儲入庫驗收_pb.Location.X : XY1(19) = 倉儲入庫驗收_pb.Location.Y

  108.         AX2(20) = 採購退貨審核_pb.Size.Width : AY2(20) = 採購退貨審核_pb.Size.Height : XX1(20) = 採購退貨審核_pb.Location.X : XY1(20) = 採購退貨審核_pb.Location.Y

  109.         AX2(21) = 採購退貨清單_pb.Size.Width : AY2(21) = 採購退貨清單_pb.Size.Height : XX1(21) = 採購退貨清單_pb.Location.X : XY1(21) = 採購退貨清單_pb.Location.Y

  110.         AX2(22) = 採購需求申請_pb.Size.Width : AY2(22) = 採購需求申請_pb.Size.Height : XX1(22) = 採購需求申請_pb.Location.X : XY1(22) = 採購需求申請_pb.Location.Y

  111.         AX2(23) = 供應商資料管理_pb.Size.Width : AY2(23) = 供應商資料管理_pb.Size.Height : XX1(23) = 供應商資料管理_pb.Location.X : XY1(23) = 供應商資料管理_pb.Location.Y

  112.         AX2(24) = 採購控制表_pb.Size.Width : AY2(24) = 採購控制表_pb.Size.Height : XX1(24) = 採購控制表_pb.Location.X : XY1(24) = 採購控制表_pb.Location.Y

  113.         AX2(25) = 採購退貨申請_pb.Size.Width : AY2(25) = 採購退貨申請_pb.Size.Height : XX1(25) = 採購退貨申請_pb.Location.X : XY1(25) = 採購退貨申請_pb.Location.Y

  114.         AX2(26) = 採購單申請_pb.Size.Width : AY2(26) = 採購單申請_pb.Size.Height : XX1(26) = 採購單申請_pb.Location.X : XY1(26) = 採購單申請_pb.Location.Y

  115.         AX2(27) = 生產控制表_pb.Size.Width : AY2(27) = 生產控制表_pb.Size.Height : XX1(27) = 生產控制表_pb.Location.X : XY1(27) = 生產控制表_pb.Location.Y

  116.         AX2(28) = 生產領料_pb.Size.Width : AY2(28) = 生產領料_pb.Size.Height : XX1(28) = 生產領料_pb.Location.X : XY1(28) = 生產領料_pb.Location.Y

  117.         AX2(29) = 完工入庫_pb.Size.Width : AY2(29) = 完工入庫_pb.Size.Height : XX1(29) = 完工入庫_pb.Location.X : XY1(29) = 完工入庫_pb.Location.Y

  118.         AX2(30) = 員工資料表_pb.Size.Width : AY2(30) = 員工資料表_pb.Size.Height : XX1(30) = 員工資料表_pb.Location.X : XY1(30) = 員工資料表_pb.Location.Y

  119.         AX2(31) = ID卡配置設定_pb.Size.Width : AY2(31) = ID卡配置設定_pb.Size.Height : XX1(31) = ID卡配置設定_pb.Location.X : XY1(31) = ID卡配置設定_pb.Location.Y

  120.         AX2(32) = 支票收支單申請_pb.Size.Width : AY2(32) = 支票收支單申請_pb.Size.Height : XX1(32) = 支票收支單申請_pb.Location.X : XY1(32) = 支票收支單申請_pb.Location.Y

  121.         AX2(33) = 現金收支單申請_pb.Size.Width : AY2(33) = 現金收支單申請_pb.Size.Height : XX1(33) = 現金收支單申請_pb.Location.X : XY1(33) = 現金收支單申請_pb.Location.Y

  122.         AX2(34) = 票務控制表_pb.Size.Width : AY2(34) = 票務控制表_pb.Size.Height : XX1(34) = 票務控制表_pb.Location.X : XY1(34) = 票務控制表_pb.Location.Y

  123.         AX2(35) = 財務收支單審核_pb.Size.Width : AY2(35) = 財務收支單審核_pb.Size.Height : XX1(35) = 財務收支單審核_pb.Location.X : XY1(35) = 財務收支單審核_pb.Location.Y

  124.         AX2(36) = 財務收支單一覽表_pb.Size.Width : AY2(36) = 財務收支單一覽表_pb.Size.Height : XX1(36) = 財務收支單一覽表_pb.Location.X : XY1(36) = 財務收支單一覽表_pb.Location.Y

  125.         AX2(37) = 收支單對帳表_pb.Size.Width : AY2(37) = 收支單對帳表_pb.Size.Height : XX1(37) = 收支單對帳表_pb.Location.X : XY1(37) = 收支單對帳表_pb.Location.Y

  126.         AX2(38) = 財務收支決算表_pb.Size.Width : AY2(38) = 財務收支決算表_pb.Size.Height : XX1(38) = 財務收支決算表_pb.Location.X : XY1(38) = 財務收支決算表_pb.Location.Y

  127.         AX2(39) = 司機佣金計算_pb.Size.Width : AY2(39) = 司機佣金計算_pb.Size.Height : XX1(39) = 司機佣金計算_pb.Location.X : XY1(39) = 司機佣金計算_pb.Location.Y

  128.         AX2(40) = 業務佣金計算_pb.Size.Width : AY2(40) = 業務佣金計算_pb.Size.Height : XX1(40) = 業務佣金計算_pb.Location.X : XY1(40) = 業務佣金計算_pb.Location.Y

  129.         AX2(41) = 應付賬款控制表_pb.Size.Width : AY2(41) = 應付賬款控制表_pb.Size.Height : XX1(41) = 應付賬款控制表_pb.Location.X : XY1(41) = 應付賬款控制表_pb.Location.Y

  130.         AX2(42) = 營運狀態檢視表_pb.Size.Width : AY2(42) = 營運狀態檢視表_pb.Size.Height : XX1(42) = 營運狀態檢視表_pb.Location.X : XY1(42) = 營運狀態檢視表_pb.Location.Y

  131.         AX2(43) = 應收帳款控制表_pb.Size.Width : AY2(43) = 應收帳款控制表_pb.Size.Height : XX1(43) = 應收帳款控制表_pb.Location.X : XY1(43) = 應收帳款控制表_pb.Location.Y

  132.         AX2(44) = 車輛保養紀錄表_pb.Size.Width : AY2(44) = 車輛保養紀錄表_pb.Size.Height : XX1(44) = 車輛保養紀錄表_pb.Location.X : XY1(44) = 車輛保養紀錄表_pb.Location.Y

  133.         AX2(45) = 系統使用者管理_pb.Size.Width : AY2(45) = 系統使用者管理_pb.Size.Height : XX1(45) = 系統使用者管理_pb.Location.X : XY1(45) = 系統使用者管理_pb.Location.Y

  134.         AX2(46) = 系統通用變數管理_pb.Size.Width : AY2(46) = 系統通用變數管理_pb.Size.Height : XX1(46) = 系統通用變數管理_pb.Location.X : XY1(46) = 系統通用變數管理_pb.Location.Y

  135.         AX2(47) = 系統編碼規則1_pb.Size.Width : AY2(47) = 系統編碼規則1_pb.Size.Height : XX1(47) = 系統編碼規則1_pb.Location.X : XY1(47) = 系統編碼規則1_pb.Location.Y

  136.         AX2(48) = 系統執行檔版本管理_pb.Size.Width : AY2(48) = 系統執行檔版本管理_pb.Size.Height : XX1(48) = 系統執行檔版本管理_pb.Location.X : XY1(48) = 系統執行檔版本管理_pb.Location.Y

  137.         AX2(49) = 簽名檔管理_pb.Size.Width : AY2(49) = 簽名檔管理_pb.Size.Height : XX1(49) = 簽名檔管理_pb.Location.X : XY1(49) = 簽名檔管理_pb.Location.Y

  138.         AX2(50) = 盤盈盤損審核_pb.Size.Width : AY2(50) = 盤盈盤損審核_pb.Size.Height : XX1(50) = 盤盈盤損審核_pb.Location.X : XY1(50) = 盤盈盤損審核_pb.Location.Y

  139. 

  140.         QX2(0) = Label1.Size.Width : QY2(0) = Label1.Size.Height : WX1(0) = Label1.Location.X : WY1(0) = Label1.Location.Y

  141.         QX2(1) = Label2.Size.Width : QY2(1) = Label2.Size.Height : WX1(1) = Label2.Location.X : WY1(1) = Label2.Location.Y

  142.         QX2(2) = Label3.Size.Width : QY2(2) = Label3.Size.Height : WX1(2) = Label3.Location.X : WY1(2) = Label3.Location.Y

  143.         QX2(3) = Label4.Size.Width : QY2(3) = Label4.Size.Height : WX1(3) = Label4.Location.X : WY1(3) = Label4.Location.Y

  144.         QX2(4) = Label5.Size.Width : QY2(4) = Label5.Size.Height : WX1(4) = Label5.Location.X : WY1(4) = Label5.Location.Y

  145.         QX2(5) = Label6.Size.Width : QY2(5) = Label6.Size.Height : WX1(5) = Label6.Location.X : WY1(5) = Label6.Location.Y

  146.         QX2(6) = Label7.Size.Width : QY2(6) = Label7.Size.Height : WX1(6) = Label7.Location.X : WY1(6) = Label7.Location.Y

  147.         QX2(7) = Label8.Size.Width : QY2(7) = Label8.Size.Height : WX1(7) = Label8.Location.X : WY1(7) = Label8.Location.Y

  148.         QX2(8) = Label9.Size.Width : QY2(8) = Label9.Size.Height : WX1(8) = Label9.Location.X : WY1(8) = Label9.Location.Y

  149.         QX2(9) = Label10.Size.Width : QY2(9) = Label10.Size.Height : WX1(9) = Label10.Location.X : WY1(9) = Label10.Location.Y

  150.         QX2(10) = Label11.Size.Width : QY2(10) = Label11.Size.Height : WX1(10) = Label11.Location.X : WY1(10) = Label11.Location.Y

  151.         '----------系統登入時抬頭資訊顯示---------------------------------------------------------------------------------------------------------------

  152.         Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本

  153.         ComboBox1下拉表單資料載入() : 公司名稱_cb.SelectedIndex = 1

  154.         NewWindowToolStripMenuItem.Visible = False

  155.         '----------系統登入權限執行---------------------------------------------------------------------------------------------------------------------

  156.         資料庫系統管理_tsm.Enabled = CC(0)

  157.         系統使用者管理_tsm.Enabled = CC(1) : 系統使用者管理_bt.Enabled = CC(1) : 系統通用變數管理_tsm.Enabled = CC(2) : 系統通用變數管理_bt.Enabled = CC(2)

  158.         系統編碼規則1_tsm.Enabled = CC(3) : 系統編碼規則1_bt.Enabled = CC(3) : 系統執行檔版本管理_tsm.Enabled = CC(4) : 系統執行檔版本管理_bt.Enabled = CC(4)

  159.         簽名檔管理_tsm.Enabled = CC(33) : 簽名檔管理_bt.Enabled = CC(33)

  160. 

  161.         '----------人事管理權限執行---------------------------------------------------------------------------------------------------------------------

  162.         人事系統管理_tsm.Enabled = CC(6)

  163.         員工資料表_tsm.Enabled = CC(7) : 員工資料表_bt.Enabled = CC(7) : ID卡配置設定_tsm.Enabled = CC(8) : ID卡配置設定_bt.Enabled = CC(8)

  164. 

  165.         '----------人事管理權限執行---------------------------------------------------------------------------------------------------------------------

  166.         總務系統管理_tsm.Enabled = CC(36)

  167.         車輛保養紀錄表_tsm.Enabled = CC(37) : 車輛保養紀錄表_bt.Enabled = CC(37)

  168. 

  169.         '----------業務管理權限執行---------------------------------------------------------------------------------------------------------------------

  170.         業務系統管理_tsm.Enabled = CC(9)

  171.         客戶資料管理_tsm.Enabled = CC(10) : 客戶資料管理_bt.Enabled = CC(10) : 銷售控制表_tsm.Enabled = CC(17) : 銷售控制表_bt.Enabled = CC(17)

  172.         出貨單申請_tsm.Enabled = CC(17) : 出貨單申請_bt.Enabled = CC(17) : 出貨確認_tsm.Enabled = CC(17) : 出貨確認_bt.Enabled = CC(17)

  173.         訂單管理控制表_tsm.Enabled = CC(38) : 訂單管理控制表_bt.Enabled = CC(38) : 訂單採購需求申請_tsm.Enabled = CC(39) : 訂單採購需求申請_bt.Enabled = CC(39)

  174.         訂單出貨控制表_tsm.Enabled = CC(40) : 訂單出貨控制表_bt.Enabled = CC(40) : 零售客戶記錄表_tsm.Enabled = CC(42) : 零售客戶記錄表_bt.Enabled = CC(42)

  175.         維修單申請_tsm.Enabled = CC(48) : 維修單申請_bt.Enabled = CC(48) : 維修單出庫確認_tsm.Enabled = CC(49) : 維修單出庫確認_bt.Enabled = CC(49)

  176.         銷售退貨申請_tsm.Enabled = CC(53) : 銷售退貨申請_bt.Enabled = CC(53) : 銷售退貨清單_tsm.Enabled = CC(54) : 銷售退貨清單_bt.Enabled = CC(54)

  177.         銷售退貨確認_tsm.Enabled = CC(55) : 銷售退貨確認_bt.Enabled = CC(55)

  178. 

  179.         '----------生產管理權限執行---------------------------------------------------------------------------------------------------------------------

  180.         生產系統管理_tsm.Enabled = CC(15)

  181.         生產控制表_tsm.Enabled = CC(20) : 生產控制表_bt.Enabled = CC(20) : 生產領料_tsm.Enabled = CC(21) : 生產領料_bt.Enabled = CC(21)

  182.         完工入庫_tsm.Enabled = CC(22) : 完工入庫_bt.Enabled = CC(22)

  183. 

  184.         '----------採購管理權限執行---------------------------------------------------------------------------------------------------------------------

  185.         採購系統管理_tsm.Enabled = CC(11)

  186.         供應商資料管理_tsm.Enabled = CC(12) : 供應商資料管理_bt.Enabled = CC(12) : 採購控制表_tsm.Enabled = CC(23) : 採購控制表_bt.Enabled = CC(23)

  187.         採購單申請_tsm.Enabled = CC(24) : 採購單申請_bt.Enabled = CC(24) : 採購需求申請_tsm.Enabled = CC(39) : 採購需求申請_bt.Enabled = CC(39)

  188.         採購退貨申請_tsm.Enabled = CC(50) : 採購退貨申請_bt.Enabled = CC(50) : 採購退貨清單_tsm.Enabled = CC(51) : 採購退貨清單_bt.Enabled = CC(51)

  189.         採購退貨審核_tsm.Enabled = CC(52) : 採購退貨審核_bt.Enabled = CC(52)

  190. 

  191.         '----------倉儲管理權限執行---------------------------------------------------------------------------------------------------------------------

  192.         倉儲系統管理_tsm.Enabled = CC(13)

  193.         倉儲控制表_tsm.Enabled = CC(25) : 倉儲控制表_bt.Enabled = CC(25) : 倉儲入庫驗收_tsm.Enabled = CC(26) : 倉儲入庫驗收_bt.Enabled = CC(26)

  194.         物料資料庫_tsm.Enabled = CC(14) : 物料資料庫_bt.Enabled = CC(14) : 倉儲分區控制表_tsm.Enabled = CC(34) : 倉儲分區控制表_bt.Enabled = CC(34)

  195.         倉儲庫存清單_tsm.Enabled = CC(41) : 倉儲庫存清單_bt.Enabled = CC(41) : 盤盈盤損控制表_tsm.Enabled = CC(43) : 盤盈盤損控制表_bt.Enabled = CC(43)

  196.         盤盈盤損審核_tsm.Enabled = CC(44) : 盤盈盤損審核_bt.Enabled = CC(44)

  197. 

  198.         '----------財務管理權限執行---------------------------------------------------------------------------------------------------------------------

  199.         財務系統管理_tsm.Enabled = CC(16)

  200.         現金收支單申請_tsm.Enabled = CC(27) : 現金收支單申請_bt.Enabled = CC(27) : 財務收支單審核_tsm.Enabled = CC(29) : 財務收支單審核_bt.Enabled = CC(29)

  201.         收支單一覽表_tsm.Enabled = CC(30) : 收支單一覽表_bt.Enabled = CC(30) : 收支單對帳表_tsm.Enabled = CC(31) : 收支單對帳表_bt.Enabled = CC(31)

  202.         財務收支決算表_tsm.Enabled = CC(32) : 財務收支決算表_bt.Enabled = CC(32) : 營運狀態檢視表_tsm.Enabled = CC(45) : 營運狀態檢視表_bt.Enabled = CC(45)

  203.         業務佣金計算_tsm.Enabled = CC(46) : 業務佣金計算_bt.Enabled = CC(46) : 司機佣金計算_tsm.Enabled = CC(47) : 司機佣金計算_bt.Enabled = CC(47)

  204.         應收帳款控制表_tsm.Enabled = CC(56) : 應收帳款控制表_bt.Enabled = CC(56) : 應付賬款控制表_tsm.Enabled = CC(57) : 應付賬款控制表_bt.Enabled = CC(57)

  205.         支票收支單申請_tsm.Enabled = CC(58) : 支票收支單申請_bt.Enabled = CC(58) : 票務控制表_tsm.Enabled = CC(59) : 票務控制表_bt.Enabled = CC(59)

  206.     End Sub

  207.     Private Sub MaoOrange_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  208.         If g_conn_type = "測試伺服器" Then

  209.             MsgBox("請注意，你現在登入的是測試的伺服器，如果您多次嘗試都無法登入 [雲端伺服器] ，請聯繫系統管理員為您排查!!")

  210.         End If

  211.     End Sub

  212.     Private Sub MDIParentbreak_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing

  213.         LoginForm1.Close()

  214.     End Sub

  215.     Private Sub MDIParentbreak_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

  216.         Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3

  217.         If ZX1 = 0 Or ZY1 = 0 Or ZX2(0) = 0 Or ZY2(0) = 0 Then : Else : 流程空間_p.BackgroundImage = Nothing

  218.             Dim WX As Double = 流程空間_p.Size.Width : Dim WY As Double = 流程空間_p.Size.Height

  219.             訂單管理控制表_bt.Size = New Size(WX * ZX2(0) / ZX1, WY * ZY2(0) / ZY1) : 訂單管理控制表_bt.Location = New Point(WX * SX1(0) / ZX1, WY * SY1(0) / ZY1)

  220.             銷售控制表_bt.Size = New Size(WX * ZX2(1) / ZX1, WY * ZY2(1) / ZY1) : 銷售控制表_bt.Location = New Point(WX * SX1(1) / ZX1, WY * SY1(1) / ZY1)

  221.             出貨單申請_bt.Size = New Size(WX * ZX2(2) / ZX1, WY * ZY2(2) / ZY1) : 出貨單申請_bt.Location = New Point(WX * SX1(2) / ZX1, WY * SY1(2) / ZY1)

  222.             訂單出貨控制表_bt.Size = New Size(WX * ZX2(3) / ZX1, WY * ZY2(3) / ZY1) : 訂單出貨控制表_bt.Location = New Point(WX * SX1(3) / ZX1, WY * SY1(3) / ZY1)

  223.             客戶資料管理_bt.Size = New Size(WX * ZX2(4) / ZX1, WY * ZY2(4) / ZY1) : 客戶資料管理_bt.Location = New Point(WX * SX1(4) / ZX1, WY * SY1(4) / ZY1)

  224.             訂單採購需求申請_bt.Size = New Size(WX * ZX2(5) / ZX1, WY * ZY2(5) / ZY1) : 訂單採購需求申請_bt.Location = New Point(WX * SX1(5) / ZX1, WY * SY1(5) / ZY1)

  225.             出貨確認_bt.Size = New Size(WX * ZX2(6) / ZX1, WY * ZY2(6) / ZY1) : 出貨確認_bt.Location = New Point(WX * SX1(6) / ZX1, WY * SY1(6) / ZY1)

  226.             銷售退貨確認_bt.Size = New Size(WX * ZX2(7) / ZX1, WY * ZY2(7) / ZY1) : 銷售退貨確認_bt.Location = New Point(WX * SX1(7) / ZX1, WY * SY1(7) / ZY1)

  227.             零售客戶記錄表_bt.Size = New Size(WX * ZX2(8) / ZX1, WY * ZY2(8) / ZY1) : 零售客戶記錄表_bt.Location = New Point(WX * SX1(8) / ZX1, WY * SY1(8) / ZY1)

  228.             維修單申請_bt.Size = New Size(WX * ZX2(9) / ZX1, WY * ZY2(9) / ZY1) : 維修單申請_bt.Location = New Point(WX * SX1(9) / ZX1, WY * SY1(9) / ZY1)

  229.             維修單出庫確認_bt.Size = New Size(WX * ZX2(10) / ZX1, WY * ZY2(10) / ZY1) : 維修單出庫確認_bt.Location = New Point(WX * SX1(10) / ZX1, WY * SY1(10) / ZY1)

  230.             銷售退貨申請_bt.Size = New Size(WX * ZX2(11) / ZX1, WY * ZY2(11) / ZY1) : 銷售退貨申請_bt.Location = New Point(WX * SX1(11) / ZX1, WY * SY1(11) / ZY1)

  231.             銷售退貨清單_bt.Size = New Size(WX * ZX2(12) / ZX1, WY * ZY2(12) / ZY1) : 銷售退貨清單_bt.Location = New Point(WX * SX1(12) / ZX1, WY * SY1(12) / ZY1)

  232.             Button14.Size = New Size(WX * ZX2(13) / ZX1, WY * ZY2(13) / ZY1) : Button14.Location = New Point(WX * SX1(13) / ZX1, WY * SY1(13) / ZY1)

  233.             倉儲控制表_bt.Size = New Size(WX * ZX2(14) / ZX1, WY * ZY2(14) / ZY1) : 倉儲控制表_bt.Location = New Point(WX * SX1(14) / ZX1, WY * SY1(14) / ZY1)

  234.             物料資料庫_bt.Size = New Size(WX * ZX2(15) / ZX1, WY * ZY2(15) / ZY1) : 物料資料庫_bt.Location = New Point(WX * SX1(15) / ZX1, WY * SY1(15) / ZY1)

  235.             倉儲分區控制表_bt.Size = New Size(WX * ZX2(16) / ZX1, WY * ZY2(16) / ZY1) : 倉儲分區控制表_bt.Location = New Point(WX * SX1(16) / ZX1, WY * SY1(16) / ZY1)

  236.             倉儲庫存清單_bt.Size = New Size(WX * ZX2(17) / ZX1, WY * ZY2(17) / ZY1) : 倉儲庫存清單_bt.Location = New Point(WX * SX1(17) / ZX1, WY * SY1(17) / ZY1)

  237.             盤盈盤損控制表_bt.Size = New Size(WX * ZX2(18) / ZX1, WY * ZY2(18) / ZY1) : 盤盈盤損控制表_bt.Location = New Point(WX * SX1(18) / ZX1, WY * SY1(18) / ZY1)

  238.             倉儲入庫驗收_bt.Size = New Size(WX * ZX2(19) / ZX1, WY * ZY2(19) / ZY1) : 倉儲入庫驗收_bt.Location = New Point(WX * SX1(19) / ZX1, WY * SY1(19) / ZY1)

  239.             採購退貨審核_bt.Size = New Size(WX * ZX2(20) / ZX1, WY * ZY2(20) / ZY1) : 採購退貨審核_bt.Location = New Point(WX * SX1(20) / ZX1, WY * SY1(20) / ZY1)

  240.             採購退貨清單_bt.Size = New Size(WX * ZX2(21) / ZX1, WY * ZY2(21) / ZY1) : 採購退貨清單_bt.Location = New Point(WX * SX1(21) / ZX1, WY * SY1(21) / ZY1)

  241.             採購需求申請_bt.Size = New Size(WX * ZX2(22) / ZX1, WY * ZY2(22) / ZY1) : 採購需求申請_bt.Location = New Point(WX * SX1(22) / ZX1, WY * SY1(22) / ZY1)

  242.             供應商資料管理_bt.Size = New Size(WX * ZX2(23) / ZX1, WY * ZY2(23) / ZY1) : 供應商資料管理_bt.Location = New Point(WX * SX1(23) / ZX1, WY * SY1(23) / ZY1)

  243.             採購控制表_bt.Size = New Size(WX * ZX2(24) / ZX1, WY * ZY2(24) / ZY1) : 採購控制表_bt.Location = New Point(WX * SX1(24) / ZX1, WY * SY1(24) / ZY1)

  244.             採購退貨申請_bt.Size = New Size(WX * ZX2(25) / ZX1, WY * ZY2(25) / ZY1) : 採購退貨申請_bt.Location = New Point(WX * SX1(25) / ZX1, WY * SY1(25) / ZY1)

  245.             採購單申請_bt.Size = New Size(WX * ZX2(26) / ZX1, WY * ZY2(26) / ZY1) : 採購單申請_bt.Location = New Point(WX * SX1(26) / ZX1, WY * SY1(26) / ZY1)

  246.             生產控制表_bt.Size = New Size(WX * ZX2(27) / ZX1, WY * ZY2(27) / ZY1) : 生產控制表_bt.Location = New Point(WX * SX1(27) / ZX1, WY * SY1(27) / ZY1)

  247.             生產領料_bt.Size = New Size(WX * ZX2(28) / ZX1, WY * ZY2(28) / ZY1) : 生產領料_bt.Location = New Point(WX * SX1(28) / ZX1, WY * SY1(28) / ZY1)

  248.             完工入庫_bt.Size = New Size(WX * ZX2(29) / ZX1, WY * ZY2(29) / ZY1) : 完工入庫_bt.Location = New Point(WX * SX1(29) / ZX1, WY * SY1(29) / ZY1)

  249.             員工資料表_bt.Size = New Size(WX * ZX2(30) / ZX1, WY * ZY2(30) / ZY1) : 員工資料表_bt.Location = New Point(WX * SX1(30) / ZX1, WY * SY1(30) / ZY1)

  250.             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)

  251.             支票收支單申請_bt.Size = New Size(WX * ZX2(32) / ZX1, WY * ZY2(32) / ZY1) : 支票收支單申請_bt.Location = New Point(WX * SX1(32) / ZX1, WY * SY1(32) / ZY1)

  252.             現金收支單申請_bt.Size = New Size(WX * ZX2(33) / ZX1, WY * ZY2(33) / ZY1) : 現金收支單申請_bt.Location = New Point(WX * SX1(33) / ZX1, WY * SY1(33) / ZY1)

  253.             票務控制表_bt.Size = New Size(WX * ZX2(34) / ZX1, WY * ZY2(34) / ZY1) : 票務控制表_bt.Location = New Point(WX * SX1(34) / ZX1, WY * SY1(34) / ZY1)

  254.             財務收支單審核_bt.Size = New Size(WX * ZX2(35) / ZX1, WY * ZY2(35) / ZY1) : 財務收支單審核_bt.Location = New Point(WX * SX1(35) / ZX1, WY * SY1(35) / ZY1)

  255.             收支單一覽表_bt.Size = New Size(WX * ZX2(36) / ZX1, WY * ZY2(36) / ZY1) : 收支單一覽表_bt.Location = New Point(WX * SX1(36) / ZX1, WY * SY1(36) / ZY1)

  256.             收支單對帳表_bt.Size = New Size(WX * ZX2(37) / ZX1, WY * ZY2(37) / ZY1) : 收支單對帳表_bt.Location = New Point(WX * SX1(37) / ZX1, WY * SY1(37) / ZY1)

  257.             財務收支決算表_bt.Size = New Size(WX * ZX2(38) / ZX1, WY * ZY2(38) / ZY1) : 財務收支決算表_bt.Location = New Point(WX * SX1(38) / ZX1, WY * SY1(38) / ZY1)

  258.             司機佣金計算_bt.Size = New Size(WX * ZX2(39) / ZX1, WY * ZY2(39) / ZY1) : 司機佣金計算_bt.Location = New Point(WX * SX1(39) / ZX1, WY * SY1(39) / ZY1)

  259.             業務佣金計算_bt.Size = New Size(WX * ZX2(40) / ZX1, WY * ZY2(40) / ZY1) : 業務佣金計算_bt.Location = New Point(WX * SX1(40) / ZX1, WY * SY1(40) / ZY1)

  260.             應付賬款控制表_bt.Size = New Size(WX * ZX2(41) / ZX1, WY * ZY2(41) / ZY1) : 應付賬款控制表_bt.Location = New Point(WX * SX1(41) / ZX1, WY * SY1(41) / ZY1)

  261.             營運狀態檢視表_bt.Size = New Size(WX * ZX2(42) / ZX1, WY * ZY2(42) / ZY1) : 營運狀態檢視表_bt.Location = New Point(WX * SX1(42) / ZX1, WY * SY1(42) / ZY1)

  262.             應收帳款控制表_bt.Size = New Size(WX * ZX2(43) / ZX1, WY * ZY2(43) / ZY1) : 應收帳款控制表_bt.Location = New Point(WX * SX1(43) / ZX1, WY * SY1(43) / ZY1)

  263.             車輛保養紀錄表_bt.Size = New Size(WX * ZX2(44) / ZX1, WY * ZY2(44) / ZY1) : 車輛保養紀錄表_bt.Location = New Point(WX * SX1(44) / ZX1, WY * SY1(44) / ZY1)

  264.             系統使用者管理_bt.Size = New Size(WX * ZX2(45) / ZX1, WY * ZY2(45) / ZY1) : 系統使用者管理_bt.Location = New Point(WX * SX1(45) / ZX1, WY * SY1(45) / ZY1)

  265.             系統通用變數管理_bt.Size = New Size(WX * ZX2(46) / ZX1, WY * ZY2(46) / ZY1) : 系統通用變數管理_bt.Location = New Point(WX * SX1(46) / ZX1, WY * SY1(46) / ZY1)

  266.             系統編碼規則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)

  267.             系統執行檔版本管理_bt.Size = New Size(WX * ZX2(48) / ZX1, WY * ZY2(48) / ZY1) : 系統執行檔版本管理_bt.Location = New Point(WX * SX1(48) / ZX1, WY * SY1(48) / ZY1)

  268.             簽名檔管理_bt.Size = New Size(WX * ZX2(49) / ZX1, WY * ZY2(49) / ZY1) : 簽名檔管理_bt.Location = New Point(WX * SX1(49) / ZX1, WY * SY1(49) / ZY1)

  269.             盤盈盤損審核_bt.Size = New Size(WX * ZX2(50) / ZX1, WY * ZY2(50) / ZY1) : 盤盈盤損審核_bt.Location = New Point(WX * SX1(50) / ZX1, WY * SY1(50) / ZY1)

  270. 

  271.             訂單管理控制表_pb.Size = New Size(WX * AX2(0) / ZX1, WY * AY2(0) / ZY1) : 訂單管理控制表_pb.Location = New Point(WX * XX1(0) / ZX1, WY * XY1(0) / ZY1)

  272.             銷售控制表_pb.Size = New Size(WX * AX2(1) / ZX1, WY * AY2(1) / ZY1) : 銷售控制表_pb.Location = New Point(WX * XX1(1) / ZX1, WY * XY1(1) / ZY1)

  273.             出貨單申請_pb.Size = New Size(WX * AX2(2) / ZX1, WY * AY2(2) / ZY1) : 出貨單申請_pb.Location = New Point(WX * XX1(2) / ZX1, WY * XY1(2) / ZY1)

  274.             訂單出貨控制表_pb.Size = New Size(WX * AX2(3) / ZX1, WY * AY2(3) / ZY1) : 訂單出貨控制表_pb.Location = New Point(WX * XX1(3) / ZX1, WY * XY1(3) / ZY1)

  275.             客戶資料管理_pb.Size = New Size(WX * AX2(4) / ZX1, WY * AY2(4) / ZY1) : 客戶資料管理_pb.Location = New Point(WX * XX1(4) / ZX1, WY * XY1(4) / ZY1)

  276.             訂單採購需求申請_pb.Size = New Size(WX * AX2(5) / ZX1, WY * AY2(5) / ZY1) : 訂單採購需求申請_pb.Location = New Point(WX * XX1(5) / ZX1, WY * XY1(5) / ZY1)

  277.             出貨確認_pb.Size = New Size(WX * AX2(6) / ZX1, WY * AY2(6) / ZY1) : 出貨確認_pb.Location = New Point(WX * XX1(6) / ZX1, WY * XY1(6) / ZY1)

  278.             銷售退貨確認_pb.Size = New Size(WX * AX2(7) / ZX1, WY * AY2(7) / ZY1) : 銷售退貨確認_pb.Location = New Point(WX * XX1(7) / ZX1, WY * XY1(7) / ZY1)

  279.             零售客戶記錄表_pb.Size = New Size(WX * AX2(8) / ZX1, WY * AY2(8) / ZY1) : 零售客戶記錄表_pb.Location = New Point(WX * XX1(8) / ZX1, WY * XY1(8) / ZY1)

  280.             維修單申請_pb.Size = New Size(WX * AX2(9) / ZX1, WY * AY2(9) / ZY1) : 維修單申請_pb.Location = New Point(WX * XX1(9) / ZX1, WY * XY1(9) / ZY1)

  281.             維修單出庫確認_pb.Size = New Size(WX * AX2(10) / ZX1, WY * AY2(10) / ZY1) : 維修單出庫確認_pb.Location = New Point(WX * XX1(10) / ZX1, WY * XY1(10) / ZY1)

  282.             銷售退貨申請_pb.Size = New Size(WX * AX2(11) / ZX1, WY * AY2(11) / ZY1) : 銷售退貨申請_pb.Location = New Point(WX * XX1(11) / ZX1, WY * XY1(11) / ZY1)

  283.             銷售退貨清單_pb.Size = New Size(WX * AX2(12) / ZX1, WY * AY2(12) / ZY1) : 銷售退貨清單_pb.Location = New Point(WX * XX1(12) / ZX1, WY * XY1(12) / ZY1)

  284.             PictureBox14.Size = New Size(WX * AX2(13) / ZX1, WY * AY2(13) / ZY1) : PictureBox14.Location = New Point(WX * XX1(13) / ZX1, WY * XY1(13) / ZY1)

  285.             倉儲控制表_pb.Size = New Size(WX * AX2(14) / ZX1, WY * AY2(14) / ZY1) : 倉儲控制表_pb.Location = New Point(WX * XX1(14) / ZX1, WY * XY1(14) / ZY1)

  286.             物料資料庫_pb.Size = New Size(WX * AX2(15) / ZX1, WY * AY2(15) / ZY1) : 物料資料庫_pb.Location = New Point(WX * XX1(15) / ZX1, WY * XY1(15) / ZY1)

  287.             倉儲分區控制表_pb.Size = New Size(WX * AX2(16) / ZX1, WY * AY2(16) / ZY1) : 倉儲分區控制表_pb.Location = New Point(WX * XX1(16) / ZX1, WY * XY1(16) / ZY1)

  288.             倉儲庫存清單_pb.Size = New Size(WX * AX2(17) / ZX1, WY * AY2(17) / ZY1) : 倉儲庫存清單_pb.Location = New Point(WX * XX1(17) / ZX1, WY * XY1(17) / ZY1)

  289.             盤盈盤損控制表_pb.Size = New Size(WX * AX2(18) / ZX1, WY * AY2(18) / ZY1) : 盤盈盤損控制表_pb.Location = New Point(WX * XX1(18) / ZX1, WY * XY1(18) / ZY1)

  290.             倉儲入庫驗收_pb.Size = New Size(WX * AX2(19) / ZX1, WY * AY2(19) / ZY1) : 倉儲入庫驗收_pb.Location = New Point(WX * XX1(19) / ZX1, WY * XY1(19) / ZY1)

  291.             採購退貨審核_pb.Size = New Size(WX * AX2(20) / ZX1, WY * AY2(20) / ZY1) : 採購退貨審核_pb.Location = New Point(WX * XX1(20) / ZX1, WY * XY1(20) / ZY1)

  292.             採購退貨清單_pb.Size = New Size(WX * AX2(21) / ZX1, WY * AY2(21) / ZY1) : 採購退貨清單_pb.Location = New Point(WX * XX1(21) / ZX1, WY * XY1(21) / ZY1)

  293.             採購需求申請_pb.Size = New Size(WX * AX2(22) / ZX1, WY * AY2(22) / ZY1) : 採購需求申請_pb.Location = New Point(WX * XX1(22) / ZX1, WY * XY1(22) / ZY1)

  294.             供應商資料管理_pb.Size = New Size(WX * AX2(23) / ZX1, WY * AY2(23) / ZY1) : 供應商資料管理_pb.Location = New Point(WX * XX1(23) / ZX1, WY * XY1(23) / ZY1)

  295.             採購控制表_pb.Size = New Size(WX * AX2(24) / ZX1, WY * AY2(24) / ZY1) : 採購控制表_pb.Location = New Point(WX * XX1(24) / ZX1, WY * XY1(24) / ZY1)

  296.             採購退貨申請_pb.Size = New Size(WX * AX2(25) / ZX1, WY * AY2(25) / ZY1) : 採購退貨申請_pb.Location = New Point(WX * XX1(25) / ZX1, WY * XY1(25) / ZY1)

  297.             採購單申請_pb.Size = New Size(WX * AX2(26) / ZX1, WY * AY2(26) / ZY1) : 採購單申請_pb.Location = New Point(WX * XX1(26) / ZX1, WY * XY1(26) / ZY1)

  298.             生產控制表_pb.Size = New Size(WX * AX2(27) / ZX1, WY * AY2(27) / ZY1) : 生產控制表_pb.Location = New Point(WX * XX1(27) / ZX1, WY * XY1(27) / ZY1)

  299.             生產領料_pb.Size = New Size(WX * AX2(28) / ZX1, WY * AY2(28) / ZY1) : 生產領料_pb.Location = New Point(WX * XX1(28) / ZX1, WY * XY1(28) / ZY1)

  300.             完工入庫_pb.Size = New Size(WX * AX2(29) / ZX1, WY * AY2(29) / ZY1) : 完工入庫_pb.Location = New Point(WX * XX1(29) / ZX1, WY * XY1(29) / ZY1)

  301.             員工資料表_pb.Size = New Size(WX * AX2(30) / ZX1, WY * AY2(30) / ZY1) : 員工資料表_pb.Location = New Point(WX * XX1(30) / ZX1, WY * XY1(30) / ZY1)

  302.             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)

  303.             支票收支單申請_pb.Size = New Size(WX * AX2(32) / ZX1, WY * AY2(32) / ZY1) : 支票收支單申請_pb.Location = New Point(WX * XX1(32) / ZX1, WY * XY1(32) / ZY1)

  304.             現金收支單申請_pb.Size = New Size(WX * AX2(33) / ZX1, WY * AY2(33) / ZY1) : 現金收支單申請_pb.Location = New Point(WX * XX1(33) / ZX1, WY * XY1(33) / ZY1)

  305.             票務控制表_pb.Size = New Size(WX * AX2(34) / ZX1, WY * AY2(34) / ZY1) : 票務控制表_pb.Location = New Point(WX * XX1(34) / ZX1, WY * XY1(34) / ZY1)

  306.             財務收支單審核_pb.Size = New Size(WX * AX2(35) / ZX1, WY * AY2(35) / ZY1) : 財務收支單審核_pb.Location = New Point(WX * XX1(35) / ZX1, WY * XY1(35) / ZY1)

  307.             財務收支單一覽表_pb.Size = New Size(WX * AX2(36) / ZX1, WY * AY2(36) / ZY1) : 財務收支單一覽表_pb.Location = New Point(WX * XX1(36) / ZX1, WY * XY1(36) / ZY1)

  308.             收支單對帳表_pb.Size = New Size(WX * AX2(37) / ZX1, WY * AY2(37) / ZY1) : 收支單對帳表_pb.Location = New Point(WX * XX1(37) / ZX1, WY * XY1(37) / ZY1)

  309.             財務收支決算表_pb.Size = New Size(WX * AX2(38) / ZX1, WY * AY2(38) / ZY1) : 財務收支決算表_pb.Location = New Point(WX * XX1(38) / ZX1, WY * XY1(38) / ZY1)

  310.             司機佣金計算_pb.Size = New Size(WX * AX2(39) / ZX1, WY * AY2(39) / ZY1) : 司機佣金計算_pb.Location = New Point(WX * XX1(39) / ZX1, WY * XY1(39) / ZY1)

  311.             業務佣金計算_pb.Size = New Size(WX * AX2(40) / ZX1, WY * AY2(40) / ZY1) : 業務佣金計算_pb.Location = New Point(WX * XX1(40) / ZX1, WY * XY1(40) / ZY1)

  312.             應付賬款控制表_pb.Size = New Size(WX * AX2(41) / ZX1, WY * AY2(41) / ZY1) : 應付賬款控制表_pb.Location = New Point(WX * XX1(41) / ZX1, WY * XY1(41) / ZY1)

  313.             營運狀態檢視表_pb.Size = New Size(WX * AX2(42) / ZX1, WY * AY2(42) / ZY1) : 營運狀態檢視表_pb.Location = New Point(WX * XX1(42) / ZX1, WY * XY1(42) / ZY1)

  314.             應收帳款控制表_pb.Size = New Size(WX * AX2(43) / ZX1, WY * AY2(43) / ZY1) : 應收帳款控制表_pb.Location = New Point(WX * XX1(43) / ZX1, WY * XY1(43) / ZY1)

  315.             車輛保養紀錄表_pb.Size = New Size(WX * AX2(44) / ZX1, WY * AY2(44) / ZY1) : 車輛保養紀錄表_pb.Location = New Point(WX * XX1(44) / ZX1, WY * XY1(44) / ZY1)

  316.             系統使用者管理_pb.Size = New Size(WX * AX2(45) / ZX1, WY * AY2(45) / ZY1) : 系統使用者管理_pb.Location = New Point(WX * XX1(45) / ZX1, WY * XY1(45) / ZY1)

  317.             系統通用變數管理_pb.Size = New Size(WX * AX2(46) / ZX1, WY * AY2(46) / ZY1) : 系統通用變數管理_pb.Location = New Point(WX * XX1(46) / ZX1, WY * XY1(46) / ZY1)

  318.             系統編碼規則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)

  319.             系統執行檔版本管理_pb.Size = New Size(WX * AX2(48) / ZX1, WY * AY2(48) / ZY1) : 系統執行檔版本管理_pb.Location = New Point(WX * XX1(48) / ZX1, WY * XY1(48) / ZY1)

  320.             簽名檔管理_pb.Size = New Size(WX * AX2(49) / ZX1, WY * AY2(49) / ZY1) : 簽名檔管理_pb.Location = New Point(WX * XX1(49) / ZX1, WY * XY1(49) / ZY1)

  321.             盤盈盤損審核_pb.Size = New Size(WX * AX2(50) / ZX1, WY * AY2(50) / ZY1) : 盤盈盤損審核_pb.Location = New Point(WX * XX1(50) / ZX1, WY * XY1(50) / ZY1)

  322. 

  323.             Label1.Size = New Size(WX * QX2(0) / ZX1, WY * QY2(0) / ZY1) : Label1.Location = New Point(WX * WX1(0) / ZX1, WY * WY1(0) / ZY1)

  324.             Label2.Size = New Size(WX * QX2(1) / ZX1, WY * QY2(1) / ZY1) : Label2.Location = New Point(WX * WX1(1) / ZX1, WY * WY1(1) / ZY1)

  325.             Label3.Size = New Size(WX * QX2(2) / ZX1, WY * QY2(2) / ZY1) : Label3.Location = New Point(WX * WX1(2) / ZX1, WY * WY1(2) / ZY1)

  326.             Label4.Size = New Size(WX * QX2(3) / ZX1, WY * QY2(3) / ZY1) : Label4.Location = New Point(WX * WX1(3) / ZX1, WY * WY1(3) / ZY1)

  327.             Label5.Size = New Size(WX * QX2(4) / ZX1, WY * QY2(4) / ZY1) : Label5.Location = New Point(WX * WX1(4) / ZX1, WY * WY1(4) / ZY1)

  328.             Label6.Size = New Size(WX * QX2(5) / ZX1, WY * QY2(5) / ZY1) : Label6.Location = New Point(WX * WX1(5) / ZX1, WY * WY1(5) / ZY1)

  329.             Label7.Size = New Size(WX * QX2(6) / ZX1, WY * QY2(6) / ZY1) : Label7.Location = New Point(WX * WX1(6) / ZX1, WY * WY1(6) / ZY1)

  330.             Label8.Size = New Size(WX * QX2(7) / ZX1, WY * QY2(7) / ZY1) : Label8.Location = New Point(WX * WX1(7) / ZX1, WY * WY1(7) / ZY1)

  331.             Label9.Size = New Size(WX * QX2(8) / ZX1, WY * QY2(8) / ZY1) : Label9.Location = New Point(WX * WX1(8) / ZX1, WY * WY1(8) / ZY1)

  332.             Label10.Size = New Size(WX * QX2(9) / ZX1, WY * QY2(9) / ZY1) : Label10.Location = New Point(WX * WX1(9) / ZX1, WY * WY1(9) / ZY1)

  333.             Label11.Size = New Size(WX * QX2(10) / ZX1, WY * QY2(10) / ZY1) : Label11.Location = New Point(WX * WX1(10) / ZX1, WY * WY1(10) / ZY1)

  334.         End If : 流程空間_p.BackgroundImage = My.Resources.SOP : 流程空間_p.BackgroundImageLayout = 3

  335.     End Sub

  336.     Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 公司名稱_cb.SelectedIndexChanged

  337.         PA = 公司名稱_cb.Text : SQL_公司基本資料宣告()

  338.         If dr.Read() Then : 公司編號 = dr("公司編號") : 公司電話 = dr("電話") : 公司統編 = dr("統編") : 公司地址 = dr("地址") : End If : conn.Close() : PA = ""

  339.     End Sub

  340.     Private Sub 虛擬桌面隱藏()

  341.         流程空間_p.Visible = False

  342.     End Sub

  343.     Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click

  344.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  345.         虛擬桌面隱藏() : PA = "" : 系統使用者管理.Show() : 系統使用者管理.BringToFront()

  346.     End Sub

  347.     Private Sub 系統使用者管理_bt_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_bt.Click

  348.         系統使用者管理_tsm.PerformClick()

  349.     End Sub

  350.     Private Sub 系統通用變數管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click

  351.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  352.         虛擬桌面隱藏() : PA = "" : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront()

  353.     End Sub

  354.     Private Sub 系統通用變數管理_bt_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_bt.Click

  355.         系統通用變數管理_tsm.PerformClick()

  356.     End Sub

  357.     Private Sub 系統編碼規則1_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼規則1_tsm.Click

  358.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  359.         虛擬桌面隱藏() : PA = "" : 系統編碼規則_1.Show() : 系統編碼規則_1.BringToFront()

  360.     End Sub

  361.     Private Sub 系統編碼規則1_bt_Click(sender As Object, e As EventArgs) Handles 系統編碼規則1_bt.Click

  362.         系統編碼規則1_tsm.PerformClick()

  363.     End Sub

  364.     Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click

  365.         PA = "" : 系統執行檔版本管理.ShowDialog()

  366.     End Sub

  367.     Private Sub 系統執行檔版本管理_bt_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_bt.Click

  368.         系統執行檔版本管理_tsm.PerformClick()

  369.     End Sub

  370.     Private Sub 人員ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡配置設定_tsm.Click

  371.         PA = "" : 員工ID卡系統配置設定.ShowDialog()

  372.     End Sub

  373.     Private Sub ID卡配置設定_bt_Click(sender As Object, e As EventArgs) Handles ID卡配置設定_bt.Click

  374.         ID卡配置設定_tsm.PerformClick()

  375.     End Sub

  376.     Private Sub 員工資料表_tsm_Click_1(sender As Object, e As EventArgs) Handles 員工資料表_tsm.Click

  377.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  378.         虛擬桌面隱藏() : PA = "" : 員工資料表.Show() : 員工資料表.BringToFront()

  379.     End Sub

  380.     Private Sub 員工資料表_bt_Click(sender As Object, e As EventArgs) Handles 員工資料表_bt.Click

  381.         員工資料表_tsm.PerformClick()

  382.     End Sub

  383.     Private Sub 客戶資料管理_tsm_Click(sender As Object, e As EventArgs) Handles 客戶資料管理_tsm.Click

  384.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  385.         虛擬桌面隱藏() : PA = "" : 客戶資料管理.Show() : 客戶資料管理.BringToFront()

  386.     End Sub

  387.     Private Sub 客戶資料管理_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料管理_bt.Click

  388.         客戶資料管理_tsm.PerformClick()

  389.     End Sub

  390.     Private Sub 供應商資料管理_tsm_Click(sender As Object, e As EventArgs) Handles 供應商資料管理_tsm.Click

  391.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  392.         虛擬桌面隱藏() : PA = "" : 供應商資料管理.Show() : 供應商資料管理.BringToFront()

  393.     End Sub

  394.     Private Sub 供應商資料管理_bt_Click(sender As Object, e As EventArgs) Handles 供應商資料管理_bt.Click

  395.         供應商資料管理_tsm.PerformClick()

  396.     End Sub

  397.     Private Sub 物料資料庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料資料庫_tsm.Click

  398.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  399.         虛擬桌面隱藏() : PA = "" : 物料資料庫.Show() : 物料資料庫.BringToFront()

  400.     End Sub

  401.     Private Sub 物料資料庫_bt_Click(sender As Object, e As EventArgs) Handles 物料資料庫_bt.Click

  402.         物料資料庫_tsm.PerformClick()

  403.     End Sub

  404.     Private Sub 營運成本支付申請_tsm_Click(sender As Object, e As EventArgs) Handles 現金收支單申請_tsm.Click

  405.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  406.         虛擬桌面隱藏() : PA = "" : 現金收支單申請.Show() : 現金收支單申請.BringToFront()

  407.     End Sub

  408.     Private Sub 現金收支單申請_bt_Click(sender As Object, e As EventArgs) Handles 現金收支單申請_bt.Click

  409.         現金收支單申請_tsm.PerformClick()

  410.     End Sub

  411.     Private Sub 營運費用支付審核_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支單審核_tsm.Click

  412.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  413.         虛擬桌面隱藏() : PA = "" : 財務收支單審核.Show() : 財務收支單審核.BringToFront()

  414.     End Sub

  415.     Private Sub 財務收支單審核_bt_Click(sender As Object, e As EventArgs) Handles 財務收支單審核_bt.Click

  416.         財務收支單審核_tsm.PerformClick()

  417.     End Sub

  418.     Private Sub 營運費用支付單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 收支單一覽表_tsm.Click

  419.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  420.         虛擬桌面隱藏() : PA = "" : 財務收支單一覽表.Show() : 財務收支單一覽表.BringToFront()

  421.     End Sub

  422.     Private Sub 收支單一覽表_bt_Click(sender As Object, e As EventArgs) Handles 收支單一覽表_bt.Click

  423.         收支單一覽表_tsm.PerformClick()

  424.     End Sub

  425.     Private Sub 營運成本收支單對帳表_tsm_Click(sender As Object, e As EventArgs) Handles 收支單對帳表_tsm.Click

  426.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  427.         虛擬桌面隱藏() : PA = "" : 財務收支單_對帳表.Show() : 財務收支單_對帳表.BringToFront()

  428.     End Sub

  429.     Private Sub 收支單對帳表_bt_Click(sender As Object, e As EventArgs) Handles 收支單對帳表_bt.Click

  430.         收支單對帳表_tsm.PerformClick()

  431.     End Sub

  432.     Private Sub 採購單申請_tsm_Click(sender As Object, e As EventArgs) Handles 採購單申請_tsm.Click

  433.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  434.         虛擬桌面隱藏() : PA = "" : 採購單申請.Show() : 採購單申請.BringToFront()

  435.     End Sub

  436.     Private Sub 採購單申請_bt_Click(sender As Object, e As EventArgs) Handles 採購單申請_bt.Click

  437.         採購單申請_tsm.PerformClick()

  438.     End Sub

  439.     Private Sub 倉儲入庫驗收_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_tsm.Click

  440.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  441.         虛擬桌面隱藏() : PA = "" : 倉儲入庫驗收.Show() : 倉儲入庫驗收.BringToFront()

  442.     End Sub

  443.     Private Sub 倉儲入庫驗收_bt_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_bt.Click

  444.         倉儲入庫驗收_tsm.PerformClick()

  445.     End Sub

  446.     Private Sub 倉儲控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_tsm.Click

  447.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  448.         虛擬桌面隱藏() : PA = "" : 倉儲控制表.Show() : 倉儲控制表.BringToFront()

  449.     End Sub

  450.     Private Sub 倉儲控制表_bt_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_bt.Click

  451.         倉儲控制表_tsm.PerformClick()

  452.     End Sub

  453.     Private Sub 出貨單申請_tsm_Click(sender As Object, e As EventArgs) Handles 出貨單申請_tsm.Click

  454.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  455.         虛擬桌面隱藏() : PA = "" : 出貨單申請.Show() : 出貨單申請.BringToFront()

  456.     End Sub

  457.     Private Sub 出貨單申請_bt_Click(sender As Object, e As EventArgs) Handles 出貨單申請_bt.Click

  458.         出貨單申請_tsm.PerformClick()

  459.     End Sub

  460.     Private Sub 出貨確認_tsm_Click(sender As Object, e As EventArgs) Handles 出貨確認_tsm.Click

  461.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  462.         虛擬桌面隱藏() : PA = "" : 出貨確認.Show() : 出貨確認.BringToFront()

  463.     End Sub

  464.     Private Sub 出貨確認_bt_Click(sender As Object, e As EventArgs) Handles 出貨確認_bt.Click

  465.         出貨確認_tsm.PerformClick()

  466.     End Sub

  467.     Private Sub 銷售控制表_tsm_Click(sender As Object, e As EventArgs) Handles 銷售控制表_tsm.Click

  468.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  469.         虛擬桌面隱藏() : PA = "" : 銷售控制表.Show() : 銷售控制表.BringToFront()

  470.     End Sub

  471.     Private Sub 銷售控制表_bt_Click(sender As Object, e As EventArgs) Handles 銷售控制表_bt.Click

  472.         銷售控制表_tsm.PerformClick()

  473.     End Sub

  474.     Private Sub 生產確認_tsm1_Click(sender As Object, e As EventArgs) Handles 生產領料_tsm.Click

  475.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  476.         虛擬桌面隱藏() : PA = "" : 生產確認.Show() : 生產確認.BringToFront()

  477.     End Sub

  478.     Private Sub 生產領料_bt_Click(sender As Object, e As EventArgs) Handles 生產領料_bt.Click

  479.         生產領料_tsm.PerformClick()

  480.     End Sub

  481.     Private Sub 生產控制表_tsm_Click(sender As Object, e As EventArgs) Handles 生產控制表_tsm.Click

  482.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  483.         虛擬桌面隱藏() : PA = "" : 生產控制表.Show() : 生產控制表.BringToFront()

  484.     End Sub

  485.     Private Sub 生產控制表_bt_Click(sender As Object, e As EventArgs) Handles 生產控制表_bt.Click

  486.         生產控制表_tsm.PerformClick()

  487.     End Sub

  488.     Private Sub 採購控制表_tsm_Click(sender As Object, e As EventArgs) Handles 採購控制表_tsm.Click

  489.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  490.         虛擬桌面隱藏() : PA = "" : 採購控制表.Show() : 採購控制表.BringToFront()

  491.     End Sub

  492.     Private Sub 採購控制表_bt_Click(sender As Object, e As EventArgs) Handles 採購控制表_bt.Click

  493.         採購控制表_tsm.PerformClick()

  494.     End Sub

  495.     Private Sub 生產入庫_tsm_Click(sender As Object, e As EventArgs) Handles 完工入庫_tsm.Click

  496.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  497.         虛擬桌面隱藏() : PA = "" : 生產入庫.Show() : 生產入庫.BringToFront()

  498.     End Sub

  499.     Private Sub 完工入庫_bt_Click(sender As Object, e As EventArgs) Handles 完工入庫_bt.Click

  500.         完工入庫_tsm.PerformClick()

  501.     End Sub

  502.     Private Sub 營運報表_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支決算表_tsm.Click

  503.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  504.         虛擬桌面隱藏() : PA = "" : 營運成本收支_決算表.Show() : 營運成本收支_決算表.BringToFront()

  505.     End Sub

  506.     Private Sub 財務收支決算表_bt_Click(sender As Object, e As EventArgs) Handles 財務收支決算表_bt.Click

  507.         財務收支決算表_tsm.PerformClick()

  508.     End Sub

  509.     Private Sub 簽名檔管理_tsm_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_tsm.Click

  510.         PA = "" : 簽名檔管理.ShowDialog()

  511.     End Sub

  512.     Private Sub 簽名檔管理_bt_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_bt.Click

  513.         簽名檔管理_tsm.PerformClick()

  514.     End Sub

  515.     Private Sub 倉儲分區控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_tsm.Click

  516.         PA = "" : 倉儲分區控制表.ShowDialog()

  517.     End Sub

  518.     Private Sub 倉儲分區控制表_bt_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_bt.Click

  519.         倉儲分區控制表_tsm.PerformClick()

  520.     End Sub

  521.     Private Sub 車輛保養紀錄表_tsm_Click(sender As Object, e As EventArgs) Handles 車輛保養紀錄表_tsm.Click

  522.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  523.         虛擬桌面隱藏() : PA = "" : 車輛保養紀錄表.Show() : 車輛保養紀錄表.BringToFront()

  524.     End Sub

  525.     Private Sub 車輛保養紀錄表_bt_Click(sender As Object, e As EventArgs) Handles 車輛保養紀錄表_bt.Click

  526.         車輛保養紀錄表_tsm.PerformClick()

  527.     End Sub

  528.     Private Sub 訂單資料輸入_tsm_Click(sender As Object, e As EventArgs) Handles 訂單管理控制表_tsm.Click

  529.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  530.         虛擬桌面隱藏() : PA = "" : 訂單管理控制表.Show() : 訂單管理控制表.BringToFront()

  531.     End Sub

  532.     Private Sub 訂單管理控制表_bt_Click(sender As Object, e As EventArgs) Handles 訂單管理控制表_bt.Click

  533.         訂單管理控制表_tsm.PerformClick()

  534.     End Sub

  535.     Private Sub 訂單採購需求申請_tsm_Click(sender As Object, e As EventArgs) Handles 訂單採購需求申請_tsm.Click

  536.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  537.         虛擬桌面隱藏() : PA = "" : 訂單採購需求申請.Show() : 訂單採購需求申請.BringToFront()

  538.     End Sub

  539.     Private Sub 訂單採購需求申請_bt_Click(sender As Object, e As EventArgs) Handles 訂單採購需求申請_bt.Click

  540.         訂單採購需求申請_tsm.PerformClick()

  541.     End Sub

  542.     Private Sub 訂單採購需求申請_tsm1_Click(sender As Object, e As EventArgs) Handles 採購需求申請_tsm.Click

  543.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  544.         虛擬桌面隱藏() : PA = "" : 訂單採購需求申請.Show() : 訂單採購需求申請.BringToFront()

  545.     End Sub

  546.     Private Sub 採購需求申請_bt_Click(sender As Object, e As EventArgs) Handles 採購需求申請_bt.Click

  547.         採購需求申請_tsm.PerformClick()

  548.     End Sub

  549.     Private Sub 訂單控制表_tsm_Click(sender As Object, e As EventArgs) Handles 訂單出貨控制表_tsm.Click

  550.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  551.         虛擬桌面隱藏() : PA = "" : 訂單出貨控制表.Show() : 訂單出貨控制表.BringToFront()

  552.     End Sub

  553.     Private Sub 訂單出貨控制表_bt_Click(sender As Object, e As EventArgs) Handles 訂單出貨控制表_bt.Click

  554.         訂單出貨控制表_tsm.PerformClick()

  555.     End Sub

  556.     Private Sub 倉儲庫存清單_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲庫存清單_tsm.Click

  557.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  558.         虛擬桌面隱藏() : PA = "" : 倉儲庫存清單.Show() : 倉儲庫存清單.BringToFront()

  559.     End Sub

  560.     Private Sub 倉儲庫存清單_bt_Click(sender As Object, e As EventArgs) Handles 倉儲庫存清單_bt.Click

  561.         倉儲庫存清單_tsm.PerformClick()

  562.     End Sub

  563.     Private Sub 零售客戶記錄表_tsm_Click(sender As Object, e As EventArgs) Handles 零售客戶記錄表_tsm.Click

  564.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  565.         虛擬桌面隱藏() : PA = "" : 零售客戶記錄表.Show() : 零售客戶記錄表.BringToFront()

  566.     End Sub

  567.     Private Sub 零售客戶記錄表_bt_Click(sender As Object, e As EventArgs) Handles 零售客戶記錄表_bt.Click

  568.         零售客戶記錄表_tsm.PerformClick()

  569.     End Sub

  570.     Private Sub 盤盈盤損控制表_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損控制表_tsm.Click

  571.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  572.         虛擬桌面隱藏() : PA = "" : 盤盈盤損控制表.Show() : 盤盈盤損控制表.BringToFront()

  573.     End Sub

  574.     Private Sub 盤盈盤損控制表_bt_Click(sender As Object, e As EventArgs) Handles 盤盈盤損控制表_bt.Click

  575.         盤盈盤損控制表_tsm.PerformClick()

  576.     End Sub

  577.     Private Sub 盤盈坢損確認倉儲調整_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_tsm.Click

  578.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  579.         虛擬桌面隱藏() : PA = "" : 盤盈盤損確認.Show() : 盤盈盤損確認.BringToFront()

  580.     End Sub

  581.     Private Sub 盤盈盤損審核_bt_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_bt.Click

  582.         盤盈盤損審核_tsm.PerformClick()

  583.     End Sub

  584.     Private Sub 營運狀態彙總檢視表_tsm_Click(sender As Object, e As EventArgs) Handles 營運狀態檢視表_tsm.Click

  585.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  586.         虛擬桌面隱藏() : PA = "" : 營運狀態彙總_檢視表.Show() : 營運狀態彙總_檢視表.BringToFront()

  587.     End Sub

  588.     Private Sub 營運狀態檢視表_bt_Click(sender As Object, e As EventArgs) Handles 營運狀態檢視表_bt.Click

  589.         營運狀態檢視表_tsm.PerformClick()

  590.     End Sub

  591.     Private Sub 業務佣金計算_tsm_Click(sender As Object, e As EventArgs) Handles 業務佣金計算_tsm.Click

  592.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  593.         虛擬桌面隱藏() : PA = "" : 業務佣金計算.Show() : 業務佣金計算.BringToFront()

  594.     End Sub

  595.     Private Sub 業務佣金計算_bt_Click(sender As Object, e As EventArgs) Handles 業務佣金計算_bt.Click

  596.         業務佣金計算_tsm.PerformClick()

  597.     End Sub

  598.     Private Sub 司機佣金計算_tsm_Click(sender As Object, e As EventArgs) Handles 司機佣金計算_tsm.Click

  599.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  600.         虛擬桌面隱藏() : PA = "" : 司機佣金計算.Show() : 司機佣金計算.BringToFront()

  601.     End Sub

  602.     Private Sub 司機佣金計算_bt_Click(sender As Object, e As EventArgs) Handles 司機佣金計算_bt.Click

  603.         司機佣金計算_tsm.PerformClick()

  604.     End Sub

  605.     Private Sub 維修單申請_tsm_Click(sender As Object, e As EventArgs) Handles 維修單申請_tsm.Click

  606.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  607.         虛擬桌面隱藏() : PA = "" : 維修單申請.Show() : 維修單申請.BringToFront()

  608.     End Sub

  609.     Private Sub 維修單申請_bt_Click(sender As Object, e As EventArgs) Handles 維修單申請_bt.Click

  610.         維修單申請_tsm.PerformClick()

  611.     End Sub

  612.     Private Sub 維修單出庫確認_tsm_Click(sender As Object, e As EventArgs) Handles 維修單出庫確認_tsm.Click

  613.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  614.         虛擬桌面隱藏() : PA = "" : 維修單出庫確認.Show() : 維修單出庫確認.BringToFront()

  615.     End Sub

  616.     Private Sub 維修單出庫確認_bt_Click(sender As Object, e As EventArgs) Handles 維修單出庫確認_bt.Click

  617.         維修單出庫確認_tsm.PerformClick()

  618.     End Sub

  619.     Private Sub 採購退貨申請_tsm_Click(sender As Object, e As EventArgs) Handles 採購退貨申請_tsm.Click

  620.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  621.         虛擬桌面隱藏() : PA = "" : 採購退貨申請.Show() : 採購退貨申請.BringToFront()

  622.     End Sub

  623.     Private Sub 採購退貨申請_bt_Click(sender As Object, e As EventArgs) Handles 採購退貨申請_bt.Click

  624.         採購退貨申請_tsm.PerformClick()

  625.     End Sub

  626.     Private Sub 採購退貨清單_tsm_Click(sender As Object, e As EventArgs) Handles 採購退貨清單_tsm.Click

  627.         'PA = "" : 採購退貨清單.Show() : 採購退貨清單.BringToFront()

  628.     End Sub

  629.     Private Sub 採購退貨清單_bt_Click(sender As Object, e As EventArgs) Handles 採購退貨清單_bt.Click

  630.         採購退貨清單_tsm.PerformClick()

  631.     End Sub

  632.     Private Sub 採購退貨確認_tsm_Click(sender As Object, e As EventArgs) Handles 採購退貨審核_tsm.Click

  633.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  634.         虛擬桌面隱藏() : PA = "" : 採購退貨確認.Show() : 採購退貨確認.BringToFront()

  635.     End Sub

  636.     Private Sub 採購退貨審核_bt_Click(sender As Object, e As EventArgs) Handles 採購退貨審核_bt.Click

  637.         採購退貨審核_tsm.PerformClick()

  638.     End Sub

  639.     Private Sub 銷售退貨申請_tsm_Click(sender As Object, e As EventArgs) Handles 銷售退貨申請_tsm.Click

  640.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  641.         虛擬桌面隱藏() : PA = "" : 銷售退貨申請.Show() : 銷售退貨申請.BringToFront()

  642.     End Sub

  643.     Private Sub 銷售退貨申請_bt_Click(sender As Object, e As EventArgs) Handles 銷售退貨申請_bt.Click

  644.         銷售退貨申請_tsm.PerformClick()

  645.     End Sub

  646.     Private Sub 銷售退貨清單_tsm_Click(sender As Object, e As EventArgs) Handles 銷售退貨清單_tsm.Click

  647.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  648.         虛擬桌面隱藏() : PA = "" : 銷售退貨清單.Show() : 銷售退貨清單.BringToFront()

  649.     End Sub

  650.     Private Sub 銷售退貨清單_bt_Click(sender As Object, e As EventArgs) Handles 銷售退貨清單_bt.Click

  651.         銷售退貨清單_tsm.PerformClick()

  652.     End Sub

  653.     Private Sub 銷售退貨確認_tsm_Click(sender As Object, e As EventArgs) Handles 銷售退貨確認_tsm.Click

  654.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  655.         虛擬桌面隱藏() : PA = "" : 銷售退貨確認.Show() : 銷售退貨確認.BringToFront()

  656.     End Sub

  657.     Private Sub 銷售退貨確認_bt_Click(sender As Object, e As EventArgs) Handles 銷售退貨確認_bt.Click

  658.         銷售退貨確認_tsm.PerformClick()

  659.     End Sub

  660.     Private Sub 應付賬款_tsm_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表_tsm.Click

  661.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  662.         虛擬桌面隱藏() : PA = "" : 應付賬款控制表.Show() : 應付賬款控制表.BringToFront()

  663.     End Sub

  664.     Private Sub 應付賬款控制表_bt_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表_bt.Click

  665.         應付賬款控制表_tsm.PerformClick()

  666.     End Sub

  667.     Private Sub 應收帳款_tsm_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表_tsm.Click

  668.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  669.         虛擬桌面隱藏() : PA = "" : 應收帳款控制表.Show() : 應收帳款控制表.BringToFront()

  670.     End Sub

  671.     Private Sub 應收帳款控制表_bt_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表_bt.Click

  672.         應收帳款控制表_tsm.PerformClick()

  673.     End Sub

  674.     Private Sub 支票收支單申請_tsm_Click(sender As Object, e As EventArgs) Handles 支票收支單申請_tsm.Click

  675.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  676.         虛擬桌面隱藏() : PA = "" : 支票收支單申請.Show() : 支票收支單申請.BringToFront()

  677.     End Sub

  678.     Private Sub 支票收支單申請_bt_Click(sender As Object, e As EventArgs) Handles 支票收支單申請_bt.Click

  679.         支票收支單申請_tsm.PerformClick()

  680.     End Sub

  681.     Private Sub 票務控制表_tsm_Click(sender As Object, e As EventArgs) Handles 票務控制表_tsm.Click

  682.         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

  683.         虛擬桌面隱藏() : PA = "" : 票務控制表.Show() : 票務控制表.BringToFront()

  684.     End Sub

  685.     Private Sub 票務控制表_bt_Click(sender As Object, e As EventArgs) Handles 票務控制表_bt.Click

  686.         票務控制表_tsm.PerformClick()

  687.     End Sub

  688. End Class