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/02、採購管理系統/電信費追加/電信費追加執行.vb

電信費追加執行.vb 20KB
Historie Surový

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216 
  1. Imports System.IO

  2. 

  3. Public Class 電信費追加執行

  4.     Dim 對話框(3), QQW(11) As String

  5.     Dim II As Integer

  6.     Private Sub Set_清單()

  7.         Dim ds2 As New DataSet : 簽名清單_dgv.DataSource = Nothing : ds2.Clear()

  8.         簽名清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  9.         簽名清單_dgv.ColumnHeadersHeight = 4 : 簽名清單_dgv.AllowUserToAddRows = False

  10.         SQL_營運成本收支單審核_查詢圖片流水號() : da.Fill(ds2) : 簽名清單_dgv.DataSource = ds2.Tables(0) : conn.Close()

  11. 

  12.         簽名清單_dgv.Columns(0).FillWeight = 173 : 簽名清單_dgv.Columns(1).Visible = False

  13.         If 簽名清單_dgv.Rows.Count = 0 Then : Else

  14.             圖片編碼_tb.Text = 簽名清單_dgv(0, 0).Value.ToString

  15.             PA38 = 圖片編碼_tb.Text : SQL_營運成本收支單審核_查詢簽名檔圖片()

  16.             While dr.Read() = True

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

  18.                 Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())

  19.                 Dim oStream As New MemoryStream(bytes)

  20.                 簽名圖_pb.Image = Bitmap.FromStream(oStream)

  21.             End While : conn.Close() : 簽名圖_pb.SizeMode = 4

  22.             For QAZ = 0 To 999

  23.                 QQW(0) = Strings.Right(簽名清單_dgv(0, 0).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9

  24.                 QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)

  25.                 QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)

  26.                 For RT = 4 To 11

  27.                     Delay(3)

  28.                     Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)

  29.                     For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next

  30.                     If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then

  31.                     ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If

  32.                 Next

  33.                 Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)

  34.                 For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next

  35.                 驗證碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2

  36.                 PA39 = 驗證碼_tb.Text : SQL_營運成本收支單審核_查詢簽名編碼() : If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()

  37.             Next

  38.         End If

  39.     End Sub

  40.     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒

  41.         Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : Application.DoEvents() : End While

  42.     End Sub

  43.     Private Sub 轉換()

  44.         If QQW(II) = "1" Then : QQW(II) = "A" : ElseIf QQW(II) = "2" Then : QQW(II) = "B" : ElseIf QQW(II) = "3" Then : QQW(II) = "C" : ElseIf QQW(II) = "4" Then : QQW(II) = "D"

  45.         ElseIf QQW(II) = "5" Then : QQW(II) = "E" : ElseIf QQW(II) = "6" Then : QQW(II) = "F" : ElseIf QQW(II) = "7" Then : QQW(II) = "G" : ElseIf QQW(II) = "8" Then : QQW(II) = "H"

  46.         ElseIf QQW(II) = "9" Then : QQW(II) = "I" : ElseIf QQW(II) = "0" Then : QQW(II) = "J"

  47.         End If

  48.     End Sub

  49.     Private Sub Set_費用清單()

  50.         Dim ds As New DataSet : 明細_dgv.DataSource = Nothing : ds.Clear()

  51.         明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  52.         明細_dgv.ColumnHeadersHeight = 40 : 明細_dgv.AllowUserToAddRows = False : 明細_dgv.RowTemplate.Height = 40

  53.         If 未核准_rb.Checked = True Then : SQL2 = " AND (財務收支控制表.審核人 LIKE '')"

  54.         ElseIf 已核准_rb.Checked = True Then : SQL2 = " AND (財務收支控制表.審核人 NOT LIKE '') AND (財務收支控制表.審核人 NOT LIKE '作廢%')"

  55.         ElseIf 作廢_rb.Checked = True Then : SQL2 = " AND (財務收支控制表.審核人 LIKE '作廢%')"

  56.         End If : SQL3 = " AND (財務收支明細表.類別 LIKE 'B-02-04-20' OR 財務收支明細表.類別 LIKE 'B-02-04-21')"

  57. 

  58.         SQL_營運成本收支單審核_查詢費用清單1() : da.SelectCommand = cmd : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()

  59. 

  60.         明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500

  61.         明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).Visible = False : 明細_dgv.Columns(6).Visible = False : 明細_dgv.Columns(7).FillWeight = 140

  62.         明細_dgv.Columns(8).Visible = False : 明細_dgv.Columns(9).Visible = False : 明細_dgv.Columns(10).Visible = False : 明細_dgv.Columns(11).Visible = False

  63.         明細_dgv.Columns(12).Visible = False

  64. 

  65.         明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True

  66. 

  67.         明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"

  68.         明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(表頭(114)).DefaultCellStyle.Format = "#,##0.000"

  69.         明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  70.         明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  71.         明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  72.         明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  73.         明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  74.         明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  75.         明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  76.         Dim mycol1 As DataGridViewImageColumn = 明細_dgv.Columns(表頭(3)) : mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom

  77.         Dim mycol2 As DataGridViewImageColumn = 明細_dgv.Columns(表頭(4)) : mycol2.ImageLayout = DataGridViewImageCellLayout.Zoom

  78.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  79.             明細_dgv.Rows(i).Cells(表頭(11)).Value = i + 1 : 明細_dgv.Rows(i).Cells(表頭(3)).Value = My.Resources._Select : 明細_dgv.Rows(i).Cells(表頭(4)).Value = My.Resources.Close

  80.         Next

  81.     End Sub

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

  83.         Me.Text = 系統語言字典("H001-275-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)

  84.         表頭(111) = 系統語言字典("H302-106-" & 語言) : 表頭(109) = 系統語言字典("H302-107-" & 語言) : 表頭(20) = 系統語言字典("H302-108-" & 語言)

  85.         表頭(107) = 系統語言字典("H302-109-" & 語言) : 表頭(11) = 系統語言字典("H302-110-" & 語言) : 表頭(114) = 系統語言字典("H302-111-" & 語言)

  86.         表頭(98) = 系統語言字典("H302-112-" & 語言) : 表頭(110) = 系統語言字典("H302-113-" & 語言) : 表頭(115) = 系統語言字典("H302-114-" & 語言)

  87.         表頭(108) = 系統語言字典("H302-115-" & 語言) : 表頭(112) = 系統語言字典("H302-105-" & 語言) : 表頭(113) = 系統語言字典("H302-129-" & 語言)

  88.         對話框(0) = 系統語言字典("H302-118-" & 語言) : 對話框(1) = 系統語言字典("H302-119-" & 語言) : 對話框(2) = 系統語言字典("H302-120-" & 語言)

  89.         對話框(3) = 系統語言字典("H302-121-" & 語言) : 未核准_rb.Text = 系統語言字典("H302-123-" & 語言) : 表頭(1) = 系統語言字典("H204-107-" & 語言)

  90.         作廢_rb.Text = 系統語言字典("H302-124-" & 語言) : 表頭(39) = 系統語言字典("H302-126-" & 語言) : 表頭(2) = 系統語言字典("H904-104-" & 語言)

  91.         表頭(3) = 系統語言字典("H215-100-" & 語言) : 表頭(4) = 系統語言字典("H302-124-" & 語言) : 已核准_rb.Text = 系統語言字典("H301-132-" & 語言)

  92.     End Sub

  93.     Private Sub 電信費追加執行_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  94.         風格() : H(302) = True : 介面 = "H302" : 語言轉換讀取() : 顯示說明(999, False)

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

  96.         Panel1.SendToBack()

  97.     End Sub

  98.     Private Sub 電信費追加執行_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  99.         Set_清單() : Set_費用清單() : 首次開啟 = False

  100.     End Sub

  101.     Private Sub 電信費追加執行_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  102.         H(215) = False : MyMod.虛擬桌面開啟()

  103.     End Sub

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

  105.         介面 = "H215" : 語言轉換讀取() : Set_清單() : Set_費用清單()

  106.     End Sub

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

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

  109.     End Sub

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

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

  112.     End Sub

  113.     Private Sub 簽名清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 簽名清單_dgv.CellClick

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

  115.             圖片編碼_tb.Text = 簽名清單_dgv(0, e.RowIndex).Value.ToString

  116.             PA38 = 圖片編碼_tb.Text : SQL_營運成本收支單審核_查詢簽名檔圖片()

  117.             While dr.Read() = True

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

  119.                 Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())

  120.                 Dim oStream As New MemoryStream(bytes)

  121.                 簽名圖_pb.Image = Bitmap.FromStream(oStream)

  122.             End While : conn.Close() : 簽名圖_pb.SizeMode = 4

  123.             For QAZ = 0 To 999

  124.                 QQW(0) = Strings.Right(簽名清單_dgv(0, e.RowIndex).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9

  125.                 QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)

  126.                 QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)

  127.                 For RT = 4 To 11

  128.                     Delay(3)

  129.                     Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)

  130.                     For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next

  131.                     If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then

  132.                     ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If

  133.                 Next

  134.                 Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)

  135.                 For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next

  136.                 驗證碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2

  137.                 PA39 = 驗證碼_tb.Text : SQL_營運成本收支單審核_查詢簽名編碼() : If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()

  138.             Next

  139.         End If

  140.     End Sub

  141.     Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp

  142.         'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If

  143.         If 明細_dgv.SelectedCells.Count > 0 Then

  144.             If 明細_dgv.SelectedCells(0).ColumnIndex = 15 Then

  145.                 If 登入人級別 = "00" Then

  146.                     營運成本收支單號_tb.Text = 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(0).Value

  147.                     PA27 = 圖片編碼_tb.Text : PA28 = 驗證碼_tb.Text : PA29 = 營運成本收支單號_tb.Text

  148.                     SQL_營運成本收支單審核_修改財務收支控制表() : SQL_營運成本收支單審核_修改財務收支明細表() : conn.Close() : PA1 = "01"

  149.                     If 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(110)).Value <> 0 Then : SQL_營運成本收支單審核_修改財務收支明細表備用金() : conn.Close()

  150.                     ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(39)).Value <> 0 Then : SQL_營運成本收支單審核_修改財務收支明細表現金() : conn.Close()

  151.                     ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(112)).Value <> 0 Then : SQL_營運成本收支單審核_修改財務收支明細表支出() : conn.Close()

  152.                     End If : MGB(對話框(1), 1) : 營運成本收支單號_tb.Text = "" : 首次開啟 = False : Set_清單() : Set_費用清單()

  153.                 ElseIf 未核准_rb.Checked = True And 已核准_rb.Checked = False And 作廢_rb.Checked = False Then

  154.                     營運成本收支單號_tb.Text = 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(0).Value

  155.                     PA27 = 圖片編碼_tb.Text : PA28 = 驗證碼_tb.Text : PA29 = 營運成本收支單號_tb.Text

  156.                     SQL_營運成本收支單審核_修改財務收支控制表() : SQL_營運成本收支單審核_修改財務收支明細表() : conn.Close() : PA1 = "01"

  157.                     If 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(110)).Value <> 0 Then : SQL_營運成本收支單審核_修改財務收支明細表備用金() : conn.Close()

  158.                     ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(39)).Value <> 0 Then : SQL_營運成本收支單審核_修改財務收支明細表現金() : conn.Close()

  159.                     ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(112)).Value <> 0 Then : SQL_營運成本收支單審核_修改財務收支明細表支出() : conn.Close()

  160.                     End If : MGB(對話框(1), 1) : 營運成本收支單號_tb.Text = "" : 首次開啟 = False : Set_清單() : Set_費用清單()

  161.                 End If

  162.             ElseIf 明細_dgv.SelectedCells(0).ColumnIndex = 16 Then

  163.                 If 登入人級別 = "00" Then

  164.                     營運成本收支單號_tb.Text = 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(0).Value

  165.                     INB(對話框(2)) : PA = 訊息回應

  166.                     If PA = "" Then : MGB(對話框(3), 1) : Else

  167.                         DTP = Format(Today(), "yyyy/MM/dd") : PA42 = 營運成本收支單號_tb.Text

  168.                         SQL_營運成本收支單審核_審核人3() : conn.Close() : MGB(對話框(1), 1) : PA = "" : 營運成本收支單號_tb.Text = "" : 首次開啟 = False

  169.                         Set_清單() : Set_費用清單()

  170.                     End If

  171.                 ElseIf 未核准_rb.Checked = True And 已核准_rb.Checked = False And 作廢_rb.Checked = False Then

  172.                     營運成本收支單號_tb.Text = 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(0).Value

  173.                     INB(對話框(2)) : PA = 訊息回應

  174.                     If PA = "" Then : MGB(對話框(3), 1) : Else

  175.                         DTP = Format(Today(), "yyyy/MM/dd") : PA42 = 營運成本收支單號_tb.Text

  176.                         SQL_營運成本收支單審核_審核人3() : conn.Close() : MGB(對話框(1), 1) : PA = "" : 營運成本收支單號_tb.Text = "" : 首次開啟 = False

  177.                         Set_清單() : Set_費用清單()

  178.                     End If

  179.                 End If

  180.             End If

  181.         End If

  182.     End Sub

  183.     Private Sub 未核准_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准_rb.Click

  184.         If 首次開啟 = False Then : 未核准_rb.Checked = True : 已核准_rb.Checked = False : 作廢_rb.Checked = False : Set_費用清單() : End If

  185.     End Sub

  186.     Private Sub 已核准_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已核准_rb.Click

  187.         If 首次開啟 = False Then : 未核准_rb.Checked = False : 已核准_rb.Checked = True : 作廢_rb.Checked = False : Set_費用清單() : End If

  188.     End Sub

  189.     Private Sub 作廢_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢_rb.Click

  190.         If 首次開啟 = False Then : 未核准_rb.Checked = False : 已核准_rb.Checked = False : 作廢_rb.Checked = True : Set_費用清單() : End If

  191.     End Sub

  192. 

  193.     Private Sub 風格()

  194.         If 深色風格 = False Then

  195.             Me.BackColor = SystemColors.Control

  196.             已核准_rb.ForeColor = Color.Green : 未核准_rb.ForeColor = Color.Blue : 作廢_rb.ForeColor = Color.Red

  197. 

  198.             明細_dgv.EnableHeadersVisualStyles = True : 明細_dgv.BackgroundColor = Color.White : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  199.             明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  200.             明細_dgv.DefaultCellStyle.BackColor = Color.White : 明細_dgv.DefaultCellStyle.ForeColor = Color.Black

  201.             簽名清單_dgv.EnableHeadersVisualStyles = True : 簽名清單_dgv.BackgroundColor = Color.White : 簽名清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  202.             簽名清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray

  203.             簽名清單_dgv.DefaultCellStyle.BackColor = Color.White : 簽名清單_dgv.DefaultCellStyle.ForeColor = Color.Black

  204.         Else

  205.             Me.BackColor = Color.Black

  206.             已核准_rb.ForeColor = Color.LightGreen : 未核准_rb.ForeColor = Color.LightBlue : 作廢_rb.ForeColor = Color.LightPink

  207. 

  208.             明細_dgv.EnableHeadersVisualStyles = False : 明細_dgv.BackgroundColor = Color.DimGray : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  209.             明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  210.             明細_dgv.DefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.ForeColor = Color.White

  211.             簽名清單_dgv.EnableHeadersVisualStyles = False : 簽名清單_dgv.BackgroundColor = Color.DimGray : 簽名清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  212.             簽名清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 簽名清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  213.             簽名清單_dgv.DefaultCellStyle.BackColor = Color.Black : 簽名清單_dgv.DefaultCellStyle.ForeColor = Color.White

  214.         End If

  215.     End Sub

  216. End Class