GF-ERP-SYS-SIU/GF00-ERP-SYS/GCM-CPV-ERP-SYS.vb

Imports System.IO
Public Class ICS_ASMS_ERP_SYS
    Dim 系統關閉 As Boolean = False
    Private Sub ICS_ASMS_ERP_SYS_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        Dim pdfFolderPath As String = Path.Combine(Application.StartupPath, "pdf")        ' 設定您的 PDF 資料夾路徑
        If Directory.Exists(pdfFolderPath) Then                                           ' 檢查資料夾是否存在
            Try                                                                           ' 獲取資料夾中的所有檔案
                Dim asd As String() = Directory.GetFiles(pdfFolderPath)                   ' 一一刪除檔案
                For Each qwe In asd : File.Delete(qwe) : Next
            Catch ex As Exception                                                         ' 處理刪除檔案時的例外
                Console.WriteLine($"無法刪除檔案: {ex.Message}")
            End Try
        End If
    End Sub
    Private Sub ICS_ASMS_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim pdfFolderPath As String = Path.Combine(Application.StartupPath, "pdf")     ' 檢查資料夾是否存在
        If Directory.Exists(pdfFolderPath) Then
            Try                                                                        ' 獲取資料夾中的所有檔案
                Dim asd As String() = Directory.GetFiles(pdfFolderPath)                ' 一一刪除檔案
                For Each qwe In asd : File.Delete(qwe) : Next
            Catch ex As Exception                                                      ' 處理刪除檔案時的例外
                Console.WriteLine($"無法刪除檔案: {ex.Message}")
            End Try
        End If
        SQL_取得主頁圖檔()

        ' 設置開始時間
        Dim startTime As DateTime = DateTime.Now
        Dim timeOut As TimeSpan = TimeSpan.FromSeconds(10) ' 設置10秒超時時間

        While dr.Read() = True
            ' 檢查是否超時
            If DateTime.Now - startTime > timeOut Then
                Exit While ' 超時，跳出循環
            End If

            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            Me.BackgroundImage = Bitmap.FromStream(oStream)
        End While

        廟 = CC(105) : 公司 = CC(106)
        '------------------------工程管理系統---------------------------------------------------------------------------------------------------------------------------------------------------
        公函與簽呈_tsm.Visible = CC(8) : 公函_tsm.Visible = CC(67) : 簽呈_tsm.Visible = CC(68) : 疏文_tsm.Visible = CC(108)
        公告_tsm.Visible = CC(109) : 文件_tsm.Visible = CC(110)
        '------------------------財務管理系統---------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(91) = False And CC(92) = False And CC(93) = False And CC(94) = False And CC(95) = False And CC(96) = False And CC(97) = False Then
            財務管理系統_tsm.Visible = False
        End If
        財務收支單申請_tsm.Visible = CC(91) : 財務收支單審核_tsm.Visible = CC(92) : 財務收支單一覽表_tsm.Visible = CC(93) : 財務收支單對帳表_tsm.Visible = CC(94)
        財務收支決算表_tsm.Visible = CC(95) : 匯率管理_tsm.Visible = CC(96) : 會計科目管理_tsm.Visible = CC(97) : 流動資產申請_tsm.Visible = CC(91)
        If CC(96) = False And CC(97) = False Then : ToolStripSeparator10.Visible = False : End If
        If CC(94) = False And CC(95) = False Then : ToolStripSeparator9.Visible = False : End If
        '------------------------採購管理系統---------------------------------------------------------------------------------------------------------------------------------------------------
        採購管理系統_tsm.Visible = CC(11) : 採購對帳表_tsm.Visible = CC(65)
        '------------------------業務管理系統---------------------------------------------------------------------------------------------------------------------------------------------------
        業務系統管理_tsm.Visible = CC(99) : 車輛銷售管理_tsm.Visible = CC(64) : 車輛銷售報表_tsm.Visible = CC(63) : 估價單_tsm.Visible = CC(62)
        '------------------------倉儲管理系統---------------------------------------------------------------------------------------------------------------------------------------------------
        倉儲管理系統_tsm.Visible = CC(70) : 倉儲控制表_tsm.Visible = CC(46) : 物料入庫系統_tsm.Visible = CC(66)
        '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        資料庫系統管理_tsm.Visible = CC(1) : 簽名檔管理_tsm.Visible = CC(21)
        系統使用者管理_tsm.Visible = CC(2) : 系統權限預設表_tsm.Visible = CC(84) : 系統組織架構設定_tsm.Visible = CC(41) : 部門權限設定_tsm.Visible = CC(87)
        系統通用變數管理_tsm.Visible = CC(43) : 系統編碼規則_tsm.Visible = CC(10) : 系統對應電腦註冊_tsm.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4)
        '------------------------信眾管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        信眾管理系統_tsm.Visible = CC(22) : 信眾資料表_tsm.Visible = CC(23) : 點燈系統_tsm.Visible = CC(24)
        燈位基本資料_tsm.Visible = CC(24) : 自動點燈_tsm.Visible = CC(24)
        If gUserName = "李協叡" Then : 感謝狀_tsm.Visible = True : Else : 感謝狀_tsm.Visible = False : End If
        '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        人事管理系統_tsm.Visible = CC(114) : 考勤文件導入_tsm.Visible = CC(18) : 薪資試算表_tsm.Visible = CC(32) : 拆帳制薪資彙總表_tsm.Visible = CC(32)
        '----
        載入系統語言()
        Dim filePath As String = Path.Combine(Application.StartupPath, "NOTAUTO.txt")
        If File.Exists(filePath) Then
            Me.Text = "GF" & 資料庫編號 & "-ERP-SYS  版本號 : " & 版本
        Else
            Me.Text = "GF" & 資料庫編號 & "-ERP-SYS  Line : M"
        End If
    End Sub
    Private Sub ICS_ASMS_ERP_SYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        系統關閉 = True : If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : 系統選擇.Close() : End If
        登入畫面.Close()
    End Sub
    '-------------系統語言---------------------------------------------------------------------------------------------------------------------------
    Private Sub 載入系統語言()
        If 系統語言 = "Indonesian" Then : ElseIf 系統語言 = "繁體中文" Then : End If
    End Sub
    Private Sub 重置()
        首次開啟 = True
        BBL1 = "" : BBL2 = "" : BBL3 = "" : BBL4 = "" : BBL5 = "" : BBL6 = "" : 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 = "" : DTP = "" : DTP1 = "" : DTP2 = ""
        DTP3 = "" : 列印用SQL = ""
    End Sub
    '----資料庫系統管理----------------------------------------------------------------------------------------------------------------------------
    Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
    End Sub
    Private Sub 系統組織架構設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 系統組織架構設定.Show() : 系統組織架構設定.BringToFront()
    End Sub
    Private Sub 系統通用變數管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click
        重置() : 系統通用變數管理.ShowDialog() : 系統通用變數管理.BringToFront()
    End Sub
    Private Sub 系統權限預設表_tsm_Click(sender As Object, e As EventArgs) Handles 系統權限預設表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 系統權限預設表.Show() : 系統權限預設表.BringToFront()
    End Sub
    Private Sub 部門權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 部門權限設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 部門權限設定.Show() : 部門權限設定.BringToFront()
    End Sub
    Private Sub 系統編碼規則_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_tsm.Click
        系統編碼規則.Show() : 系統編碼規則.BringToFront()
    End Sub
    Private Sub TEST_FORM_tsm_Click(sender As Object, e As EventArgs) Handles TEST_FORM_tsm.Click
        測試頁面.Show() : 測試頁面.BringToFront()
    End Sub
    Private Sub 系統對應電腦註冊_tsm_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 系統對應電腦註冊.Show() : 系統對應電腦註冊.BringToFront()
    End Sub
    Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
    End Sub
    Private Sub 簽名檔管理_tsm_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_tsm.Click
        重置() : 簽名檔管理.ShowDialog() : 簽名檔管理.BringToFront()
    End Sub


    Private Sub 物料資料庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料資料庫_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 物料資料庫.Show() : 物料資料庫.BringToFront()
    End Sub
    Private Sub 物料供應商_tsm_Click(sender As Object, e As EventArgs) Handles 物料供應商_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 物料供應商.Show() : 物料供應商.BringToFront()
    End Sub
    Private Sub 客戶資料表_tsm_Click(sender As Object, e As EventArgs) Handles 客戶資料表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 客戶資料表.Show() : 客戶資料表.BringToFront()
    End Sub


    Private Sub 財務收支單申請_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支單申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 財務_收支單申請.Show() : 財務_收支單申請.BringToFront()
    End Sub
    Private Sub 匯率管理_tsm_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 匯率管理.Show() : 匯率管理.BringToFront()
    End Sub
    Private Sub 會計科目管理_tsm_Click(sender As Object, e As EventArgs) Handles 會計科目管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 會計科目管理.Show() : 會計科目管理.BringToFront()
    End Sub
    Private Sub 財務收支單審核_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支單審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 財務_收支單審核.Show() : 財務_收支單審核.BringToFront()
    End Sub
    Private Sub 財務收支單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支單一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : PA18 = "" : PA19 = "" : PA20 = "" : 財務_收支單一覽表.Show() : 財務_收支單一覽表.BringToFront()
    End Sub
    Private Sub 財務收支單對帳表_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支單對帳表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : PA18 = "" : PA19 = "" : PA20 = "" : 財務_對帳表.Show() : 財務_對帳表.BringToFront()
    End Sub
    Private Sub 財務系統說明書_tsm_Click(sender As Object, e As EventArgs) Handles 財務系統說明書_tsm.Click
        Process.Start("https://gcm-smart.com/2024/03/10/faip1/")
    End Sub

    Private Sub 財務收支決算表_tsm_Click(sender As Object, e As EventArgs) Handles 財務收支決算表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 財務_決算表.Show() : 財務_決算表.BringToFront()
    End Sub
    Private Sub 車輛銷售管理_tsm_Click(sender As Object, e As EventArgs) Handles 車輛銷售管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 車輛銷售管理.Show() : 車輛銷售管理.BringToFront()
    End Sub
    Private Sub 物料入庫系統_tsm_Click(sender As Object, e As EventArgs) Handles 物料入庫系統_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 物料入庫系統.Show() : 物料入庫系統.BringToFront()
    End Sub
    Private Sub 採購對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 採購對帳表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 倉儲對帳表.Show() : 倉儲對帳表.BringToFront()
    End Sub
    Private Sub 車輛銷售報表_tsm_Click(sender As Object, e As EventArgs) Handles 車輛銷售報表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 車輛銷售報表.Show() : 車輛銷售報表.BringToFront()
    End Sub


    Private Sub 公函ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 公函_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 公函.Show() : 公函.BringToFront()
    End Sub
    Private Sub 簽呈ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 簽呈_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 簽呈.Show() : 簽呈.BringToFront()
    End Sub
    Private Sub 公告ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 公告_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 公告.Show() : 公告.BringToFront()
    End Sub
    Private Sub 文件ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 文件_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 文件.Show() : 文件.BringToFront()
    End Sub
    Private Sub 蘇文ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 疏文_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 疏文.Show() : 疏文.BringToFront()
    End Sub


    Private Sub 信眾資料表_tsm_Click(sender As Object, e As EventArgs) Handles 信眾資料表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 信眾資料表.Show() : 信眾資料表.BringToFront()
    End Sub
    Private Sub 點燈系統_tsm_Click(sender As Object, e As EventArgs) Handles 點燈系統_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 點燈系統.Show() : 點燈系統.BringToFront()
    End Sub
    Private Sub 燈位基本資料_tsm_Click(sender As Object, e As EventArgs) Handles 燈位基本資料_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 燈位基本資料.Show() : 燈位基本資料.BringToFront()
    End Sub
    Private Sub 估價單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 估價單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 估價單.Show() : 估價單.BringToFront()
    End Sub


    Private Sub 程式鎖定ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 程式鎖定ToolStripMenuItem.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        鎖定視窗.ShowDialog() : 鎖定視窗.BringToFront()
    End Sub
    Private Sub 流動資產申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 流動資產申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 財務_流動資產申請.Show() : 財務_流動資產申請.BringToFront()
    End Sub
    Private Sub 倉儲控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 倉儲明細表查詢.Show() : 倉儲明細表查詢.BringToFront()
    End Sub
    Private Sub 自動點燈ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 自動點燈_tsm.Click
        重置() : 自動點燈系統.ShowDialog() : 自動點燈系統.BringToFront()
    End Sub
    Private Sub 點燈系統說明書_tsm_Click(sender As Object, e As EventArgs) Handles 點燈系統說明書_tsm.Click
        Process.Start("https://gcm-smart.com/2024/03/09/ptlip1/")
    End Sub
    Private Sub 考勤文件導入_tsm_Click(sender As Object, e As EventArgs) Handles 考勤文件導入_tsm.Click
        重置() : 拆帳制考勤文件導入.ShowDialog() : 拆帳制考勤文件導入.BringToFront()
    End Sub
    Private Sub 薪資試算表_tsm_Click(sender As Object, e As EventArgs) Handles 薪資試算表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 拆帳制薪資試算表.Show() : 拆帳制薪資試算表.BringToFront()
    End Sub
    Private Sub 感謝狀_tsm_Click(sender As Object, e As EventArgs) Handles 感謝狀_tsm.Click
        重置() : 感謝狀.Show() : 感謝狀.BringToFront()
    End Sub
    Private Sub 拆帳制薪資彙總表_tsm_Click(sender As Object, e As EventArgs) Handles 拆帳制薪資彙總表_tsm.Click
        'For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重置() : 拆帳制薪資試算表.Show() : 拆帳制薪資會總表.Show() : 拆帳制薪資會總表.BringToFront()
    End Sub
End Class