HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
关注 4
点赞 0
派生 0
代码 工单 0 合并请求 0 版本发布 0 百科 动态
暂无描述
您最多选择25个主题 主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
1 提交
1 分支
分支: master
分支列表 标签列表
${ item.name }
创建分支 ${ searchTerm }
从 'master'
${ noResults }
HX-PGS-ERP-SYS-SIU/09、資料庫系統管理/系統編碼規則.vb

系統編碼規則.vb 31KB
永久链接 文件历史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370 
  1. Option Strict Off

  2. Imports System.IO

  3. Public Class 系統編碼規則

  4.     Dim RI As Integer = -1

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

  6.     Dim Str As String = Application.StartupPath

  7.     DIM 對話框(12) As String

  8.     Private Sub Set_零用金品項()

  9.         '舊會計_dgv.DataSource = Nothing : ds.Clear() : 舊會計_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  10.         '舊會計_dgv.ColumnHeadersHeight = 25 : 舊會計_dgv.AllowUserToAddRows = False

  11.         'If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  12.         'SQL1 = "SELECT 品項 FROM 零用金支付品項"

  13.         'cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 舊會計_dgv.DataSource = ds.Tables(0) : conn.Close()

  14.         '舊會計_dgv.Columns(0).FillWeight = 413

  15.     End Sub

  16.     Private Sub Set_年度清單()

  17.         Dim ds6 As New DataSet : 年份_dgv.DataSource = Nothing : ds6.Clear()

  18.         年份_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 年份_dgv.ColumnHeadersHeight = 25 : 年份_dgv.AllowUserToAddRows = False

  19.         SQL_年份() : da.Fill(ds6) : 年份_dgv.DataSource = ds6.Tables(0) : conn.Close()

  20.         年份_dgv.Columns(0).FillWeight = 100

  21.     End Sub

  22.     Private Sub Set_FTP位置()

  23.         Dim ds9 As New DataSet : FTP_dgv.DataSource = Nothing : ds9.Clear()

  24.         FTP_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : FTP_dgv.ColumnHeadersHeight = 25 : FTP_dgv.AllowUserToAddRows = False

  25.         SQL_FTP位置() : da.Fill(ds9) : FTP_dgv.DataSource = ds9.Tables(0) : conn.Close()

  26.         FTP_dgv.Columns(0).FillWeight = 235 : FTP_dgv.Columns(1).FillWeight = 100 : FTP_dgv.Columns(2).FillWeight = 100 : FTP_dgv.Columns(3).FillWeight = 100

  27.         FTP_dgv.Columns(4).FillWeight = 150

  28.     End Sub

  29.     Private Sub Set_倉儲明細除錯()

  30.         Dim ds As New DataSet : 倉儲明細表_dgv.DataSource = Nothing : ds.Clear()

  31.         倉儲明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 倉儲明細表_dgv.ColumnHeadersHeight = 25 : 倉儲明細表_dgv.AllowUserToAddRows = False

  32.         SQL_倉儲明細表除錯() : da.Fill(ds) : 倉儲明細表_dgv.DataSource = ds.Tables(0) : conn.Close()

  33.         倉儲明細表_dgv.Columns(0).FillWeight = 35 : 倉儲明細表_dgv.Columns(1).FillWeight = 100 : 倉儲明細表_dgv.Columns(2).Visible = False

  34.         For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1 : 倉儲明細表_dgv(0, i).Value = False : Next

  35.     End Sub

  36.     '-------------------------------------------------------------------------------------------------------

  37.     Private Sub Set_倉儲分區控制表除錯()

  38.         Dim ds7 As New DataSet : 控制表_dgv.DataSource = Nothing : ds7.Clear()

  39.         控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 控制表_dgv.ColumnHeadersHeight = 25 : 控制表_dgv.AllowUserToAddRows = False

  40.         SQL_倉儲控制表除錯() : da.Fill(ds7) : 控制表_dgv.DataSource = ds7.Tables(0) : conn.Close()

  41.         控制表_dgv.Columns(0).FillWeight = 15 : 控制表_dgv.Columns(1).FillWeight = 30 : 控制表_dgv.Columns(2).FillWeight = 35

  42.     End Sub

  43.     Private Sub Set_明細表除錯()

  44.         Dim ds8 As New DataSet : 明細表_dgv.DataSource = Nothing : ds8.Clear()

  45.         明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 明細表_dgv.ColumnHeadersHeight = 25 : 明細表_dgv.AllowUserToAddRows = False

  46.         SQL_明細表除錯() : da.Fill(ds8) : 明細表_dgv.DataSource = ds8.Tables(0) : conn.Close()

  47.         明細表_dgv.Columns(0).FillWeight = 45 : 明細表_dgv.Columns(1).Visible = False : 明細表_dgv.Columns(2).FillWeight = 50 : 明細表_dgv.Columns(3).FillWeight = 60

  48.     End Sub

  49.     '-------------------------------------------------------------------------------------------------

  50.     Private Sub Set_請購控制表除錯()

  51.         Dim ds3 As New DataSet : 請購單控制表_dgv.DataSource = Nothing : ds3.Clear() : 請購單控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  52.         請購單控制表_dgv.ColumnHeadersHeight = 25 : 請購單控制表_dgv.AllowUserToAddRows = False

  53.         SQL_請購單除錯() : da.Fill(ds3) : 請購單控制表_dgv.DataSource = ds3.Tables(0) : conn.Close()

  54.         請購單控制表_dgv.Columns(0).FillWeight = 30

  55.     End Sub

  56.     Private Sub Set_天氣控制()

  57.         Dim ds10 As New DataSet : 天氣_dgv.DataSource = Nothing : ds10.Clear()

  58.         天氣_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 天氣_dgv.ColumnHeadersHeight = 25 : 天氣_dgv.AllowUserToAddRows = False

  59.         SQL_天氣控制() : da.Fill(ds10) : 天氣_dgv.DataSource = ds10.Tables(0) : conn.Close()

  60.         天氣_dgv.Columns(1).FillWeight = 20 : 天氣_dgv.Columns(2).FillWeight = 20 : 天氣_dgv.Columns(0).FillWeight = 40

  61.     End Sub

  62.     Private Sub Set_時間控制()

  63.         Dim ds11 As New DataSet : 時間_dgv.DataSource = Nothing : ds11.Clear()

  64.         時間_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 時間_dgv.ColumnHeadersHeight = 25 : 時間_dgv.AllowUserToAddRows = False

  65.         SQL_時間控制() : da.Fill(ds11) : 時間_dgv.DataSource = ds11.Tables(0) : conn.Close()

  66.         時間_dgv.Columns(0).FillWeight = 30 : 時間_dgv.Columns(1).FillWeight = 30

  67.     End Sub

  68.     Private Sub Set_語言()

  69.         語言_dgv.DataSource = Nothing

  70.         語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  71.         語言_dgv.ColumnHeadersHeight = 25

  72.         語言_dgv.AllowUserToAddRows = False

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

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

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

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

  77.             While Not (line Is Nothing)

  78.                 line = filereader.ReadLine()

  79.                 If line <> Nothing Then

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

  81.                     If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-155" Or Strings.Left(line, 4) = 介面 Then

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

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

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

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

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

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

  88.                             End If

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

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

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

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

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

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

  95.                             End If

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

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

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

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

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

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

  102.                             End If

  103.                         End If

  104.                     End If

  105.                 End If

  106.             End While

  107.             filereader.Close()

  108.         End If

  109.     End Sub

  110.     Private Sub Set_語言查詢()

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

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

  113.                 RI = row.Index : Exit For

  114.             End If

  115.         Next

  116.     End Sub

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

  118.         Set_語言() : conn.Close()

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

  120.         SK = "H706-100" : Set_語言查詢() : ftp_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-101" : Set_語言查詢() : FTP地址_lb.Text = 語言_dgv(1, RI).Value.ToString

  121.         SK = "H706-102" : Set_語言查詢() : FTP刪除_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-103" : Set_語言查詢() : FTP修改_bt.Text = 語言_dgv(1, RI).Value.ToString

  122.         SK = "H706-104" : Set_語言查詢() : FTP新增_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-105" : Set_語言查詢() : FTP實體_lb.Text = 語言_dgv(1, RI).Value.ToString

  123.         SK = "H706-106" : Set_語言查詢() : 上下午_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-107" : Set_語言查詢() : 天氣_lb.Text = 語言_dgv(1, RI).Value.ToString

  124.         SK = "H706-108" : Set_語言查詢() : 天氣刪除_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-109" : Set_語言查詢() : 天氣修改_bt.Text = 語言_dgv(1, RI).Value.ToString

  125.         SK = "H706-110" : Set_語言查詢() : 天氣新增_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-111" : Set_語言查詢() : 未使用的編碼原則_tab.Text = 語言_dgv(1, RI).Value.ToString

  126.         SK = "H706-112" : Set_語言查詢() : 全改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-113" : Set_語言查詢() : 全部取消_bt.Text = 語言_dgv(1, RI).Value.ToString

  127.         SK = "H706-114" : Set_語言查詢() : 全部選則_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-115" : Set_語言查詢() : 地區_lb.Text = 語言_dgv(1, RI).Value.ToString

  128.         SK = "H706-116" : Set_語言查詢() : 年份_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-117" : Set_語言查詢() : 年份刪除_bt.Text = 語言_dgv(1, RI).Value.ToString

  129.         SK = "H706-118" : Set_語言查詢() : 年份修改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-119" : Set_語言查詢() : 年份新增_bt.Text = 語言_dgv(1, RI).Value.ToString

  130.         SK = "H706-120" : Set_語言查詢() : 刪除料號_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-121" : Set_語言查詢() : 找不到_gp.Text = 語言_dgv(1, RI).Value.ToString

  131.         SK = "H706-122" : Set_語言查詢() : 系統除錯_tab.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-123" : Set_語言查詢() : 品項刪除_bt.Text = 語言_dgv(1, RI).Value.ToString

  132.         SK = "H706-124" : Set_語言查詢() : 品項修改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-125" : Set_語言查詢() : 品項清單_lb.Text = 語言_dgv(1, RI).Value.ToString

  133.         SK = "H706-126" : Set_語言查詢() : 品項新增_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-127" : Set_語言查詢() : 修正料號_bt.Text = 語言_dgv(1, RI).Value.ToString

  134.         SK = "H706-128" : Set_語言查詢() : 修正料號_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-129" : Set_語言查詢() : 倉名編號_lb.Text = 語言_dgv(1, RI).Value.ToString

  135.         SK = "H706-130" : Set_語言查詢() : 倉儲_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-131" : Set_語言查詢() : 時段_lb.Text = 語言_dgv(1, RI).Value.ToString

  136.         SK = "H706-132" : Set_語言查詢() : 時間_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-133" : Set_語言查詢() : 時間刪除_bt.Text = 語言_dgv(1, RI).Value.ToString

  137.         SK = "H706-134" : Set_語言查詢() : 時間修改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-135" : Set_語言查詢() : 時間新增_bt.Text = 語言_dgv(1, RI).Value.ToString

  138.         SK = "H706-136" : Set_語言查詢() : 氣候_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-137" : Set_語言查詢() : 密碼_lb.Text = 語言_dgv(1, RI).Value.ToString

  139.         SK = "H706-138" : Set_語言查詢() : 帳號_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-139" : Set_語言查詢() : 控制表刪除_bt.Text = 語言_dgv(1, RI).Value.ToString

  140.         SK = "H706-140" : Set_語言查詢() : 表頭(164) = 語言_dgv(1, RI).Value.ToString : SK = "H706-141" : Set_語言查詢() : 表頭(168) = 語言_dgv(1, RI).Value.ToString

  141.         SK = "H706-142" : Set_語言查詢() : 表頭(166) = 語言_dgv(1, RI).Value.ToString : SK = "H706-143" : Set_語言查詢() : 表頭(165) = 語言_dgv(1, RI).Value.ToString

  142.         SK = "H706-144" : Set_語言查詢() : 表頭(170) = 語言_dgv(1, RI).Value.ToString : SK = "H706-145" : Set_語言查詢() : 表頭(169) = 語言_dgv(1, RI).Value.ToString

  143.         SK = "H706-146" : Set_語言查詢() : 表頭(167) = 語言_dgv(1, RI).Value.ToString : SK = "H706-147" : Set_語言查詢() : 表頭(163) = 語言_dgv(1, RI).Value.ToString

  144.         SK = "H706-148" : Set_語言查詢() : 表頭(70) = 語言_dgv(1, RI).Value.ToString : SK = "H706-149" : Set_語言查詢() : 表頭(69) = 語言_dgv(1, RI).Value.ToString

  145.         SK = "H706-150" : Set_語言查詢() : 表頭(174) = 語言_dgv(1, RI).Value.ToString : SK = "H706-151" : Set_語言查詢() : 表頭(68) = 語言_dgv(1, RI).Value.ToString

  146.         SK = "H706-152" : Set_語言查詢() : 表頭(77) = 語言_dgv(1, RI).Value.ToString : SK = "H706-153" : Set_語言查詢() : 表頭(171) = 語言_dgv(1, RI).Value.ToString

  147.         SK = "H706-154" : Set_語言查詢() : 表頭(173) = 語言_dgv(1, RI).Value.ToString : SK = "H706-155" : Set_語言查詢() : 表頭(137) = 語言_dgv(1, RI).Value.ToString

  148.         SK = "H706-156" : Set_語言查詢() : 表頭(2) = 語言_dgv(1, RI).Value.ToString : SK = "H706-157" : Set_語言查詢() : 表頭(49) = 語言_dgv(1, RI).Value.ToString

  149.         SK = "H706-158" : Set_語言查詢() : 表頭(172) = 語言_dgv(1, RI).Value.ToString : SK = "H706-159" : Set_語言查詢() : 表頭(44) = 語言_dgv(1, RI).Value.ToString

  150.         SK = "H706-160" : Set_語言查詢() : 單改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-161" : Set_語言查詢() : 報表_gp.Text = 語言_dgv(1, RI).Value.ToString

  151.         SK = "H706-162" : Set_語言查詢() : 無明細_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-163" : Set_語言查詢() : 資料流水號_lb.Text = 語言_dgv(1, RI).Value.ToString

  152.         SK = "H706-164" : Set_語言查詢() : 零用金_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-165" : Set_語言查詢() : 語言_lb.Text = 語言_dgv(1, RI).Value.ToString

  153.         SK = "G000-118" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "G000-120" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString

  154.         SK = "G000-119" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "G000-121" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString

  155.         SK = "H706-166" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "H706-167" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString

  156.         SK = "G000-124" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString : SK = "H706-168" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString

  157.         SK = "H706-169" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString : SK = "H706-170" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString

  158.         SK = "H706-171" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "H706-172" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString

  159.         SK = "H706-173" : Set_語言查詢() : 對話框(12) = 語言_dgv(1, RI).Value.ToString

  160.     End Sub

  161.     Private Sub 系統編碼規則_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

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

  163.         H(706) = True : 介面 = "H706" : Set_語言() : 語言轉換讀取() : 顯示說明(999, False)

  164.         Set_年度清單() : Set_FTP位置() : Set_倉儲明細除錯() : Set_請購控制表除錯() : Set_倉儲分區控制表除錯() : Set_明細表除錯()

  165.         Set_天氣控制() : Set_時間控制()

  166.     End Sub

  167.     Private Sub 系統編碼規則_1_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  168.         H(706) = False : MyMod.虛擬桌面開啟()

  169.     End Sub

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

  171.         介面 = "H706" : 語言轉換讀取() : Set_年度清單() : Set_FTP位置() : Set_倉儲明細除錯() : Set_請購控制表除錯() : Set_倉儲分區控制表除錯() : Set_明細表除錯()

  172.         Set_天氣控制() : Set_時間控制()

  173.     End Sub

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

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

  176.     End Sub

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

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

  179.     End Sub

  180.     Private Sub 天氣_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 天氣_dgv.RowPostPaint

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

  182.         If e.RowIndex = 天氣_dgv.Rows.Count - 1 Then : Exit Sub : Else

  183.             If 天氣_dgv(2, e.RowIndex).Value.ToString <> 天氣_dgv(2, e.RowIndex + 1).Value.ToString Then

  184.                 Dim startX As Integer = IIf(天氣_dgv.RowHeadersVisible, 天氣_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  185.                 Dim endX As Integer = startX + 天氣_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 天氣_dgv.HorizontalScrollingOffset

  186.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub

  187.             End If

  188.         End If

  189.     End Sub

  190.     Private Sub 時間_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 時間_dgv.RowPostPaint

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

  192.         If e.RowIndex = 時間_dgv.Rows.Count - 1 Then : Exit Sub : Else

  193.             If 時間_dgv(1, e.RowIndex).Value.ToString <> 時間_dgv(1, e.RowIndex + 1).Value.ToString Then

  194.                 Dim startX As Integer = IIf(時間_dgv.RowHeadersVisible, 時間_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  195.                 Dim endX As Integer = startX + 時間_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 時間_dgv.HorizontalScrollingOffset

  196.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub

  197.             End If

  198.         End If

  199.     End Sub

  200.     Private Sub 舊會計_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 舊會計_dgv.CellClick

  201.         If e.RowIndex = -1 Then : Else : TextBox20.Text = 舊會計_dgv(0, e.RowIndex).Value.ToString : End If

  202.     End Sub

  203.     Private Sub 年份_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 年份_dgv.CellClick

  204.         If e.RowIndex = -1 Then : Else : 年份_tb.Text = 年份_dgv(0, e.RowIndex).Value.ToString : End If

  205.     End Sub

  206.     Private Sub FTP_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles FTP_dgv.CellClick

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

  208.             FTP地址_tb.Text = FTP_dgv(0, e.RowIndex).Value.ToString : 帳號_tb.Text = FTP_dgv(1, e.RowIndex).Value.ToString

  209.             密碼_tb.Text = FTP_dgv(2, e.RowIndex).Value.ToString : 地區_tb.Text = FTP_dgv(3, e.RowIndex).Value.ToString

  210.             FTP實體_tb.Text = FTP_dgv(4, e.RowIndex).Value.ToString

  211.         End If

  212.     End Sub

  213.     Private Sub 倉儲明細表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 倉儲明細表_dgv.CellClick

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

  215.             If 倉儲明細表_dgv(0, e.RowIndex).Value = True Then : 倉儲明細表_dgv(0, e.RowIndex).Value = False : Else : 倉儲明細表_dgv(0, e.RowIndex).Value = True : End If

  216.         End If

  217.     End Sub

  218.     Private Sub 全部選則_bt_Click(sender As Object, e As EventArgs) Handles 全部選則_bt.Click

  219.         For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1 : 倉儲明細表_dgv(0, i).Value = True : Next

  220.     End Sub

  221.     Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click

  222.         For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1 : 倉儲明細表_dgv(0, i).Value = False : Next

  223.     End Sub

  224.     Private Sub SET_新增按鈕程式共用2()

  225.         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : MGB(對話框(0), 1) : conn.Close() : dr.Close()

  226.     End Sub

  227.     Private Sub SET_修改按鈕程式共用1()

  228.         cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : MGB(對話框(2), 1)

  229.         conn.Close()

  230.     End Sub

  231.     Private Sub SET_刪除按鈕程式共用1()

  232.         cmd.CommandText = SQL1 : cmd.Connection = conn

  233.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  234.         MGB(對話框(6), 2) : If 訊息回應 = "YES" Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : MGB(對話框(1), 1)

  235.         End If : conn.Close() : 式共用1()

  236.     End Sub

  237.     Private Sub 式共用1()

  238.         Set_年度清單() : Set_零用金品項() : Set_FTP位置() : PA = ""

  239.     End Sub

  240.     Private Sub 式共用2()

  241.         conn.Close() : dr.Close()

  242.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  243.     End Sub

  244.     Private Sub 式共用3()

  245.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  246.     End Sub

  247.     '------------------------------------------------------------------------------------------------------------------------------------

  248.     Private Sub 年份新增_bt_Click(sender As Object, e As EventArgs) Handles 年份新增_bt.Click

  249.         If 年份_tb.Text = "" Then : MGB(對話框(3), 1)

  250.         Else : 式共用3() : SQL_年份新增查詢() : CmdSet_For_dr()

  251.             If dr.Read() Then : MGB(對話框(8), 1) : conn.Close() : dr.Close() : Else : 式共用2() : SQL_年份新增() : SET_新增按鈕程式共用2() : End If

  252.         End If : 式共用1()

  253.     End Sub

  254.     Private Sub 年份修改_bt_Click(sender As Object, e As EventArgs) Handles 年份修改_bt.Click

  255.         If 年份_tb.Text = "" Then : MGB(對話框(3), 1)

  256.         Else : INB(對話框(7)) : PA = 訊息回應

  257.             If PA = "" Then : MGB(對話框(5), 1) : Else : 式共用3() : SQL_年份修改() : SET_修改按鈕程式共用1() : End If

  258.         End If : 式共用1()

  259.     End Sub

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

  261.         SQL_年份刪除() : SET_刪除按鈕程式共用1()

  262.     End Sub

  263.     '------------------------------------------------------------------------------------------------------------------------------------

  264.     Private Sub FTP新增_bt_Click(sender As Object, e As EventArgs) Handles FTP新增_bt.Click

  265.         If 地區_tb.Text = "" Or FTP地址_tb.Text = "" Then : MGB(對話框(3), 1)

  266.         Else : 式共用3() : SQL_FTP新增查詢() : CmdSet_For_dr()

  267.             If dr.Read() Then : MGB(對話框(8), 1) : conn.Close() : dr.Close() : Else : 式共用2() : SQL_FTP新增() : SET_新增按鈕程式共用2() : End If

  268.         End If : 式共用1()

  269.     End Sub

  270.     '----------------------------------------------------------------------沒有倉級的除錯

  271.     Private Sub 明細表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 明細表_dgv.CellClick

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

  273.             資料流水號_tb.Text = 明細表_dgv(2, e.RowIndex).Value.ToString

  274.         End If

  275.     End Sub

  276.     Private Sub 控制表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick

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

  278.             倉名編號_tb.Text = 控制表_dgv(1, e.RowIndex).Value.ToString

  279.         End If

  280.     End Sub

  281.     Private Sub 天氣_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 天氣_dgv.CellClick

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

  283.             天氣_tb.Text = 天氣_dgv(0, e.RowIndex).Value.ToString : 天氣1_tb.Text = 天氣_dgv(0, e.RowIndex).Value.ToString

  284.             系統語言_cb.Text = 天氣_dgv(1, e.RowIndex).Value.ToString : 編碼_tb.Text = 天氣_dgv(2, e.RowIndex).Value.ToString

  285.         End If

  286.     End Sub

  287. 

  288.     Private Sub 時間_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 時間_dgv.CellClick

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

  290.             上下午_tb.Text = 時間_dgv(0, e.RowIndex).Value.ToString

  291.             時段_cb.Text = 時間_dgv(1, e.RowIndex).Value.ToString

  292.         End If

  293.     End Sub

  294.     Private Sub 天氣新增_bt_Click(sender As Object, e As EventArgs) Handles 天氣新增_bt.Click

  295.         If 天氣_tb.Text = " " And 系統語言_cb.Text = "" Then : MGB(對話框(4), 1) : Else

  296.             SQL_天氣控制_新增查詢()

  297.             If dr.Read() Then : MGB(對話框(8), 1) : conn.Close() : dr.Close()

  298.             Else : PA = 天氣_tb.Text : PA1 = 系統語言_cb.Text : PA2 = 編碼_tb.Text : SQL_天氣控制_新增() : conn.Close() : MGB(對話框(0), 1)

  299.             End If : Set_天氣控制() : 天氣_tb.Text = ""

  300.         End If

  301.     End Sub

  302.     Private Sub 天氣修改_bt_Click(sender As Object, e As EventArgs) Handles 天氣修改_bt.Click

  303.         If 天氣_tb.Text = " " Or 系統語言_cb.Text = "" Then : MGB(對話框(4), 1) : Else

  304.             PA = 天氣_tb.Text : PA1 = 天氣1_tb.Text

  305.             If PA = "" And PA1 = "" Then : MGB(對話框(5), 1) : Else : SQL_天氣控制_修改() : conn.Close() : Set_天氣控制() : 天氣_tb.Text = "" : End If

  306.         End If

  307.     End Sub

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

  309.         If 天氣_tb.Text = "" And 系統語言_cb.Text = "" Then : MGB(對話框(3), 1) : Else

  310.             MGB(對話框(6), 2) : If 訊息回應 = "YES" Then : SQL_天氣控制_刪除() : conn.Close() : Set_天氣控制() : 天氣_tb.Text = "" : MGB(對話框(1), 1) : End If

  311.         End If

  312.     End Sub

  313.     Private Sub 時間新增_bt_Click(sender As Object, e As EventArgs) Handles 時間新增_bt.Click

  314.         If 上下午_tb.Text = "" Or 時段_cb.Text = "" Then : MGB(對話框(4), 1) : Else

  315.             SQL_時間控制_新增查詢()

  316.             If dr.Read() Then : MGB(對話框(8), 1) : conn.Close() : dr.Close()

  317.             Else : PA = 上下午_tb.Text : PA1 = 時段_cb.Text : SQL_時間控制_新增() : conn.Close() : MGB(對話框(0), 1)

  318.             End If : Set_時間控制() : 上下午_tb.Text = "" : 時段_cb.Text = ""

  319.         End If

  320.     End Sub

  321.     Private Sub 時間修改_bt_Click(sender As Object, e As EventArgs) Handles 時間修改_bt.Click

  322.         If 上下午_tb.Text = "" Then : MGB(對話框(4), 1) : Else

  323.             PA = InputBox("請輸入要修改的時間") : SQL_時間控制_修改() : conn.Close() : Set_時間控制() : 上下午_tb.Text = "" : 時段_cb.Text = ""

  324.         End If

  325.     End Sub

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

  327.         If 上下午_tb.Text = "" Then : MGB(對話框(3), 1)

  328.         Else : MGB(對話框(6), 2)

  329.             If 訊息回應 = "YES" Then : SQL_時間控制_刪除() : conn.Close() : Set_時間控制() : 上下午_tb.Text = "" : 時段_cb.Text = "" : MGB(對話框(1), 1) : End If

  330.         End If

  331.     End Sub

  332.     Private Sub 修正_bt_Click(sender As Object, e As EventArgs) Handles 單改_bt.Click

  333.         If 倉名編號_tb.Text = "" Or 資料流水號_tb.Text = "" Then : MGB(對話框(3), 1)

  334.         Else : PA = 資料流水號_tb.Text : PA1 = 倉名編號_tb.Text : SQL_明細表除錯_修改()

  335.         End If : MGB(對話框(2), 1) : Set_明細表除錯()

  336.     End Sub

  337. 

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

  339.         If 倉名編號_tb.Text = "" Or 資料流水號_tb.Text = "" Then : MGB(對話框(3), 1)

  340.         Else : For i As Integer = 0 To 明細表_dgv.Rows.Count - 1 : PA = 明細表_dgv(2, i).Value.ToString : PA1 = 倉名編號_tb.Text : SQL_明細表除錯_修改() : Next

  341.         End If : MGB(對話框(2), 1) : Set_明細表除錯()

  342.     End Sub

  343.     '-------------------------------------------------------------------------------------

  344.     Private Sub FTP修改_bt_Click(sender As Object, e As EventArgs) Handles FTP修改_bt.Click

  345.         If 地區_tb.Text = "" Or FTP地址_tb.Text = "" Then : MGB(對話框(3), 1) : Else

  346.             PA = InputBox(對話框(9)) : PA1 = InputBox(對話框(10)) : PA2 = InputBox(對話框(11)) : PA3 = InputBox(對話框(12))

  347.             If PA = "" Then : MGB(對話框(5), 1) : Else : 式共用3() : SQL_FTP修改() : SET_修改按鈕程式共用1() : End If

  348.         End If : 式共用1()

  349.         PA = "" : PA1 = "" : PA2 = "" : PA3 = ""

  350.     End Sub

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

  352.         SQL_FTP刪除() : SET_刪除按鈕程式共用1()

  353.     End Sub

  354.     '------------------------------------------------------------------------------------------------------------------------------------

  355.     Private Sub 修正料號_bt_Click(sender As Object, e As EventArgs) Handles 修正料號_bt.Click

  356.         For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1

  357.             If 倉儲明細表_dgv(0, i).Value = True Then : PA = 倉儲明細表_dgv(1, i).Value.ToString : PA1 = 修正料號_tb.Text : SQL_倉儲明細表除錯_修改() : End If

  358.         Next : MGB(對話框(2), 1) : Set_倉儲明細除錯()

  359.     End Sub

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

  361.         For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1

  362.             If 倉儲明細表_dgv(0, i).Value = True Then : PA = 倉儲明細表_dgv(1, i).Value.ToString : SQL_倉儲明細表除錯_刪除() : End If

  363.         Next : MGB(對話框(1), 1) : Set_倉儲明細除錯()

  364.     End Sub

  365.     Private Sub 控制表刪除_bt_Click(sender As Object, e As EventArgs) Handles 控制表刪除_bt.Click

  366.         For i As Integer = 0 To 請購單控制表_dgv.Rows.Count - 1

  367.             PA = 請購單控制表_dgv(0, i).Value.ToString : SQL_請購控制表除錯_刪除()

  368.         Next : MGB(對話框(1), 1) : Set_請購控制表除錯()

  369.     End Sub

  370. End Class