HX-PGS-ERP_New/10、背景程式與對話�.../待辦事項連接_兩項.vb

Public Class 待辦事項連接_兩項
    Private Sub 待辦事項連接_兩項_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 待辦事項連接_兩項_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If 系統語言 = "繁體中文" Then : Me.Text = "請選擇" : Else : Me.Text = "Silakan pilih" : End If
        If PB = "報價與合約" Then : BT1.Text = 系統語言字典("H001-124-" & 語言) : BT2.Text = 系統語言字典("H001-119-" & 語言)
        ElseIf PB = "工程與驗收" Then : BT1.Text = 系統語言字典("H001-133-" & 語言) : BT2.Text = 系統語言字典("H001-119-" & 語言)
        ElseIf PB = "保固未簽回" Then : BT1.Text = 系統語言字典("H001-122-" & 語言) : BT2.Text = 系統語言字典("H001-126-" & 語言)
        ElseIf PB = "保固未簽回" Then : BT1.Text = 系統語言字典("H001-122-" & 語言) : BT2.Text = 系統語言字典("H001-126-" & 語言)
        ElseIf PB = "人員動態" Then : BT1.Text = 系統語言字典("H001-286-" & 語言) : BT2.Text = 系統語言字典("H001-287-" & 語言)
        ElseIf PB = "車輛動態" Then : BT1.Text = 系統語言字典("H001-288-" & 語言) : BT2.Text = 系統語言字典("H001-289-" & 語言)
        ElseIf PB = "合約驗收單" Then : BT1.Text = 系統語言字典("H109-107-" & 語言) : BT2.Text = 系統語言字典("H109-108-" & 語言)
        End If
        首次開啟 = False
    End Sub
    Private Sub 報價單_bt_Click(sender As Object, e As EventArgs) Handles BT1.Click
        If 首次開啟 = True Then : Else : PB = "A" : 首次開啟 = True : Me.Close() : End If
    End Sub
    Private Sub 文件存檔_bt_Click(sender As Object, e As EventArgs) Handles BT2.Click
        If 首次開啟 = True Then : Else : PB = "B" : 首次開啟 = True : Me.Close() : End If
    End Sub
End Class