123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178 |
- Option Explicit On
- Imports System.IO
- Imports System.Text
- Imports System.ComponentModel
- Public Class HX_PGS_ERP_SYS
- ReadOnly ds4 As New DataSet
- ReadOnly 對話框(30) As String
- Dim sysnud As String
- Dim 系統關閉 As Boolean = False
- Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles 開新視窗_tsm.Click
- ' 建立子表單的新執行個體。
- ' 將它變成這個 MDI 表單的子表單,然後才顯示。
- Dim ChildForm As New Form With {
- .MdiParent = Me
- }
- m_ChildFormNumber += 1
- ChildForm.Text = "視窗 " & m_ChildFormNumber
- ChildForm.Show()
- End Sub
- Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 結束_tsm.Click
- Me.Close()
- End Sub
- Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 重疊顯示_tsm.Click
- Me.LayoutMdi(MdiLayout.Cascade)
- End Sub
- Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 垂直並排_tsm.Click
- Me.LayoutMdi(MdiLayout.TileVertical)
- End Sub
- Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 水平並排_tsm.Click
- Me.LayoutMdi(MdiLayout.TileHorizontal)
- End Sub
- Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 排列圖示_tsm.Click
- Me.LayoutMdi(MdiLayout.ArrangeIcons)
- End Sub
- Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 全部關閉_tsm.Click
- ' 關閉父表單的所有子表單。
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : MyModule1.虛擬桌面開啟()
- End Sub
-
- Private m_ChildFormNumber As Integer
- Private Sub Set_報價未完成()
- Dim ds16 As New DataSet : 報價未完成_dgv.DataSource = Nothing : ds16.Clear() : 報價未完成_dgv.AllowUserToAddRows = False
- SQL_報價未完成() : da.Fill(ds16) : 報價未完成_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 報價未完成_dgv.Columns(0).FillWeight = 70 : 報價未完成_dgv.Columns(1).FillWeight = 45 : 報價未完成_dgv.Columns(2).FillWeight = 120
- 報價未完成_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 報價未完成_dgv.Columns(2).Visible = True : 報價未完成_dgv.Columns(3).Visible = False
- Else : 報價未完成_dgv.Columns(2).Visible = False : 報價未完成_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_報價未簽回()
- Dim ds16 As New DataSet : 報價未簽回_dgv.DataSource = Nothing : ds16.Clear() : 報價未簽回_dgv.AllowUserToAddRows = False
- SQL_報價未簽回() : da.Fill(ds16) : 報價未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 報價未簽回_dgv.Columns(0).FillWeight = 70 : 報價未簽回_dgv.Columns(1).FillWeight = 45 : 報價未簽回_dgv.Columns(2).FillWeight = 120
- 報價未簽回_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 報價未簽回_dgv.Columns(2).Visible = True : 報價未簽回_dgv.Columns(3).Visible = False
- Else : 報價未簽回_dgv.Columns(2).Visible = False : 報價未簽回_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未簽回()
- Dim ds16 As New DataSet : 合約未簽回_dgv.DataSource = Nothing : ds16.Clear() : 合約未簽回_dgv.AllowUserToAddRows = False
- SQL_合約未簽回() : da.Fill(ds16) : 合約未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約未簽回_dgv.Columns(0).FillWeight = 70 : 合約未簽回_dgv.Columns(1).FillWeight = 45 : 合約未簽回_dgv.Columns(2).FillWeight = 120
- 合約未簽回_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約未簽回_dgv.Columns(2).Visible = True : 合約未簽回_dgv.Columns(3).Visible = False
- Else : 合約未簽回_dgv.Columns(2).Visible = False : 合約未簽回_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約驗收單未簽回()
- Dim ds16 As New DataSet : 驗收未簽回_dgv.DataSource = Nothing : ds16.Clear() : 驗收未簽回_dgv.AllowUserToAddRows = False
- SQL_合約驗收單未簽回() : da.Fill(ds16) : 驗收未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 驗收未簽回_dgv.Columns(0).FillWeight = 70 : 驗收未簽回_dgv.Columns(1).FillWeight = 45 : 驗收未簽回_dgv.Columns(2).FillWeight = 120
- 驗收未簽回_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 驗收未簽回_dgv.Columns(2).Visible = True : 驗收未簽回_dgv.Columns(3).Visible = False
- Else : 驗收未簽回_dgv.Columns(2).Visible = False : 驗收未簽回_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約保固單未簽()
- Dim ds16 As New DataSet : 保固未簽回_dgv.DataSource = Nothing : ds16.Clear() : 保固未簽回_dgv.AllowUserToAddRows = False
- SQL_合約保固未簽() : da.Fill(ds16) : 保固未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 保固未簽回_dgv.Columns(0).FillWeight = 70 : 保固未簽回_dgv.Columns(1).FillWeight = 45 : 保固未簽回_dgv.Columns(2).FillWeight = 120
- 保固未簽回_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 保固未簽回_dgv.Columns(2).Visible = True : 保固未簽回_dgv.Columns(3).Visible = False
- Else : 保固未簽回_dgv.Columns(2).Visible = False : 保固未簽回_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_工程進度表未開()
- Dim ds16 As New DataSet
- 未開工程進度表_dgv.DataSource = Nothing : ds16.Clear() : 未開工程進度表_dgv.AllowUserToAddRows = False
- SQL_工程進度表未開() : da.Fill(ds16) : 未開工程進度表_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 未開工程進度表_dgv.Columns(0).FillWeight = 70 : 未開工程進度表_dgv.Columns(1).FillWeight = 45 : 未開工程進度表_dgv.Columns(2).FillWeight = 120
- 未開工程進度表_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 未開工程進度表_dgv.Columns(2).Visible = True : 未開工程進度表_dgv.Columns(3).Visible = False
- Else : 未開工程進度表_dgv.Columns(2).Visible = False : 未開工程進度表_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未指定主管()
- Dim ds16 As New DataSet : 合約未指定主管_dgv.DataSource = Nothing : ds16.Clear() : 合約未指定主管_dgv.AllowUserToAddRows = False
- SQL_合約未指定主管() : da.Fill(ds16) : 合約未指定主管_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約未指定主管_dgv.Columns(0).FillWeight = 70 : 合約未指定主管_dgv.Columns(1).FillWeight = 45 : 合約未指定主管_dgv.Columns(2).FillWeight = 120
- 合約未指定主管_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約未指定主管_dgv.Columns(2).Visible = True : 合約未指定主管_dgv.Columns(3).Visible = False
- Else : 合約未指定主管_dgv.Columns(2).Visible = False : 合約未指定主管_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未設利潤()
- Dim ds16 As New DataSet : 合約預估利潤_dgv.DataSource = Nothing : ds16.Clear() : 合約預估利潤_dgv.AllowUserToAddRows = False
- SQL_合約未設利潤() : da.Fill(ds16) : 合約預估利潤_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約預估利潤_dgv.Columns(0).FillWeight = 70 : 合約預估利潤_dgv.Columns(1).FillWeight = 45 : 合約預估利潤_dgv.Columns(2).FillWeight = 120
- 合約預估利潤_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約預估利潤_dgv.Columns(2).Visible = True : 合約預估利潤_dgv.Columns(3).Visible = False
- Else : 合約預估利潤_dgv.Columns(2).Visible = False : 合約預估利潤_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未放行()
- Dim ds16 As New DataSet : 合約未放行_dgv.DataSource = Nothing : ds16.Clear() : 合約未放行_dgv.AllowUserToAddRows = False
- SQL_合約未放行() : da.Fill(ds16) : 合約未放行_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約未放行_dgv.Columns(0).FillWeight = 70 : 合約未放行_dgv.Columns(1).FillWeight = 45 : 合約未放行_dgv.Columns(2).FillWeight = 120
- 合約未放行_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約未放行_dgv.Columns(2).Visible = True : 合約未放行_dgv.Columns(3).Visible = False
- Else : 合約未放行_dgv.Columns(2).Visible = False : 合約未放行_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未驗收()
- Dim ds16 As New DataSet : 合約未驗收_dgv.DataSource = Nothing : ds16.Clear() : 合約未驗收_dgv.AllowUserToAddRows = False
- SQL_合約未驗收() : da.Fill(ds16) : 合約未驗收_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約未驗收_dgv.Columns(0).FillWeight = 70 : 合約未驗收_dgv.Columns(1).FillWeight = 45 : 合約未驗收_dgv.Columns(2).FillWeight = 120
- 合約未驗收_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約未驗收_dgv.Columns(2).Visible = True : 合約未驗收_dgv.Columns(3).Visible = False
- Else : 合約未驗收_dgv.Columns(2).Visible = False : 合約未驗收_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未請款5()
- Dim ds16 As New DataSet : 合約請款5_dgv.DataSource = Nothing : ds16.Clear() : 合約請款5_dgv.AllowUserToAddRows = False
- SQL_合約未請款5() : da.Fill(ds16) : 合約請款5_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約請款5_dgv.Columns(0).FillWeight = 70 : 合約請款5_dgv.Columns(1).FillWeight = 45 : 合約請款5_dgv.Columns(2).FillWeight = 120
- 合約請款5_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約請款5_dgv.Columns(2).Visible = True : 合約請款5_dgv.Columns(3).Visible = False
- Else : 合約請款5_dgv.Columns(2).Visible = False : 合約請款5_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未請款4()
- Dim ds16 As New DataSet : 合約請款4_dgv.DataSource = Nothing : ds16.Clear() : 合約請款4_dgv.AllowUserToAddRows = False
- SQL_合約未請款4() : da.Fill(ds16) : 合約請款4_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約請款4_dgv.Columns(0).FillWeight = 70 : 合約請款4_dgv.Columns(1).FillWeight = 45 : 合約請款4_dgv.Columns(2).FillWeight = 120
- 合約請款4_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約請款4_dgv.Columns(2).Visible = True : 合約請款4_dgv.Columns(3).Visible = False
- Else : 合約請款4_dgv.Columns(2).Visible = False : 合約請款4_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未請款3()
- Dim ds16 As New DataSet : 合約請款3_dgv.DataSource = Nothing : ds16.Clear() : 合約請款3_dgv.AllowUserToAddRows = False
- SQL_合約未請款3() : da.Fill(ds16) : 合約請款3_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約請款3_dgv.Columns(0).FillWeight = 70 : 合約請款3_dgv.Columns(1).FillWeight = 45 : 合約請款3_dgv.Columns(2).FillWeight = 120
- 合約請款3_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約請款3_dgv.Columns(2).Visible = True : 合約請款3_dgv.Columns(3).Visible = False
- Else : 合約請款3_dgv.Columns(2).Visible = False : 合約請款3_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未請款2()
- Dim ds16 As New DataSet : 合約請款2_dgv.DataSource = Nothing : ds16.Clear() : 合約請款2_dgv.AllowUserToAddRows = False
- SQL_合約未請款2() : da.Fill(ds16) : 合約請款2_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約請款2_dgv.Columns(0).FillWeight = 70 : 合約請款2_dgv.Columns(1).FillWeight = 45 : 合約請款2_dgv.Columns(2).FillWeight = 120
- 合約請款2_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約請款2_dgv.Columns(2).Visible = True : 合約請款2_dgv.Columns(3).Visible = False
- Else : 合約請款2_dgv.Columns(2).Visible = False : 合約請款2_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_合約未請款1()
- Dim ds16 As New DataSet : 合約請款1_dgv.DataSource = Nothing : ds16.Clear() : 合約請款1_dgv.AllowUserToAddRows = False
- SQL_合約未請款1() : da.Fill(ds16) : 合約請款1_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 合約請款1_dgv.Columns(0).FillWeight = 70 : 合約請款1_dgv.Columns(1).FillWeight = 45 : 合約請款1_dgv.Columns(2).FillWeight = 120
- 合約請款1_dgv.Columns(3).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 合約請款1_dgv.Columns(2).Visible = True : 合約請款1_dgv.Columns(3).Visible = False
- Else : 合約請款1_dgv.Columns(2).Visible = False : 合約請款1_dgv.Columns(3).Visible = True : End If
- End Sub
- Private Sub Set_部門聯絡函_未驗收()
- Dim ds16 As New DataSet : 聯絡函_未驗收_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未驗收_dgv.AllowUserToAddRows = False
- SQL_未驗收_聯絡函() : da.Fill(ds16) : 聯絡函_未驗收_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 聯絡函_未驗收_dgv.Columns(0).FillWeight = 50 : 聯絡函_未驗收_dgv.Columns(1).FillWeight = 60 : 聯絡函_未驗收_dgv.Columns(2).FillWeight = 120
- End Sub
- Private Sub Set_部門聯絡函_未執行()
- Dim ds16 As New DataSet : 聯絡函_未執行_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未執行_dgv.AllowUserToAddRows = False
- SQL_未執行_聯絡函() : da.Fill(ds16) : 聯絡函_未執行_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 聯絡函_未執行_dgv.Columns(0).FillWeight = 50 : 聯絡函_未執行_dgv.Columns(1).FillWeight = 60 : 聯絡函_未執行_dgv.Columns(2).FillWeight = 120
- End Sub
- Private Sub Set_部門聯絡函_未收()
- Dim ds16 As New DataSet : 聯絡函_未收_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未收_dgv.AllowUserToAddRows = False
- SQL_未收_聯絡函() : da.Fill(ds16) : 聯絡函_未收_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 聯絡函_未收_dgv.Columns(0).FillWeight = 50 : 聯絡函_未收_dgv.Columns(1).FillWeight = 60 : 聯絡函_未收_dgv.Columns(2).FillWeight = 120
- End Sub
- Private Sub Set_部門聯絡函_未審()
- Dim ds16 As New DataSet : 聯絡函_未審_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未審_dgv.AllowUserToAddRows = False
- SQL_未審_聯絡函() : da.Fill(ds16) : 聯絡函_未審_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 聯絡函_未審_dgv.Columns(0).FillWeight = 50 : 聯絡函_未審_dgv.Columns(1).FillWeight = 60 : 聯絡函_未審_dgv.Columns(2).FillWeight = 120
- End Sub
- Private Sub Set_採購核准11()
- Dim ds16 As New DataSet : 採購核准11_dgv.DataSource = Nothing : ds16.Clear() : 採購核准11_dgv.AllowUserToAddRows = False
- SQL_採購核准11() : da.Fill(ds16) : 採購核准11_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 採購核准11_dgv.Columns(0).FillWeight = 80 : 採購核准11_dgv.Columns(1).FillWeight = 45 : 採購核准11_dgv.Columns(2).FillWeight = 100
- End Sub
- Private Sub Set_採購核准12()
- Dim ds16 As New DataSet : 採購核准12_dgv.DataSource = Nothing : ds16.Clear() : 採購核准12_dgv.AllowUserToAddRows = False
- SQL_採購核准12() : da.Fill(ds16) : 採購核准12_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 採購核准12_dgv.Columns(0).FillWeight = 80 : 採購核准12_dgv.Columns(1).FillWeight = 45 : 採購核准12_dgv.Columns(2).FillWeight = 100
- End Sub
- Private Sub Set_詢價單1()
- Dim ds16 As New DataSet : 詢價單_dgv.DataSource = Nothing : ds16.Clear() : 詢價單_dgv.AllowUserToAddRows = False
- SQL_採購單單數() : da.Fill(ds16) : 詢價單_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 詢價單_dgv.Columns(0).FillWeight = 70 : 詢價單_dgv.Columns(1).FillWeight = 45 : 詢價單_dgv.Columns(2).FillWeight = 60
- 詢價單_dgv.Columns(3).FillWeight = 120 : 詢價單_dgv.Columns(4).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 詢價單_dgv.Columns(3).Visible = True : 詢價單_dgv.Columns(4).Visible = False
- Else : 詢價單_dgv.Columns(3).Visible = False : 詢價單_dgv.Columns(4).Visible = True : End If
- End Sub
- Private Sub Set_請購單()
- Dim ds16 As New DataSet : 請購單_dgv.DataSource = Nothing : ds16.Clear() : 請購單_dgv.AllowUserToAddRows = False
- SQL_請購單申請未核准單數() : da.Fill(ds16) : 請購單_dgv.DataSource = ds16.Tables(0) : conn.Close()
- 請購單_dgv.Columns(0).FillWeight = 70 : 請購單_dgv.Columns(1).FillWeight = 45 : 請購單_dgv.Columns(2).FillWeight = 60
- 請購單_dgv.Columns(3).FillWeight = 120 : 請購單_dgv.Columns(4).FillWeight = 120
- If 系統語言 = "繁體中文" Then : 請購單_dgv.Columns(3).Visible = True : 請購單_dgv.Columns(4).Visible = False
- Else : 請購單_dgv.Columns(3).Visible = False : 請購單_dgv.Columns(4).Visible = True : End If
- End Sub
- Private Sub Set_語言()
- 語言_dgv.DataSource = Nothing : ds4.Clear() : 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False
- SQL_系統語言導入() : da.Fill(ds4) : 語言_dgv.DataSource = ds4.Tables(0) : conn.Close()
- End Sub
- Private Sub 語言轉換讀取()
- Set_語言() : conn.Close()
- For i As Integer = 0 To 語言_dgv.Rows.Count - 1
- '------------------------系統-------------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "檔案_tsm" Then : 檔案_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "個人帳號管理_tsm" Then : 個人帳號管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 個人帳號管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "結束_tsm" Then : 結束_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "視窗_tsm" Then : 視窗_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "低網速模式_ch" Then : 低網速模式_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統版本" Then : sysnud = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "執行進度_tss" Then : 執行進度_tss.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "著作權_tss" Then : 著作權_tss.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "開新視窗_tsm" Then : 開新視窗_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "重疊顯示_tsm" Then : 重疊顯示_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "垂直並排_tsm" Then : 垂直並排_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "水平並排_tsm" Then : 水平並排_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "全部關閉_tsm" Then : 全部關閉_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "排列圖示_tsm" Then : 排列圖示_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框7" Then : 對話框(6) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框8" Then : 對話框(7) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框9" Then : 對話框(8) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框10" Then : 對話框(9) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框11" Then : 對話框(10) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框12" Then : 對話框(11) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框13" Then : 對話框(12) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框14" Then : 對話框(13) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框15" Then : 對話框(14) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框16" Then : 對話框(15) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框17" Then : 對話框(16) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框18" Then : 對話框(17) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框19" Then : 對話框(18) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框20" Then : 對話框(19) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框21" Then : 對話框(20) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框22" Then : 對話框(21) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框23" Then : 對話框(22) = 語言_dgv("內容", i).Value.ToString : End If
- '------------------------章程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "簡易功能_tsm" Then : 簡易功能_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "文件伺服器_tsm" Then : 文件伺服器_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 文件伺服器_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統使用說明_tsm" Then : 系統使用說明_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統使用說明_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "單次授權功能_tsm" Then : 單次授權功能_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 單次授權功能_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "會議記錄_tsm" Then : 會議記錄_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 會議記錄_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "安培容量計算表_tsm" Then : 安培容量計算表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 安培容量計算表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "部門聯絡函一覽表_tsm" Then : 部門聯絡函一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 部門聯絡函一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "部門聯絡函申請_tsm" Then : 部門聯絡函申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 部門聯絡函申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "聯絡函部門主管審核_tsm" Then : 聯絡函部門主管審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 聯絡函部門主管審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "聯絡函最高主管核准_tsm" Then : 聯絡函最高主管核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 聯絡函最高主管核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "業務系統管理_tsm" Then : 業務系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約執行進度_tsm" Then : 合約執行進度_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約執行進度_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約利潤預估表_tsm" Then : 合約利潤預估表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約利潤預估表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約報價單_tsm" Then : 合約報價單_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約報價單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約報價單審核_tsm" Then : 合約報價單審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約報價單審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約管理系統_tsm" Then : 合約本文_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約本文_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "附錄合約_tsm" Then : 附錄合約_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 附錄合約_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約模組設定_tsm" Then : 合約模組設定_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約請款單_tsm" Then : 合約請款單_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約請款單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約請款控制表_tsm" Then : 合約請款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約請款控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約驗收單_tsm" Then : 合約驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約驗收單1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString
- 合約驗收單1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約驗收控制表_tsm" Then : 合約驗收控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約驗收控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約驗收控制表_lb.Text = 語言_dgv("內容", i).Value.ToString
- 合約驗收控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約保固書_tsm" Then : 合約保固書_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約保固書_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約文件簽回存檔_tsm" Then : 合約文件簽回存檔_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約文件簽回存檔_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約文件簽核控制表_tsm" Then : 合約文件簽核控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約文件簽核控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約結案控制表_tsm" Then : 合約結案控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約結案控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約結案控制表_lb.Text = 語言_dgv("內容", i).Value.ToString
- 合約結案控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "合約圖庫管理系統_tsm" Then : 合約工程圖庫管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 合約工程圖庫管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "工程項目BOM表_tsm" Then : 工程項目BOM表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 工程項目BOM表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "客戶資料表_tsm" Then : 客戶資料表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 客戶資料表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "採購系統管理_tsm" Then : 採購系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料請購單申請_tsm" Then : 樣品請購單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品請購單申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料請購單核准_tsm" Then : 樣品請購單核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品請購單核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料請購單一覽表_tsm" Then : 樣品請購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品請購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料採購單生成_tsm" Then : 樣品採購單生成_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品採購單生成_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料採購單一級核准_tsm" Then : 樣品採購單一級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品採購單一級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料採購單二級核准_tsm" Then : 樣品採購單二級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品採購單二級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料採購單一覽表_tsm" Then : 樣品採購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品採購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料來料驗收單_tsm" Then : 樣品來料驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品來料驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料採購驗收對帳表_tsm" Then : 樣品採購驗收對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 樣品採購驗收對帳表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 樣品採購驗收對帳表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "行政物料供應商管理_tsm" Then : 樣品供應商管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
-
- If 語言_dgv("控件", i).Value.ToString = "建築物料請購單申請_tsm" Then : 請購單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 請購單申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料請購單核準_tsm" Then : 請購單核準_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 請購單核準_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料請購一覽表_tsm" Then : 請購一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 請購一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "採購單詢價_tsm" Then : 採購單詢價_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 採購單詢價_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料採購單生成_tsm" Then : 採購單編輯_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 採購單編輯_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料採購單一級核准_tsm" Then : 採購單一級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 採購單一級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料採購單二級核准_tsm" Then : 採購單二級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 採購單二級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料採購單一覽表_tsm" Then : 採購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 採購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料入庫驗收單_tsm" Then : 入庫驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 入庫驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料採購驗收對帳表_tsm" Then : 採購驗收對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 採購驗收對帳表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 採購驗收對帳表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建築物料供應商管理_tsm" Then : 供應商管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 供應商管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "物料採購統計表_tsm" Then : 物料採購統計表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 物料採購統計表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "供應商商品單價清單_tsm" Then : 供應商商品單價設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 供應商商品單價設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "工程系統管理_tsm" Then : 工程系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "工程材料表_tsm" Then : 工程材料表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 工程材料表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "工程進度表_tsm" Then : 工程進度表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 工程進度表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "派工人數紀錄表_tsm" Then : 派工人數紀錄表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 派工人數紀錄表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "工程日報表編輯_tsm" Then : 工程日報表編輯_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 工程日報表編輯_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "工程客變單_tsm" Then : 工程客變單_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 工程客變單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "工程維修單_tsm" Then : 工程維修單_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 工程維修單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "工程分區控制表_tsm" Then : 工程分區控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 工程分區控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : 工程分區控制表_lb.Text = 語言_dgv("內容", i).Value.ToString
- 工程分區控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- '------------------------倉儲管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "倉儲系統管理_tsm" Then : 倉儲系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "總部倉儲控制表_tsm" Then : 倉儲控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 倉儲控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "總部倉儲入庫驗收_tsm" Then : 倉儲入庫驗收_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 倉儲入庫驗收_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫_tsm" Then : 物料轉倉申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 物料轉倉申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫審核_tsm" Then : 物料轉倉審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 物料轉倉審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫作業_tsm" Then : 物料轉倉出庫_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 物料轉倉出庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料申請_tsm" Then : 倉儲領料申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 倉儲領料申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料審核_tsm" Then : 倉儲領料審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 倉儲領料審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料出庫_tsm" Then : 倉儲領料出庫_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 倉儲領料出庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "物料退回區域倉儲作業_tsm" Then : 物料退庫_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 物料退庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "倉儲單據狀態看板_tsm" Then : 倉儲單據狀態看板_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 倉儲單據狀態看板_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "物料資料庫_tsm" Then : 物料資料庫_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 物料資料庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "盤盈盤損申請_tsm" Then : 盤盈盤損申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 盤盈盤損申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "盤盈盤損審核_tsm" Then : 盤盈盤損審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 盤盈盤損審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "倉儲分區控制表_tsm" Then : 倉儲分區控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 倉儲分區控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "財務系統管理_tsm" Then : 財務系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "零用金支付申請_tsm" Then : 零用金支付申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "零用金支付審核_tsm" Then : 零用金支付審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "零用金支付核准_tsm" Then : 零用金支付核准_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "零用金支付單一覽表_tsm" Then : 零用金支付單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "零用金支付對帳表_tsm" Then : 零用金支付對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "應收帳款控制表_tsm" Then : 應收帳款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "應付賬款控制表_tsm" Then : 應付賬款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "支票收支申請_tsm" Then : 支票收支申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "支票收支審核_tsm" Then : 支票收支審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "支票收支核准_tsm" Then : 支票收支核准_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "支票票務控制表_tsm" Then : 支票票務控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "現金流量表_tsm" Then : 現金流量表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "綜合損益表_tsm" Then : 綜合損益表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "權益變動表_tsm" Then : 權益變動表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "資產負載表_tsm" Then : 資產負載表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "營運收支單申請_tsm" Then : 營運收支單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "營運收支單審核_tsm" Then : 營運收支單審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "營運收支單一覽表_tsm" Then : 營運收支單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "營運收支單對帳表_tsm" Then : 營運收支單對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "營運收支決算表_tsm" Then : 營運收支決算表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "匯率管理_tsm" Then : 匯率管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "會計科目管理_tsm" Then : 會計科目管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "公司組織結構_tsm" Then : 公司組織結構_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 公司組織結構_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "人事系統管理_tsm" Then : 人事系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "人員ID卡系統配置設定_tsm" Then : 人員ID卡系統配置設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 人員ID卡系統配置設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統組織結構與權限設定_tsm" Then : 系統組織結構與權限設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統組織結構與權限設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 語言_dgv("控件", i).Value.ToString = "資料庫系統管理_tsm" Then : 資料庫系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統使用者管理_tsm" Then : 系統使用者管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統使用者管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統權限預設表_tsm" Then : 系統權限預設表_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統權限預設表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統組織架構設定_tsm" Then : 系統組織架構設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統組織架構設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "部門權限設定_tsm" Then : 部門權限設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 部門權限設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
-
- If 語言_dgv("控件", i).Value.ToString = "系統通用變數管理_tsm" Then : 系統通用變數管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統通用變數管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統編碼規則_tsm" Then : 系統編碼規則_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統編碼規則_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統對應電腦註冊_tsm" Then : 系統對應電腦註冊_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統對應電腦註冊_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統執行檔版本管理_tsm" Then : 系統執行檔版本管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 系統執行檔版本管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "FTP資料夾管理_tsm" Then : FTP資料夾管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
- FTP資料夾管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "系統開發用共享文件_tsm" Then : 系統開發用共享文件_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "簽名檔管理_tsm" Then : 簽名檔管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
- 簽名檔管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- Next
- End Sub
- Private Sub HXGPSERPSYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Me.Size = New Point(1366, 768) : MyModule1.清單字體大小調整() : 視窗1_pl.Visible = False
- Dim SS1, SS2 As Integer : SS1 = 527 : SS2 = 325 : 幣別 = " (RP)"
- 聯絡函_未審_dgv.Location = New Point(1, 1) : 聯絡函_未審_dgv.Size = New Point(SS1, SS2) : 聯絡函_未收_dgv.Location = New Point(1, 1) : 聯絡函_未收_dgv.Size = New Point(SS1, SS2)
- 聯絡函_未執行_dgv.Location = New Point(1, 1) : 聯絡函_未執行_dgv.Size = New Point(SS1, SS2) : 聯絡函_未驗收_dgv.Location = New Point(1, 1) : 聯絡函_未驗收_dgv.Size = New Point(SS1, SS2)
-
- 合約預估利潤_dgv.Location = New Point(1, 1) : 合約預估利潤_dgv.Size = New Point(SS1, SS2) : 報價未完成_dgv.Location = New Point(1, 1) : 報價未完成_dgv.Size = New Point(SS1, SS2)
- 合約未放行_dgv.Location = New Point(1, 1) : 合約未放行_dgv.Size = New Point(SS1, SS2) : 報價未簽回_dgv.Location = New Point(1, 1) : 報價未簽回_dgv.Size = New Point(SS1, SS2)
- 合約請款1_dgv.Location = New Point(1, 1) : 合約請款1_dgv.Size = New Point(SS1, SS2) : 合約請款2_dgv.Location = New Point(1, 1) : 合約請款2_dgv.Size = New Point(SS1, SS2)
- 合約請款3_dgv.Location = New Point(1, 1) : 合約請款3_dgv.Size = New Point(SS1, SS2) : 合約請款4_dgv.Location = New Point(1, 1) : 合約請款4_dgv.Size = New Point(SS1, SS2)
- 合約請款5_dgv.Location = New Point(1, 1) : 合約請款5_dgv.Size = New Point(SS1, SS2) : 合約未簽回_dgv.Location = New Point(1, 1) : 合約未簽回_dgv.Size = New Point(SS1, SS2)
-
- 合約未指定主管_dgv.Location = New Point(1, 1) : 合約未指定主管_dgv.Size = New Point(SS1, SS2) : 未開工程進度表_dgv.Location = New Point(1, 1) : 未開工程進度表_dgv.Size = New Point(SS1, SS2)
- 合約未驗收_dgv.Location = New Point(1, 1) : 合約未驗收_dgv.Size = New Point(SS1, SS2) : 驗收未簽回_dgv.Location = New Point(1, 1) : 驗收未簽回_dgv.Size = New Point(SS1, SS2)
- 保固未簽回_dgv.Location = New Point(1, 1) : 保固未簽回_dgv.Size = New Point(SS1, SS2)
-
- 請購單_dgv.Location = New Point(1, 1) : 請購單_dgv.Size = New Point(SS1, SS2) : 詢價單_dgv.Location = New Point(1, 1) : 詢價單_dgv.Size = New Point(SS1, SS2)
- 採購核准11_dgv.Location = New Point(1, 1) : 採購核准11_dgv.Size = New Point(SS1, SS2) : 採購核准12_dgv.Location = New Point(1, 1) : 採購核准12_dgv.Size = New Point(SS1, SS2)
- '------------------------章程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If CInt(登入人級別) <= 2 Then : 聯絡函最高主管核准_tsm.Visible = True : 聯絡函最高主管核准_p.Visible = True
- ElseIf CInt(登入人級別) > 2 Then : 聯絡函最高主管核准_tsm.Visible = False : 聯絡函最高主管核准_p.Visible = False : End If
- If CInt(登入人級別) < 5 Then : 單次授權功能_tsm.Visible = True : 單次授權功能_p.Visible = True
- ElseIf CInt(登入人級別) >= 5 Then : 單次授權功能_tsm.Visible = False : 單次授權功能_p.Visible = False : End If
- If CInt(登入人級別) <= 5 Then : 聯絡函部門主管審核_tsm.Visible = True : 聯絡函部門主管審核_p.Visible = True
- ElseIf CInt(登入人級別) > 5 Then : 聯絡函部門主管審核_tsm.Visible = False : 聯絡函部門主管審核_p.Visible = False : End If
- 安培容量計算表_tsm.Visible = CC(8) : 安培容量計算表_p.Visible = CC(8)
-
- '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- 合約本文_tsm.Visible = CC(98) : 合約本文_p.Visible = CC(98) : 合約請款單_tsm.Visible = CC(124) : 合約請款單_p.Visible = CC(124)
- 附錄合約_tsm.Visible = CC(98) : 附錄合約_p.Visible = CC(98) : 合約請款控制表_tsm.Visible = CC(123) : 合約請款控制表_p.Visible = CC(123)
- 合約驗收單_tsm.Visible = CC(126) : 合約驗收單_p.Visible = CC(126) : 合約驗收控制表_tsm.Visible = CC(125) : 合約驗收控制表_p.Visible = CC(125)
- 合約保固書_tsm.Visible = CC(127) : 合約保固書_p.Visible = CC(127) : 合約結案控制表_tsm.Visible = CC(128) : 合約結案控制表_p.Visible = CC(128)
- 合約工程圖庫管理_tsm.Visible = CC(115) : 合約工程圖庫管理_p.Visible = CC(115) : 工程分區控制表_tsm.Visible = CC(114) : 工程分區控制表_p.Visible = CC(114)
- 客戶資料表_tsm.Visible = CC(99) : 客戶資料表_p.Visible = CC(99) : 合約報價單_tsm.Visible = CC(116) : 合約報價單_p.Visible = CC(116)
- 合約執行進度_tsm.Visible = CC(5) : 合約執行進度_p.Visible = CC(5) : 工程項目BOM表_tsm.Visible = CC(52) : 工程項目BOM表_p.Visible = CC(52)
- 合約利潤預估表_tsm.Visible = CC(60) : 合約利潤預估表_p.Visible = CC(60) : 合約文件簽回存檔_tsm.Visible = CC(61) : 合約文件簽回存檔_p.Visible = CC(61)
- 合約文件簽核控制表_tsm.Visible = CC(62) : 合約文件簽核控制表_p.Visible = CC(62) : 合約報價單審核_tsm.Visible = CC(107) : 合約報價單審核_p.Visible = CC(107)
- 業務系統管理_tsm.Visible = CC(5) : 合約模組設定_tsm.Visible = CC(100)
- '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- 請購單申請_tsm.Visible = CC(33) : 請購單申請_p.Visible = CC(33) : 請購單核準_tsm.Visible = CC(34) : 請購單核準_p.Visible = CC(34)
- 請購一覽表_tsm.Visible = CC(35) : 請購一覽表_p.Visible = CC(35) : 採購單詢價_tsm.Visible = CC(20) : 採購單詢價_p.Visible = CC(20)
- 採購單編輯_tsm.Visible = CC(36) : 採購單編輯_p.Visible = CC(36) : 採購單一級核准_tsm.Visible = CC(73) : 採購單一級核准_p.Visible = CC(73)
- 採購單二級核准_tsm.Visible = CC(37) : 採購單二級核准_p.Visible = CC(37) : 採購單一覽表_tsm.Visible = CC(38) : 採購單一覽表_p.Visible = CC(38)
- 入庫驗收單_tsm.Visible = CC(39) : 入庫驗收單_p.Visible = CC(39) : 採購驗收對帳表_tsm.Visible = CC(40) : 採購驗收對帳表_p.Visible = CC(40)
- 供應商管理_tsm.Visible = CC(11) : 供應商管理_p.Visible = CC(11) : 物料採購統計表_tsm.Visible = CC(51) : 物料採購統計表_p.Visible = CC(51)
- 供應商商品單價設定_tsm.Visible = CC(11) : 供應商商品單價設定_p.Visible = CC(11)
- 採購系統管理_tsm.Visible = CC(6)
-
- 樣品請購單申請_tsm.Visible = CC(25) : 樣品請購單申請_p.Visible = CC(25) : 樣品供應商管理_tsm.Visible = CC(42)
- 樣品請購單核准_tsm.Visible = CC(26) : 樣品請購單核准_p.Visible = CC(26) : 樣品請購單一覽表_tsm.Visible = CC(27) : 樣品請購單一覽表_p.Visible = CC(27)
- 樣品採購單生成_tsm.Visible = CC(28) : 樣品採購單生成_p.Visible = CC(28) : 樣品採購單一級核准_tsm.Visible = CC(72) : 樣品採購單一級核准_p.Visible = CC(72)
- 樣品採購單二級核准_tsm.Visible = CC(29) : 樣品採購單二級核准_p.Visible = CC(29) : 樣品採購單一覽表_tsm.Visible = CC(30) : 樣品採購單一覽表_p.Visible = CC(30)
- 樣品來料驗收單_tsm.Visible = CC(31) : 樣品來料驗收單_p.Visible = CC(31) : 樣品採購驗收對帳表_tsm.Visible = CC(32) : 樣品採購驗收對帳表_p.Visible = CC(32)
- '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- 工程分區控制表1_tsm.Visible = CC(114) : 工程分區控制表1_p.Visible = CC(114) : 合約驗收控制表1_tsm.Visible = CC(108) : 合約驗收控制表1_p.Visible = CC(108)
- 合約驗收單1_tsm.Visible = CC(105) : 合約驗收單1_p.Visible = CC(105) : 合約結案控制表1_tsm.Visible = CC(109) : 合約結案控制表1_p.Visible = CC(109)
- 工程進度表_tsm.Visible = CC(110) : 工程進度表_p.Visible = CC(110) : 派工人數紀錄表_tsm.Visible = CC(106) : 派工人數紀錄表_p.Visible = CC(106)
- 工程日報表編輯_tsm.Visible = CC(104) : 工程日報表編輯_p.Visible = CC(104) : 工程客變單_tsm.Visible = CC(53) : 工程客變單_p.Visible = CC(53)
- 工程維修單_tsm.Visible = CC(54) : 工程維修單_p.Visible = CC(54)
- 工程系統管理_tsm.Visible = CC(8)
- '------------------------倉儲管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- 倉儲控制表_tsm.Visible = CC(46) : 倉儲控制表_p.Visible = CC(46) : 倉儲入庫驗收_tsm.Visible = CC(47) : 倉儲入庫驗收_p.Visible = CC(47)
- 物料轉倉申請_tsm.Visible = CC(48) : 物料轉倉申請_p.Visible = CC(48) : 物料轉倉審核_tsm.Visible = CC(49) : 物料轉倉審核_p.Visible = CC(49)
- 物料轉倉出庫_tsm.Visible = CC(50) : 物料轉倉出庫_p.Visible = CC(50) : 倉儲領料申請_tsm.Visible = CC(56) : 倉儲領料申請_p.Visible = CC(56)
- 倉儲領料審核_tsm.Visible = CC(57) : 倉儲領料審核_p.Visible = CC(57) : 倉儲領料出庫_tsm.Visible = CC(58) : 倉儲領料出庫_p.Visible = CC(58)
- 倉儲單據狀態看板_tsm.Visible = CC(69) : 倉儲單據狀態看板_p.Visible = CC(69) : 物料資料庫_tsm.Visible = CC(70) : 物料資料庫_p.Visible = CC(70)
- 倉儲分區控制表_tsm.Visible = CC(71) : 倉儲分區控制表_p.Visible = CC(71) : 盤盈盤損申請_tsm.Visible = CC(85) : 盤盈盤損申請_p.Visible = CC(85)
- 盤盈盤損審核_tsm.Visible = CC(86) : 盤盈盤損審核_p.Visible = CC(86) : 物料退庫_tsm.Visible = CC(59) : 物料退庫_p.Visible = CC(59)
- 倉儲系統管理_tsm.Visible = CC(9)
- '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- 財務系統管理_tsm.Visible = CC(7)
- 營運收支單申請_tsm.Visible = CC(91) : 營運收支單審核_tsm.Visible = CC(92) : 營運收支單一覽表_tsm.Visible = CC(93) : 營運收支單對帳表_tsm.Visible = CC(94)
- 營運收支決算表_tsm.Visible = CC(95) : 匯率管理_tsm.Visible = CC(96) : 會計科目管理_tsm.Visible = CC(97) : 現金流量表_tsm.Visible = CC(80) : 綜合損益表_tsm.Visible = CC(81)
- 權益變動表_tsm.Visible = CC(82) : 資產負載表_tsm.Visible = CC(83) : 零用金支付申請_tsm.Visible = CC(15) : 零用金支付審核_tsm.Visible = CC(16) : 零用金支付核准_tsm.Visible = CC(17)
- 零用金支付單一覽表_tsm.Visible = CC(90) : 支票收支申請_tsm.Visible = CC(76) : 支票收支審核_tsm.Visible = CC(77) : 支票收支核准_tsm.Visible = CC(78) : 支票票務控制表_tsm.Visible = CC(79)
- 零用金支付對帳表_tsm.Visible = CC(18) : 樣品採購驗收對帳表1_tsm.Visible = CC(32) : 採購驗收對帳表1_tsm.Visible = CC(40) : 應收帳款控制表_tsm.Visible = CC(74)
- 應付賬款控制表_tsm.Visible = CC(75)
- '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- 人員ID卡系統配置設定_tsm.Visible = CC(23) : 人員ID卡系統配置設定_p.Visible = CC(23) : 系統組織結構與權限設定_tsm.Visible = CC(89) : 系統組織結構與權限設定_p.Visible = CC(89)
- 人事系統管理_tsm.Visible = CC(22) : LINE使用者管理表_tsm.Visible = CC(111) : LINE通知測試表_tsm.Visible = CC(112) : LINE權限一覽表_tsm.Visible = CC(113)
- '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- 系統使用者管理_tsm.Visible = CC(2) : 系統使用者管理_p.Visible = CC(2) : 系統權限預設表_tsm.Visible = CC(84) : 系統權限預設表_p.Visible = CC(84)
- 系統組織架構設定_tsm.Visible = CC(41) : 系統組織架構設定_p.Visible = CC(41) : 部門權限設定_tsm.Visible = CC(87) : 部門權限設定_p.Visible = CC(87)
- 系統通用變數管理_tsm.Visible = CC(43) : 系統通用變數管理_p.Visible = CC(43) : 系統編碼規則_tsm.Visible = CC(10) : 系統編碼規則_p.Visible = CC(10)
- 系統對應電腦註冊_tsm.Visible = CC(44) : 系統對應電腦註冊_p.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4) : 系統執行檔版本管理_p.Visible = CC(4)
- FTP資料夾管理_tsm.Visible = CC(3) : FTP資料夾管理_p.Visible = CC(3) : 簽名檔管理_tsm.Visible = CC(21) : 簽名檔管理_p.Visible = CC(21)
-
- 資料庫系統管理_tsm.Visible = CC(1)
- 系統開發用共享文件_tsm.Visible = CC(19)
- If gUserName = "李協叡" Then : 開發模板庫_tsm.Visible = True : Else : 開發模板庫_tsm.Visible = False : End If
-
- '------------------------ToolStripSeparator隱藏
- '------------------------章程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If 單次授權功能_tsm.Visible = False Then : ToolStripSeparator36.Visible = False : End If
- If CC(8) = False Then : ToolStripSeparator37.Visible = False : End If
- '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If CC(98) = False And CC(116) = False And CC(107) = False Then : ToolStripSeparator31.Visible = False : End If
- If CC(123) = False And CC(124) = False Then : ToolStripSeparator24.Visible = False : End If
- If CC(125) = False And CC(126) = False Then : ToolStripSeparator29.Visible = False : End If
- If CC(127) = False And CC(128) = False And CC(61) = False And CC(62) = False Then : ToolStripSeparator30.Visible = False : End If
- If CC(115) = False Then : ToolStripSeparator32.Visible = False : End If
- If CC(100) = False And CC(114) = False And CC(99) = False And CC(52) = False Then : ToolStripSeparator33.Visible = False : End If
- '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If CC(25) = False And CC(26) = False And CC(27) = False Then : ToolStripSeparator6.Visible = False : End If
- If CC(28) = False And CC(72) = False And CC(29) = False And CC(30) = False And CC(31) = False And CC(32) = False Then : ToolStripSeparator3.Visible = False : End If
- If CC(33) = False And CC(34) = False And CC(35) = False Then : ToolStripSeparator1.Visible = False : End If
- If CC(36) = False And CC(73) = False And CC(37) = False And CC(38) = False And CC(39) = False And CC(40) = False Then : ToolStripSeparator2.Visible = False : End If
- '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If CC(110) = False And CC(106) = False Then : ToolStripSeparator35.Visible = False : End If
- If CC(104) = False And CC(53) = False And CC(54) = False Then : ToolStripSeparator34.Visible = False : End If
- If CC(114) = False Then : ToolStripSeparator25.Visible = False : End If
- '------------------------倉儲管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If CC(46) = False And CC(47) = False And CC(48) = False And CC(49) = False And CC(50) = False Then : ToolStripSeparator15.Visible = False : End If
- If CC(56) = False And CC(57) = False And CC(58) = False Then : ToolStripSeparator11.Visible = False : End If
- If CC(59) = False Then : ToolStripSeparator9.Visible = False : End If
- If CC(69) = False And CC(70) = False And CC(71) = False Then : ToolStripSeparator14.Visible = False : End If
- '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If CC(91) = False And CC(92) = False And CC(93) = False Then : ToolStripSeparator17.Visible = False : End If
- If CC(94) = False And CC(95) = False Then : ToolStripSeparator18.Visible = False : End If
- If CC(96) = False And CC(97) = False Then : ToolStripSeparator16.Visible = False : End If
- If CC(80) = False And CC(81) = False And CC(82) = False And CC(83) = False Then : ToolStripSeparator21.Visible = False : End If
- If CC(15) = False And CC(16) = False And CC(17) = False And CC(90) = False Then : ToolStripSeparator22.Visible = False : End If
- If CC(76) = False And CC(77) = False And CC(78) = False And CC(79) = False Then : ToolStripSeparator8.Visible = False : End If
- If CC(18) = False And CC(32) = False And CC(40) = False Then : ToolStripSeparator23.Visible = False : End If
- '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If CC(23) = False And CC(89) = False Then : ToolStripSeparator28.Visible = False : End If
- '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
- If CC(2) = False And CC(84) = False Then : ToolStripSeparator19.Visible = False : End If
- If CC(43) = False And CC(10) = False And CC(44) = False Then : ToolStripSeparator20.Visible = False : End If
- If CC(4) = False And CC(3) = False Then : ToolStripSeparator5.Visible = False : End If
- If CC(41) = False And CC(87) = False Then : ToolStripSeparator7.Visible = False : End If
- If gUserName = "李協叡" Then : ToolStripSeparator27.Visible = True : Else : ToolStripSeparator27.Visible = False : End If
- End Sub
- Private Sub HXGPSERPSYS_Siz()
- Dim 位置X As Integer : Dim 位置Y As Integer = 29 : Dim 位置Y1 As Integer = 30 : Dim Y可放 As Integer : If 系統語言 = "繁體中文" Then : 位置X = 200 : Else : 位置X = 370 : End If
- Dim 視窗X As Integer = 虛擬桌_pl.Size.Width : Dim 視窗Y As Integer = 虛擬桌_pl.Size.Height
- Dim X可放 As Integer = 視窗X / 位置X : If 系統語言 = "繁體中文" Then : Y可放 = 視窗Y / 位置Y : Else : Y可放 = 視窗Y / 位置Y + 0 : End If
- Dim 總共可放 As Integer = X可放 * Y可放
- Dim X已放 As Integer : Dim Y已放 As Integer : Dim 已經放置 As Integer
- '---------其他---------------------------------------------------------------------------------------------------------------
- If 個人帳號管理_p.Visible = True Then : 個人帳號管理_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 個人帳號管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 個人帳號管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 文件伺服器_p.Visible = True Then : 文件伺服器_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 文件伺服器_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 文件伺服器_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 系統使用說明_p.Visible = True Then : 系統使用說明_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統使用說明_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統使用說明_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 單次授權功能_p.Visible = True Then : 單次授權功能_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 單次授權功能_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 單次授權功能_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 會議記錄_p.Visible = True Then : 會議記錄_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 會議記錄_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 會議記錄_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 安培容量計算表_p.Visible = True Then : 安培容量計算表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 安培容量計算表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 安培容量計算表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 部門聯絡函一覽表_p.Visible = True Then : 部門聯絡函一覽表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 部門聯絡函一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 部門聯絡函一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 部門聯絡函申請_p.Visible = True Then : 部門聯絡函申請_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 部門聯絡函申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 部門聯絡函申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 聯絡函部門主管審核_p.Visible = True Then : 聯絡函部門主管審核_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 聯絡函部門主管審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 聯絡函部門主管審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 聯絡函最高主管核准_p.Visible = True Then : 聯絡函最高主管核准_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 聯絡函最高主管核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 聯絡函最高主管核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- '---------業務---------------------------------------------------------------------------------------------------------------
- If 合約執行進度_p.Visible = True Then : 合約執行進度_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約執行進度_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約執行進度_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約利潤預估表_p.Visible = True Then : 合約利潤預估表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約利潤預估表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約利潤預估表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約報價單_p.Visible = True Then : 合約報價單_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約報價單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約報價單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約報價單審核_p.Visible = True Then : 合約報價單審核_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約報價單審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約報價單審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約本文_p.Visible = True Then : 合約本文_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約本文_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約本文_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 附錄合約_p.Visible = True Then : 附錄合約_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 附錄合約_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 附錄合約_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約請款單_p.Visible = True Then : 合約請款單_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約請款單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約請款單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約請款控制表_p.Visible = True Then : 合約請款控制表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約請款控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約請款控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約驗收單_p.Visible = True Then : 合約驗收單_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約驗收單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約驗收單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約驗收控制表_p.Visible = True Then : 合約驗收控制表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約驗收控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約驗收控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約保固書_p.Visible = True Then : 合約保固書_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約保固書_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約保固書_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約文件簽回存檔_p.Visible = True Then : 合約文件簽回存檔_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約文件簽回存檔_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約文件簽回存檔_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約文件簽核控制表_p.Visible = True Then : 合約文件簽核控制表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約文件簽核控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約文件簽核控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約結案控制表_p.Visible = True Then : 合約結案控制表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約結案控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約結案控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約工程圖庫管理_p.Visible = True Then : 合約工程圖庫管理_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約工程圖庫管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約工程圖庫管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 工程項目BOM表_p.Visible = True Then : 工程項目BOM表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 工程項目BOM表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 工程項目BOM表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 工程分區控制表_p.Visible = True Then : 工程分區控制表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 工程分區控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 工程分區控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 客戶資料表_p.Visible = True Then : 客戶資料表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 客戶資料表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 客戶資料表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- '---------請採購---------------------------------------------------------------------------------------------------------------
- If 請購單申請_p.Visible = True Then : 請購單申請_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 請購單申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 請購單申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 請購單核準_p.Visible = True Then : 請購單核準_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 請購單核準_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 請購單核準_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 請購一覽表_p.Visible = True Then : 請購一覽表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 請購一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 請購一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 採購單詢價_p.Visible = True Then : 採購單詢價_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 採購單詢價_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 採購單詢價_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 採購單編輯_p.Visible = True Then : 採購單編輯_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 採購單編輯_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 採購單編輯_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 採購單一級核准_p.Visible = True Then : 採購單一級核准_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 採購單一級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 採購單一級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 採購單二級核准_p.Visible = True Then : 採購單二級核准_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 採購單二級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 採購單二級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 採購單一覽表_p.Visible = True Then : 採購單一覽表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 採購單一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 採購單一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 入庫驗收單_p.Visible = True Then : 入庫驗收單_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 入庫驗收單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 入庫驗收單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 採購驗收對帳表_p.Visible = True Then : 採購驗收對帳表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 採購驗收對帳表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 採購驗收對帳表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 供應商管理_p.Visible = True Then : 供應商管理_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 供應商管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 供應商管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 供應商商品單價設定_p.Visible = True Then : 供應商商品單價設定_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 供應商商品單價設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 供應商商品單價設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 物料採購統計表_p.Visible = True Then : 物料採購統計表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 物料採購統計表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 物料採購統計表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
-
- If 樣品請購單申請_p.Visible = True Then : 樣品請購單申請_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品請購單申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品請購單申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 樣品請購單核准_p.Visible = True Then : 樣品請購單核准_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品請購單核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品請購單核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 樣品請購單一覽表_p.Visible = True Then : 樣品請購單一覽表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品請購單一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品請購單一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 樣品採購單生成_p.Visible = True Then : 樣品採購單生成_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品採購單生成_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品採購單生成_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 樣品採購單一級核准_p.Visible = True Then : 樣品採購單一級核准_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品採購單一級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品採購單一級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 樣品採購單二級核准_p.Visible = True Then : 樣品採購單二級核准_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品採購單二級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品採購單二級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 樣品採購單一覽表_p.Visible = True Then : 樣品採購單一覽表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品採購單一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品採購單一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 樣品來料驗收單_p.Visible = True Then : 樣品來料驗收單_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品來料驗收單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品來料驗收單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 樣品採購驗收對帳表_p.Visible = True Then : 樣品採購驗收對帳表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 樣品採購驗收對帳表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 樣品採購驗收對帳表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
-
- '---------工程---------------------------------------------------------------------------------------------------------------
- If 工程材料表_p.Visible = True Then : 工程材料表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 工程材料表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 工程材料表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約驗收單1_p.Visible = True Then : 合約驗收單1_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約驗收單1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約驗收單1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約驗收控制表1_p.Visible = True Then : 合約驗收控制表1_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約驗收控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約驗收控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 合約結案控制表1_p.Visible = True Then : 合約結案控制表1_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 合約結案控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 合約結案控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 工程進度表_p.Visible = True Then : 工程進度表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 工程進度表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 工程進度表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 派工人數紀錄表_p.Visible = True Then : 派工人數紀錄表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 派工人數紀錄表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 派工人數紀錄表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 工程日報表編輯_p.Visible = True Then : 工程日報表編輯_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 工程日報表編輯_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 工程日報表編輯_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 工程客變單_p.Visible = True Then : 工程客變單_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 工程客變單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 工程客變單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 工程維修單_p.Visible = True Then : 工程維修單_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 工程維修單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 工程維修單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 工程分區控制表1_p.Visible = True Then : 工程分區控制表1_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 工程分區控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 工程分區控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- '---------倉儲---------------------------------------------------------------------------------------------------------------
- If 倉儲控制表_p.Visible = True Then : 倉儲控制表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 倉儲控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 倉儲控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 倉儲入庫驗收_p.Visible = True Then : 倉儲入庫驗收_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 倉儲入庫驗收_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 倉儲入庫驗收_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 物料轉倉申請_p.Visible = True Then : 物料轉倉申請_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 物料轉倉申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 物料轉倉申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 物料轉倉審核_p.Visible = True Then : 物料轉倉審核_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 物料轉倉審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 物料轉倉審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 物料轉倉出庫_p.Visible = True Then : 物料轉倉出庫_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 物料轉倉出庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 物料轉倉出庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 倉儲領料申請_p.Visible = True Then : 倉儲領料申請_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 倉儲領料申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 倉儲領料申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 倉儲領料審核_p.Visible = True Then : 倉儲領料審核_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 倉儲領料審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 倉儲領料審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 倉儲領料出庫_p.Visible = True Then : 倉儲領料出庫_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 倉儲領料出庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 倉儲領料出庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 物料退庫_p.Visible = True Then : 物料退庫_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 物料退庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 物料退庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 倉儲單據狀態看板_p.Visible = True Then : 倉儲單據狀態看板_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 倉儲單據狀態看板_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 倉儲單據狀態看板_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 盤盈盤損申請_p.Visible = True Then : 盤盈盤損申請_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 盤盈盤損申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 盤盈盤損申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 盤盈盤損審核_p.Visible = True Then : 盤盈盤損審核_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 盤盈盤損審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 盤盈盤損審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 物料資料庫_p.Visible = True Then : 物料資料庫_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 物料資料庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 物料資料庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 倉儲分區控制表_p.Visible = True Then : 倉儲分區控制表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 倉儲分區控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 倉儲分區控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- '---------人事---------------------------------------------------------------------------------------------------------------
- If 公司組織結構_p.Visible = True Then : 公司組織結構_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 公司組織結構_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 公司組織結構_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 人員ID卡系統配置設定_p.Visible = True Then : 人員ID卡系統配置設定_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 人員ID卡系統配置設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 人員ID卡系統配置設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 系統組織結構與權限設定_p.Visible = True Then : 系統組織結構與權限設定_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統組織結構與權限設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統組織結構與權限設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- '---------系統---------------------------------------------------------------------------------------------------------------
- If 系統使用者管理_p.Visible = True Then : 系統使用者管理_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統使用者管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統使用者管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 系統權限預設表_p.Visible = True Then : 系統權限預設表_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統權限預設表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統權限預設表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 系統組織架構設定_p.Visible = True Then : 系統組織架構設定_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統組織架構設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統組織架構設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 部門權限設定_p.Visible = True Then : 部門權限設定_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 部門權限設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 部門權限設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 系統通用變數管理_p.Visible = True Then : 系統通用變數管理_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統通用變數管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統通用變數管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 系統編碼規則_p.Visible = True Then : 系統編碼規則_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統編碼規則_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統編碼規則_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 系統對應電腦註冊_p.Visible = True Then : 系統對應電腦註冊_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統對應電腦註冊_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統對應電腦註冊_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 系統執行檔版本管理_p.Visible = True Then : 系統執行檔版本管理_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 系統執行檔版本管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : 系統執行檔版本管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If FTP資料夾管理_p.Visible = True Then : FTP資料夾管理_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : FTP資料夾管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
- Else : FTP資料夾管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
- If 簽名檔管理_p.Visible = True Then : 簽名檔管理_p.Size = New Point(位置X, 位置Y1)
- If 已經放置 = 0 Then : 簽名檔管理_p.Location = New Point(0, 0)
- Else : 簽名檔管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : If Y已放 >= Y可放 Then : End If : End If : End If
- End Sub
- Private Sub HXGPSERPSYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
- If gUserName = "李協叡" Then : Me.Text = Me.Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本 & " -- IP : " & 登入人IP
- Else : Me.Text = Me.Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本 : End If
-
- '------------------------系統登入時宣告-------------------------------------------------------------------------------------------------------------------------------------------------
- SQL_系統語言() : 系統語言1_cb.Items.Clear() : While dr.Read() : 系統語言1_cb.Items.Add(dr("語言")) : End While : conn.Close()
- 低網速模式_ch.Checked = 低網速模式 : 介面 = "H001" : 系統語言1_cb.Text = 系統語言
-
- '------------------------系統閒置登出宣告-----------------------------------------------------------------------------------------------------------------------------------------------
- SQL_系統閒置時間設定讀取() : If dr.Read() Then : timeExit = dr("timeExit") : timeExit2 = dr("timeExit2") : End If : conn.Close()
- Timer1.Enabled = False : Timer2.Enabled = False : 主頁開啟 = True : 重登確認 = False : timeNow = 0 : timeNow2 = 0
- 重登計時() : 重置()
-
- '-----------------------帳號下拉清單------------------------------------------------------------------------------------------------------------
- SQL_帳號讀取()
- 使用者1_cb.Items.Clear() : While (dr.Read()) : 使用者1_cb.Items.Add(dr("姓名")) : End While : conn.Close()
- 使用者1_cb.Text = gUserName
- If 登入人級別 = "00" Then : 使用者1_cb.Visible = True : Else : 使用者1_cb.Visible = False : End If
-
- '-----------------------未完成工作通知------------------------------------------------------------------------------------------------------------
- '更新_bt.PerformClick()
-
- '-----------------------測試伺服器登入通知------------------------------------------------------------------------------------------------------------
- If 登入人IP = "106.1.48.106,4567" Or 登入人IP = "leehsiehjui.hopto.org,2433" Or 登入人IP = "192.168.0.112,2433" Then
- If 系統語言 = "繁體中文" Then : MsgBox("注意目前登入的司服器是測試用的,如果一直無法登入正是伺服器請找系統管理員!!")
- Else : MsgBox("Perhatikan bahwa server yang saat ini masuk adalah untuk pengujian, jika Anda belum dapat masuk ke server yang tepat, silakan hubungi administrator sistem !!") : End If
- End If
- End Sub
- Private Sub HXGPSERPSYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
- 系統關閉 = True : If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : LoginForm1.Close() : End If
- End Sub
- Private Sub HXGPSERPSYS_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
- HXGPSERPSYS_Siz()
- If 系統關閉 = True Then : Else
- Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3
- End If
- End Sub
- Private Sub 重登計時()
- timeNow = 0 : timeNow2 = 0 : Timer1.Enabled = False : Timer2.Enabled = False : Timer1.Enabled = True
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- timeNow += 1
- If (timeNow >= timeExit) Then
- Timer1.Enabled = False : Timer2.Enabled = True : 系統登出.ShowDialog()
- If 重登確認 = True And 主頁開啟 = True Then
- Timer1.Enabled = False : Timer2.Enabled = False
- 判斷重登 = True : 重登確認 = False : 主頁開啟 = False : LoginForm1.Show() : Me.Close() : Exit Sub
- ElseIf 重登確認 = False And 主頁開啟 = True Then
- timeNow = 0 : Timer1.Enabled = True : Timer2.Enabled = False : timeNow2 = 0
- End If
- End If
- End Sub
- Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
- Timer1.Enabled = False
- timeNow2 += 1
- If (timeNow2 >= timeExit2) Then
- Timer1.Enabled = False : Timer2.Enabled = False
- 判斷重登 = True : 重登確認 = False : 主頁開啟 = False : LoginForm1.Show() : 系統登出.Close() : Me.Close() : Exit Sub
- End If
- End Sub
- Private Sub 低網速模式_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 低網速模式_ch.Click
- If 低網速模式_ch.Checked = True Then : 低網速模式_ch.Checked = True : Else : 低網速模式_ch.Checked = False : End If
- 低網速模式 = 低網速模式_ch.Checked : SQL_電腦預設值修改_低網速模式() : Access1.Close()
- End Sub
- Private Sub Message_tb_Click(sender As Object, e As EventArgs) Handles Message_tb.Click
- '------------------------即時通訊功能----------------------------------------------------------------------------------------------------------------
- Dim Strs As String = Application.StartupPath
- If File.Exists(Strs + "\LIVE.txt") Then : File.Delete(Strs + "\LIVE.txt") : End If
- If File.Exists(Strs + "\USER.txt") Then : File.Delete(Strs + "\USER.txt") : End If
- Dim FilePath As String = Strs + "\LIVE.txt"
- Try
- Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
- Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
- Dim str As String = "106.1.48.106" : sw.WriteLine(str) : sw.Flush() '插入一整行
- End Using
- End Using
- Catch ex As Exception
- End Try
- Dim FilePath1 As String = Strs + "\USER.txt"
- Try
- Using fs As IO.FileStream = New IO.FileStream(FilePath1, FileMode.Append)
- Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
- Dim str As String = gUserName : sw.WriteLine(str) : sw.Flush() '插入一整行
- End Using
- End Using
- Catch ex As Exception
- End Try
- Dim 已開啟 As Boolean
- If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HX-PGS-Message.exe") Then
- Dim pro() As Process = System.Diagnostics.Process.GetProcesses() ' 判斷是否有符合的Process
- For Each process As Process In pro : If ("HX-PGS-Message").Equals(process.ProcessName) Then : 已開啟 = True : End If : Next
- If 已開啟 = False Then : Shell(My.Computer.FileSystem.SpecialDirectories.Desktop + "\HX-PGS-Message.exe", vbNormalFocus) : End If
- ElseIf File.Exists(Strs & "\HX-PGS-Message.exe") Then
- Dim pro() As Process = System.Diagnostics.Process.GetProcesses() ' 判斷是否有符合的Process
- For Each process As Process In pro : If ("HX-PGS-Message").Equals(process.ProcessName) Then : 已開啟 = True : End If : Next
- If 已開啟 = False Then : Shell(Strs + "\HX-PGS-Message.exe", vbNormalFocus) : End If
- End If
- End Sub
- Private Sub 重置()
- BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False : BL7 = False : BL8 = False
- NU1 = 0 : NU2 = 0 : NU3 = 0 : NU4 = 0 : NU5 = 0
- BBL1 = "" : BBL2 = "" : BBL3 = "" : BBL4 = "" : BBL5 = "" : BBL6 = "" : PA = "" : PA1 = "" : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "" : PA6 = "" : PA7 = "" : PA8 = "" : PA9 = ""
- PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = "" : PA15 = "" : PA16 = "" : PA17 = "" : PA18 = "" : PA19 = "" : PA20 = "" : PA21 = "" : PA22 = "" : PA23 = "" : PA24 = ""
- PA25 = "" : PA26 = "" : PA27 = "" : PA28 = "" : PA29 = "" : PA30 = "" : PA31 = "" : PA32 = "" : PA33 = "" : PA34 = "" : PA35 = "" : PA36 = "" : PA37 = "" : PA38 = "" : PA39 = ""
- PA40 = "" : PA41 = "" : PA42 = "" : PA43 = "" : PA44 = "" : PA45 = "" : PA46 = "" : PA47 = "" : 列印用SQL = "" : 列印用SQL2 = "" : PPAA = "" : DTP = "" : DTP1 = "" : DTP2 = ""
- DTP3 = ""
- End Sub
- Private Sub 虛擬桌面隱藏()
- 虛擬桌_pl.Visible = False : 桌面通知_pl.Visible = False
- End Sub
- Private Sub 系統語言1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 系統語言1_cb.SelectedIndexChanged
- SYS_SET_tsm.Text = 系統語言1_cb.Text : 系統語言 = 系統語言1_cb.Text : SQL_電腦預設值修改_系統語言()
- 介面 = "H001" : 語言轉換讀取()
- '-------------------------------H1系列-業務---------------------------------------------------------------------------------------------------------------------------------------
- If H(101) = True Then : 介面 = "H101" : 合約執行進度.語轉扭_bt.PerformClick() : End If : If H(104) = True Then : 介面 = "H104" : 附錄合約.語轉扭_bt.PerformClick() : End If
- If H(106) = True Then : 介面 = "H106" : 合約請款控制表.語轉扭_bt.PerformClick() : End If
-
- '-------------------------------H2系列-採購---------------------------------------------------------------------------------------------------------------------------------------
- If H(201) = True Then : 介面 = "H201" : 請購單申請.語轉扭_bt.PerformClick() : End If : If H(202) = True Then : 介面 = "H202" : 請購單核准.語轉扭_bt.PerformClick() : End If
- If H(203) = True Then : 介面 = "H203" : 請購單歷史檔案.語轉扭_bt.PerformClick() : End If : If H(204) = True Then : 介面 = "H204" : 採購單詢價.語轉扭_bt.PerformClick() : End If
- If H(205) = True Then : 介面 = "H205" : 採購單編輯.語轉扭_bt.PerformClick() : End If : If H(206) = True Then : 介面 = "H206" : 採購單一級核准.語轉扭_bt.PerformClick() : End If
- If H(207) = True Then : 介面 = "H207" : 採購單二級核准.語轉扭_bt.PerformClick() : End If : If H(208) = True Then : 介面 = "H208" : 採購單歷史檔案.語轉扭_bt.PerformClick() : End If
- If H(209) = True Then : 介面 = "H209" : 採購單驗收.語轉扭_bt.PerformClick() : End If : If H(211) = True Then : 介面 = "H211" : 樣品請購單申請.語轉扭_bt.PerformClick() : End If
- If H(212) = True Then : 介面 = "H212" : 樣品請購單核准.語轉扭_bt.PerformClick() : End If : If H(213) = True Then : 介面 = "H213" : 樣品請購單歷史檔案.語轉扭_bt.PerformClick() : End If
- If H(214) = True Then : 介面 = "H214" : 樣品採購單編輯.語轉扭_bt.PerformClick() : End If : If H(215) = True Then : 介面 = "H215" : 樣品採購單一級核准.語轉扭_bt.PerformClick() : End If
- If H(216) = True Then : 介面 = "H216" : 樣品採購單二級核准.語轉扭_bt.PerformClick() : End If : If H(217) = True Then : 介面 = "H217" : 樣品採購單歷史檔案.語轉扭_bt.PerformClick() : End If
- If H(218) = True Then : 介面 = "H218" : 樣品採購單驗收.語轉扭_bt.PerformClick() : End If : If H(219) = True Then : 介面 = "H219" : 樣品採購單_對帳表.語轉扭_bt.PerformClick() : End If
- If H(299) = True Then : 介面 = "H299" : 供應商管理.語轉扭_bt.PerformClick() : End If : If H(210) = True Then : 介面 = "H210" : 採購_對帳表.語轉扭_bt.PerformClick() : End If
-
- '-------------------------------H3系統-財務---------------------------------------------------------------------
-
-
- '-------------------------------H4系統-工程---------------------------------------------------------------------
- If H(402) = True Then : 介面 = "H402" : 客戶資料表.語轉扭_bt.PerformClick() : End If : If H(405) = True Then : 介面 = "H405" : 派工人數紀錄表.語轉扭_bt.PerformClick() : End If
- If H(406) = True Then : 介面 = "H406" : 工程日報表.語轉扭_bt.PerformClick() : End If
- 'If H(404) = True Then : 介面 = "H404" : 工程日報表審核.語轉扭_bt.PerformClick() : End If : If H(403) = True Then : 介面 = "H403" : 工程日報表編輯.語轉扭_bt.PerformClick() : End If
-
- '-------------------------------H5系列-倉儲---------------------------------------------------------------------------------------------------------------------------------------
- If H(501) = True Then : 介面 = "H501" : 倉儲控制表.語轉扭_bt.PerformClick() : End If : If H(502) = True Then : 介面 = "H502" : 倉儲入庫驗收.語轉扭_bt.PerformClick() : End If
- If H(503) = True Then : 介面 = "H503" : 物料轉倉申請.語轉扭_bt.PerformClick() : End If : If H(504) = True Then : 介面 = "H504" : 物料轉倉審核.語轉扭_bt.PerformClick() : End If
- If H(505) = True Then : 介面 = "H505" : 物料轉倉出庫.語轉扭_bt.PerformClick() : End If : If H(506) = True Then : 介面 = "H506" : 倉儲領料申請.語轉扭_bt.PerformClick() : End If
- If H(507) = True Then : 介面 = "H507" : 倉儲領料審核.語轉扭_bt.PerformClick() : End If : If H(508) = True Then : 介面 = "H508" : 倉儲領料出庫.語轉扭_bt.PerformClick() : End If
- If H(509) = True Then : 介面 = "H509" : 物料退庫.語轉扭_bt.PerformClick() : End If : If H(510) = True Then : 介面 = "H510" : 倉儲單據狀態看板.語轉扭_bt.PerformClick() : End If
- If H(511) = True Then : 介面 = "H511" : 盤盈盤損申請.語轉扭_bt.PerformClick() : End If : If H(512) = True Then : 介面 = "H512" : 盤盈盤損審核.語轉扭_bt.PerformClick() : End If
- If H(527) = True Then : 介面 = "H527" : 物料資料庫.語轉扭_bt.PerformClick() : End If : If H(528) = True Then : 介面 = "H528" : 倉儲分區控制表.語轉扭_bt.PerformClick() : End If
-
- '-------------------------------H6系列-人事---------------------------------------------------------------------------------------------------------------------------------------
- If H(601) = True Then : 介面 = "H601" : 人員ID卡系統配置設定.語轉扭_bt.PerformClick() : End If
- If H(602) = True Then : 介面 = "H602" : 系統組織結構與權限設定.語轉扭_bt.PerformClick() : End If
- If H(605) = True Then : 介面 = "H605" : LINE_權限一覽表.語轉扭_bt.PerformClick() : End If
-
- '-------------------------------H7系列-系統---------------------------------------------------------------------------------------------------------------------------------------
- If H(703) = True Then : 介面 = "H703" : 部門權限設定.語轉扭_bt.PerformClick() : End If : If H(704) = True Then : 介面 = "H704" : 系統通用變數管理.語轉扭_bt.PerformClick() : End If
- If H(711) = True Then : 介面 = "H711" : 簽名檔管理.語轉扭_bt.PerformClick() : End If : If H(706) = True Then : 介面 = "H706" : 系統編碼規則.語轉扭_bt.PerformClick() : End If
- If H(710) = True Then : 介面 = "H710" : 系統開發用共享文件.語轉扭_bt.PerformClick() : End If
-
- '-------------------------------H9系列-管理---------------------------------------------------------------------------------------------------------------------------------------
- If H(901) = True Then : 介面 = "H901" : 單次授權功能.語轉扭_bt.PerformClick() : End If : If H(902) = True Then : 介面 = "H902" : 會議記錄.語轉扭_bt.PerformClick() : End If
- If H(904) = True Then : 介面 = "H904" : 部門聯絡函一覽表.語轉扭_bt.PerformClick() : End If
- If H(905) = True Then : 介面 = "H905" : 部門聯絡函申請.語轉扭_bt.PerformClick() : End If : If H(906) = True Then : 介面 = "H906" : 聯絡函部門主管審核.語轉扭_bt.PerformClick() : End If
- If H(907) = True Then : 介面 = "H907" : 聯絡函最高主管核准.語轉扭_bt.PerformClick() : End If
- Access1.Close() : HXGPSERPSYS_Siz() : 更新_bt.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
- 重登計時() : 重置() : 個人帳號管理.ShowDialog() : 個人帳號管理.BringToFront()
- End Sub
- Private Sub 個人帳號管理_pb_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_pb.Click
- 個人帳號管理_tsm.PerformClick()
- End Sub
- Private Sub 個人帳號管理_lb_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_lb.Click
- 個人帳號管理_tsm.PerformClick()
- End Sub
-
- '------------------------簡易功能-------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub 文件伺服器_tsm_Click(sender As Object, e As EventArgs) Handles 文件伺服器_tsm.Click
- Try
- Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
- If File.Exists(fileName) Then
- Dim fullPath As String = Path.GetFullPath(fileName)
- Process.Start(fullPath, "--app= https://quickconnect.to/HX-PGS-NAS")
- Else
- Process.Start("explorer.exe", "https://quickconnect.to/HX-PGS-NAS")
- End If
- Catch ex As Exception
- If 系統語言 = "繁體中文" Then : MsgBox("請先安裝Chrom瀏覽器!!")
- Else : MsgBox("Silahkan install browser Chrome terlebih dahulu!!") : End If
- End Try
- End Sub
- Private Sub 文件伺服器_pb_Click(sender As Object, e As EventArgs) Handles 文件伺服器_pb.Click
- 文件伺服器_tsm.PerformClick()
- End Sub
- Private Sub 文件伺服器_ib_Click(sender As Object, e As EventArgs) Handles 文件伺服器_lb.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
- 重登計時() : 重置() : 系統使用說明.Show() : 系統使用說明.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統使用說明_pb_Click(sender As Object, e As EventArgs) Handles 系統使用說明_pb.Click
- 系統使用說明_tsm.PerformClick()
- End Sub
- Private Sub 系統使用說明_lb_Click(sender As Object, e As EventArgs) Handles 系統使用說明_lb.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
- 重登計時() : 重置() : 單次授權功能.ShowDialog() : 單次授權功能.BringToFront()
- End Sub
- Private Sub 單次授權功能_pb_Click(sender As Object, e As EventArgs) Handles 單次授權功能_pb.Click
- 單次授權功能_tsm.PerformClick()
- End Sub
- Private Sub 單次授權功能_lb_Click(sender As Object, e As EventArgs) Handles 單次授權功能_lb.Click
- 單次授權功能_tsm.PerformClick()
- End Sub
- Private Sub 會議記錄ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 會議記錄_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 會議記錄.Show() : 會議記錄.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 會議記錄_pb_Click(sender As Object, e As EventArgs) Handles 會議記錄_pb.Click
- 會議記錄_tsm.PerformClick()
- End Sub
- Private Sub 會議記錄_lb_Click(sender As Object, e As EventArgs) Handles 會議記錄_lb.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
- 重登計時() : 重置() : 安培容量計算.ShowDialog() : 安培容量計算.BringToFront()
- End Sub
- Private Sub 安培容量計算表_pb_Click(sender As Object, e As EventArgs) Handles 安培容量計算表_pb.Click
- 安培容量計算表_tsm.PerformClick()
- End Sub
- Private Sub 安培容量計算表_lb_Click(sender As Object, e As EventArgs) Handles 安培容量計算表_lb.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
- 重登計時() : 重置() : 部門聯絡函一覽表.Show() : 部門聯絡函一覽表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 部門聯絡函一覽表_pb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函一覽表_pb.Click
- 部門聯絡函一覽表_tsm.PerformClick()
- End Sub
- Private Sub 部門聯絡函一覽表_lb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函一覽表_lb.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
- 重登計時() : 重置() : 部門聯絡函申請.Show() : 部門聯絡函申請.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 部門聯絡函申請_pb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函申請_pb.Click
- 部門聯絡函申請_tsm.PerformClick()
- End Sub
- Private Sub 部門聯絡函申請_lb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函申請_lb.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
- 重登計時() : 重置() : 聯絡函部門主管審核.Show() : 聯絡函部門主管審核.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 部門聯絡函部門主管審核_pb_Click(sender As Object, e As EventArgs) Handles 聯絡函部門主管審核_pb.Click
- 聯絡函部門主管審核_tsm.PerformClick()
- End Sub
- Private Sub 部門聯絡函部門主管審核_lb_Click(sender As Object, e As EventArgs) Handles 聯絡函部門主管審核_lb.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
- 重登計時() : 重置() : 合約執行進度.Show() : 合約執行進度.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約執行進度_pb_Click(sender As Object, e As EventArgs) Handles 合約執行進度_pb.Click
- 合約執行進度_tsm.PerformClick()
- End Sub
- Private Sub 合約執行進度_lb_Click(sender As Object, e As EventArgs) Handles 合約執行進度_lb.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
- 重登計時() : 重置() : 合約利潤預估表.Show() : 合約利潤預估表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約利潤預估表_pb_Click(sender As Object, e As EventArgs) Handles 合約利潤預估表_pb.Click
- 合約利潤預估表_tsm.PerformClick()
- End Sub
- Private Sub 合約利潤預估表_lb_Click(sender As Object, e As EventArgs) Handles 合約利潤預估表_lb.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
- 重登計時() : 重置() : 合約報價單.Show() : 合約報價單.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約報價單_pb_Click(sender As Object, e As EventArgs) Handles 合約報價單_pb.Click
- 合約報價單_tsm.PerformClick()
- End Sub
- Private Sub 合約報價單_lb_Click(sender As Object, e As EventArgs) Handles 合約報價單_lb.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
- 重登計時() : 重置() : 合約報價單審核.Show() : 合約報價單審核.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約報價單審核_pb_Click(sender As Object, e As EventArgs) Handles 合約報價單審核_pb.Click
- 合約報價單審核_tsm.PerformClick()
- End Sub
- Private Sub 合約報價單審核_lb_Click(sender As Object, e As EventArgs) Handles 合約報價單審核_lb.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
- 重登計時() : 重置() : 合約本文.Show() : 合約本文.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約本文_pb_Click(sender As Object, e As EventArgs) Handles 合約本文_pb.Click
- 合約本文_tsm.PerformClick()
- End Sub
- Private Sub 合約本文_lb_Click(sender As Object, e As EventArgs) Handles 合約本文_lb.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
- 重登計時() : 重置() : 附錄合約.ShowDialog() : 附錄合約.BringToFront()
- End Sub
- Private Sub 附錄合約_pb_Click(sender As Object, e As EventArgs) Handles 附錄合約_pb.Click
- 附錄合約_tsm.PerformClick()
- End Sub
- Private Sub 附錄合約_lb_Click(sender As Object, e As EventArgs) Handles 附錄合約_lb.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
- 重登計時() : 重置() : 合約請款控制表.Show() : 合約請款控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約請款控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約請款控制表_pb.Click
- 合約請款控制表_tsm.PerformClick()
- End Sub
- Private Sub 合約請款控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約請款控制表_lb.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
- 重登計時() : 重置() : 合約請款單.Show() : 合約請款單.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約請款單_pb_Click(sender As Object, e As EventArgs) Handles 合約請款單_pb.Click
- 合約請款單_tsm.PerformClick()
- End Sub
- Private Sub 合約請款單_lb_Click(sender As Object, e As EventArgs) Handles 合約請款單_lb.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
- 重登計時() : 重置() : 系統分區控制 = True : 合約驗收控制表.Show() : 合約驗收控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約驗收控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表_pb.Click
- 合約驗收控制表_tsm.PerformClick()
- End Sub
- Private Sub 合約驗收控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表_lb.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
- 重登計時() : 重置() : 系統分區控制 = True : 合約驗收單.Show() : 合約驗收單.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約驗收單_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收單_pb.Click
- 合約驗收單_tsm.PerformClick()
- End Sub
- Private Sub 合約驗收單_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收單_lb.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
- 重登計時() : 重置() : 合約保固書.ShowDialog() : 合約保固書.BringToFront()
- End Sub
- Private Sub 合約保固書_pb_Click(sender As Object, e As EventArgs) Handles 合約保固書_pb.Click
- 合約保固書_tsm.PerformClick()
- End Sub
- Private Sub 合約保固書_lb_Click(sender As Object, e As EventArgs) Handles 合約保固書_lb.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
- 重登計時() : 重置() : 合約文件簽回存檔.Show() : 合約文件簽回存檔.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約文件簽回存檔_pb_Click(sender As Object, e As EventArgs) Handles 合約文件簽回存檔_pb.Click
- 合約文件簽回存檔_tsm.PerformClick()
- End Sub
- Private Sub 合約文件簽回存檔_lb_Click(sender As Object, e As EventArgs) Handles 合約文件簽回存檔_lb.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
- 重登計時() : 重置() : 合約文件簽核控制表.Show() : 合約文件簽核控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約文件簽核控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約文件簽核控制表_pb.Click
- 合約文件簽核控制表_tsm.PerformClick()
- End Sub
- Private Sub 合約文件簽核控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約文件簽核控制表_lb.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
- 重登計時() : 重置() : 系統分區控制 = True : 合約結案控制表.Show() : 合約結案控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約結案控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表_pb.Click
- 合約結案控制表_tsm.PerformClick()
- End Sub
- Private Sub 合約結案控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表_lb.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
- 重登計時() : 重置() : 合約文件圖庫管理.Show() : 合約文件圖庫管理.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約工程圖庫管理_pb_Click(sender As Object, e As EventArgs) Handles 合約工程圖庫管理_pb.Click
- 合約工程圖庫管理_tsm.PerformClick()
- End Sub
- Private Sub 合約工程圖庫管理_lb_Click(sender As Object, e As EventArgs) Handles 合約工程圖庫管理_lb.Click
- 合約工程圖庫管理_tsm.PerformClick()
- End Sub
- Private Sub 工程項目BOM表_tsm_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 工程項目BOM表.Show() : 工程項目BOM表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 工程項目BOM表_pb_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_pb.Click
- 工程項目BOM表_tsm.PerformClick()
- End Sub
- Private Sub 工程項目BOM表_lb_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_lb.Click
- 工程項目BOM表_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
- 重登計時() : 重置() : 客戶資料表.Show() : 客戶資料表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 客戶資料表_pb_Click(sender As Object, e As EventArgs) Handles 客戶資料表_pb.Click
- 客戶資料表_tsm.PerformClick()
- End Sub
- Private Sub 客戶資料表_lb_Click(sender As Object, e As EventArgs) Handles 客戶資料表_lb.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
- 重登計時() : 重置() : 系統分區控制 = True : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 工程分區控制表_pb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表_pb.Click
- 工程分區控制表_tsm.PerformClick()
- End Sub
- Private Sub 工程分區控制表_lb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表_lb.Click
- 工程分區控制表_tsm.PerformClick()
- End Sub
- Private Sub 合約模組設定_tsm_Click(sender As Object, e As EventArgs) Handles 合約模組設定_tsm.Click
- 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
- 重登計時() : 重置() : 樣品請購單申請.Show() : 樣品請購單申請.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品請購單申請_pb_Click(sender As Object, e As EventArgs) Handles 樣品請購單申請_pb.Click
- 樣品請購單申請_tsm.PerformClick()
- End Sub
- Private Sub 樣品請購單申請_lb_Click(sender As Object, e As EventArgs) Handles 樣品請購單申請_lb.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
- 重登計時() : 重置() : 樣品請購單核准.Show() : 樣品請購單核准.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品請購單核准_pb_Click(sender As Object, e As EventArgs) Handles 樣品請購單核准_pb.Click
- 樣品請購單核准_tsm.PerformClick()
- End Sub
- Private Sub 樣品請購單核准_lb_Click(sender As Object, e As EventArgs) Handles 樣品請購單核准_lb.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
- 重登計時() : 重置() : 樣品請購單歷史檔案.Show() : 樣品請購單歷史檔案.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品請購單一覽表_pb_Click(sender As Object, e As EventArgs) Handles 樣品請購單一覽表_pb.Click
- 樣品請購單一覽表_tsm.PerformClick()
- End Sub
- Private Sub 樣品請購單一覽表_lb_Click(sender As Object, e As EventArgs) Handles 樣品請購單一覽表_lb.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
- 重登計時() : 重置() : 樣品採購單編輯.Show() : 樣品採購單編輯.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品採購單生成_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購單生成_pb.Click
- 樣品採購單生成_tsm.PerformClick()
- End Sub
- Private Sub 樣品採購單生成_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購單生成_lb.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
- 重登計時() : 重置() : 樣品採購單一級核准.Show() : 樣品採購單一級核准.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品採購單一級核准_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購單一級核准_pb.Click
- 樣品採購單一級核准_tsm.PerformClick()
- End Sub
- Private Sub 樣品採購單一級核准_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購單一級核准_lb.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
- 重登計時() : 重置() : 樣品採購單二級核准.Show() : 樣品採購單二級核准.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品採購單二級核准_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購單二級核准_pb.Click
- 樣品採購單二級核准_tsm.PerformClick()
- End Sub
- Private Sub 樣品採購單二級核准_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購單二級核准_lb.Click
- 樣品採購單二級核准_tsm.PerformClick()
- End Sub
- Private Sub 樣品採購單一覽表_tsmClick(sender As Object, e As EventArgs) Handles 樣品採購單一覽表_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 樣品採購單歷史檔案.Show() : 樣品採購單歷史檔案.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品採購單一覽表_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購單一覽表_pb.Click
- 樣品採購單一覽表_tsm.PerformClick()
- End Sub
- Private Sub 樣品採購單一覽表_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購單一覽表_lb.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
- 重登計時() : 重置() : 樣品採購單_對帳表.Show() : 樣品採購單_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品採購驗收對帳表_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購驗收對帳表_pb.Click
- 樣品採購驗收對帳表_tsm.PerformClick()
- End Sub
- Private Sub 樣品採購驗收對帳表_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購驗收對帳表_lb.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
- 重登計時() : 重置() : 樣品採購單驗收.Show() : 樣品採購單驗收.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品來料驗收單_pb_Click(sender As Object, e As EventArgs) Handles 樣品來料驗收單_pb.Click
- 樣品來料驗收單_tsm.PerformClick()
- End Sub
- Private Sub 樣品來料驗收單_lb_Click(sender As Object, e As EventArgs) Handles 樣品來料驗收單_lb.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
- 重登計時() : 重置() : 樣品供應商資料管理.Show() : 樣品供應商資料管理.BringToFront() : 虛擬桌面隱藏()
- 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
- 重登計時() : 重置() : 請購單申請.Show() : 請購單申請.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 請購單申請_pb_Click(sender As Object, e As EventArgs) Handles 請購單申請_pb.Click
- 請購單申請_tsm.PerformClick()
- End Sub
- Private Sub 請購單申請_lb_Click(sender As Object, e As EventArgs) Handles 請購單申請_lb.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
- 重登計時() : 重置() : 請購單核准.Show() : 請購單核准.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 請購單核準_pb_Click(sender As Object, e As EventArgs) Handles 請購單核準_pb.Click
- 請購單核準_tsm.PerformClick()
- End Sub
- Private Sub 請購單核準_lb_Click(sender As Object, e As EventArgs) Handles 請購單核準_lb.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
- 重登計時() : 重置() : 請購單歷史檔案.Show() : 請購單歷史檔案.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 請購一覽表_pb_Click(sender As Object, e As EventArgs) Handles 請購一覽表_pb.Click
- 請購一覽表_tsm.PerformClick()
- End Sub
- Private Sub 請購一覽表_lb_Click(sender As Object, e As EventArgs) Handles 請購一覽表_lb.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
- 重登計時() : 重置() : 採購單一級核准.Close() : 採購單二級核准.Close() : 採購單編輯.Show() : 採購單編輯.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 採購單編輯_pb_Click(sender As Object, e As EventArgs) Handles 採購單編輯_pb.Click
- 採購單編輯_tsm.PerformClick()
- End Sub
- Private Sub 採購單編輯_lb_Click(sender As Object, e As EventArgs) Handles 採購單編輯_lb.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
- 重登計時() : 重置() : 採購單二級核准.Close() : 採購單編輯.Close() : 採購單一級核准.Show() : 採購單一級核准_pb.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 採購單一級核准_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_pb.Click
- 採購單一級核准_tsm.PerformClick()
- End Sub
- Private Sub 採購單一級核准_lb_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_lb.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
- 重登計時() : 重置() : 採購單編輯.Close() : 採購單一級核准.Close() : 採購單二級核准.Show() : 採購單二級核准.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 採購單二級核准_pb_Click(sender As Object, e As EventArgs) Handles 採購單二級核准_pb.Click
- 採購單二級核准_tsm.PerformClick()
- End Sub
- Private Sub 採購單二級核准_lb_Click(sender As Object, e As EventArgs) Handles 採購單二級核准_lb.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
- 重登計時() : 重置() : 採購單歷史檔案.Show() : 採購單歷史檔案.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 採購單一覽表_pb_Click(sender As Object, e As EventArgs) Handles 採購單一覽表_pb.Click
- 採購單一覽表_tsm.PerformClick()
- End Sub
- Private Sub 採購單一覽表_lb_Click(sender As Object, e As EventArgs) Handles 採購單一覽表_lb.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
- 重登計時() : 重置() : 採購單驗收.Show() : 採購單驗收.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 入庫驗收單_pb_Click(sender As Object, e As EventArgs) Handles 入庫驗收單_pb.Click
- 入庫驗收單_tsm.PerformClick()
- End Sub
- Private Sub 入庫驗收單_lb_Click(sender As Object, e As EventArgs) Handles 入庫驗收單_lb.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
- 重登計時() : 重置() : 採購_對帳表.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 採購驗收對帳表_pb_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表_pb.Click
- 採購驗收對帳表_tsm.PerformClick()
- End Sub
- Private Sub 採購驗收對帳表_lb_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表_lb.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
- 重登計時() : 重置() : 採購單詢價.Show() : 採購單詢價.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 採購單詢價_pb_Click(sender As Object, e As EventArgs) Handles 採購單詢價_pb.Click
- 採購單詢價_tsm.PerformClick()
- End Sub
- Private Sub 採購單詢價_lb_Click(sender As Object, e As EventArgs) Handles 採購單詢價_lb.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
- 重登計時() : 重置() : 供應商管理.Show() : 供應商管理.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 供應商管理_pb_Click(sender As Object, e As EventArgs) Handles 供應商管理_pb.Click
- 供應商管理_tsm.PerformClick()
- End Sub
- Private Sub 供應商管理_lb_Click(sender As Object, e As EventArgs) Handles 供應商管理_lb.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
- 重登計時() : 重置() : 物料採購統計表.Show() : 物料採購統計表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 物料採購統計表_pb_Click(sender As Object, e As EventArgs) Handles 物料採購統計表_pb.Click
- 物料採購統計表_tsm.PerformClick()
- End Sub
- Private Sub 物料採購統計表_lb_Click(sender As Object, e As EventArgs) Handles 物料採購統計表_lb.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
- 重登計時() : 重置() : 供應商商品單價設定.Show() : 供應商商品單價設定.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 供應商商品單價清單_pb_Click(sender As Object, e As EventArgs) Handles 供應商商品單價設定_pb.Click
- 供應商商品單價設定_tsm.PerformClick()
- End Sub
- Private Sub 供應商商品單價清單_lb_Click(sender As Object, e As EventArgs) Handles 供應商商品單價設定_lb.Click
- 供應商商品單價設定_tsm.PerformClick()
- End Sub
-
- '------------------------財務系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub 應收帳款控制表_tsm_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表_tsm.Click
- End Sub
- Private Sub 應付賬款控制表_tsm_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表_tsm.Click
- End Sub
- Private Sub 支票收支申請_tsm_Click(sender As Object, e As EventArgs) Handles 支票收支申請_tsm.Click
- End Sub
- Private Sub 支票收支審核_tsm_Click(sender As Object, e As EventArgs) Handles 支票收支審核_tsm.Click
- End Sub
- Private Sub 支票收支核准_tsm_Click(sender As Object, e As EventArgs) Handles 支票收支核准_tsm.Click
- End Sub
- Private Sub 支票票務控制表_tsm_Click(sender As Object, e As EventArgs) Handles 支票票務控制表_tsm.Click
- End Sub
- Private Sub 現金流量表_tsm_Click(sender As Object, e As EventArgs) Handles 現金流量表_tsm.Click
- End Sub
- Private Sub 綜合損益表_tsm_Click(sender As Object, e As EventArgs) Handles 綜合損益表_tsm.Click
- End Sub
- Private Sub 權益變動表_tsm_Click(sender As Object, e As EventArgs) Handles 權益變動表_tsm.Click
- End Sub
- Private Sub 資產負載表_tsm_Click(sender As Object, e As EventArgs) Handles 資產負載表_tsm.Click
- 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
- 重登計時() : 重置() : 零用金支付申請.Show() : 零用金支付申請.BringToFront() : 虛擬桌面隱藏()
- 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
- 重登計時() : 重置() : 零用金支付審核.Show() : 零用金支付審核.BringToFront() : 虛擬桌面隱藏()
- 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
- 重登計時() : 重置() : 零用金支付核准.Show() : 零用金支付核准.BringToFront() : 虛擬桌面隱藏()
- 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
- 重登計時() : 重置() : 零用金支付單一覽表.Show() : 零用金支付單一覽表.BringToFront() : 虛擬桌面隱藏()
- 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
- 重登計時() : 重置() : 零用金支付_對帳表.Show() : 零用金支付_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 樣品採購驗收對帳表_tsm1_Click(sender As Object, e As EventArgs) Handles 樣品採購驗收對帳表1_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 樣品採購單_對帳表.Show() : 樣品採購單_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 採購驗收對帳表_tsm1_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表1_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 採購_對帳表.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 營運成本收支單申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支單申請_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 營運成本收支單申請.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 營運成本收支單審核ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支單審核_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 營運成本收支單審核.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 營運成本收支單一覽表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支單一覽表_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 營運成本收支單一覽表.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支單對帳表_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 營運成本收支單對帳表.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 營運成本收支決算表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支決算表_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 營運成本收支決算表.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 匯率管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 匯率管理.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 會計科目管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 會計科目管理_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 會計科目管理.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
- 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
- 重登計時() : 重置() : 物料資料庫.Show() : 物料資料庫.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 物料資料庫_pb_Click(sender As Object, e As EventArgs) Handles 物料資料庫_pb.Click
- 物料資料庫_tsm.PerformClick()
- End Sub
- Private Sub 物料資料庫_lb_Click(sender As Object, e As EventArgs) Handles 物料資料庫_lb.Click
- 物料資料庫_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
- 重登計時() : 重置() : 系統分區控制 = False : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 倉儲分區控制表_pb_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_pb.Click
- 倉儲分區控制表_tsm.PerformClick()
- End Sub
- Private Sub 倉儲分區控制表_lb_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_lb.Click
- 倉儲分區控制表_tsm.PerformClick()
- End Sub
- Private Sub 倉儲控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 倉儲控制表.Show() : 倉儲控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 倉儲控制表_pb_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_pb.Click
- 倉儲控制表_tsm.PerformClick()
- End Sub
- Private Sub 倉儲控制表_lb_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_lb.Click
- 倉儲控制表_tsm.PerformClick()
- End Sub
- Private Sub 倉儲入庫驗收_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 倉儲入庫驗收.Show() : 倉儲入庫驗收.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 倉儲入庫驗收_pb_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_pb.Click
- 倉儲入庫驗收_tsm.PerformClick()
- End Sub
- Private Sub 倉儲入庫驗收_lb_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_lb.Click
- 倉儲入庫驗收_tsm.PerformClick()
- End Sub
- Private Sub 物料轉倉申請_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 物料轉倉申請.Show() : 物料轉倉申請.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 物料轉倉申請_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_pb.Click
- 物料轉倉申請_tsm.PerformClick()
- End Sub
- Private Sub 物料轉倉申請_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_lb.Click
- 物料轉倉申請_tsm.PerformClick()
- End Sub
- Private Sub 物料轉倉審核_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 物料轉倉審核.Show() : 物料轉倉審核.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 物料轉倉審核_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_pb.Click
- 物料轉倉審核_tsm.PerformClick()
- End Sub
- Private Sub 物料轉倉審核_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_lb.Click
- 物料轉倉審核_tsm.PerformClick()
- End Sub
- Private Sub 物料轉倉出庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 物料轉倉出庫.Show() : 物料轉倉出庫.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 物料轉倉出庫_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_pb.Click
- 物料轉倉出庫_tsm.PerformClick()
- End Sub
- Private Sub 物料轉倉出庫_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_lb.Click
- 物料轉倉出庫_tsm.PerformClick()
- End Sub
- Private Sub 倉儲領料申請_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 倉儲領料申請.Show() : 倉儲領料申請.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 倉儲領料申請_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_pb.Click
- 倉儲領料申請_tsm.PerformClick()
- End Sub
- Private Sub 倉儲領料申請_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_lb.Click
- 倉儲領料申請_tsm.PerformClick()
- End Sub
- Private Sub 倉儲領料審核_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 倉儲領料審核.Show() : 倉儲領料審核.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 倉儲領料審核_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_pb.Click
- 倉儲領料審核_tsm.PerformClick()
- End Sub
- Private Sub 倉儲領料審核_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_lb.Click
- 倉儲領料審核_tsm.PerformClick()
- End Sub
- Private Sub 倉儲領料出庫_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 倉儲領料出庫.Show() : 倉儲領料出庫.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 倉儲領料出庫_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_pb.Click
- 倉儲領料出庫_tsm.PerformClick()
- End Sub
- Private Sub 倉儲領料出庫_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_lb.Click
- 倉儲領料出庫_tsm.PerformClick()
- End Sub
- Private Sub 物料退庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料退庫_tsm.Click
- 倉儲分區選擇.ShowDialog()
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 物料退庫.Show() : 物料退庫.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 物料退庫_pb_Click(sender As Object, e As EventArgs) Handles 物料退庫_pb.Click
- 物料退庫_tsm.PerformClick()
- End Sub
- Private Sub 物料退庫_lb_Click(sender As Object, e As EventArgs) Handles 物料退庫_lb.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
- 重登計時() : 重置() : 倉儲單據狀態看板.Show() : 倉儲單據狀態看板.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 倉儲單據狀態看板_pb_Click(sender As Object, e As EventArgs) Handles 倉儲單據狀態看板_pb.Click
- 倉儲單據狀態看板_tsm.PerformClick()
- End Sub
- Private Sub 倉儲單據狀態看板_lb_Click(sender As Object, e As EventArgs) Handles 倉儲單據狀態看板_lb.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
- 重登計時() : 重置() : 盤盈盤損申請.Show() : 盤盈盤損申請.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 盤盈盤損申請_pb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損申請_pb.Click
- 盤盈盤損申請_tsm.PerformClick()
- End Sub
- Private Sub 盤盈盤損申請_lb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損申請_lb.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
- 重登計時() : 重置() : 盤盈盤損審核.Show() : 盤盈盤損審核.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 盤盈盤損審核_pb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_pb.Click
- 盤盈盤損審核_tsm.PerformClick()
- End Sub
- Private Sub 盤盈盤損審核_lb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_lb.Click
- 盤盈盤損審核_tsm.PerformClick()
- End Sub
-
- '------------------------人事系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub 人員ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 人員ID卡系統配置設定_pb_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_pb.Click
- 人員ID卡系統配置設定_tsm.PerformClick()
- End Sub
- Private Sub 人員ID卡系統配置設定_lb_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_lb.Click
- 人員ID卡系統配置設定_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
- 重登計時() : 重置() : 系統組織結構與權限設定.Show() : 系統組織結構與權限設定.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統組織結構與權限設定_pb_Click(sender As Object, e As EventArgs) Handles 系統組織結構與權限設定_pb.Click
- 系統組織結構與權限設定_tsm.PerformClick()
- End Sub
- Private Sub 系統組織結構與權限設定_lb_Click(sender As Object, e As EventArgs) Handles 系統組織結構與權限設定_lb.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
- 重登計時() : 重置() : 公司組織結構.Show() : 公司組織結構.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 公司組織結構_pb_Click(sender As Object, e As EventArgs) Handles 公司組織結構_pb.Click
- 公司組織結構_tsm.PerformClick()
- End Sub
- Private Sub 公司組織結構_lb_Click(sender As Object, e As EventArgs) Handles 公司組織結構_lb.Click
- 公司組織結構_tsm.PerformClick()
- End Sub
- Private Sub LINE使用者管理表_tsm_Click(sender As Object, e As EventArgs) Handles LINE使用者管理表_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : LINE_使用者管理表.Show() : LINE_使用者管理表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub LINE通知測試表_tsm_Click(sender As Object, e As EventArgs) Handles LINE通知測試表_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : LINE_通知測試表.ShowDialog() : LINE_通知測試表.BringToFront()
- End Sub
- Private Sub LINE權限一覽表_Click(sender As Object, e As EventArgs) Handles LINE權限一覽表_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : LINE_權限一覽表.ShowDialog() : LINE_權限一覽表.BringToFront()
- 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
- 重登計時() : 重置() : 工程材料表.Show() : 工程材料表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 工程材料表_pb_Click(sender As Object, e As EventArgs) Handles 工程材料表_pb.Click
- 工程材料表_tsm.PerformClick()
- End Sub
- Private Sub 工程材料表_lb_Click(sender As Object, e As EventArgs) Handles 工程材料表_lb.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
- 重登計時() : 重置() : 系統分區控制 = False : 合約驗收單.Show() : 合約驗收單.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約驗收單1_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收單1_pb.Click
- 合約驗收單1_tsm.PerformClick()
- End Sub
- Private Sub 合約驗收單1_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收單1_lb.Click
- 合約驗收單1_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
- 重登計時() : 重置() : 系統分區控制 = False : 合約驗收控制表.Show() : 合約驗收控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約驗收控制表1_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表1_pb.Click
- 合約驗收控制表1_tsm.PerformClick()
- End Sub
- Private Sub 合約驗收控制表1_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表1_lb.Click
- 合約驗收控制表1_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
- 重登計時() : 重置() : 系統分區控制 = False : 合約結案控制表.Show() : 合約結案控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 合約結案控制表1_pb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表1_pb.Click
- 合約結案控制表1_tsm.PerformClick()
- End Sub
- Private Sub 合約結案控制表1_lb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表1_lb.Click
- 合約結案控制表1_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
- 重登計時() : 重置() : 工程進度表.Show() : 工程進度表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 工程進度表_pb_Click(sender As Object, e As EventArgs) Handles 工程進度表_pb.Click
- 工程進度表_tsm.PerformClick()
- End Sub
- Private Sub 工程進度表_lb_Click(sender As Object, e As EventArgs) Handles 工程進度表_lb.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
- 重登計時() : 重置() : 派工人數紀錄表.Show() : 派工人數紀錄表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 派工人數紀錄表_pb_Click(sender As Object, e As EventArgs) Handles 派工人數紀錄表_pb.Click
- 派工人數紀錄表_tsm.PerformClick()
- End Sub
- Private Sub 派工人數紀錄表_lb_Click(sender As Object, e As EventArgs) Handles 派工人數紀錄表_lb.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
- 重登計時() : 重置() : 工程日報表.Show() : 工程日報表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 工程日報表編輯_pb_Click(sender As Object, e As EventArgs) Handles 工程日報表編輯_pb.Click
- 工程日報表編輯_tsm.PerformClick()
- End Sub
- Private Sub 工程日報表編輯_lb_Click(sender As Object, e As EventArgs) Handles 工程日報表編輯_lb.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
- 重登計時() : 重置() : 工程客變單.Show() : 工程客變單.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 工程客變單_pb_Click(sender As Object, e As EventArgs) Handles 工程客變單_pb.Click
- 工程客變單_tsm.PerformClick()
- End Sub
- Private Sub 工程客變單_lb_Click(sender As Object, e As EventArgs) Handles 工程客變單_lb.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
- 重登計時() : 重置() : 工程維修單.Show() : 工程維修單.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 工程維修單_pb_Click(sender As Object, e As EventArgs) Handles 工程維修單_pb.Click
- 工程維修單_tsm.PerformClick()
- End Sub
- Private Sub 工程維修單_lb_Click(sender As Object, e As EventArgs) Handles 工程維修單_lb.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
- 重登計時() : 重置() : 系統分區控制 = True : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 工程分區控制表1_pb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表1_pb.Click
- 工程分區控制表1_tsm.PerformClick()
- End Sub
- Private Sub 工程分區控制表1_lb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表1_lb.Click
- 工程分區控制表1_tsm.PerformClick()
- End Sub
-
- '------------------------資料庫系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub FTP資料夾管理_tsm_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
- 重登計時() : 重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub FTP資料夾管理_pb_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_pb.Click
- FTP資料夾管理_tsm.PerformClick()
- End Sub
- Private Sub FTP資料夾管理_lb_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_lb.Click
- FTP資料夾管理_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
- 重登計時() : 重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統執行檔版本管理_pb_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_pb.Click
- 系統執行檔版本管理_tsm.PerformClick()
- End Sub
- Private Sub 系統執行檔版本管理_lb_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_lb.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
- 重登計時() : 重置() : 系統使用者管理.Show() : 系統使用者管理.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統使用者管理_pb_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_pb.Click
- 系統使用者管理_tsm.PerformClick()
- End Sub
- Private Sub 系統使用者管理_lb_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_lb.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
- 重登計時() : 重置() : 系統權限預設表.Show() : 系統權限預設表.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統權限預設表_pb_Click(sender As Object, e As EventArgs) Handles 系統權限預設表_pb.Click
- 系統權限預設表_tsm.PerformClick()
- End Sub
- Private Sub 系統權限預設表_lb_Click(sender As Object, e As EventArgs) Handles 系統權限預設表_lb.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
- 重登計時() : 重置() : 系統開發用共享文件.Show() : 系統開發用共享文件.BringToFront() : 虛擬桌面隱藏()
- 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
- 重登計時() : 重置() : 簽名檔管理.Show() : 簽名檔管理.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 簽名檔管理_pb_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_pb.Click
- 簽名檔管理_tsm.PerformClick()
- End Sub
- Private Sub 簽名檔管理_lb_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_lb.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
- 重登計時() : 重置() : 系統對應電腦註冊.Show() : 系統對應電腦註冊.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統對應電腦註冊_pb_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_pb.Click
- 系統對應電腦註冊_tsm.PerformClick()
- End Sub
- Private Sub 系統對應電腦註冊_lb_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_lb.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
- 重登計時() : 重置() : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統通用變數管理_pb_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_pb.Click
- 系統通用變數管理_tsm.PerformClick()
- End Sub
- Private Sub 系統通用變數管理_lb_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_lb.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
- 重登計時() : 重置() : 系統編碼規則.Show() : 系統編碼規則.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統編碼規則_pb_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_pb.Click
- 系統編碼規則_tsm.PerformClick()
- End Sub
- Private Sub 系統編碼規則_lb_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_lb.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
- 重登計時() : 重置() : 系統組織架構設定.Show() : 系統組織架構設定.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 系統組織架構設定_pb_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_pb.Click
- 系統組織架構設定_tsm.PerformClick()
- End Sub
- Private Sub 系統組織架構設定_lb_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_lb.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
- 重登計時() : 重置() : 部門權限設定.Show() : 部門權限設定.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 部門權限設定_pb_Click(sender As Object, e As EventArgs) Handles 部門權限設定_pb.Click
- 部門權限設定_tsm.PerformClick()
- End Sub
- Private Sub 部門權限設定_lb_Click(sender As Object, e As EventArgs) Handles 部門權限設定_lb.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
- 重登計時() : 重置() : 聯絡函最高主管核准.Show() : 聯絡函最高主管核准.BringToFront() : 虛擬桌面隱藏()
- End Sub
- Private Sub 聯絡函最高主管核准_pb_Click(sender As Object, e As EventArgs) Handles 聯絡函最高主管核准_pb.Click
- 聯絡函最高主管核准_tsm.PerformClick()
- End Sub
- Private Sub 聯絡函最高主管核准_lb_Click(sender As Object, e As EventArgs) Handles 聯絡函最高主管核准_lb.Click
- 聯絡函最高主管核准_tsm.PerformClick()
- End Sub
-
- '------------------------測試與其他-------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub Calculator_bt_Click(sender As Object, e As EventArgs) Handles Calculator_bt.Click
- Shell("calc") 'PA = "" : 計算機.Show() : 計算機.BringToFront()
- End Sub
- Private Sub TEST_FORM_tsm_Click(sender As Object, e As EventArgs) Handles TEST_FORM_tsm.Click
- 重登計時() : 重置() : 測試介面.Show() : 測試介面.BringToFront()
- End Sub
- Private Sub 開發模板庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開發模板庫_tsm.Click
- 開發模板庫.Show() : 開發模板庫.BringToFront()
- End Sub
-
- '------------------------代辦事項通知-------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub 更新_bt_Click(sender As Object, e As EventArgs) Handles 更新_bt.Click
- Set_請購單() : Set_詢價單1() : Set_採購核准11() : Set_採購核准12() : Set_部門聯絡函_未審() : Set_部門聯絡函_未收() : Set_部門聯絡函_未執行() : Set_部門聯絡函_未驗收()
- Set_合約未請款1() : Set_合約未請款2() : Set_合約未請款3() : Set_合約未請款4() : Set_合約未請款5() : Set_合約未驗收() : Set_合約未指定主管() : Set_工程進度表未開()
- Set_合約未設利潤() : Set_合約未放行() : Set_合約保固單未簽() : Set_合約驗收單未簽回() : Set_合約未簽回() : Set_報價未簽回() : Set_報價未完成()
-
- If 代辦事項_tv.Nodes.Count = 0 Then : Else
- Dim 逆行 As Integer = 代辦事項_tv.Nodes.Count - 1 : For i As Integer = 0 To 代辦事項_tv.Nodes.Count - 1 : 代辦事項_tv.Nodes.RemoveAt(逆行) : 逆行 -= 1 : Next
- End If : NN1 = 0
-
- 代辦事項_tv.Nodes.Add(對話框(4) & 聯絡函_未審_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1
- 代辦事項_tv.Nodes.Add(對話框(5) & 聯絡函_未收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1
- 代辦事項_tv.Nodes.Add(對話框(6) & 聯絡函_未執行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1
- 代辦事項_tv.Nodes.Add(對話框(7) & 聯絡函_未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1
-
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(16) & 合約預估利潤_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(18) & 報價未完成_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(17) & 合約未放行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(19) & 報價未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(20) & 合約未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(8) & 合約請款1_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(9) & 合約請款2_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(10) & 合約請款3_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(11) & 合約請款4_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
- If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(12) & 合約請款5_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
-
- If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(14) & 合約未指定主管_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
- If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(15) & 未開工程進度表_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
- If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(13) & 合約未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
- If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(21) & 驗收未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
- If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(22) & 保固未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
-
- If CC(34) = True Then : 代辦事項_tv.Nodes.Add(對話框(0) & 請購單_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If
- If CC(20) = True Then : 代辦事項_tv.Nodes.Add(對話框(1) & 詢價單_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If
- If CC(73) = True Then : 代辦事項_tv.Nodes.Add(對話框(2) & 採購核准11_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If
- If CC(37) = True Then : 代辦事項_tv.Nodes.Add(對話框(3) & 採購核准12_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If
- End Sub
- Private Sub 代辦清單重置()
- 聯絡函_未審_dgv.Visible = False : 聯絡函_未收_dgv.Visible = False : 聯絡函_未執行_dgv.Visible = False : 聯絡函_未驗收_dgv.Visible = False
- 合約請款1_dgv.Visible = False : 合約請款2_dgv.Visible = False : 合約請款3_dgv.Visible = False : 合約請款4_dgv.Visible = False : 合約請款5_dgv.Visible = False
- 合約未指定主管_dgv.Visible = False : 未開工程進度表_dgv.Visible = False : 合約未驗收_dgv.Visible = False : 請購單_dgv.Visible = False : 詢價單_dgv.Visible = False
- 採購核准11_dgv.Visible = False : 採購核准12_dgv.Visible = False : 合約預估利潤_dgv.Visible = False : 合約未放行_dgv.Visible = False : 報價未完成_dgv.Visible = False
- 報價未簽回_dgv.Visible = False : 合約未簽回_dgv.Visible = False : 驗收未簽回_dgv.Visible = False : 保固未簽回_dgv.Visible = False
- End Sub
- Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
- If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : 視窗1_pl.SendToBack() : End If : 代辦清單重置()
- End Sub
- Private Sub 代辦事項_tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 代辦事項_tv.AfterSelect
- Dim X座標 As Integer = Me.Size.Width / 2 - 300
- Select Case (e.Node.Text)
- Case 對話框(4) & 聯絡函_未審_dgv.Rows.Count : 標題_lb.Text = 對話框(4) & 聯絡函_未審_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未審_dgv.Visible = True
- Case 對話框(5) & 聯絡函_未收_dgv.Rows.Count : 標題_lb.Text = 對話框(5) & 聯絡函_未收_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未收_dgv.Visible = True
- Case 對話框(6) & 聯絡函_未執行_dgv.Rows.Count : 標題_lb.Text = 對話框(6) & 聯絡函_未執行_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未執行_dgv.Visible = True
- Case 對話框(7) & 聯絡函_未驗收_dgv.Rows.Count : 標題_lb.Text = 對話框(7) & 聯絡函_未驗收_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未驗收_dgv.Visible = True
-
- Case 對話框(16) & 合約預估利潤_dgv.Rows.Count : 標題_lb.Text = 對話框(16) & 合約預估利潤_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約預估利潤_dgv.Visible = True
- Case 對話框(18) & 報價未完成_dgv.Rows.Count : 標題_lb.Text = 對話框(18) & 報價未完成_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未完成_dgv.Visible = True
- Case 對話框(17) & 合約未放行_dgv.Rows.Count : 標題_lb.Text = 對話框(17) & 合約未放行_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未放行_dgv.Visible = True
- Case 對話框(19) & 報價未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(19) & 報價未簽回_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未簽回_dgv.Visible = True
- Case 對話框(20) & 合約未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(20) & 合約未簽回_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未簽回_dgv.Visible = True
- Case 對話框(8) & 合約請款1_dgv.Rows.Count : 標題_lb.Text = 對話框(8) & 合約請款1_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款1_dgv.Visible = True
- Case 對話框(9) & 合約請款2_dgv.Rows.Count : 標題_lb.Text = 對話框(9) & 合約請款2_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款2_dgv.Visible = True
- Case 對話框(10) & 合約請款3_dgv.Rows.Count : 標題_lb.Text = 對話框(10) & 合約請款3_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款3_dgv.Visible = True
- Case 對話框(11) & 合約請款4_dgv.Rows.Count : 標題_lb.Text = 對話框(11) & 合約請款4_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款4_dgv.Visible = True
- Case 對話框(12) & 合約請款5_dgv.Rows.Count : 標題_lb.Text = 對話框(12) & 合約請款5_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款5_dgv.Visible = True
-
- Case 對話框(14) & 合約未指定主管_dgv.Rows.Count : 標題_lb.Text = 對話框(14) & 合約未指定主管_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未指定主管_dgv.Visible = True
- Case 對話框(15) & 未開工程進度表_dgv.Rows.Count : 標題_lb.Text = 對話框(15) & 未開工程進度表_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 未開工程進度表_dgv.Visible = True
- Case 對話框(13) & 合約未驗收_dgv.Rows.Count : 標題_lb.Text = 對話框(13) & 合約未驗收_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未驗收_dgv.Visible = True
- Case 對話框(21) & 驗收未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(21) & 驗收未簽回_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 驗收未簽回_dgv.Visible = True
- Case 對話框(22) & 保固未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(22) & 保固未簽回_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 保固未簽回_dgv.Visible = True
-
- Case 對話框(0) & 請購單_dgv.Rows.Count : 標題_lb.Text = 對話框(0) & 請購單_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 請購單_dgv.Visible = True
- Case 對話框(1) & 詢價單_dgv.Rows.Count : 標題_lb.Text = 對話框(1) & 詢價單_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 詢價單_dgv.Visible = True
- Case 對話框(2) & 採購核准11_dgv.Rows.Count : 標題_lb.Text = 對話框(2) & 採購核准11_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准11_dgv.Visible = True
- Case 對話框(3) & 採購核准12_dgv.Rows.Count : 標題_lb.Text = 對話框(3) & 採購核准12_dgv.Rows.Count
- 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准12_dgv.Visible = True
- End Select
- End Sub
-
- '----------------------視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
- Dim OldX, OldY As Long : Dim drag As Boolean
- Private Sub 視窗1_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseDown
- If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
- End Sub
- Private Sub 視窗1_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseMove
- If drag Then : 視窗1_pl.Left = 視窗1_pl.Left + e.X - OldX : 視窗1_pl.Top = 視窗1_pl.Top + e.Y - OldY : End If
- End Sub
- Private Sub 視窗1_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseUp
- drag = False
- End Sub
-
-
-
- Friend Class GanttChart
- Inherits Global.HX_PGS_ERP_SYS.GanttChart
- End Class
- End Class
|