Calculator-Backend-SYS-LEEHSIEHJUI/Calculator-Backend-SYS/全域變數.vb

Module 全域變數
    Public 登入人IP1, Line通訊IP, Line伺服器名稱, DTP, 介面, 登入人級別 As String
    Public 登入人IP2 As String = "106.1.48.106,4567" : Public 語言 As String = "CH" : Public 系統語言 As String = "系統語言"
    Public ConString_T, ConString1_T, ConString2_T, ConString3_T, ConString, ConString1, ConString2, ConString3, ConString4 As String
    Public 系統語言字典 As New Dictionary(Of String, String)()
    Public 表頭(200), 合約試算表頭(40) As String
    Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30,
       PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49, PA50, PPAA As String
    Public 判斷重登, 重登確認, 主頁開啟, 首次開啟, 物料查詢, 深色風格, 不刪除檔案, 跨部門開啟, 在職, 工人, BL As Boolean
    Public PPBB(3000), 指定會科 As String
    Public 分段1, 分段2, 分段3, 分段4, NU1, NU2, NU3, NU4, NU5, NN1, 實際工資計算完成, 沖帳工資計算完成, 工作狀態計算完成 As Double
    Public Sub CB選擇清單(ByVal 輸入cb As ComboBox, Optional ByVal 原來值 As String = "")
        Dim 原來的 As String = 原來值
        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
        For I As Integer = 0 To 輸入cb.Items.Count - 1 : PPBB(I) = 輸入cb.Items(I).ToString : NN1 = I : Next
        If 輸入cb.Items.Count < 23 Then : 下拉清單_2.ShowDialog() : Else : 下拉清單_1.ShowDialog() : End If
        If PPAA = "" Then : 輸入cb.Text = 原來的
        Else : 輸入cb.Text = PPAA : End If
    End Sub
    Public Sub CB選擇清單_可選空白(ByVal 輸入cb As ComboBox)
        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
        For I As Integer = 0 To 輸入cb.Items.Count - 1 : PPBB(I) = 輸入cb.Items(I).ToString : NN1 = I : Next
        If 輸入cb.Items.Count < 23 Then : 下拉清單_2.ShowDialog() : Else : 下拉清單_1.ShowDialog() : End If
        輸入cb.Text = PPAA
    End Sub
End Module