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_取得主頁圖檔() While dr.Read() = True 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) '---- 載入系統語言() 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 End Class