Option Strict Off Public Class 合約執行進度 ReadOnly ds8 As New DataSet ReadOnly 對話框(1) As String Private Sub Set_甲方1() Dim ds1 As New DataSet : 甲方1_dgv.DataSource = Nothing : ds1.Clear() 甲方1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 甲方1_dgv.ColumnHeadersHeight = 25 : 甲方1_dgv.AllowUserToAddRows = False SQL_甲1() da.Fill(ds1) : 甲方1_dgv.DataSource = ds1.Tables(0) : conn.Close() End Sub Private Sub Set_甲方2() Dim ds1 As New DataSet : 甲方2_dgv.DataSource = Nothing : ds1.Clear() 甲方2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 甲方2_dgv.ColumnHeadersHeight = 25 : 甲方2_dgv.AllowUserToAddRows = False SQL_甲2() da.Fill(ds1) : 甲方2_dgv.DataSource = ds1.Tables(0) : conn.Close() End Sub Private Sub Set_清單() Dim ds1 As New DataSet : 合約清單_dgv.DataSource = Nothing : ds1.Clear() 合約清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 合約清單_dgv.ColumnHeadersHeight = 40 : 合約清單_dgv.AllowUserToAddRows = False If 系統語言 = "繁體中文" Then : SQL2 = "工程名稱_中" : Else : SQL2 = "工程名稱_英" : End If SQL_合約清單查詢() da.Fill(ds1) : 合約清單_dgv.DataSource = ds1.Tables(0) : conn.Close() 合約清單_dgv.Columns("驗收完成日期").Visible = False : 合約清單_dgv.Columns("保固期限").Visible = False For I As Integer = 0 To 合約清單_dgv.Rows.Count - 1 If 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString = "" Then 合約清單_dgv.Rows(I).Cells(表頭(116)).Value = 對話框(0) Else If 合約清單_dgv.Rows(I).Cells("驗收完成日期").Value.ToString = "" Then 合約清單_dgv.Rows(I).Cells(表頭(116)).Value = 對話框(1) Else DTP1.Value = 合約清單_dgv.Rows(I).Cells("驗收完成日期").Value.ToString 合約清單_dgv.Rows(I).Cells(表頭(116)).Value = Strings.Format(DTP1.Value.AddMonths(CInt(合約清單_dgv.Rows(I).Cells("保固期限").Value.ToString)), "yyyy/MM/dd") End If End If If 合約清單_dgv.Rows(I).Cells(表頭(134)).Value.ToString = "" Then 合約清單_dgv.Rows(I).Cells(表頭(134)).Value = 合約清單_dgv.Rows(I).Cells("AB2").Value.ToString 合約清單_dgv.Rows(I).Cells("甲方").Value = 合約清單_dgv.Rows(I).Cells("B1").Value.ToString 合約清單_dgv.Rows(I).Cells("日期").Value = 合約清單_dgv.Rows(I).Cells("B2").Value.ToString 合約清單_dgv.Rows(I).Cells("序號").Value = 合約清單_dgv.Rows(I).Cells("B3").Value.ToString End If If Strings.Left(合約清單_dgv.Rows(I).Cells(表頭(134)).Value.ToString, 2) = "HX" Then 合約清單_dgv.Rows(I).Cells("乙方").Value = "HX" : Else : 合約清單_dgv.Rows(I).Cells("乙方").Value = "PGS" End If If 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第一期比例").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第二期比例").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第三期比例").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第四期比例").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第五期比例").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("預付款").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("到貨款").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("施工款").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("驗收款").Value = "0.0000" : End If If 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("保留款").Value = "0.0000" : End If 'My.Resources._1_123 綠色 My.Resources._1_124 紅色 My.Resources._1_125 橘色 If 合約清單_dgv.Rows(I).Cells("報價").Value.ToString = "" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString = "" Then 合約清單_dgv.Rows(I).Cells("SOP1/報價").Value = My.Resources._1_124 : 合約清單_dgv.Rows(I).Cells("SOP2/立約").Value = My.Resources._1_124 合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_124 : 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_124 合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_124 : 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_124 合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_124 : 合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_124 ElseIf 合約清單_dgv.Rows(I).Cells("報價").Value.ToString <> "" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString = "" Then 合約清單_dgv.Rows(I).Cells("SOP1/報價").Value = My.Resources._1_123 : 合約清單_dgv.Rows(I).Cells("SOP2/立約").Value = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(I).Cells("報價").Value.ToString = "" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then 合約清單_dgv.Rows(I).Cells("SOP1/報價").Value = My.Resources._1_125 : 合約清單_dgv.Rows(I).Cells("SOP2/立約").Value = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(I).Cells("報價").Value.ToString <> "" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then 合約清單_dgv.Rows(I).Cells("SOP1/報價").Value = My.Resources._1_123 : 合約清單_dgv.Rows(I).Cells("SOP2/立約").Value = My.Resources._1_123 : End If If 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_124 ElseIf 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString <> "0.0000" Then 合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_122 End If If 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_124 ElseIf 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString <> "0.0000" Then 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_122 End If If 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_124 ElseIf 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString <> "0.0000" Then 合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_122 End If If 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_124 ElseIf 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString <> "0.0000" Then 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_122 End If If 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_124 ElseIf 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString <> "0.0000" Then 合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_122 : End If If 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then 合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_123 ElseIf (合約清單_dgv.Rows(I).Cells("預付款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString <> "0.0000") And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then 合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_125 Else : 合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_124 : End If Next 合約清單_dgv.Sort(合約清單_dgv.Columns("日期"), System.ComponentModel.ListSortDirection.Descending) For i As Integer = 3 To 21 : 合約清單_dgv.Columns(i).Visible = False : Next 合約清單_dgv.Columns(0).FillWeight = 45 : 合約清單_dgv.Columns(1).FillWeight = 165 : 合約清單_dgv.Columns(2).FillWeight = 70 合約清單_dgv.Columns("SOP1/報價").FillWeight = 20 : 合約清單_dgv.Columns("SOP2/立約").FillWeight = 20 : 合約清單_dgv.Columns("SOP3/收訂").FillWeight = 20 合約清單_dgv.Columns("SOP4/到料").FillWeight = 20 : 合約清單_dgv.Columns("SOP5/施工").FillWeight = 20 : 合約清單_dgv.Columns("SOP6/驗收").FillWeight = 20 合約清單_dgv.Columns("SOP7/保固").FillWeight = 20 : 合約清單_dgv.Columns("SOP8/結案").FillWeight = 20 Dim mycol1 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP1/報價") : Dim mycol2 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP2/立約") Dim mycol3 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP3/收訂") : Dim mycol4 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP4/到料") Dim mycol5 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP5/施工") : Dim mycol6 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP6/驗收") Dim mycol7 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP7/保固") : Dim mycol8 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP8/結案") mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol2.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol3.ImageLayout = DataGridViewImageCellLayout.Zoom mycol4.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol5.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol6.ImageLayout = DataGridViewImageCellLayout.Zoom mycol7.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol8.ImageLayout = DataGridViewImageCellLayout.Zoom End Sub Private Sub 甲方_cb_下拉表單資料載入() Set_甲方1() : Set_甲方2() 甲方_cb.Items.Clear() : 甲方_cb.Items.Add("") Dim 甲(199) As String : Dim ni As Integer = 0 : Dim 寫入 As Boolean For i As Integer = 0 To 甲方1_dgv.Rows.Count - 1 : 甲(ni) = 甲方1_dgv.Rows(i).Cells(0).Value.ToString : ni += 1 : Next For i As Integer = 0 To 甲方2_dgv.Rows.Count - 1 寫入 = True For ii As Integer = 0 To 甲方1_dgv.Rows.Count - 1 : If 甲方1_dgv.Rows(ii).Cells(0).Value.ToString = 甲方2_dgv.Rows(i).Cells(0).Value.ToString Then : 寫入 = False : Exit For : End If : Next If 寫入 = True Then : 甲(ni) = 甲方2_dgv.Rows(i).Cells(0).Value.ToString : ni += 1 : End If Next For i As Integer = 0 To ni - 1 : 甲方_cb.Items.Add(甲(i)) : Next End Sub Private Sub Set_語言() 語言_dgv.DataSource = Nothing : ds8.Clear() 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 語言_dgv.ColumnHeadersHeight = 25 語言_dgv.AllowUserToAddRows = False SQL_系統語言導入() da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close() End Sub Private Sub 語言轉換讀取() Set_語言() : conn.Close() For i As Integer = 0 To 語言_dgv.Rows.Count - 1 If 語言_dgv("控件", i).Value.ToString = "合約執行進度" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "甲方_lb" Then : 甲方_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約號_lb" Then : 合約號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "dgv_合約號" Then : 表頭(134) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "dgv_工程" Then : 表頭(152) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "dgv_保固到期" Then : 表頭(116) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If Next End Sub Private Sub 合約執行進度_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True H(101) = True : 介面 = "H101" : 語言轉換讀取() SOP1_P.Image = My.Resources._1_124 : SOP2_P.Image = My.Resources._1_124 : SOP3_P.Image = My.Resources._1_124 : SOP4_P.Image = My.Resources._1_124 SOP5_P.Image = My.Resources._1_124 : SOP6_P.Image = My.Resources._1_124 : SOP7_P.Image = My.Resources._1_124 : SOP8_P.Image = My.Resources._1_124 SOP1_P.SizeMode = 4 : SOP2_P.SizeMode = 4 : SOP3_P.SizeMode = 4 : SOP4_P.SizeMode = 4 : SOP5_P.SizeMode = 4 : SOP6_P.SizeMode = 4 : SOP7_P.SizeMode = 4 : SOP8_P.SizeMode = 4 End Sub Private Sub 合約執行進度_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown 甲方_cb_下拉表單資料載入() : PA = "" : Set_清單() End Sub Private Sub 合約執行進度_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed H(101) = False End Sub Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click 介面 = "H101" : 語言轉換讀取() : Set_清單() End Sub Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 合約清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 合約清單_dgv.CellClick If e.RowIndex = -1 Then : Else 合約號_tb.Text = 合約清單_dgv.Rows(e.RowIndex).Cells(0).Value.ToString PA18 = 合約清單_dgv.Rows(e.RowIndex).Cells(0).Value.ToString If 合約清單_dgv.Rows(e.RowIndex).Cells(14).Value.ToString = "" Then : PA19 = 合約清單_dgv.Rows(e.RowIndex).Cells(18).Value.ToString Else : PA19 = 合約清單_dgv.Rows(e.RowIndex).Cells(14).Value.ToString : End If If 合約清單_dgv.Rows(e.RowIndex).Cells(15).Value.ToString = "" Then : PA20 = 合約清單_dgv.Rows(e.RowIndex).Cells(19).Value.ToString Else : PA20 = 合約清單_dgv.Rows(e.RowIndex).Cells(15).Value.ToString : End If If 合約清單_dgv.Rows(e.RowIndex).Cells(16).Value.ToString = "" Then : PA21 = 合約清單_dgv.Rows(e.RowIndex).Cells(20).Value.ToString Else : PA21 = 合約清單_dgv.Rows(e.RowIndex).Cells(16).Value.ToString : End If 'My.Resources._1_123 綠色 My.Resources._1_124 紅色 My.Resources._1_125 橘色 If 合約清單_dgv.Rows(e.RowIndex).Cells("報價").Value.ToString = "" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString = "" Then SOP1_P.Image = My.Resources._1_124 : SOP2_P.Image = My.Resources._1_124 : SOP3_P.Image = My.Resources._1_124 : SOP4_P.Image = My.Resources._1_124 SOP5_P.Image = My.Resources._1_124 : SOP6_P.Image = My.Resources._1_124 : SOP7_P.Image = My.Resources._1_124 : SOP8_P.Image = My.Resources._1_124 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("報價").Value.ToString <> "" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString = "" Then SOP1_P.Image = My.Resources._1_123 : SOP2_P.Image = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("報價").Value.ToString = "" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then SOP1_P.Image = My.Resources._1_125 : SOP2_P.Image = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("報價").Value.ToString <> "" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then SOP1_P.Image = My.Resources._1_123 : SOP2_P.Image = My.Resources._1_123 : End If If 合約清單_dgv.Rows(e.RowIndex).Cells("第一期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP3_P.Image = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第一期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP3_P.Image = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第一期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP3_P.Image = My.Resources._1_124 : End If If 合約清單_dgv.Rows(e.RowIndex).Cells("第二期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP4_P.Image = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第二期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP4_P.Image = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第二期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP4_P.Image = My.Resources._1_124 : End If If 合約清單_dgv.Rows(e.RowIndex).Cells("第三期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP5_P.Image = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第三期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP5_P.Image = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第三期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP5_P.Image = My.Resources._1_124 : End If If 合約清單_dgv.Rows(e.RowIndex).Cells("第四期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP6_P.Image = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第四期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP6_P.Image = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第四期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP6_P.Image = My.Resources._1_124 : End If If 合約清單_dgv.Rows(e.RowIndex).Cells("第五期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP7_P.Image = My.Resources._1_125 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第五期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP7_P.Image = My.Resources._1_123 ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第五期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP7_P.Image = My.Resources._1_124 : End If If 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then SOP8_P.Image = My.Resources._1_123 ElseIf (合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString <> "0.0000") And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then SOP8_P.Image = My.Resources._1_125 Else : SOP8_P.Image = My.Resources._1_124 : End If End If End Sub Private Sub 甲方_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 甲方_cb.SelectedIndexChanged PA = 甲方_cb.Text : Set_清單() : PA = "" End Sub Private Sub 修改合約編號_bt_Click(sender As Object, e As EventArgs) Handles 修改合約編號_bt.Click If 登入人級別 > 3 Then If 系統語言 = "繁體中文" Then : MsgBox("權限不足!!") : Else : MsgBox("Insufficient Permissions") : End If : Else If PA18 = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有資料") : Else : MsgBox("No Date") : End If Else : 合約編號修改器.ShowDialog() : PA18 = "" : PA19 = "" : PA20 = "" : PA21 = "" : Set_清單() : End If End If End Sub End Class