HF-MIS-SYS-SIU/HF-MIS-SYS/HF-MIS-SYS.vb

Imports System.IO
Public Class FrmMDI
    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
    End Sub
    Private m_ChildFormNumber As Integer
    Private Sub mdiForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & 職位 & " -- " & gUserName & "  --  系統版本  :" & 版本
        更換底圖()
    End Sub
    Private Sub mdiForm_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        參照更新.Enabled = True : Get_Token()
        '-----------------系統設定--------------------------------
        系统設定_tsm.Visible = cc(51)
        '-----------------業務管理--------------------------------
        业务管理_tsm.Visible = cc(52)
        订单控制表_tsm.Visible = cc(53) : 销货控制表_tsm.Visible = cc(54)
        '-----------------皮料管理--------------------------------
        皮料管理_tsm.Visible = cc(55)
        蓝皮_tsm.Visible = cc(56) : 在制品_tsm.Visible = cc(57) : 每日发货_tsm.Visible = cc(36) : 每日发货1_tsm.Visible = cc(50) : 蓝皮采购_tsm.Visible = cc(58)
        皮胚中检_tsm.Visible = cc(49) : 打尺发货_tsm.Visible = cc(59) : 添梅_tsm.Visible = cc(60) : 添梅喷台摔鼓_tsm.Visible = cc(61) : 皮胚盘点_tsm.Visible = cc(62)
        反毛打尺入库_tsm.Visible = cc(68) : 打尺入库_tsm.Visible = cc(69) : 下鼓染色_tsm.Visible = cc(70) : PU主机_tsm.Visible = cc(71) : 磨皮_tsm.Visible = cc(72)
        水场在制_tsm.Visible = cc(73) : 噴台_tsm.Visible = cc(74)
        '-----------------化料管理--------------------------------
        化料管理_tsm.Visible = cc(6)
        化料主档_tsm.Visible = cc(7) : 用量试算_tsm.Visible = cc(31) : 盘点_tsm.Visible = cc(9) : 即时库存_tsm.Visible = cc(10) : 呆料管理_tsm.Visible = cc(13)
        染料用量_tsm.Visible = cc(14) : 货柜采购_tsm.Visible = cc(11) : 采购汇总_tsm.Visible = cc(12) : 其他_tsm.Visible = cc(64) : PU_tsm.Visible = cc(65)
        化工用量_tsm.Visible = cc(15) : 手册进口_tsm.Visible = cc(8) : 化工领料_tsm.Visible = cc(34) : 化工認証_tsm.Visible = cc(46) : 化工认证1_tsm.Visible = cc(47)
        '-----------------工藝管理--------------------------------
        工艺管理_tsm.Visible = cc(16)
        染色工艺_tsm.Visible = cc(17) : 染色记录_tsm.Visible = cc(18) : 染色领料记录_tsm.Visible = cc(19) : 涂饰配料记录_tsm.Visible = cc(30) : 涂饰领料记录_tsm.Visible = cc(48)
        涂饰工艺_tsm.Visible = cc(66) : 工艺_tsm.Visible = cc(67)
        '-----------------現場報表--------------------------------
        现场报表_tsm.Visible = cc(45)
        各组工作日报表_tsm.Visible = cc(42) : 染色日报表_tsm.Visible = cc(44) : 流程追踪_tsm.Visible = cc(43) : 生皮出库_tsm.Visible = cc(41) : 喷台日报表_tsm.Visible = cc(40)
        反毛量尺_tsm.Visible = cc(39) : PU量尺_tsm.Visible = cc(38) : 在制品1_tsm.Visible = cc(37) : 皮料盘点汇总_tsm.Visible = cc(35) : 量尺在线数据_tsm.Visible = cc(29)
        '-----------------關務管理--------------------------------
        关务管理_tsm.Visible = cc(1)
        手冊管理_tsm.Visible = cc(2) : 蓝皮采购1_tsm.Visible = cc(32) : 化料采购_tsm.Visible = cc(63) : 手册进出台帐_tsm.Visible = cc(3) : 手册进出汇总_tsm.Visible = cc(4)
        关务主页面_tsm.Visible = cc(5) : 汇入数据_tsm.Visible = cc(33) : 备查帐_tsm.Visible = cc(26) : 备查帐汇总_tsm.Visible = cc(27)
        '-----------------金蝶串接--------------------------------
        金蝶串接_tsm.Visible = cc(75)
        同步订单及销售_tsm.Visible = cc(76) : 同步收料入库_tsm.Visible = cc(77) : 同步领料出库_tsm.Visible = cc(78) : 即时库存表_tsm.Visible = cc(83)
        '-----------------其他--------------------------------
        其他1_tsm.Visible = cc(79)
        汇入数据1_tsm.Visible = cc(80) : 水场水表_tsm.Visible = cc(81) : 打印唛头_tsm.Visible = cc(82)
        '-----------------人資管理--------------------------------
        人資管理_tsm.Visible = cc(84)
        考勤明細表_tsm.Visible = cc(85) : 補打卡申請_tsm.Visible = cc(86) : 補打卡審核_tsm.Visible = cc(87) : 請假申請_tsm.Visible = cc(88) : 請假核准_tsm.Visible = cc(89)
        請假歷史資料_tsm.Visible = cc(90) : 國定假日設定_tsm.Visible = cc(91) : 考勤資料庫設定_tsm.Visible = cc(92)
        '-----------------系統維護--------------------------------
        系统维护_tsm.Visible = cc(20)
        使用者权限管理_tsm.Visible = cc(24) : 资料库转换_tsm.Visible = cc(25) : 汇率管理_tsm.Visible = cc(21) : 资料库备份_tsm.Visible = cc(22) : 资料库回存_tsm.Visible = cc(23)
        汇入_tsm.Visible = cc(28) : 系統執行檔版本管理_tsm.Visible = cc(25)
    End Sub
    Private Sub mdiForm_Closed(sender As Object, e As EventArgs) Handles MyBase.Closing
        frmLogin.Close()
    End Sub
    Private Sub mdiForm_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        更換底圖()
    End Sub
    Private Sub 更換底圖()
        Dim 現在時間 As Integer = DateTime.Now.Hour
        If 現在時間 >= 5 AndAlso 現在時間 < 17 Then : Me.BackgroundImage = My.Resources._00002 : Else : Me.BackgroundImage = My.Resources._00003 : End If
        Me.BackgroundImageLayout = ImageLayout.Stretch
    End Sub
    '-----------------系統設定--------------------------------
    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
        個人帳號管理.ShowDialog()
    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()
    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()
    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()
    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() 'FrmChem_Main.Show()   原本的
    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
        Me.WindowState = FormWindowState.Normal : 染色工藝管理.Show()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    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()
    End Sub
    Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
        系統執行檔版本管理.ShowDialog()
    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()
    End Sub

    Private Sub 參照更新_Tick(sender As Object, e As EventArgs) Handles 參照更新.Tick
        Dim Str As String = Application.StartupPath : Dim FS As String
        Try
            參照更新.Enabled = False : ToolStripProgressBar1.Maximum = 5 : Dim 有更新 As Boolean = False
            '-------------------確定連線--------------------------------------------------------------------------------------
            If File.Exists(Str + "\NOTAUTO.txt") Then : Target = "https://gcm-smart.com/ERP/HF-MIS/" : Else : Target = "http://192.168.110.164:8888/HF-MIS/" : End If
            FS = "dbHelper.dll" : If IO.File.Exists(Str & "\" & FS) Then
            Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : ToolStripProgressBar1.Value += 1 : Application.DoEvents() : 有更新 = True : End If
            FS = "LrDAL.dll" : If IO.File.Exists(Str & "\" & FS) Then
            Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : ToolStripProgressBar1.Value += 1 : Application.DoEvents() : 有更新 = True : End If
            FS = "LrGetToken.dll" : If IO.File.Exists(Str & "\" & FS) Then
            Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : ToolStripProgressBar1.Value += 1 : Application.DoEvents() : 有更新 = True : End If
            FS = "Newtonsoft.Json.dll" : If IO.File.Exists(Str & "\" & FS) Then
            Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : ToolStripProgressBar1.Value += 1 : Application.DoEvents() : 有更新 = True : End If
            FS = "Newtonsoft.Json.xml" : If IO.File.Exists(Str & "\" & FS) Then
            Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : ToolStripProgressBar1.Value += 1 : Application.DoEvents() : 有更新 = True : End If
            If 有更新 = True Then : MsgBox("系統參照更新完成!!") : ToolStripProgressBar1.Value = 0 : End If
        Catch ex As Exception
            MsgBox(Target & FS & " 出現問題!!!")
        End Try
    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
        RFID綁定.Show()
    End Sub
End Class