Module Variable

    Public User As ClsUser
    Public MyDep As New ClsDepartment
    Public CurDep As New ClsDepartment
    Public MyEmp As New ClsEmployees
    Public CurEmp As New ClsEmployees '當前員工信息
    Public MyExp As New ClsExperience
    Public MyFam As New ClsFamilyMember
    Public UpperEmp As New ClsEmployees '選擇的上級員工信息
    Public MyCheck As New ClsCheckIn
    Public MyEva As New ClsEvaluation
    Public MySal As New ClsSalary
    Public MyRule As New ClsSalaryRules
    Public Arr_DepName() As String
    Public Arr_DepDescribe() As String
    Public Arr_DepId() As Short
    '員工數組
    Public Arr_EmpId() As Short

    Public Sub EnterTAB(ByRef KeyAscii As Short)
        If KeyAscii = 13 Then '13表示回車鍵
            System.Windows.Forms.SendKeys.Send("{TAB}") '轉換為TAB鍵
        End If
    End Sub

    Public Sub Add_DepToTree(ByRef TreeView1 As System.Windows.Forms.TreeView, ByVal TmpKey As String)
        Dim FocusDepBh As Object
        Dim FocusDepName As Object
        Dim FocusDepKey As Object
        Dim i As Object
        Dim Bh As Integer
        Dim TmpNode As System.Windows.Forms.TreeNode
        '當前選擇結點的關鍵字
        Dim CurKey As String
        '臨時數組
        Dim TmpArr_DepName() As String
        Dim TmpArr_DepId() As Short
        ReDim TmpArr_DepName(0)
        ReDim TmpArr_DepId(0)
        '從關鍵字中讀取當前的部門編號
        Bh = Val(Right(TmpKey, Len(TmpKey) - 1))
        '獲取當前部門信息
        MyDep.GetInfo((Bh))
        '讀取當前部門的下一級部門數據
        MyDep.Load_Department_ByUpper((Bh))
        '將下一級部門數據賦值到臨時數組中
        i = 0
        Do While Arr_DepName(i) <> ""
            ReDim Preserve TmpArr_DepName(i + 1)
            TmpArr_DepName(i) = Arr_DepName(i)
            ReDim Preserve TmpArr_DepId(i + 1)
            TmpArr_DepId(i) = Arr_DepId(i)
            i = i + 1
        Loop

        i = 0
        Do While TmpArr_DepName(i) <> ""
            '生成部門對應的關鍵字，格式為“字母a”＋部門編號
            CurKey = "a" & Trim(Str(TmpArr_DepId(i)))
            '如果當前部門有下一級部門,則顯示文件夾圖標
            If MyDep.HaveSon(TmpArr_DepId(i)) = True Then
                TmpNode = TreeView1.Nodes.Find(TmpKey, True)(0).Nodes.Add(CurKey, TmpArr_DepName(i), 0, 2)
                TmpNode.SelectedImageIndex = 2
                '否則顯示葉結點圖標
            Else
                TmpNode = TreeView1.Nodes.Find(TmpKey, True)(0).Nodes.Add(CurKey, TmpArr_DepName(i), 0, 2)
            End If
            'FocusDepName、FocusDepBh和FocusDepKey分別表示希望選中的部門的名稱、編號和關鍵字
            If FocusDepName <> "" And TmpArr_DepName(i) = FocusDepName Then
                TmpNode.Checked = True
                FocusDepKey = CurKey
            End If
            If FocusDepBh > 0 And TmpArr_DepId(i) = FocusDepBh Then
                TmpNode.Checked = True
                FocusDepKey = CurKey
            End If
            If FocusDepKey <> "" And CurKey = FocusDepKey Then
                TmpNode.Checked = True
            End If
            '以當前部門為參數遞歸調用
            Add_DepToTree(TreeView1, CurKey)
            i = i + 1
        Loop
    End Sub
    Public Function InCombo(ByVal Str_Renamed As String, ByVal Combo1 As System.Windows.Forms.ComboBox) As Boolean
        Dim i As Object
        i = 0
        Do While i < Combo1.Items.Count
            If Combo1.Items(i).ToString = Trim(Str_Renamed) Then
                InCombo = True
                Exit Function
            End If
            i = i + 1
        Loop
        MsgBox(Str_Renamed & " 不在列表中，請重新設置")
        InCombo = False
    End Function

    Public Function In_Int(ByRef KeyAscii As Short) As Boolean
        Dim i As Integer
        Dim Ch_Accept_Int(20) As String
        '可以接受的字符數組
        Ch_Accept_Int(0) = "0"
        Ch_Accept_Int(1) = "1"
        Ch_Accept_Int(2) = "2"
        Ch_Accept_Int(3) = "3"
        Ch_Accept_Int(4) = "4"
        Ch_Accept_Int(5) = "5"
        Ch_Accept_Int(6) = "6"
        Ch_Accept_Int(7) = "7"
        Ch_Accept_Int(8) = "8"
        Ch_Accept_Int(9) = "9"
        Ch_Accept_Int(10) = Chr(8)
        '檢查輸入字符是否在數組中
        In_Int = False
        For i = 0 To 10
            If Chr(KeyAscii) = Ch_Accept_Int(i) Then
                In_Int = True
            End If
        Next
    End Function

    Public Function In_Single(ByRef KeyAscii As Short) As Boolean
        Dim i As Integer
        Dim Ch_Accept_Single(20) As String
        '可以接受的字符數組
        Ch_Accept_Single(0) = "0"
        Ch_Accept_Single(1) = "1"
        Ch_Accept_Single(2) = "2"
        Ch_Accept_Single(3) = "3"
        Ch_Accept_Single(4) = "4"
        Ch_Accept_Single(5) = "5"
        Ch_Accept_Single(6) = "6"
        Ch_Accept_Single(7) = "7"
        Ch_Accept_Single(8) = "8"
        Ch_Accept_Single(9) = "9"
        Ch_Accept_Single(10) = "."
        Ch_Accept_Single(11) = "-"
        Ch_Accept_Single(12) = Chr(8)
        '檢查輸入字符是否在數組中
        In_Single = False
        For i = 0 To 12
            If Chr(KeyAscii) = Ch_Accept_Single(i) Then
                In_Single = True
            End If
        Next
    End Function

End Module