HX-PGS-ERP-SYS-LEEHSIEHJUI/06、業務管理系統/合約編號修改器.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
            ToolTip1.ToolTipTitle = "系統說明"
        Else
            ToolTip1.ToolTipTitle = "illustrate"
        End If
        合約編號_tb.Text = PA18 : 合約編號1_tb.Text = PA19 : 合約編號2_tb.Text = PA20 : 合約編號3_tb.Text = PA21
        If Strings.Left(PA18, 2) = "HX" Then : 合約編號_cb.Text = "HX" : ElseIf Strings.Left(PA18, 3) = "PGS" Then : 合約編號_cb.Text = "PGS" : Else : 合約編號_cb.Text = "" : End If
    End Sub
    Private Sub 合約編號修正_bt_Click(sender As Object, e As EventArgs) Handles 合約編號修正_bt.Click
        Dim 合約編號條件 As Boolean = True
        If 合約編號_cb.Text = "" Then : If 系統語言 = "繁體中文" Then : 通知訊息 = "沒有選擇我方公司!!" : Else : 通知訊息 = "Silakan pilih perusahaan kami!!" : End If
            訊息類型 = "1" : 通知視窗.ShowDialog() : 合約編號條件 = False : End If
        If 合約編號1_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : 通知訊息 = "沒有甲方公司英文縮寫!!" : Else : 通知訊息 = "Silakan masukkan singkatan dari perusahaan Pihak A!!" : End If
            訊息類型 = "1" : 通知視窗.ShowDialog() : 合約編號條件 = False : Else
            Dim d As Int32
            For index = 0 To 合約編號1_tb.Text.Length - 1
                d = Asc(合約編號1_tb.Text(index))
                Dim 可能不行 As Boolean = False
                If (d < 65 Or d > 90) Then : 可能不行 = True : End If   'c變數若在65~90是大寫的英文字母
                If 可能不行 = True Then
                    If (d < 97 Or d > 122) Then : 可能不行 = True : Else : 可能不行 = False : End If       'c變數若在97~122是小寫的英文字母
                    If 可能不行 = True Then   '然後查表， c變數若在48~57， 表示它是數字，
                        If (d < 48 Or d > 57) Then
                            If 系統語言 = "繁體中文" Then : 通知訊息 = "甲方公司簡稱需要英文或是數字，不可以是中文或其他符號!!"
                            Else : 通知訊息 = "Singkatan dari perusahaan Pihak A harus dalam bahasa Inggris atau angka, bukan dalam bahasa Cina atau simbol lainnya!!" : End If
                            訊息類型 = "1" : 通知視窗.ShowDialog() : 合約編號條件 = False : Exit For : End If
                    End If
                End If
            Next
        End If
        If 合約編號2_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : 通知訊息 = "沒有立約日期!!" : Else : 通知訊息 = "Tidak ada tanggal kontrak!!" : End If
            訊息類型 = "1" : 通知視窗.ShowDialog() : 合約編號條件 = False : End If
        Dim c As Int32   '然後查表， c變數若在48~57， 表示它是數字，
        For index = 0 To 合約編號2_tb.Text.Length - 1
            c = Asc(合約編號2_tb.Text(index))
            If c < 48 Or c > 57 Then
                If 系統語言 = "繁體中文" Then : 通知訊息 = "立約日期只能是數字!!" : Else : 通知訊息 = "Tanggal perjanjian hanya bisa berupa angka!!" : End If
                訊息類型 = "1" : 通知視窗.ShowDialog() : 合約編號條件 = False : Exit For : Else
                If Len(合約編號2_tb.Text) <> 6 Then
                    If 系統語言 = "繁體中文" Then : 通知訊息 = "立約日期的格式為YYMMDD (年兩位，月兩位，日兩位)，數字規格不符!!"
                    Else : 通知訊息 = "Format tanggal kontrak adalah YYMMDD (dua digit untuk tahun, dua digit untuk bulan, dan dua digit untuk hari), dan spesifikasi numerik tidak cocok!!" : End If
                    訊息類型 = "1" : 通知視窗.ShowDialog() : 合約編號條件 = False : Exit For : End If
            End If
        Next
        If 合約編號3_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : 通知訊息 = "沒有合約序號!!" : Else : 通知訊息 = "Tidak ada nomor kontrak!!" : End If
            訊息類型 = "1" : 通知視窗.ShowDialog() : 合約編號條件 = False
        ElseIf IsNumeric(合約編號3_tb.Text) = False Then
            If 系統語言 = "繁體中文" Then : 通知訊息 = "序號只能是數字!!" : Else : 通知訊息 = "Nomor seri hanya bisa berupa angka!!" : End If
            訊息類型 = "1" : 通知視窗.ShowDialog() : 合約編號條件 = False
        End If

        If 合約編號條件 = False Then : Else
            PA17 = 合約編號_tb.Text : PA18 = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
            PA19 = 合約編號1_tb.Text : PA20 = 合約編號2_tb.Text : PA21 = 合約編號3_tb.Text : PA22 = 合約編號_cb.Text
            SQL_合約編號修改()
            Me.Close()
        End If
    End Sub
    Private Sub 合約編號修正_bt_MouseEnter(sender As Object, e As EventArgs) Handles 合約編號修正_bt.MouseEnter
        If 系統語言 = "繁體中文" Then : ToolTip1.SetToolTip(Me.合約編號修正_bt, "存檔") : Else : ToolTip1.SetToolTip(Me.合約編號修正_bt, "Save") : End If
    End Sub
    Private Sub 合約編號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號1_tb.TextChanged
        合約編號1_tb.Text = 合約編號1_tb.Text.ToUpper
    End Sub
End Class