HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-LEEHSIEHJUI
Sledovat 4
Oblíbit 0
Rozštěpit 0
Zdrojový kód Úkoly 0 Požadavky na natažení 0 Vydání 0 Wiki Activity
Bez popisu
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 Revize
1 Větev
Strom: ffdb5b9c73
Větve Značky
${ item.name }
Create branch ${ searchTerm }
from 'ffdb5b9c73'
${ noResults }
HX-PGS-ERP-SYS-LEEHSIEHJUI/舊功能/系統使用說明.vb

系統使用說明.vb 44KB
Historie Surový

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514 
  1. Option Explicit On

  2. Imports System.IO

  3. Imports System.Text

  4. Imports System.Windows.Controls

  5. Imports Telerik.WinControls.UI.Docking

  6. Imports Telerik.WinForms.Documents.FormatProviders.OpenXml.Docx

  7. 

  8. Public Class 系統使用說明

  9.     Dim OldX, OldY As Long

  10.     Dim drag As Boolean

  11.     Dim 第1段開始, 第2段開始, 第3段開始, 第4段開始, 第5段開始, 第6段開始, 判斷, 放大 As Boolean

  12.     Dim RI As Integer = -1

  13.     Dim SK As String = "要查找的 KEY"

  14.     Dim Str As String = Application.StartupPath

  15.     DIM 對話框(34) As String

  16.     Private Sub Set_合約清單()

  17.         Dim ds6 As New DataSet

  18.         子項目_dgv.DataSource = Nothing : ds6.Clear()

  19.         子項目_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  20.         子項目_dgv.ColumnHeadersHeight = 25 : 子項目_dgv.AllowUserToAddRows = False

  21.         PA47 = 主功能編號_cb.Text

  22.         SQL_子功能讀取()

  23.         da.Fill(ds6) : 子項目_dgv.DataSource = ds6.Tables(0) : conn.Close()

  24.         子項目_dgv.Columns(0).FillWeight = 100 : 子項目_dgv.Columns(1).Visible = False : 子項目_dgv.Columns(2).Visible = False : 子項目_dgv.Columns(3).Visible = False

  25.         子項目_dgv.Columns(4).Visible = False : 子項目_dgv.Columns(5).Visible = False : 子項目_dgv.Columns(6).Visible = False : 子項目_dgv.Columns(7).Visible = False

  26. 

  27.         For i As Integer = 0 To 子項目_dgv.Rows.Count - 1

  28.             If 子項目_dgv("子項目", i).Value.ToString = "" Then

  29.                 子項目_dgv(0, i).Value = " * " & 子項目_dgv("標題", i).Value.ToString

  30.                 If i > 0 Then : 子項目_dgv("子項目", i).Value = 子項目_dgv("子項目", i - 1).Value.ToString : End If

  31.             Else

  32.                 SK = 子項目_dgv("子項目", i).Value.ToString : Set_語言查詢()

  33.                 If RI > -1 Then

  34.                     子項目_dgv(0, i).Value = 語言_dgv(1, RI).Value.ToString

  35.                 End If

  36.             End If

  37.         Next

  38.     End Sub

  39.     Private Sub 主功能讀取()

  40.         主功能_cb.Items.Clear() : 主功能編號_cb.Items.Clear()

  41.         For i As Integer = 1 To 8 : 主功能編號_cb.Items.Add(i) : 主功能_cb.Items.Add(對話框(i - 1)) : Next

  42.         If 系統語言 = "繁體中文" Then : 流程圖_中_ch.Checked = True : 流程圖_印_ch.Checked = False : Else : 流程圖_中_ch.Checked = False : 流程圖_印_ch.Checked = True : End If

  43.     End Sub

  44.     Private Sub 播放YT()

  45.         Dim html As String = "<html><head>"

  46.         html &= "<meta content='IE=Edge' http-equiv='X-UA-Compatible'/>"

  47.         html &= "<iframe id='video' src= 'https://www.youtube.com/embed/{0}' width='" & WB1.Width - 25 & "' height='" & WB1.Height - 25 & "' frameborder='1' allowfullscreen></iframe>"

  48.         html &= "</body></html>"

  49.         Me.WB1.DocumentText = String.Format(html, YT網址_tb.Text.Split("=")(1))

  50.     End Sub

  51.     Private Sub Set_語言()

  52.         語言_dgv.DataSource = Nothing

  53.         語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  54.         語言_dgv.ColumnHeadersHeight = 25

  55.         語言_dgv.AllowUserToAddRows = False

  56.         For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next

  57.         If File.Exists(Str + "\LANGUAGE_FILE.csv") Then

  58.             Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)

  59.             Dim line As String = filereader.ReadLine()

  60.             While Not (line Is Nothing)

  61.                 line = filereader.ReadLine()

  62.                 If line <> Nothing Then

  63.                     line = line.Replace("""", "")

  64.                     If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 4) = "H001" Or Strings.Left(line, 8) = "H711-107" Or Strings.Left(line, 8) = "H116-103" Or

  65.                        Strings.Left(line, 4) = 介面 Then

  66.                         If 系統語言 = "繁體中文" Then

  67.                             If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)

  68.                                 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)

  69.                                 If Strings.Mid(line, 13, 300).EndsWith(",") Then

  70.                                     語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)

  71.                                 Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If

  72.                             End If

  73.                         ElseIf 系統語言 = "English" Then

  74.                             If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)

  75.                                 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)

  76.                                 If Strings.Mid(line, 13, 300).EndsWith(",") Then

  77.                                     語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)

  78.                                 Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If

  79.                             End If

  80.                         ElseIf 系統語言 = "Indonesian" Then

  81.                             If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)

  82.                                 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)

  83.                                 If Strings.Mid(line, 13, 300).EndsWith(",") Then

  84.                                     語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)

  85.                                 Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If

  86.                             End If

  87.                         End If

  88.                     End If

  89.                 End If

  90.             End While

  91.             filereader.Close()

  92.         End If

  93.     End Sub

  94.     Private Sub Set_語言查詢()

  95.         RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows

  96.             If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then

  97.                 RI = row.Index : Exit For

  98.             End If

  99.         Next

  100.     End Sub

  101.     Private Sub 語言轉換讀取()

  102.         Set_語言()

  103.         SK = "H001-147" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-108" : Set_語言查詢() : ToolTip1.ToolTipTitle = 語言_dgv(1, RI).Value.ToString

  104.         SK = "H001-231" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "H001-204" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString

  105.         SK = "H001-189" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "H001-106" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString

  106.         SK = "H001-180" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "H001-182" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString

  107.         SK = "H001-101" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString : SK = "H001-205" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString

  108.         SK = "H711-107" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString : SK = "G000-164" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString

  109.         SK = "G000-165" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "G000-166" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString

  110.         SK = "G000-167" : Set_語言查詢() : 對話框(12) = 語言_dgv(1, RI).Value.ToString : SK = "H903-100" : Set_語言查詢() : 對話框(13) = 語言_dgv(1, RI).Value.ToString

  111.         SK = "G000-168" : Set_語言查詢() : 對話框(14) = 語言_dgv(1, RI).Value.ToString : SK = "G000-169" : Set_語言查詢() : 對話框(15) = 語言_dgv(1, RI).Value.ToString

  112.         SK = "H903-101" : Set_語言查詢() : 對話框(16) = 語言_dgv(1, RI).Value.ToString : SK = "G000-170" : Set_語言查詢() : 對話框(17) = 語言_dgv(1, RI).Value.ToString

  113.         SK = "H903-102" : Set_語言查詢() : 對話框(18) = 語言_dgv(1, RI).Value.ToString : SK = "G000-171" : Set_語言查詢() : 對話框(19) = 語言_dgv(1, RI).Value.ToString

  114.         SK = "G000-172" : Set_語言查詢() : 對話框(20) = 語言_dgv(1, RI).Value.ToString : SK = "G000-173" : Set_語言查詢() : 對話框(21) = 語言_dgv(1, RI).Value.ToString

  115.         SK = "H903-103" : Set_語言查詢() : 對話框(22) = 語言_dgv(1, RI).Value.ToString : SK = "H903-104" : Set_語言查詢() : 對話框(23) = 語言_dgv(1, RI).Value.ToString

  116.         SK = "H903-105" : Set_語言查詢() : 對話框(24) = 語言_dgv(1, RI).Value.ToString : SK = "G000-118" : Set_語言查詢() : 對話框(25) = 語言_dgv(1, RI).Value.ToString

  117.         SK = "G000-119" : Set_語言查詢() : 對話框(26) = 語言_dgv(1, RI).Value.ToString : SK = "H903-106" : Set_語言查詢() : 對話框(27) = 語言_dgv(1, RI).Value.ToString

  118.         SK = "H903-117" : Set_語言查詢() : 對話框(28) = 語言_dgv(1, RI).Value.ToString : SK = "G000-175" : Set_語言查詢() : 對話框(29) = 語言_dgv(1, RI).Value.ToString

  119.         SK = "H903-118" : Set_語言查詢() : 對話框(30) = 語言_dgv(1, RI).Value.ToString : SK = "G000-112" : Set_語言查詢() : 對話框(31) = 語言_dgv(1, RI).Value.ToString

  120.         SK = "H116-103" : Set_語言查詢() : 對話框(32) = 語言_dgv(1, RI).Value.ToString : SK = "G000-110" : Set_語言查詢() : 對話框(33) = 語言_dgv(1, RI).Value.ToString

  121.         SK = "H903-107" : Set_語言查詢() : Label11.Text = 語言_dgv(1, RI).Value.ToString : SK = "H903-108" : Set_語言查詢() : 表頭(0) = 語言_dgv(1, RI).Value.ToString

  122.         SK = "H903-109" : Set_語言查詢() : 說明圖書_pb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H903-110" : Set_語言查詢() : 影片_pb.Text = 語言_dgv(1, RI).Value.ToString

  123.         SK = "H903-111" : Set_語言查詢() : 播放影片_ch.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-174" : Set_語言查詢() : Label55.Text = 語言_dgv(1, RI).Value.ToString

  124.         SK = "H903-112" : Set_語言查詢() : 圖像工具_tp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H903-113" : Set_語言查詢() : 屬性工具_tp.Text = 語言_dgv(1, RI).Value.ToString

  125.         SK = "H903-114" : Set_語言查詢() : Label5.Text = 語言_dgv(1, RI).Value.ToString : SK = "H903-115" : Set_語言查詢() : 流程圖_中_ch.Text = 語言_dgv(1, RI).Value.ToString

  126.         SK = "H903-116" : Set_語言查詢() : 流程圖_印_ch.Text = 語言_dgv(1, RI).Value.ToString

  127.         'H903-118-IN

  128.         '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------

  129.         'SK = "H001-135" : Set_語言查詢() : 樣品供應商管理_tsm.Text = 語言_dgv(1, RI).Value.ToString

  130.         'SK = "H001-172" : Set_語言查詢() : 採購驗收對帳表_tsm.Text = 語言_dgv(1, RI).Value.ToString : 採購驗收對帳表1_tsm.Text = 語言_dgv(1, RI).Value.ToString 

  131.         'SK = "H001-141" : Set_語言查詢() : 樣品採購驗收對帳表_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品採購驗收對帳表1_tsm.Text = 語言_dgv(1, RI).Value.ToString 

  132.         'SK = "H001-136" : Set_語言查詢() : 樣品來料驗收單_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品來料驗收單_lb.Text = 語言_dgv(1, RI).Value.ToString

  133.         'SK = "H001-137" : Set_語言查詢() : 樣品採購單一級核准_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品採購單一級核准_lb.Text = 語言_dgv(1, RI).Value.ToString

  134.         'SK = "H001-138" : Set_語言查詢() : 樣品採購單一覽表_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品採購單一覽表_lb.Text = 語言_dgv(1, RI).Value.ToString

  135.         'SK = "H001-139" : Set_語言查詢() : 樣品採購單二級核准_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品採購單二級核准_lb.Text = 語言_dgv(1, RI).Value.ToString

  136.         'SK = "H001-140" : Set_語言查詢() : 樣品採購單生成_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品採購單生成_lb.Text = 語言_dgv(1, RI).Value.ToString

  137.         'SK = "H001-142" : Set_語言查詢() : 樣品請購單一覽表_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品請購單一覽表_lb.Text = 語言_dgv(1, RI).Value.ToString

  138.         'SK = "H001-143" : Set_語言查詢() : 樣品請購單申請_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品請購單申請_lb.Text = 語言_dgv(1, RI).Value.ToString

  139.         'SK = "H001-144" : Set_語言查詢() : 樣品請購單核准_tsm.Text = 語言_dgv(1, RI).Value.ToString : 樣品請購單核准_lb.Text = 語言_dgv(1, RI).Value.ToString

  140.         '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------

  141.         'SK = "H001-192" : Set_語言查詢() : 現金流量表_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-201" : Set_語言查詢() : 匯率管理_tsm.Text = 語言_dgv(1, RI).Value.ToString

  142.         'SK = "H001-112" : Set_語言查詢() : 支票收支申請_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-113" : Set_語言查詢() : 支票收支核准_tsm.Text = 語言_dgv(1, RI).Value.ToString

  143.         'SK = "H001-114" : Set_語言查詢() : 支票收支審核_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-115" : Set_語言查詢() : 支票票務控制表_tsm.Text = 語言_dgv(1, RI).Value.ToString

  144.         'SK = "H001-206" : Set_語言查詢() : 資產負載表_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-207" : Set_語言查詢() : 零用金支付申請_tsm.Text = 語言_dgv(1, RI).Value.ToString

  145.         'SK = "H001-208" : Set_語言查詢() : 零用金支付核准_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-209" : Set_語言查詢() : 零用金支付單一覽表_tsm.Text = 語言_dgv(1, RI).Value.ToString

  146.         'SK = "H001-210" : Set_語言查詢() : 特支費與傭金設定_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-211" : Set_語言查詢() : 零用金支付審核_tsm.Text = 語言_dgv(1, RI).Value.ToString

  147.         'SK = "H001-212" : Set_語言查詢() : 綜合損益表_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-215" : Set_語言查詢() : 應付賬款控制表_tsm.Text = 語言_dgv(1, RI).Value.ToString

  148.         'SK = "H001-216" : Set_語言查詢() : 應收帳款控制表_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-218" : Set_語言查詢() : 營運收支決算表_tsm.Text = 語言_dgv(1, RI).Value.ToString

  149.         'SK = "H001-221" : Set_語言查詢() : 營運收支單對帳表_tsm.Text = 語言_dgv(1, RI).Value.ToString : SK = "H001-233" : Set_語言查詢() : 權益變動表_tsm.Text = 語言_dgv(1, RI).Value.ToString

  150.         'SK = "H001-219" : Set_語言查詢() : 營運收支單一覽表_tsm.Text = 語言_dgv(1, RI).Value.ToString : 營運收支單一覽表_lb.Text = 語言_dgv(1, RI).Value.ToString

  151.         'SK = "H001-202" : Set_語言查詢() : 會計科目管理_tsm.Text = 語言_dgv(1, RI).Value.ToString : 會計科目管理_lb.Text = 語言_dgv(1, RI).Value.ToString

  152.         'SK = "H001-220" : Set_語言查詢() : 營運收支單申請_tsm.Text = 語言_dgv(1, RI).Value.ToString : 營運收支單申請_lb.Text = 語言_dgv(1, RI).Value.ToString

  153.         'SK = "H001-222" : Set_語言查詢() : 營運收支單審核_tsm.Text = 語言_dgv(1, RI).Value.ToString : 營運收支單審核_lb.Text = 語言_dgv(1, RI).Value.ToString

  154.         '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------

  155.         'SK = "H001-153" : Set_語言查詢() : 系統開發用共享文件_tsm.Text = 語言_dgv(1, RI).Value.ToString

  156.         'SK = "H001-184" : Set_語言查詢() : 開發模板庫_tsm.Text = 語言_dgv(1, RI).Value.ToString

  157.     End Sub

  158.     Private Sub 讀取料夾路徑_bt_MouseEnter(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.MouseEnter

  159.         ToolTip1.SetToolTip(Me.讀取料夾路徑_bt, 對話框(8))

  160.     End Sub

  161.     Private Sub 圖檔入系統_bt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.MouseEnter

  162.         ToolTip1.SetToolTip(Me.圖檔入系統_bt, 對話框(9))

  163.     End Sub

  164.     Private Sub 圖檔修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔修改_bt.MouseEnter

  165.         ToolTip1.SetToolTip(Me.圖檔修改_bt, 對話框(10))

  166.     End Sub

  167.     Private Sub 圖檔刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔刪除_bt.MouseEnter

  168.         ToolTip1.SetToolTip(Me.圖檔刪除_bt, 對話框(11))

  169.     End Sub

  170.     Private Sub 開說明條例_bt_MouseEnter(sender As Object, e As EventArgs) Handles 開說明條例_bt.MouseEnter

  171.         ToolTip1.SetToolTip(Me.開說明條例_bt, 對話框(28))

  172.     End Sub

  173.     Private Sub 翻譯_bt_MouseEnter(sender As Object, e As EventArgs) Handles 翻譯_bt.MouseEnter

  174.         ToolTip1.SetToolTip(Me.翻譯_bt, 對話框(29))

  175.     End Sub

  176.     Private Sub 影片測試_tb_MouseEnter(sender As Object, e As EventArgs) Handles 影片測試_tb.MouseEnter

  177.         ToolTip1.SetToolTip(Me.影片測試_tb, 對話框(30))

  178.     End Sub

  179.     Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter

  180.         ToolTip1.SetToolTip(Me.刪除_bt, 對話框(31))

  181.     End Sub

  182.     Private Sub 編輯_bt_MouseEnter(sender As Object, e As EventArgs) Handles 編輯_bt.MouseEnter

  183.         ToolTip1.SetToolTip(Me.編輯_bt, 對話框(32))

  184.     End Sub

  185.     Private Sub 存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_bt.MouseEnter

  186.         ToolTip1.SetToolTip(Me.存檔_bt, 對話框(33))

  187.     End Sub

  188.     Private Sub 系統使用說明_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  189.         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  190.         視窗2_pl.Visible = False : Panel1.SendToBack() : SOP畫布控制.Visible = False : TabControl2.Visible = False

  191.         SOP畫布.Location = New System.Drawing.Point(0, 0)

  192.         SOP畫布.Size = New System.Drawing.Point(SOP畫布.Size.Width, 說明圖書_pb.Size.Height)

  193.         If 登入人級別 = "00" Then : 編輯_bt.Enabled = True : 存檔_bt.Enabled = True : Else : 編輯_bt.Enabled = False : 存檔_bt.Enabled = False : End If

  194.         Me.SOP畫布.IsSettingsPaneEnabled = False : Me.SOP畫布.IsInformationAdornerVisible = False : SOP畫布.IsEditable = False : SOP畫布.IsPanEnabled = False

  195.         SOP畫布.IsZoomEnabled = False : SOP畫布.IsResizingEnabled = False : SOP畫布.IsRotationEnabled = False : SOP畫布.IsDraggingEnabled = False

  196.         SOP畫布.AllowDelete = False : SOP畫布.AllowDrop = False : SOP畫布.AllowCopy = False : SOP畫布.AllowCut = False : SOP畫布.AllowPaste = False : SOP畫布.SelectionMode = 3

  197.         SOP畫布.IsConnectorsManipulationEnabled = False

  198.     End Sub

  199.     Private Sub 系統使用說明_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  200.         H(903) = True : 介面 = "H903" : 語言轉換讀取() : 顯示說明(999, False)

  201.         主功能讀取() : 主功能_cb.SelectedIndex = 0

  202.         本機資料夾_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)

  203.         首次開啟 = False : 標題_lb.Text = ""

  204.     End Sub

  205.     Private Sub 系統使用說明_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  206.         If File.Exists(Str + "\123.xml") Then : File.Delete(Str + "\123.xml") : End If

  207.         MyMod.虛擬桌面開啟()

  208.     End Sub

  209.     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

  210.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  211.     End Sub

  212.     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress

  213.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  214.     End Sub

  215.     Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click

  216.         H(903) = True : 介面 = "H903" : 語言轉換讀取()

  217.         主功能讀取()

  218.     End Sub

  219.     Private Sub DiagramElement_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles SOP畫布.SelectionChanged

  220.         Me.SOP屬性.SelectedObject = Me.SOP畫布.DiagramElement.SelectedItem

  221.     End Sub

  222.     Private Sub Word控制項_Click(sender As Object, e As EventArgs) Handles SOP畫布控制.SizeChanged

  223.         If 首次開啟 = False Then

  224.             Dim XX1, YY1, YY2, YY3, YY4 As Integer : YY1 = SOP畫布控制.Size.Height : XX1 = SOP畫布控制.Size.Width : YY2 = SOP畫布.Location.Y : YY4 = Me.Size.Height

  225.             If YY1 = 167 Then : SOP畫布.Location = New Point(0, 167) : If YY1 = YY2 Then : Else : SOP畫布.Size = New Point(XX1, YY4 - YY1 - 50) : End If

  226.             ElseIf YY1 > YY2 Then : YY3 = YY1 : SOP畫布.Location = New Point(0, YY3) : If YY1 = YY2 Then : Else : SOP畫布.Size = New Point(XX1, YY4 - YY1 - 50) : End If

  227.             ElseIf YY1 < YY2 Then : YY3 = YY2 - (167 - YY1) : SOP畫布.Location = New Point(0, YY3) : If YY1 = YY2 Then : Else : SOP畫布.Size = New Point(XX1, YY4 - YY1 - 50) : End If

  228.             End If

  229.         End If

  230.     End Sub

  231.     Private Sub 子項目_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 子項目_dgv.CellClick

  232.         If e.RowIndex = -1 Then : Else

  233.             主項_tb.Text = 子項目_dgv("主項", e.RowIndex).Value.ToString : 子項_tb.Text = 子項目_dgv("子項", e.RowIndex).Value.ToString

  234.             標題_lb.Text = 子項目_dgv("標題", e.RowIndex).Value.ToString : 說明_lb.Text = 子項目_dgv("說明", e.RowIndex).Value.ToString

  235.             細項_tb.Text = 子項目_dgv("細項", e.RowIndex).Value.ToString : 網址_tb.Text = 子項目_dgv("影片", e.RowIndex).Value.ToString

  236.             介面_tb.Text = 子項目_dgv("子項目", e.RowIndex).Value.ToString

  237.             If 系統語言 = "繁體中文" Then

  238.                 標題_中_tb.Text = 子項目_dgv("標題", e.RowIndex).Value.ToString : 說明_中_tb.Text = 子項目_dgv("說明", e.RowIndex).Value.ToString

  239.                 PA47 = 主項_tb.Text : PA46 = 子項_tb.Text : PA45 = 細項_tb.Text : SQL_子功能讀取1()

  240.                 If dr.Read Then : 標題_英_tb.Text = dr("標題").ToString : 說明_英_tb.Text = dr("說明").ToString : End If

  241.             Else

  242.                 標題_英_tb.Text = 子項目_dgv("標題", e.RowIndex).Value.ToString : 說明_英_tb.Text = 子項目_dgv("說明", e.RowIndex).Value.ToString

  243.                 PA47 = 主項_tb.Text : PA46 = 子項_tb.Text : PA45 = 細項_tb.Text : SQL_子功能讀取1()

  244.                 If dr.Read Then : 標題_中_tb.Text = dr("標題").ToString : 說明_中_tb.Text = dr("說明").ToString : End If

  245.             End If

  246.             If 子項目_dgv("影片", e.RowIndex).Value.ToString = "" Then : YT網址_tb.Text = "https://www.youtube.com/watch?v=OFz9oZptTh4"

  247.             Else : YT網址_tb.Text = 子項目_dgv("影片", e.RowIndex).Value.ToString : End If

  248.             If 播放影片_ch.Checked = True Then : 播放YT() : End If

  249. 

  250.             If PA44 <> 介面_tb.Text Then : 圖片載入1() : End If : PA44 = 介面_tb.Text

  251.             If PA = 主項_tb.Text And PA1 = 子項_tb.Text And PA2 = 細項_tb.Text And

  252.              ((流程圖_中_ch.Checked = True And PA7 = "繁體中文") Or (流程圖_中_ch.Checked = False And PA7 = "Indonesian")) Then : Else

  253.                 Dim ds1 As New DataSet

  254. 

  255.                 PA = 主項_tb.Text : PA1 = 子項_tb.Text : PA2 = 細項_tb.Text

  256.                 If 流程圖_中_ch.Checked = True Then : PA7 = "繁體中文" : Else : PA7 = "Indonesian" : End If

  257. 

  258.                 ds1.Clear() : SQL_統教學說明SOP讀取() : da.Fill(ds1)

  259.                 If File.Exists(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") Then : File.Delete(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") : End If

  260.                 If ds1.Tables(0).Rows.Count > 0 Then

  261.                     If IsDBNull(ds1.Tables(0).Rows(0).Item("檔案")) Then

  262.                         Me.SOP畫布.DataSource = Nothing

  263.                         Me.SOP畫布.Items.Clear()

  264.                     Else

  265.                         Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("檔案")

  266.                         Dim fs As FileStream : fs = File.Create(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml", imgData.Length - 1)

  267.                         fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()

  268.                         Me.SOP畫布.LoadFromFile(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml")

  269.                         If File.Exists(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") Then : File.Delete(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") : End If

  270.                     End If

  271.                 End If : conn.Close()

  272.             End If

  273.         End If

  274.     End Sub

  275.     Private Sub 圖片載入1()

  276.         PA45 = 介面_tb.Text : 介面_pb.Image = Nothing : 介面1_pb.Image = Nothing : SQL_系統通用變數管理_圖片載入()

  277.         While dr.Read() = True

  278.             Dim unused As Byte() = New Byte(-1) {}

  279.             Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())

  280.             Dim oStream As New MemoryStream(bytes)

  281.             介面_pb.Image = Bitmap.FromStream(oStream) : 介面1_pb.Image = Bitmap.FromStream(oStream)

  282.         End While : conn.Close() : 介面_pb.SizeMode = 4 : 介面1_pb.SizeMode = 4

  283.     End Sub

  284.     Private Sub 控制表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 子項目_dgv.RowPostPaint

  285.         Dim linePen As New  Pen(Color.Blue, 2)

  286.         If e.RowIndex = 子項目_dgv.Rows.Count - 1 Then

  287.             Exit Sub

  288.         Else

  289.             If 子項目_dgv(2, e.RowIndex).Value.ToString <> 子項目_dgv(2, e.RowIndex + 1).Value.ToString Then

  290.                 Dim startX As Integer = IIf(子項目_dgv.RowHeadersVisible, 子項目_dgv.RowHeadersWidth, 0)

  291.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  292.                 Dim endX As Integer = startX + 子項目_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 子項目_dgv.HorizontalScrollingOffset

  293.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  294.                 Exit Sub

  295.             End If

  296.         End If

  297.     End Sub

  298.     Private Sub 主功能_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 主功能_cb.SelectedIndexChanged

  299.         主功能編號_cb.SelectedIndex = 主功能_cb.SelectedIndex

  300.     End Sub

  301.     Private Sub 主功能編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 主功能編號_cb.SelectedIndexChanged

  302.         Set_合約清單()

  303.     End Sub

  304.     Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter

  305.         If e.Data.GetDataPresent(DataFormats.FileDrop) Then

  306.             Dim files As String()

  307.             Try

  308.                 files = CType(e.Data.GetData(DataFormats.FileDrop), String())

  309.                 檔案名稱_tb.Text = files(files.Length - 1)

  310.             Catch ex As Exception

  311.                 MessageBox.Show(ex.Message)

  312.                 Return

  313.             End Try

  314.         End If

  315. 

  316.         Dim STR2 As Integer = 0

  317.         檔案讀取_tb.Text = 檔案名稱_tb.Text : 檔案路徑_be.Value = 檔案名稱_tb.Text

  318.         Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text)

  319.         For i As Integer = 1 To 10

  320.             If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else

  321.                 If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If

  322.             End If

  323.         Next

  324.         If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then

  325.             介面_pb.Image = System.Drawing.Image.FromFile(檔案名稱_tb.Text)

  326.             If 檔案名稱_tb.Text = "" Then : Else

  327.                 For i As Integer = 0 To 9999 : Dim STR1 As Integer = Strings.Len(檔案讀取_tb.Text)

  328.                     If Strings.Right((檔案讀取_tb.Text), 1) <> "\" Then : STR1 -= 1 : STR2 += 1

  329.                         If STR1 = 0 Then : 檔案讀取_tb.Text = "" : 檔案名稱_tb.Text = "" : i = 9999

  330.                         Else : 檔案讀取_tb.Text = Strings.Left((檔案讀取_tb.Text), STR1) : End If

  331.                     Else : 檔案讀取_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2) : 檔案名稱_tb.Text = 檔案讀取_tb.Text : i = 9999 : End If

  332.                 Next

  333.             End If

  334.         End If

  335.     End Sub

  336.     Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop

  337.         Dim files As Array = e.Data.GetData(DataFormats.FileDrop) : For Each file As String In files : 檔案名稱_tb.AppendText(file + Environment.NewLine) : Next

  338.     End Sub

  339.     Private Sub 播放影片_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 播放影片_ch.Click

  340.         If 播放影片_ch.Checked = True Then : 播放影片_ch.Checked = True : If YT網址_tb.Text <> "" Then : 播放YT() : End If : Else : 播放影片_ch.Checked = False : End If

  341.     End Sub

  342.     Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click

  343.         If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If

  344.     End Sub

  345.     Private Sub 圖檔入系統_bt_Click_1(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click

  346.         PA45 = 介面_tb.Text

  347.         SQL_系統通用變數管理_圖片載入()

  348.         If dr.Read() Then : MGB(對話框(12), 1) : Else : conn.Close()

  349.             If 介面_tb.Text = "" Then : MGB(對話框(13), 1) : Else

  350.                 If 檔案名稱_tb.Text = "" Then : MGB(對話框(14), 1) : Else

  351.                     Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text)

  352.                     For i As Integer = 1 To 10

  353.                         If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else

  354.                             If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If

  355.                         End If

  356.                     Next

  357.                     If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then

  358.                         PA45 = 介面_tb.Text : PA49 = 檔案路徑_be.Value : SQL_系統通用變數管理_圖片新增() : conn.Close() : 檔案名稱_tb.Text = "" ': 圖片載入1()

  359.                     Else : MGB(對話框(15), 1) : End If

  360.                 End If

  361.             End If

  362.         End If : conn.Close()

  363.     End Sub

  364.     Private Sub 圖檔修改_bt_Click_1(sender As Object, e As EventArgs) Handles 圖檔修改_bt.Click

  365.         If 介面_tb.Text = "" Then : MGB(對話框(16), 1) : Else

  366.             If 檔案名稱_tb.Text = "" Then : MGB(對話框(14), 1) : Else

  367.                 Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text)

  368.                 For i As Integer = 1 To 10

  369.                     If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else

  370.                         If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If

  371.                     End If

  372.                 Next

  373.                 If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then

  374.                     PA45 = 介面_tb.Text : PA49 = 檔案路徑_be.Value : SQL_系統通用變數管理_圖片修改() : conn.Close() : 檔案名稱_tb.Text = ""

  375.                     MGB(對話框(3), 1) ': 圖片載入1()

  376.                 Else : MGB(對話框(15), 1) : End If

  377.             End If

  378.         End If

  379.     End Sub

  380.     Private Sub 圖檔刪除_bt_Click(sender As Object, e As EventArgs) Handles 圖檔刪除_bt.Click

  381.         MGB(對話框(17), 1)

  382.     End Sub

  383.     Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click

  384.         If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else

  385.             視窗2_pl.Visible = False : End If

  386.     End Sub

  387.     Private Sub 編輯_bt_Click(sender As Object, e As EventArgs) Handles 編輯_bt.Click

  388.         If 視窗2_pl.Visible = False Then : HX_PGS_ERP_SYS.WindowState = 2 : SOP畫布控制.Visible = True : TabControl2.Visible = True

  389.             Dim XZ, YZ As Integer : YZ = (Me.Size.Height - 視窗2_pl.Size.Height) / 2 : XZ = (Me.Size.Width - 視窗2_pl.Size.Width) / 2

  390.             視窗2_pl.BringToFront() : 視窗2_pl.Location = New System.Drawing.Point(XZ, YZ) : 視窗2_pl.Visible = True

  391.             Me.SOP畫布.IsSettingsPaneEnabled = True : Me.SOP畫布.IsInformationAdornerVisible = True : SOP畫布.IsEditable = True : SOP畫布.IsPanEnabled = True

  392.             SOP畫布.IsZoomEnabled = True : SOP畫布.IsResizingEnabled = True : SOP畫布.IsRotationEnabled = True : SOP畫布.IsDraggingEnabled = True : SOP畫布.AllowDelete = True

  393.             SOP畫布.AllowDrop = True : SOP畫布.AllowCopy = True : SOP畫布.AllowCut = True : SOP畫布.AllowPaste = True : SOP畫布.SelectionMode = 1

  394.             SOP畫布.IsConnectorsManipulationEnabled = True

  395.         Else

  396.             視窗2_pl.Visible = False : HX_PGS_ERP_SYS.WindowState = 0 : SOP畫布.Location = New System.Drawing.Point(0, 0)

  397.             SOP畫布.Size = New System.Drawing.Point(SOP畫布.Size.Width, 說明圖書_pb.Size.Height) : SOP畫布控制.Visible = False : TabControl2.Visible = False

  398.             Me.SOP畫布.IsSettingsPaneEnabled = False : Me.SOP畫布.IsInformationAdornerVisible = False : SOP畫布.IsEditable = False : SOP畫布.IsPanEnabled = False

  399.             SOP畫布.IsZoomEnabled = False : SOP畫布.IsResizingEnabled = False : SOP畫布.IsRotationEnabled = False : SOP畫布.IsDraggingEnabled = False

  400.             SOP畫布.AllowDelete = False : SOP畫布.AllowDrop = False : SOP畫布.AllowCopy = False : SOP畫布.AllowCut = False : SOP畫布.AllowPaste = False : SOP畫布.SelectionMode = 3

  401.             SOP畫布.IsConnectorsManipulationEnabled = False

  402.         End If

  403.     End Sub

  404.     Private Sub 影片測試_tb_Click(sender As Object, e As EventArgs) Handles 影片測試_tb.Click

  405.         If 網址_tb.Text = "" Then : MGB(對話框(18), 1) : Else

  406.             Try : YT網址_tb.Text = 網址_tb.Text : 播放YT() : Catch ex As Exception : MGB(ex.Message, 1) : End Try

  407.         End If

  408.     End Sub

  409.     Private Sub 流程圖_中_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 流程圖_中_ch.Click

  410.         流程圖_中_ch.Checked = True : 流程圖_印_ch.Checked = False

  411.     End Sub

  412.     Private Sub 流程圖_印_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 流程圖_印_ch.Click

  413.         流程圖_中_ch.Checked = False : 流程圖_印_ch.Checked = True

  414.     End Sub

  415.     Private Sub 開說明條例_bt_Click(sender As Object, e As EventArgs) Handles 開說明條例_bt.Click

  416.         Dim 細項 As Integer

  417.         If 主項_tb.Text = "" Then : MGB(對話框(23), 1) : Else

  418.             If 標題_中_tb.Text = "" Then : MGB(對話框(24), 1) : Else

  419.                 PA47 = 主項_tb.Text : PA46 = 子項_tb.Text : SQL_系統教學說明讀取()

  420.                 If dr.Read Then : 細項 = dr("細項") + 1 : Else : 細項 = 1 : End If

  421.                 PA = 主項_tb.Text : PA1 = 子項_tb.Text : PA2 = 細項 : PA3 = "" : PA4 = "" : PA5 = 標題_中_tb.Text

  422.                 PA6 = 說明_中_tb.Text : PA7 = "繁體中文" : PA8 = 網址_tb.Text : SQL_統教學說明新增()

  423.                 PA = 主項_tb.Text : PA1 = 子項_tb.Text : PA2 = 細項 : PA3 = "" : PA4 = "" : PA5 = 標題_英_tb.Text

  424.                 PA6 = 說明_英_tb.Text : PA7 = "Indonesian" : PA8 = 網址_tb.Text : SQL_統教學說明新增()

  425.                 Me.SOP畫布.DataSource = Nothing : Me.SOP畫布.Items.Clear()

  426.                 MGB(對話框(25), 1)

  427.             End If

  428.         End If : Set_合約清單()

  429.     End Sub

  430.     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click

  431.         If 細項_tb.Text = "0" Then : MGB(對話框(22), 1) : Else

  432.             If 主項_tb.Text = "" Then : MGB(對話框(23), 1) : Else

  433.                 If 標題_中_tb.Text = "" Then : MGB(對話框(24), 1) : Else

  434.                     PA = 主項_tb.Text : PA1 = 子項_tb.Text : PA2 = 細項_tb.Text : PA3 = "" : PA4 = "" : PA5 = 標題_中_tb.Text

  435.                     PA6 = 說明_中_tb.Text : PA7 = "繁體中文" : PA8 = 網址_tb.Text : SQL_統教學說明修改()

  436.                     If 流程圖_中_ch.Checked = True Then

  437.                         PA = 主項_tb.Text : PA1 = 子項_tb.Text : PA2 = 細項_tb.Text : If 流程圖_中_ch.Checked = True Then : PA7 = "繁體中文" : End If

  438.                         If File.Exists(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") Then : File.Delete(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") : End If

  439.                         Me.SOP畫布.SaveToFile(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") : PA49 = Str + "\" & PA & PA1 & PA2 & PA7 & ".xml"

  440.                         SQL_統教學說明修改1()

  441.                     End If

  442.                     PA = 主項_tb.Text : PA1 = 子項_tb.Text : PA2 = 細項_tb.Text : PA3 = "" : PA4 = "" : PA5 = 標題_英_tb.Text

  443.                     PA6 = 說明_英_tb.Text : PA7 = "Indonesian" : PA8 = 網址_tb.Text : SQL_統教學說明修改()

  444.                     If 流程圖_中_ch.Checked = False Then

  445.                         PA = 主項_tb.Text : PA1 = 子項_tb.Text : PA2 = 細項_tb.Text : If 流程圖_中_ch.Checked = True Then : PA7 = "Indonesian" : End If

  446.                         If File.Exists(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") Then : File.Delete(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") : End If

  447.                         Me.SOP畫布.SaveToFile(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") : PA49 = Str + "\" & PA & PA1 & PA2 & PA7 & ".xml"

  448.                         SQL_統教學說明修改1()

  449.                     End If

  450.                     If File.Exists(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") Then : File.Delete(Str + "\" & PA & PA1 & PA2 & PA7 & ".xml") : End If

  451.                     MGB(對話框(26), 1)

  452.                 End If

  453.             End If : Set_合約清單()

  454.         End If

  455.     End Sub

  456.     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click

  457.         If 細項_tb.Text = "0" Then : MGB(對話框(22), 1) : Else : 輸入密碼.ShowDialog()

  458.             If PA = "0003065795" Then : MGB(對話框(21), 2)

  459.                 If 訊息回應 = "YES" Then : PA = 主項_tb.Text : PA1 = 子項_tb.Text : PA2 = 細項_tb.Text : SQL_統教學說明刪除() : Set_合約清單() : End If

  460.             Else : MGB(對話框(20), 1) : End If

  461.         End If

  462.     End Sub

  463.     Private Sub 翻譯_bt_Click(sender As Object, e As EventArgs) Handles 翻譯_bt.Click

  464.         Me.Enabled = False

  465.         If 系統語言 = "繁體中文" Then : 翻譯 = 標題_中_tb.Text : MyModule2.執行翻譯() : 第1段開始 = True : 第2段開始 = False : 等待翻譯_tim.Enabled = True

  466.         Else : 翻譯 = 標題_英_tb.Text : MyModule2.執行翻譯() : 第1段開始 = True : 第2段開始 = False : 等待翻譯_tim.Enabled = True : End If

  467.     End Sub

  468.     Private Sub 等待翻譯_tim_Tick(sender As Object, e As EventArgs) Handles 等待翻譯_tim.Tick

  469.         If 系統語言 = "繁體中文" Then : If 第1段開始 = True Then : If 標題_中_tb.Text <> "" Then

  470.                     Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader

  471.                     If File.Exists(Str2 & "\in.txt") Then

  472.                         fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()

  473.                         標題_英_tb.Text = stringReader : fileReader.Close() : 第1段開始 = False : 第2段開始 = True : 翻譯 = 說明_中_tb.Text : MyModule2.執行翻譯()

  474.                     End If

  475.                 Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 說明_中_tb.Text : MyModule2.執行翻譯() : End If

  476.             Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 說明_中_tb.Text : MyModule2.執行翻譯() : End If

  477.             If 第2段開始 = True Then : If 說明_中_tb.Text <> "" Then

  478.                     Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader

  479.                     If File.Exists(Str2 & "\in.txt") Then

  480.                         fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()

  481.                         說明_英_tb.Text = stringReader : fileReader.Close() : 第2段開始 = False : 等待翻譯_tim.Enabled = False : Me.Enabled = True : MGB(對話框(19), 1)

  482.                     End If

  483.                 Else : 第2段開始 = False : 等待翻譯_tim.Enabled = False : Me.Enabled = True : MGB(對話框(19), 1) : End If

  484.             Else : 第2段開始 = False : 等待翻譯_tim.Enabled = False : Me.Enabled = True : MGB(對話框(19), 1) : End If

  485.         Else

  486.             If 第1段開始 = True Then : If 標題_英_tb.Text <> "" Then

  487.                     Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader

  488.                     If File.Exists(Str2 & "\ch.txt") Then

  489.                         fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()

  490.                         標題_中_tb.Text = stringReader : fileReader.Close() : 第1段開始 = False : 第2段開始 = True : 翻譯 = 說明_英_tb.Text : MyModule2.執行翻譯()

  491.                     End If

  492.                 Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 說明_英_tb.Text : MyModule2.執行翻譯() : End If

  493.             Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 說明_英_tb.Text : MyModule2.執行翻譯() : End If

  494.             If 第2段開始 = True Then : If 說明_英_tb.Text <> "" Then

  495.                     Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader

  496.                     If File.Exists(Str2 & "\ch.txt") Then

  497.                         fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()

  498.                         說明_中_tb.Text = stringReader : fileReader.Close() : 第2段開始 = False : 等待翻譯_tim.Enabled = False : Me.Enabled = True : MGB(對話框(19), 1)

  499.                     End If

  500.                 Else : 第2段開始 = False : 等待翻譯_tim.Enabled = False : Me.Enabled = True : MGB(對話框(19), 1) : End If

  501.             Else : 第2段開始 = False : 等待翻譯_tim.Enabled = False : Me.Enabled = True : MGB(對話框(19), 1) : End If

  502.         End If

  503.     End Sub

  504. 

  505.     Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown

  506.         If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If

  507.     End Sub

  508.     Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove

  509.         If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If

  510.     End Sub

  511.     Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp

  512.         drag = False

  513.     End Sub

  514. End Class